1、精選優質文檔-傾情為你奉上工資管理系統模塊中的代碼和界面：Public Function connectstring() As String'返回一個數據庫連接'將字符串賦給用戶自定義函數名，即可返回connectstring = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=員工薪資管理系統;Data Source="'Data Source=.也可以'Integrated

2、 Security: 用于指定采用的集成安全機制'Persist Security Info ：是否支持安全信息（是否保存密碼）'Initial catalog: 用于指定要連接的數據庫名稱'Data Source:用于指定連接的計算機sql服務器名，或寫成本地計算機'Microsoft建議所有的基于Win32的應用程序開發者在進行安全分布式應用程序的開發時使用SSPI的集成安全特性End Function1.創建系統登陸窗體，具體方法如下。 系統登陸窗體中需要輸入登陸用戶名和密碼，并可以請求驗證或退出登陸。在工程中添加一個標準窗體，按照圖5-1設計需要的登陸窗

3、體。將窗體命名為“frm_login",窗體文件保存為“frmSysLogon.frm"。 圖5-1 用戶登錄2. 實現系統登陸功能，具體方法如下。 （1） 定義窗體級變量。在窗體代碼通用聲明部分定義保存允許用戶驗證登陸信息最大次數的窗體級變量，語句如下所示： Const MaxLogTimes As Integer=3 '定義允許用戶驗證登陸信息的最大次數（2） 實現登陸身份驗證。在用戶輸入用戶名和密碼之后，單擊登陸按鈕提交登陸信息，在按鈕的單擊事件過程完成所有驗證操作，實現代碼如下： Private Sub cmdOK_Click()Dim intchecked

4、 As IntegerDim strname As String, strpassword As String'靜態常量intLogTimes 用于保存用戶請求驗證的次數Static intlogtimes As Integerintlogtimes = intlogtimes + 1 '保存登陸次數If intlogtimes > maxlogtimes Then'超過允許的登陸次數，顯示提示信息MsgBox "你已經超過允許的登錄驗證次數！" & vbcr_ & "應用程序將結束！", vbCritica

5、l, "登錄驗證"End '結束應用程序Else '進一步驗證登錄信息的合法性 strname = Trim(txtlog(0).Text) '獲得用戶名 strpassword = Trim(txtlog(1).Text) '獲得口令 '檢驗用戶名和口令的合法性，并根據檢驗返回值執行相應的操作 Select Case check_password(strname, strpassword) Case 0 '用戶不是系統用戶 MsgBox "用戶不是系統用戶，請檢查用戶名是否輸入正確！", vbCritic

