【文章內(nèi)容簡(jiǎn)介】 工資發(fā)放處理 退出 用戶主界面 企業(yè)工資管理 在職維護(hù) 離休維護(hù) 退休維護(hù) 標(biāo)準(zhǔn)庫(kù)備份 臨時(shí)發(fā)放庫(kù)的生成 臨時(shí)發(fā)放庫(kù)打開 報(bào)表輸出 數(shù)據(jù)維護(hù) 臨時(shí)發(fā)放項(xiàng)目的維護(hù) 資處理 標(biāo)準(zhǔn)庫(kù)工資處理 臨時(shí)工資發(fā)放處理 退出 用戶主界面 企業(yè)工資管理 在職維護(hù) 離休維護(hù) 退休維護(hù) 標(biāo)準(zhǔn)庫(kù)備份 臨時(shí)發(fā)放庫(kù)的生成 臨時(shí)發(fā)放庫(kù)打開 報(bào)表輸出 數(shù)據(jù)維護(hù) 臨時(shí)發(fā)放項(xiàng)目的維護(hù) 13 第五章 系統(tǒng)詳細(xì)設(shè)計(jì)與實(shí)現(xiàn) 主界面是進(jìn)行相關(guān)操作的開始。任何功能的操作都將從過(guò)里開始，程序設(shè)計(jì)的思路是按企業(yè)正常運(yùn)作的模式開發(fā)的，所以功能比較強(qiáng)大，但因?yàn)槭钱厴I(yè)設(shè)計(jì)，時(shí)間有限，所以在程序中是按在職、離休、退休對(duì)員工情況進(jìn)行分類的，其各模塊設(shè)計(jì)思路基本一致，所以本程序在該章節(jié)中重點(diǎn)以在職員工的工資方式進(jìn)行敘述，其它員工的工資只作簡(jiǎn)要說(shuō)明。程序中部份模塊未對(duì)其運(yùn)行定義設(shè)計(jì)，故在使用中會(huì)出現(xiàn)不能打開現(xiàn)象。 主窗體模塊詳細(xì)設(shè)計(jì) 主窗體選擇使用下拉菜單多文檔界面。使用這個(gè)窗體的好處是可以使程序更加有條理。對(duì)于一個(gè)多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。 主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由月工資庫(kù)處理、標(biāo)準(zhǔn)工資庫(kù)處理、臨時(shí)發(fā)放工資、其它和幫助這五個(gè)模塊組成。 界面效果如圖： 14 具體實(shí)現(xiàn)代碼： Dim RetVal Dim hxfscz As String * 53 Dim hxfsf As Currency Dim hxfdfze As Currency Dim hxfrq As String * 8 Dim hxfbm As String Dim hxfxz As String Public Sub CDKZ() If hxfdbdk = True Then = True = True = True = True = True = True Else = False = False = False = False = False = False End If If LSDBDK = True Then = True = True = True = True = True = True Else = False = False = False = False = False = False End If Private Sub LFSJXG_Click() Load frm 臨發(fā)修改 frm 臨發(fā)修改 . = lswjlj frm 臨發(fā)修改 . = select * from [lfbzk] order by 性質(zhì) ,部門 ,工號(hào) frm 臨發(fā)修改 . 15 frm 臨發(fā)修改 .Show 1 End Sub Private Sub LFXMWH_Click() 1 End Sub Load frm 數(shù)據(jù)查詢 frm 數(shù)據(jù)查詢 .Caption = 離休 標(biāo)準(zhǔn)工資匯總庫(kù)顯示 (1).Text = 注意 :現(xiàn)在打開和處理的是 離休 標(biāo)準(zhǔn)工資匯總庫(kù) frm 數(shù)據(jù)查詢 . = xtlj amp。 frm 數(shù)據(jù)查詢 . = select * from [lxhzk] hxfi = 1 Do While hxfi = 34 If Len(Trim((hxfi 1).Value)) 0 Then frm 數(shù)據(jù)查詢 .lblLabels(hxfi + 3).Caption = (hxfi 1).Value amp。 : Else frm 數(shù)據(jù)查詢 .lblLabels(hxfi + 3).Caption = End If frm 數(shù)據(jù)查詢 .lblLabels(hxfi + 3).Visible = True frm 數(shù)據(jù)查詢 .txtFields(hxfi + 3).Visible = True frm 數(shù)據(jù)查詢 .txtFields(hxfi + 3).DataField = (hxfi 1).Name hxfi = hxfi + 1 Loop frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = False frm 數(shù)據(jù)查詢 . frm 數(shù)據(jù)查詢 .Show 1 End If ********************************************************************************** Private Sub LXBZRYZS_Click() Set db = (xtlj amp。 ) Set tb1 = (lxbzzd, dbOpenTable) Set tb2 = (lxbzk, dbOpenTable) (2).Text = 共 amp。 Val() amp。 記錄 Load frm 數(shù)據(jù)修改 frm 數(shù)據(jù)修改 .Caption = 離休 標(biāo)準(zhǔn)庫(kù)數(shù)據(jù)修改 16 (1).Text = 注意 :現(xiàn)在打開和處理的是 離休 標(biāo)準(zhǔn)工資庫(kù) frm 數(shù)據(jù)修改 . = xtlj amp。 frm 數(shù)據(jù)修改 . = select * from [lxbzk] order by 部門 ,工號(hào) frm 數(shù)據(jù)修改 . If frm 數(shù)據(jù)修改 . = 0 Then frm 數(shù)據(jù)修改 . frm 數(shù)據(jù)修改 .cmd 保存 .Enabled = True frm 數(shù)據(jù)修改 .cmd 放棄 .Enabled = True frm 數(shù)據(jù)修改 .cmd 增加 .Enabled = False frm 數(shù)據(jù)修改 .cmd 刪除 .Enabled = False frm 數(shù)據(jù)修改 .cmd 替換 .Enabled = False frm 數(shù)據(jù)修改 .cmd 鎖定 .Enabled = False frm 數(shù)據(jù)修改 .cmd 關(guān)閉 .Enabled = False frm 數(shù)據(jù)修改 .cmd 定位 .Enabled = False End If hxfi = 1 Do While hxfi = 34 If Len(Trim((hxfi 1).Value)) 0 Then frm 數(shù)據(jù)修改 .lblLabels(hxfi + 3).Caption = Trim((hxfi 1).Value) amp。 : frm 數(shù)據(jù)修改 .lblLabels(hxfi + 3).Alignment = 1 Else frm 數(shù)據(jù)修改 .lblLabels(hxfi + 3).Caption = End If frm 數(shù)據(jù)修改 .lblLabels(hxfi + 3).Visible = True frm 數(shù)據(jù)修改 .txtFields(hxfi + 3).Visible = True frm 數(shù)據(jù)修改 .txtFields(hxfi + 3).DataField = (hxfi 1).Name hxfi = hxfi + 1 Loop frm 數(shù)據(jù)修改 .Show 1 If hxfdbdk = True Then (1).Text = 注意 :現(xiàn)在打開和處理的是 amp。 hxfyear amp。 年 amp。 hxfmath amp。 月的工資庫(kù) ! Else (1).Text = ***未打開工資庫(kù) *** End If (2).Text = End Sub Private Sub SL_Click() RetVal = Shell(, 1) End Sub Private Sub YKSC_Click() 17 If hxfdbdk = True Then hxfyn = MsgBox(hxfyear amp。 年 amp。 hxfmath amp。 月 amp。 的工資庫(kù)已打開，是否關(guān)閉？vbOKOnly, 企業(yè)工資管理系統(tǒng) ) If hxfyn = vbYes Then (1).Text = 注意 :原打開的工資庫(kù)已經(jīng)被關(guān)閉！ frm 月庫(kù)生成 .Show 1 End If Else frm 月庫(kù)生成 .Show 1 End If LSDBDK = False Call CDKZ End Sub Private Sub ZZHZXS_Click() Set db = (dqklj) Set tb1 = (zzbzzd, dbOpenTable) Set tb2 = (zzhzk, dbOpenTable) If = 0 Then hxfyn = MsgBox(庫(kù)內(nèi)無(wú)人員記錄 ,不能繼續(xù) ,請(qǐng)先設(shè)置標(biāo)準(zhǔn)庫(kù)后再生成！ vbOKOnly, 企業(yè)工資管理系統(tǒng) ) GoTo en: End If (2).Text = 共 amp。 Val() amp。 記錄 Load frm 數(shù)據(jù)查詢 frm 數(shù)據(jù)查詢 .Caption = hxfyear amp。 年 amp。 hxfmath amp。 月 在職 工資匯總庫(kù) (1).Text = 注意 :現(xiàn)在打開和處理的是 amp。 年 amp。 hxfmath amp。 月 在職 工資匯總庫(kù) frm 數(shù)據(jù)查詢 . = dqklj frm 數(shù)據(jù)查詢 . = select * from [zzhzk] frm 數(shù)據(jù)查詢 . hxfi = 1 Do While hxfi = 34 If Len(Trim((hxfi 1).Value)) 0 Then frm 數(shù)據(jù)查詢 .lblLabels(hxfi + 3).Caption = (hxfi 1).Value amp。 : Else frm 數(shù)據(jù)查詢 .lblLabels(hxfi + 3).Caption = End If frm 數(shù)據(jù)查詢 .lblLabels(hxfi + 3).Visible = True frm 數(shù)據(jù)查詢 .txtFields(hxfi + 3).Visible = True 18 frm 數(shù)據(jù)查詢 .txtFields(hxfi + 3).DataField = (hxfi 1).Name hxfi = hxfi + 1 Loop frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = True frm 數(shù)據(jù)查詢 . = False frm 數(shù)據(jù)查詢 .Show 1 If hxfdbdk = True Then (1).Text = 注意 :現(xiàn)在打開和處理的是 amp。 hxfyear amp。 年 amp。 hxfmath amp。 月的工資庫(kù) ! Else (1).Text = ***未打開工資庫(kù) *** End If (2).Text = 第六章 在職員工工資維護(hù) 在職員工的工資是任何企業(yè)工資管理中最為復(fù)雜的