1、【精品文檔】如有侵權，請聯系網站刪除，僅供學習與交流數據庫課程設計設職工工資管理系統.精品文檔. 成 績 評 定 表學生姓名 班級學號 專 業應用統計學課程設計題目職工工資管理系統評語組長簽字：成績日期 20 年 月 日課程設計任務書學 院理學院專 業應用統計學學生姓名 班級學號 課程設計題目職工工資管理系統實踐教學要求與任務:1.職工工資管理系統 （1）職工信息（2）職工工資信息（3）系統信息（4）崗位信息2.數據庫的設計 （1）系統信息（用戶名、密碼）（2）職工信息（職工編號、姓名、性別、部門名稱、學歷、職稱 ）（3）職工工資信息（工資號、姓名、基本工資、獎金、繳稅、保險費、應發工資、 實

2、發工資 ）（4）崗位信息（編號、職稱類別、薪酬標準 ）工作計劃與進度安排:第一周：數據庫設計，利用SQL Server創建數據庫及數據表。 總體結構設計，設計調試系統首頁、登陸窗體及MDI窗體。第二周：管理功能設計，設計調試各種數據管理功能窗體及打印報表功能。 撰寫課程設計報告，驗收與答辯。指導教師： 2014 年11月20日專業負責人： 2014 年11 月20 日學院教學副院長： 2014年11 月21日摘 要企業的工資管理是公司管理的一個重要內容。隨著企業人員數量增加，企業的工資管理工作也變得越來越復雜。工資管理既涉及到企業勞動人事的管理，同時也是企業財務管理的重要組成部分。工資管理需要

3、和人事管理相聯系，同時連接工時考勤和醫療保險等等，來生成企業每個職工的基本工資、津貼、醫療保險、保險費、實際發放工資等。資金是企業生存的主要元素，資金的流動影響到 企業的整體運作，企業員工的工資是企業資金管理的一個重要的組成部分。早期的工資統計和發放都是使用人工方式處理紙質材料，不僅花費財務人員大量的時間且不易保存，往往由于個人的因素抄寫不慎或計算疏忽，出現工資發放錯誤的現象。早期工資管理多采取紙質材料和具有較強的時間限制。基于以上原因，企業工資管理系統使用電腦安全保存、快速計算、全面統計，實現工資管理的系統化、規范化、自動化。關鍵詞 關鍵詞1：職工關鍵詞2：工資 關鍵詞3：職工工資目 錄1

4、系統功能概述11.1 系統功能分析11.2 系統模塊設計12 數據庫設計22.1 需求分析22.2 表結構設計23 系統各功能模塊的詳細設計33.1 表的設計33.2 各窗體設計5參考文獻141 系統功能概述1.1 系統功能分析工資管理系統系是為了更好地實現工資各種信息的管理以及各種信息的安全性管理。本系統主要對查看員工的各種工資信息需求所設計的，可以很好的管理數據。 本系統的主要功能由以下幾個部分組成：經過調研及分析，工資管理信息系統主要完成以下功能：（1）能夠進行職工基本信息的瀏覽、編輯（2）能夠進行職工工資信息的瀏覽、編輯（3）能夠按姓名、或部門、或職稱查詢職工的基本信息；查詢職工工資信

5、息1.2 系統物理模塊設計職工工資管理系統職工信息工資基本設定繳稅實發工資應發工資保險費獎金基本工資員工信息修改員工信息刪除員工信息添加2 數據庫設計2.1 需求分析 登錄信息 返回信息 操作 登錄用戶 錯誤信息 尋找信息 數據庫需求分析數據流圖2.2 表結構設計 3 系統各功能模塊的詳細設計3.1 表的設計1.職工信息表字段名是否為空數據類型職工編號 NULLint姓名NULLnchar(10)性別NULLnchar(10)部門名稱NULLnchar(10)學歷NULLnchar(10)職稱NULLnchar(10)2.職工工資表字段名是否為空數據類型工資號NULLint基本工資NULLin

6、t姓名NULLnchar(10)獎金NULLint繳稅NULLint保險費NULLint應發工資NULLint實發工資NULLint3.系統信息表字段名是否為空數據類型用戶名NULLnchar(10)密碼NULLint4.崗位信息表字段名是否為空數據類型編號NULLint職稱類別NULLnchar(10)薪酬標準NULLnchar(10)3.2 各窗體設計3.2.1啟動封面窗體及登錄對話框的設計要求：圖片背景、歡迎類文字、單擊顯示“進入系統”標題的標簽或按鈕，將打開“登錄”對話框，用戶輸入用戶名和密碼，若正確則打開下面的主窗體；否則提示密碼錯誤，請重新輸入。最多允許輸入3次。進入系統后進入登陸

7、主窗體的編碼為： Private Sub Command1_Click() 登錄.Show End Sub登陸編碼如下：Dim miCount As IntegerPrivate Sub CmdLand_Click()Dim SQLStr As StringSQLStr = "Select * From 系統信息 Where 用戶名= '" & Text1 & "'"Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.EOF Then MsgBox &

8、quot;用戶名錯誤，重新輸入", vbExclamation, "警告" Text1.Text = " "Text1.SetFocusElse If Adodc1.Recordset.Fields("密碼") = Text2 Then MDIForm1.Show Unload Me Else MsgBox "密碼錯誤，重新輸入 ", vbExclamation, "警告"Text2.Text = " "Text2.SetFocus End IfEnd IfmiCo

