【文章內(nèi)容簡(jiǎn)介】 rim((1)) = Trim() Then strusername = Trim() userpassword = Trim() Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入, vbOKOnly + vbExclamation, 警告 = End If End If End If End If pwdcount = pwdcount + 1 If pwdcount = 3 Then Unload Me End IfEnd SubPrivate Sub Form_Load() pwdcount = 0 strusername = userpassword = End Sub3．2 “主窗體”模塊詳細(xì)設(shè)計(jì)1實(shí)現(xiàn)目標(biāo)：在這個(gè)項(xiàng)目中，選擇使用多文檔界面。使用這個(gè)窗體的好處是可以使程序更加有條理。對(duì)于一個(gè)多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。界面及目標(biāo)實(shí)現(xiàn)過(guò)程：主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個(gè)大模塊組成。主窗體是進(jìn)行相關(guān)操作的主界面。在這幾個(gè)里，管理員有所有的權(quán)利進(jìn)行各種操作。 員工工資管理系統(tǒng)界面程序說(shuō)明：rivate Sub Menu_about_Click() 0End SubPrivate Sub Menu_adduser_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_basic_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then ichangeflag = 1 0 End IfEnd SubPrivate Sub Menu_changepwd_Click(Index As Integer) 0End SubPrivate Sub Menu_check_Click(Index As Integer) 0 = 信息查詢End SubPrivate Sub Menu_exit_Click(Index As Integer) Unload Me Exit SubEnd SubPrivate Sub Menu_formulasetting_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_getsalary_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_others_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then ichangeflag = 1 0 End IfEnd SubPrivate Sub Menu_out_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對(duì)不起，您沒(méi)有這個(gè)權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_sumattendance_Click(Index As Integer) 0End Sub　各項(xiàng)子模塊詳細(xì)設(shè)計(jì) “設(shè)置基本工資”窗體設(shè)計(jì)實(shí)現(xiàn)目標(biāo)：選擇“工資信息設(shè)置”—“基本工資設(shè)置”菜單設(shè)置員工的基本工資，可以根據(jù)員工的編號(hào)，或者根據(jù)員工職務(wù)設(shè)置基本工資，設(shè)置的基本工資為每個(gè)小時(shí)的工資。界面及控件列表 設(shè)置基本工資界面 設(shè)置基本工資主要控件列表對(duì) 象屬 性設(shè) 置optionbuttonCaption員工編號(hào)optionbuttonCaption員工職務(wù)Command1caption確認(rèn)Command2caption取消程序說(shuō)明：Set rs = getrs(sql, salary)If = False Thensql = delete from salarysetting where stuffid=39。 amp。 amp。 39。Call transactsql(sql, salary)End Ifid = Call addrecordMsgBox 已經(jīng)設(shè)置基本工資, vbOKOnly + vbExclamation, 添加結(jié)果Call initsql = select * from salarysettingCall Call (sql) 0 0 “其他項(xiàng)目設(shè)置”窗體設(shè)計(jì)實(shí)現(xiàn)目標(biāo)：選擇“工資信息設(shè)置”—“其他項(xiàng)目設(shè)置”菜單，在其他項(xiàng)目設(shè)置的窗體中，設(shè)置員工當(dāng)月的獎(jiǎng)金、津貼、福利等項(xiàng)目。界面及主要控件列表 其他項(xiàng)目主要控件對(duì) 象屬 性設(shè) 置dtpicker名稱dttimebobox名稱idframe名稱frameinfotexttext空Optionbuttonvaluefalse程序說(shuō)明：sql = select * from salaryother If ichangeflag = 1 Then Call add MsgBox 已經(jīng)添加記錄, vbOKOnly + vbExclamation, 提示 Call Call (sql) Unload Me Else If = True Then itype = 1 ElseIf = True Then itype = 2 ElseIf = True Then itype = 3 ElseIf = True Then itype = 4 ElseIf = True Then itype = 5 resumdate = recordtime sql = delete from salaryother where stuffid=39。 amp。 sql = sql amp。 39。 and YearMonth= amp。 recordtime amp。 and sql = sql amp。 Type= amp。 itype Call transactsql(sql, Salary) Call add Call (resumdate) sql = select * from salaryother Call Call (sql) Unload M