6、al, "登錄驗證" txtlog(0).SetFocus txtlog(0).SelStart = 0 txtlog(0).SelLength = Len(txtlog(0) Case 1 '口令錯誤 MsgBox "口令錯誤，請重新輸入！", vbCritical, "登錄驗證" txtlog(1) = "" txtlog(1).SetFocus Case 2 Unload Me '口令正確，卸載登錄窗體 MsgBox "登陸成功，將啟動系統程序！", vbInformati

7、on, "登錄驗證" frmmain.Show Case Else '登錄驗證未正常完成 MsgBox "登錄驗證未正常完成！請重新運行登陸程序，" & vbcrlf_ & "如果仍不能登錄，請報告系統管理員！", vbCritical, "登錄驗證" End SelectEnd IfEnd Sub（3）實現退出登陸功能。單擊取消按鈕，退出登陸程序，實現代碼如下： Private Sub cmdCancel_Click() '請求用戶確認是否真的退出系統登陸 If MsgBox(“你

8、選擇了退出系統登陸，退出將不能啟動管理系統！”&vbCRlF_&“是否真的退出？”， vbYesNO，“登陸驗證”）=vbYes Then Unload Me 卸載登陸窗體 End If End Sub3.實現員工信息管理功能 員工信息管理功能包括員工與工資相關信息的添加、修改和刪除以及記錄瀏覽等操作。 第一步,創建數據環境命令,具體方法如下。員工信息管理需要使用"員工信息"數據表,所以需要在數據環境中創建一個命令來訪問該表。在數據環境設計器中為連接對象Wage_Manage_Con 添加一個命令，將其命名為StuffData， CommandType屬性設

9、置為2（表示使用表對象）， CommandText屬性設置為“員工信息”， LockType 屬性設置為3（表示開放式鎖定）。該命令返回的記錄集使用Wage_Manage_Data.rsStuffData進行訪問。第二步，創建員工信息管理窗體，具體方法如下。員工信息管理操作的所有操作設計都在一個窗體中完成，如圖5-3-1所示。 圖5-1第三步，實現員工信息管理功能，具體方法如下。（1） 定義窗體級變量。定義一個窗體級變量用于標識是否處于添加記錄狀態，當窗體處于添加記錄狀態時，必須完成保存操作之后才能執行其他管理操作，定義語句如下： Dim isAdding As Boolean '定義

10、窗體狀態標志（2） 實現窗體初始化。在窗體加載時，窗體中默認顯示“系統用戶”數據 表中的第一個記錄數據，為了使txtNews文本框顯示當前記錄編號和記錄總數，在窗體加載時執行 按鈕的單擊事件過程,實現代碼如下:Private Sub Form_Load() CmdMove(0).Value=True '觸發按鈕單擊事件End Sub（3） 實現記錄導航。為實現記錄導航，使用pictureBox 控件、命令按鈕和文本框模擬實現了ADO Data控件的導航條，該導航條具有瀏覽記錄、顯示當前記錄編號和記錄總數功能。實現記錄導航功能的代碼如下：Private Sub cmdMove_Click

11、(Index As Integer) With Wage_Manage_Data.rsSysUsers Select Case Index 切換當前記錄 Case 0 使第一個記錄成為當前記錄 If .RecordCount>0 And Not.BOF Then.MoveFirst Case 1 使上一個記錄成為當前記錄 If .RecordCount>0 And Not.BOF Then.MovePrevious If .BOF Then.MoveFirst End If Case 2 使下一個記錄成為當前記錄 If .RecordCount>0 And Not.EOF T

12、hen.MoveNext If .EOF Then.MoveLast End If Case 3 使最后一個記錄成為當前記錄If .RecordCount>0 And Not.EOF Then.MoveLast End select If.BOF And.EOF Then txtNews = “記錄：無” 顯示當前記錄編號和記錄總數 Else txtNews = “記錄：”&.AbsolutePosition & “/”&.RecordCount End If End WithEnd Sub（4） 驗證用戶信息輸入。在輸入員工編號時，只允許輸入數字作為編號，實現代

13、碼如下： 驗證員工編號輸入 Private Sub txtUser_KeyPress(KeyAscii As Integer)If Not(Chr(KeyAscii)Like"0-9"Or KeyAscii=vbKeyBack)ThenKeyAscii=0 輸入不是數字，英文字母或退格鍵，取消輸入 End If picNavigation.Enabled = False cmdAdd.Enabled=False cmdDelete.Enabled=FalseEnd Sub在驗證輸入時，將picNavigation的Enabled 設置為False禁用導航條，這樣在用戶輸入或

14、修改當前記錄數據時，不能通過導航條切換顯示其他記錄，必須在執行保存操作之后才行，從而避免出錯。（5） 強制保存當前記錄修改。當用戶修改當前記錄數據時，禁用添加、刪除按鈕和導航條，在執行保存操作后再啟用，這樣可在執行保存操作時驗證記錄數據是否合法。實現代碼如下： Private Sub cmbTitle_KeyPress(KeyAscii As Integer) picNavigation.Enabled=False cmdAdd.Enabled=False cmdDelete.EnabledFalseEnd SubPrivate Sub cmbDuty_KeyPress(KeyAscii As

15、 Integer picNavigation.EnabIed=False cmdAdd.Enabled=False cmdDelete.Enabled=FalseEnd SubPrivate Sub txtTime_KeyPress(KeyAscii As Integer) piclVavigaEion.Enabled=False cmdAdd. Enabled=False cmdDelete.Enabled=FalseEnd SubPrivate Sub txtlFser_KeyPress(KeyAscii As Integer) picNaigation.Ena6led=False cmd

16、dAdd.Enalaled=False cmdDelete.Enabled=FalseEnd SubPrivate Sub txtDeptes KeyPress(KeyAscii As Integer) picNavigation.Enabled=False cmdAdd.Enabled=False cmdDelete.Enabled=False(6)實現添加操作。在用戶單擊添加按鈕時，向“員工信息”數據表中添加一條新記錄，實現代碼如下:Private Sub cmdAdd_Click() With Wage_ Manage_ Data.rsSteffLData .AddNew'添加新

17、記錄 txtNews="記錄:"&.AbsolutePosition&"/"&.ReordCount End With txtNum=Format(Date, "yyyymmdd")&"001" '設置默認職工號cmbDuty ="無" '設置默認職務 cmbTide="初級" '設置默認職稱 txtTime =Format(Date, "Long Date") '設置默認工作時間 isAdd

18、ing=True cmdAdd.Enahled = False '在保存新記錄之前禁用控件 cmdDelete.Enabled=False picNavigation.Enabled =FalseEnd Sub在添加新記錄時將添加、刪除按鈕和導航條禁用，在執行保存操作時再啟用。（7）實現刪除操作。在用戶單擊刪除按鈕時，刪除當前記錄，實現代碼如下: Private Sub cmdDelete_Click() With Wage_Manage_Data.rsStuffData If Not .EOF Then If MsgBox("將刪除<"&Trim(t

19、xtUser)&">的員工數據，是否繼續?", _vbCritical + vbYesNa,"系統用戶管理") = vbYes Then .Delete .MoveNext If .EQF And .RecordCount>0 Then .MoveLast End If End If End WithEnd Sub(8)實現刷新操作。在用戶單擊刷新按鈕時，執行刷新數據操作，實現代碼如下:Private Sub cmdRefresh_Click() On Error Resume Next With Wage_Manage_Data.r

20、sStuffData If .RecordCount>0 Then .CancelUpdate '取消前一步執行的操作 .Requer '重新讀取記錄集數據 重新執行數據綁定 Set txtUser.DataSource=Wage_Manage_Data txtUser.DataMember= "StufFData" txtUser.DataField=”姓名" Set txtNum.DataSource=Wage_Manage_Data txtNum.DataMember="StuffData" txtNum.DataF

21、ield="職工編號" Set txtDept.DataSource=Wage_Manage_Data txtDept.DataMember="StuffData" txtDept.DataField="部門" Set txtTime.DataSource=Wage_ Manage_Data txtTime.DataMember="StuffData" txtTime.DataField="工作時間" Set cmbDuty.DataSource=Wage_Manage_Data cmbDuty

22、.DataMember="StuffData" cmbDuty.DataField="職務" E cmdAdd.Enabled=True cmdDelete.Enabled=True isAdding=False picNavigation.Enabled=True cmdMove(0). Value=True End Sub 在執行Requery方法刷新記錄集時，必須重新執行數據綁定操作，否則文本框和組合框將不能綁定到刷新后的記錄集上。 (9)實現保存操作。在用戶單擊保存按鈕時，保存被修改的當前記錄數據。首先檢查各個數據項是否包含合法數據，然后檢查指定

23、的編號是否被使用，在所有驗證通過時執行保存操作。實現代碼如下: Private Sub cmdSave_ Click() Dim objCogy As New Recordset if Trim(txtUser)="" Then MsgBox "員工姓名不能為空!", vbCritical, "員工信息管理" txtUser.SetFocus txtUser.Se1Start=0 txtUser.SelLength=Len(txtUser) E1self Len(Trim(txtNum)<>11 Then MsgBox&q

24、uot;員工編號必須為11的數字! ", vbCritical, "員工信息管理" txlNum.SetFncus txtNum.SelStart=0 txtNum.SelLength=Len(txtNum)E1seIf Trim(txtDept)="" Then MsgBox"員工姓名不能為空!"，vbCritical, " 員工信息管理" txtDept.SetFocus txtDept=""Elself IsDate(txtTime) Then MsgBox"不是有效日

25、期!" , vbCritical,"員工信息管理" txtTime.SetFocus txtTime.SelStart=0 txtTime.SelLength=Len(txtTime)E1seIf Trim(cmbDuty)=""Then MsgBox"職務不能為空", vbCriticaI,"員工信息管理" cmbDuty="" cmbDuty.SetFocusElself Trim(cmbTitle)=""Then MsgBox"職稱不能為空"

26、;，vbCritical,"員工信息管理" cmbTitle="" cmbTitle.SetFocusElse Set objCopy=Wage _Manage_Data.rsStuffData.Clone With objCopy If .RecordCount>0 Then .MoveFirst .Find"編號"=""&Trim(txtNum)&"" '檢查編號是否被使用 If Not .EOF And .AbsolutePosition<>_ W

27、age_Manage_DaEa.rsStuffData.AbsolutePosition Then MsgBox"編號:"&Trim(txtNum)_ &"已被使用，請使用其他編號!",_ vbCritical,"員工信息管理" txtNum.SetFocus txtNum.SelStart=0 txtNum.SelLength=Len(txtNum) Else '保存記錄 Wage_Manage_Data.rsStuffData.Update MsgSox "數據保存成功!" , vbIn

28、formation,"員工信息管理” cmdAdd.Enabled=True cmdDelete.Enabled=True isAdding二False picNavigation.Enabled=True End if End if End With End ifEnd Sub在驗證員工編號是否已被使用時，定義了一個記錄級變objCopy用來復制Wage_Manage _Data.rsStuffData。如果執行Find方法在objCopy沒有找到指定的員工編號，則說明該編號沒有被使用;如果找到，并且objCopy中的當前記錄指針與rsStuffData位置相同，說明該編號也沒有被

29、使用:否則說明編號已經被使用。 (10)實現關閉窗體操作。在用戶單擊關閉按鈕時，關閉系統用戶管理窗體，實現代碼如下: Private Sub cmdExit _Click() Unload Me '關閉系統用戶管理窗體End Sub8.實現員工工資設置功能 員工工資設置對“基本工資”數據表中的各種其他工資進行設置或修改。第一步，創建訪問“基本工資”數據表的數據環境命令，具體方法如下。在數據環境設計器中為連接對象Wage_ Manage_ Con添加一個命令，將其命名為“TitleWage",CommandType屬性設置為2 CommandText屬性設置為“員工工資”，Lo

30、ckType屬性設置為3。該命令返回的記錄集使用Wage _Manage_Data.rsTitleWage進行訪問。 第二步，創建員工工資設置窗體具體方法如下。. 員工工資設置窗體如圖5-2所示，窗體文件保存為"frmTItleWage.frm"。 圖5-2 第三步，實現員工工資設置功能，具體方法如下。（1）實現窗體初始化功能。在窗體加載時顯示原始的其他工資標準，如果沒有其他工資標準記錄則設置各項其他上資標準的默認值，實現代碼如下: Private Sub Form_ Load() Dim i % With Wage_Manage_Data.rsElseWage If .S

31、tate=adStateClosed Then .Open If Nat (.BQF And .EOF) Then '判斷有無其他工資標準記錄 txtSE（0）=Fields("專家津貼"): txtSE(1)=Fields("獨補") txtSE(2)=.Fields("房貼") txtSE(3)=Fields("一次性補發"） txtSE(4)=.Fields("其他補貼") txtDE(0)= .Fields("扣公積金") txtDE(1) =.Fields(

32、"扣失業險") txtDE(2) = .Fields("扣醫療險") txtDE(3)=.Fields("扣垃圾費") txtDE(4)=.Fields("扣房租") txtDE(5)=.Fields("扣其他") Else For i=0 To 4 txtSE(i)=txtDE(i)=0 Next i txtDE(5)=0 End If End WithEnd Sub (2)保存修改后的其他工資標準。單擊保存按鈕保存修改后的其他工資標準，如果還沒有設定過其他工資標準，則向“員工工資”數據表中添

33、加一個新記錄來保存當前設定的其他工資標準，實現代碼如下: Private Sub cmdSave_ Click() Dim strNews, i% For i=0 To 4 '檢驗各項工資標準設置 If Trim(txtSE(i)=""Then txtSE(i)=0 If Trim(txtDE(i)="" Then txtDE(i)=0 Next If Trim(txtDE(5) =”Then txtDE(5)=0 With Wage_ Manage_Data.rsElseWage '保存工資標準設置 If .RecordCount=0

34、Then .AddNew Fields("獨補")=txtSE( 1) .Fields("房貼")=txtSE(2) Fields("一次性補發")=txtSE(3) .Fields("其他補貼")=txtSE(4) .Fields("扣公積金")=txtDE(0) .Fields("扣失業險") = txtDE(1) .Fields("扣醫療險")=txtDE(2) .Fields("扣垃圾費")= txtDE(3) .Fields(

35、"扣房租") = txtDE(4) .Fields("扣其他') = txtDE(5) Update End Wi th MsgBox"數據保存成功!",vbInformation,"其他工資標準設定" End Sub4. 實現工資查詢功能 工資查詢是根據指定員工姓名或編號查詢“員工信息”數據表，然后顯示查詢結果中的員工工資信息。 第一步，設計工資查詢窗體，具體方法如下。工資查詢窗體如圖5-3所示，窗體文件保存為”frmQuery Wage.frm"。 圖5-3第二步，實現工資查詢功能，具體方法如下。 工資

36、查詢功能的實現根據指定的查詢條件和查詢方式，設置“員工信息”數據表的過濾條件，然后根據過濾后的記錄顯示員工工資，實現代碼如下： Private Sub cmdQuery _Click() With Wage_Manage _Data.rsStuffData If txtkey <>"" Then If optName. Value Then .Filter =”姓名LIKE'"&txtkey&"" Else .Filter="編號LIKE'"& txtKey&&qu

37、ot;" End If Else .Filter="" End If End With cmdMove(0).Value = TrueEnd Sub利用導航條可查看查詢結果中的其他員工工資，實現代碼如下: Primate Sub cmdMove_ Click(Index As Integer) With Wage_ Manage_ Data.rsStuffData If .State=adStateClosed Then .Open If .BOF And .EOF Then '顯示查詢結果提示 txtNews="查詢結果:無符合條件的記錄&qu

38、ot; Else txtNews="查詢結果:" & .AbsolutePosition& "/" & .RecordCount Select Case Index' 切換當前記錄 Case 0 '使第一個記錄成為當前記錄 If .RecordCount >0 And Not .BOF Then .MoveFirst Case 1 '使上一個記錄成為當前記錄 If .RecardCount>0 And Not .BOF Then .MovePrevious If .BOF Then .MoveF

39、irst End If Case 2 '使下一個記錄成為當前記錄 If .RecordCount>0 And Not .EOF Then MoveNext If .EOF Then .MoveLast End If Case 3 '使最后一個記錄成為當前記錄 If .RecordCount>0 And Not .EOF Then .MoveLast End Select ShowWage End With End SubPrivate Sub ShowWage() Dim strDuty As String, strTitle As String '打開工資

40、標準數據表 If Wagee_Manage_Data.rsDutyWage.State=adStateClosed Then_ Wage_Manage_Data.rsDutyWage.Open If Wage Manage_Data.rsTitleWage.State=adStateClosed Then_ Wage_ Manage_Data.rsTideWage.Open If Wage_Manage_Data.rsElseWage.State=adStateClosed Then _ Wage_Manage_Data.rsELseWage.Open If Wagee_Manage_Data

41、.rsStuffData.State=adStateClosed Then_ Wage _Manage_Data.rsStuffData.Open If Wage_Manage_ Data.rsStuffData.RecordCount>0 Then '顯示查詢結果 strDuty=Wage_Manage_Data.rsStuffData.Fields("職務") strTitle=Wage_Manage_Data.rsStuffData.Fields("職稱") '根據職稱計算住房補貼、職稱工資、公積金、失業險、醫療險 Selec

42、t Case sttTttle Case"高級" txtHouse=Wage_ Manage_Data.rsElseWage.Fields("房帖")*3 txtDG = Wage_Manage_Data.rsElseWage.Fields("扣公積金")*3 txtDS = Wage_Manage_Data.rsElseWage.Fields("扣失業險")*3 txtDY=Wage_Manage_Data.rsElseWage.Fields("扣醫療險”)*3 Case"副高" T

43、xtHonse=Wage_ Manage_ Data.rsElseWage.Fields("房貼")*2.5 txtDG = Wage_ Manage_ Data.rsE1seWage.Fields("扣公積金") * 2.5 txtDS=Wage_ Manage_ Data.rsE1seWage.Fields("扣失業險")*2.5 txtDY =Wage_ Manage_ Data.rsE1seWage.Fields( "扣醫療險") * 2.5 Case"中級" TxtHonse=Wage

44、_ Manage_ Data.rsE1seWage.Fields("房貼")*2 txtDG =(Wage_ Manage_ Data.rsE1seWage.Fields"扣公積金")*2 txtDS=Wage_ Manage_Data.rsElseWage.Fields("扣失業險")*2 txtDY=Wage_ Manage_Data.rsElseWage.Field("扣醫療險")*2 Case"初級" txtHouse=Wage_Manage_Data.rsElseWage.Fields

45、("房貼")*1.5 txtDG = Wage_Manage_Data.rsEIseWage.Fields("扣公積金")*1.5 txtDS =Wage_Manage_Data.rsEIseWage.Fields ("扣失業險")*1.5 txtDY=Wage_Manage_Data.rsEIseWage.Fields("扣醫療險")*1.5 Case"工人" txtHouse = Wage_Manage_Data.rsElseWage.Felds("房貼") txtDG=

46、Wage_Manage_Data.rsElseWage.Felds("扣公積金") txtDS =Wage_Manage_Data.rsElseWage.Felds ("扣失業險") txtDY = Wage_Manage_Data.rsElseWage.Felds("扣醫療險")End SelectIf Wage_ Manage _Data.rsStuffData.Fields("住房")=0 Then txtHouse=0Else txtDF=Wage_Manage_Data.rsElseWage.Fields

47、("扣房租")End If'根據職稱、職務計算職稱、職務工資If strDuty="無" Then txtDutyWage=0Else txtDutyWage=Wage_Manage_Data.rsDutyWage.Fields(strDuty)End IftxtTitleWage=Wage_Manage_ Data.rsTitleWage.Fields(strTitle)'計算專家津貼If Wage_Manage_ Data.rsStuffData.Fields("專家") Then txtExpert=Wage_M

48、anage_Data.rsElseWage.Fields("專家津貼")Else txtExpert=0End If'計算獨生未成年子女補貼If Wage _Manage_Data.rsStuffData.Fields("獨補")Then txtsingle=Wage_Manage_Data.rsElseWage.Fields("獨補")Else txtSingle=0End If'顯示一次性補發、其他補貼、垃圾費、扣其他費用txtOnce=Wage_Manxge_Data.rsElseWage.Fields(&quo

49、t;一次性補發")txtElse=Wage_Manxge_Data.rsElseWage.Fields("其他補貼")txtDL=Wage_Manxge_Data.rsElseWage.Fields("扣垃圾費)txtDQ = Wage_Manage _Data.rsElseWage.Fields("扣其他")'顯示當前員工姓名txtKey=Wage_Manage_Data.rsStuffData.Fields("姓名")'計算應發工資合計txtSGet=Val(txtExpert)+Val(txt

50、Single)+Val(txtHouse)+Val(txtDutyWage)- +Val(txtTideWage)+Val(txtOnce)+Vai(txtElse) '計算應扣工資合計 txtDD=Val(txtDG)+Val(txtDS)+Val(txtDY)+Val(txtDL)_ +Val(txtDF)+Val(txtDQ) '計算實發工資 txtGet=Val(txtSGet)-val(txtDD) Else '在無查詢結果時清除各個工資數據項 txtGet="": txtExpert="": txtSingle = &

51、quot;" txtHouse ="": txtDutyWage="": txtTitleWage="" txtOnce='"": txtElse="": txtSGet="" txtDG="': txtDs="" : txtDD="" txtDL ="": txtDY="": txtDF="" txtDQ="" End

52、IfEnd Sub最后實現關閉窗體功能，代碼如下:Private Suh cmdExit Click() Unload Me '關閉工資查詢窗體End Sub 6. 測試情況:具體操作如下:(1) 將frm_login窗體設置為工程啟動對象,按<F5>鍵運行工程,首先顯示系統登錄窗體,如圖6-1所示。 圖6-1(2) 在“用戶名”文本框中輸入“administrator”，在“密碼”文本框中輸入“administrator”，然后單擊確定按鈕登錄工資管理系統，如圖6-2所示。 圖6-2(3) 選擇“系統管理” “用戶管理”菜單命令，打開“系統用戶管理”窗體，如圖6-3所示。選擇“系統管理” “修改口令”菜單命令，打開“修改登錄口令”窗體，如圖6-4所示。 圖6-3】 圖6-4(4) 選擇"系統管理" "員工信息管理"菜單命令，打開“員工信息管理”窗體，如圖6-5所示。 圖6-5(5) 選擇“員工工資設置” “工資標準設置”菜單命令，打開“工資標準設置”窗體，如圖6-6所示。選擇“設置工資標準” “其他工資標準”菜單命令，打開“其他工資標準設置”