【文章內(nèi)容簡介】 rim((1)) = Trim() Then strusername = Trim() userpassword = Trim() Unload Me Else MsgBox 密碼不正確，請重新輸入, 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 “主窗體”模塊詳細設計1實現(xiàn)目標：在這個項目中，選擇使用多文檔界面。使用這個窗體的好處是可以使程序更加有條理。對于一個多任務的應用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。界面及目標實現(xiàn)過程：主窗體設計的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設置、工資信息管理和關于這四個大模塊組成。主窗體是進行相關操作的主界面。在這幾個里，管理員有所有的權(quán)利進行各種操作。 員工工資管理系統(tǒng)界面程序說明：rivate Sub Menu_about_Click() 0End SubPrivate Sub Menu_adduser_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對不起，您沒有這個權(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 對不起，您沒有這個權(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 對不起，您沒有這個權(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 對不起，您沒有這個權(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 對不起，您沒有這個權(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 對不起，您沒有這個權(quán)限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_sumattendance_Click(Index As Integer) 0End Sub　各項子模塊詳細設計 “設置基本工資”窗體設計實現(xiàn)目標：選擇“工資信息設置”—“基本工資設置”菜單設置員工的基本工資，可以根據(jù)員工的編號，或者根據(jù)員工職務設置基本工資，設置的基本工資為每個小時的工資。界面及控件列表 設置基本工資界面 設置基本工資主要控件列表對 象屬 性設 置optionbuttonCaption員工編號optionbuttonCaption員工職務Command1caption確認Command2caption取消程序說明：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)設置基本工資, vbOKOnly + vbExclamation, 添加結(jié)果Call initsql = select * from salarysettingCall Call (sql) 0 0 “其他項目設置”窗體設計實現(xiàn)目標：選擇“工資信息設置”—“其他項目設置”菜單，在其他項目設置的窗體中，設置員工當月的獎金、津貼、福利等項目。界面及主要控件列表 其他項目主要控件對 象屬 性設 置dtpicker名稱dttimebobox名稱idframe名稱frameinfotexttext空Optionbuttonvaluefalse程序說明：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