9、unt = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub CmdCancel_Click() Unload MeEnd Sub3.2.2主窗體要求：設計為MDI窗體，含有主菜單：文件、數據管理、數據查詢。 文件菜單包含以下子菜單及其功能：注冊新用戶菜單：打開“注冊新用戶”窗體退出：結束程序運行 數據管理 包含以下子菜單：職工基本信息菜單：顯示職工信息窗體職工工資信息菜單：顯示工資信息窗體崗位信息菜單：顯示崗位信息窗體職工工資信息錄入菜單：顯示職工工資錄入窗體 數據查詢包含以下子菜單：查詢職工信息：顯示職工信息查詢窗體查詢工

10、資信息：顯示工資信息查詢窗體查詢崗位信息：顯示崗位信息查詢窗體其編碼如下：Private Sub MDIForm1_Load()mDataMng.Enabled = FalseEnd SubPrivate Sub mDcaxun_Click(Index As Integer)職工信息查詢.ShowEnd SubPrivate Sub mDcaxun1_Click(Index As Integer)職工工資查詢.ShowEnd SubPrivate Sub mDcaxun2_Click(Index As Integer)崗位信息查詢.ShowEnd SubPrivate Sub mDgangwe

11、i_Click(Index As Integer)崗位信息.ShowEnd SubPrivate Sub mDjiaoshi_Click(Index As Integer)職工工資.ShowEnd SubPrivate Sub mFxinyonghu_Click(Index As Integer)注冊新用戶.ShowEnd SubPrivate Sub mFExit_Click(Index As Integer)EndEnd SubPrivate Sub mDzhigong_Click(Index As Integer) 職工信息.ShowEnd Sub3.2.3注冊新用戶窗體 用于添加新的用

12、戶名和密碼。；單擊“注冊新用戶”菜單，打開對話框如圖2要求：若新用戶名與系統信息表原有用戶名相同，則提示“用戶名已存在，重新輸入”；判斷二次輸入密碼若不一致，則提示用戶“輸入密碼不一致，重新輸入密碼”；判斷若輸入密碼為空，則提示“密碼不能為空”；若輸入正確，則將輸入的用戶名保存到“系統信息”表，并提示“注冊用戶成功”，關閉本窗體。以下各窗體設為MDI主窗體的子窗體注冊新用戶的編碼如下：Private Sub CmdOK_Click()Dim SQLStr As StringIf Text1 = "" Then MsgBox "請輸入用戶名！", vbEx

13、clamation, "確認用戶名" Text1.SetFocus Exit SubElse SQLStr = "Select * from 系統信息 where 用戶名='" & Text1 & "'" Adodc1.RecordSource = SQLStr Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox "用戶名已存在，請重新輸入！", vbExclamation, "檢驗用戶名" Text

14、1 = "" Text1.SetFocus Exit Sub End IfEnd IfIf Text2 <> Text3 Then MsgBox "二次輸入的密碼不一致，請重新輸入", vbExclamation, "檢驗密碼" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElseIf Text2 = "" Then MsgBox "密碼不能為空！", vbExclamation, "檢

15、驗密碼" Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用戶名") = Trim(Text1) Adodc1.Recordset.Fields("密碼") = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox "成功注冊新用戶！", vbInformation, "添加用戶"End IfEnd SubPrivate Sub CmdCancel_Click()Unlo

16、ad MeEnd Sub3.2.4分別設計各個信息窗體功能：瀏覽和錄入各信息。該窗體以文本框顯示當前記錄，用按鈕首記錄、末記錄、前一個、后一個，控制記錄指針的移動；用一個標簽Label顯示：當前記錄號/記錄總數；單擊表格顯示按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊返回按鈕，可以關閉本窗體，返回主窗體。可以對記錄進行新增、確認、刪除、取消操作。其編碼如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdO

17、k.Enabled = TrueCmdEsc.Enabled = TrueCombo1.AddItem "男"Combo1.AddItem "女"End SubPrivate Sub CmdOK_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdDel_Click()x = MsgBox("確實要刪除當前記錄嗎？"

18、, vbYesNo + vbQuestion, "確認")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = Fa

19、lseCmdEsc.Enabled = FalseEnd Sub5.2.5各種信息的查詢窗體 可以按各種條件查找，這些條件放在組合列表框Combo中,供用戶選擇。在文本框中輸入要查詢的內容，單擊查詢按鈕，查詢結果用網格控件顯示.。其編碼為：Private Sub Command1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox "請選擇要修改的行" Exit SubEnd If職工信息修改.ShowEnd SubPrivate Sub Command3_Click()EndEnd SubP

20、rivate Sub Form_Load()Combo1.AddItem "姓名"Combo1.AddItem "部門" ' 為組合列表框添加各選項Combo1.AddItem "職稱"Combo1.Text = ""Text1.Text = "" ' 清空文本框End SubPrivate Sub Cmd1_Click()Dim str As String str = " Select 職工信息.* From 職工信息" str = str & " Where 職工信息." & Combo1.Text & " Like '" & Text1 & "%'" Adodc1.RecordSource = str A