計算機應用技術畢業(yè)設計-企業(yè)工資管理系統(tǒng)設計與實現(xiàn)(編輯修改稿)

　

【文章內容簡介】 工資發(fā)放處理 退出 用戶主界面 企業(yè)工資管理 在職維護 離休維護 退休維護 標準庫備份 臨時發(fā)放庫的生成 臨時發(fā)放庫打開 報表輸出 數(shù)據(jù)維護 臨時發(fā)放項目的維護 資處理 標準庫工資處理 臨時工資發(fā)放處理 退出 用戶主界面 企業(yè)工資管理 在職維護 離休維護 退休維護 標準庫備份 臨時發(fā)放庫的生成 臨時發(fā)放庫打開 報表輸出 數(shù)據(jù)維護 臨時發(fā)放項目的維護 13 第五章 系統(tǒng)詳細設計與實現(xiàn) 主界面是進行相關操作的開始。任何功能的操作都將從過里開始，程序設計的思路是按企業(yè)正常運作的模式開發(fā)的，所以功能比較強大，但因為是畢業(yè)設計，時間有限，所以在程序中是按在職、離休、退休對員工情況進行分類的，其各模塊設計思路基本一致，所以本程序在該章節(jié)中重點以在職員工的工資方式進行敘述，其它員工的工資只作簡要說明。程序中部份模塊未對其運行定義設計，故在使用中會出現(xiàn)不能打開現(xiàn)象。 主窗體模塊詳細設計 主窗體選擇使用下拉菜單多文檔界面。使用這個窗體的好處是可以使程序更加有條理。對于一個多任務的應用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。 主窗體設計的界面是用菜單編輯器做的，主要由月工資庫處理、標準工資庫處理、臨時發(fā)放工資、其它和幫助這五個模塊組成。 界面效果如圖： 14 具體實現(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 性質 ,部門 ,工號 frm 臨發(fā)修改 . 15 frm 臨發(fā)修改 .Show 1 End Sub Private Sub LFXMWH_Click() 1 End Sub Load frm 數(shù)據(jù)查詢 frm 數(shù)據(jù)查詢 .Caption = 離休 標準工資匯總庫顯示 (1).Text = 注意 :現(xiàn)在打開和處理的是 離休 標準工資匯總庫 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 = 離休 標準庫數(shù)據(jù)修改 16 (1).Text = 注意 :現(xiàn)在打開和處理的是 離休 標準工資庫 frm 數(shù)據(jù)修改 . = xtlj amp。 frm 數(shù)據(jù)修改 . = select * from [lxbzk] order by 部門 ,工號 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 關閉 .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。 月的工資庫 ! Else (1).Text = ***未打開工資庫 *** 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。 的工資庫已打開，是否關閉？vbOKOnly, 企業(yè)工資管理系統(tǒng) ) If hxfyn = vbYes Then (1).Text = 注意 :原打開的工資庫已經(jīng)被關閉！ frm 月庫生成 .Show 1 End If Else frm 月庫生成 .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(庫內無人員記錄 ,不能繼續(xù) ,請先設置標準庫后再生成！ 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。 月 在職 工資匯總庫 (1).Text = 注意 :現(xiàn)在打開和處理的是 amp。 年 amp。 hxfmath amp。 月 在職 工資匯總庫 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。 月的工資庫 ! Else (1).Text = ***未打開工資庫 *** End If (2).Text = 第六章 在職員工工資維護 在職員工的工資是任何企業(yè)工資管理中最為復雜的