【文章內容簡介】 ) = 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 對不起，您沒有這個權限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_getsalary_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對不起，您沒有這個權限！, vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername) = admin Then 0 End IfEnd SubPrivate Sub Menu_others_Click(Index As Integer) If Trim(strusername) admin Then MsgBox 對不起，您沒有這個權限！, 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 對不起，您沒有這個權限！, 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 已經設置基本工資, vbOKOnly + vbExclamation, 添加結果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 已經添加記錄, 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 Me End If “工資計算公式設置”窗體設計實現(xiàn)目標：選擇“工資信息設置”—“工資計算公式設置”菜單，在這個計算公式窗體中設置員工實際發(fā)放工資的計算公式。界面及主要控件列表 計算公式界面 主要控件列表對 象屬 性設 置lablecaption界面所示mandcaption界面所示texttext空程序說明： = And IsNumeric() = True Then MsgBox 請輸入正常加班工資百分比, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請輸入特殊加班工資百分比, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請輸入出差工資, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請輸入曠工扣發(fā)工資, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then Ms