數(shù)據(jù)庫課程設(shè)計設(shè)職工工資管理系統(tǒng)

1、 成 績 評 定 表學(xué)生姓名 班級學(xué)號 專 業(yè)應(yīng)用統(tǒng)計學(xué)課程設(shè)計題目職工工資管理系統(tǒng)評語組長簽字：成績?nèi)掌?20 年 月 日課程設(shè)計任務(wù)書學(xué) 院理學(xué)院專 業(yè)應(yīng)用統(tǒng)計學(xué)學(xué)生姓名 班級學(xué)號 課程設(shè)計題目職工工資管理系統(tǒng)實踐教學(xué)要求與任務(wù):1.職工工資管理系統(tǒng) （1）職工信息（2）職工工資信息（3）系統(tǒng)信息（4）崗位信息2.數(shù)據(jù)庫的設(shè)計 （1）系統(tǒng)信息（用戶名、密碼）（2）職工信息（職工編號、姓名、性別、部門名稱、學(xué)歷、職稱 ）（3）職工工資信息（工資號、姓名、基本工資、獎金、繳稅、保險費、應(yīng)發(fā)工資、 實發(fā)工資 ）（4）崗位信息（編號、職稱類別、薪酬標(biāo)準(zhǔn) ）工作計劃與進(jìn)度安排:第一周：數(shù)據(jù)庫設(shè)計，利

2、用SQL Server創(chuàng)建數(shù)據(jù)庫及數(shù)據(jù)表。 總體結(jié)構(gòu)設(shè)計，設(shè)計調(diào)試系統(tǒng)首頁、登陸窗體及MDI窗體。第二周：管理功能設(shè)計，設(shè)計調(diào)試各種數(shù)據(jù)管理功能窗體及打印報表功能。 撰寫課程設(shè)計報告，驗收與答辯。指導(dǎo)教師： 2014 年11月20日專業(yè)負(fù)責(zé)人： 2014 年11 月20 日學(xué)院教學(xué)副院長： 2014年11 月21日摘 要企業(yè)的工資管理是公司管理的一個重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動人事的管理，同時也是企業(yè)財務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的基本工資、津貼、醫(yī)療保險、

3、保險費、實際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的流動影響到 企業(yè)的整體運作，企業(yè)員工的工資是企業(yè)資金管理的一個重要的組成部分。早期的工資統(tǒng)計和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費財務(wù)人員大量的時間且不易保存，往往由于個人的因素抄寫不慎或計算疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。早期工資管理多采取紙質(zhì)材料和具有較強的時間限制?；谝陨显?，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動化。關(guān)鍵詞 關(guān)鍵詞1：職工關(guān)鍵詞2：工資 關(guān)鍵詞3：職工工資目 錄1 系統(tǒng)功能概述11.1 系統(tǒng)功能分析11.2 系統(tǒng)模塊設(shè)計12 數(shù)據(jù)庫設(shè)計22.1 需求分析22.

4、2 表結(jié)構(gòu)設(shè)計23 系統(tǒng)各功能模塊的詳細(xì)設(shè)計33.1 表的設(shè)計33.2 各窗體設(shè)計5參考文獻(xiàn)141 系統(tǒng)功能概述1.1 系統(tǒng)功能分析工資管理系統(tǒng)系是為了更好地實現(xiàn)工資各種信息的管理以及各種信息的安全性管理。本系統(tǒng)主要對查看員工的各種工資信息需求所設(shè)計的，可以很好的管理數(shù)據(jù)。 本系統(tǒng)的主要功能由以下幾個部分組成：經(jīng)過調(diào)研及分析，工資管理信息系統(tǒng)主要完成以下功能：（1）能夠進(jìn)行職工基本信息的瀏覽、編輯（2）能夠進(jìn)行職工工資信息的瀏覽、編輯（3）能夠按姓名、或部門、或職稱查詢職工的基本信息；查詢職工工資信息1.2 系統(tǒng)物理模塊設(shè)計職工工資管理系統(tǒng)職工信息工資基本設(shè)定繳稅實發(fā)工資應(yīng)發(fā)工資保險費獎金基本

5、工資員工信息修改員工信息刪除員工信息添加2 數(shù)據(jù)庫設(shè)計2.1 需求分析 登錄信息 返回信息 操作 登錄用戶 錯誤信息 尋找信息 數(shù)據(jù)庫需求分析數(shù)據(jù)流圖2.2 表結(jié)構(gòu)設(shè)計 3 系統(tǒng)各功能模塊的詳細(xì)設(shè)計3.1 表的設(shè)計1.職工信息表字段名是否為空數(shù)據(jù)類型職工編號 NULLint姓名NULLnchar(10)性別NULLnchar(10)部門名稱NULLnchar(10)學(xué)歷NULLnchar(10)職稱NULLnchar(10)2.職工工資表字段名是否為空數(shù)據(jù)類型工資號NULLint基本工資NULLint姓名NULLnchar(10)獎金NULLint繳稅NULLint保險費NULLint應(yīng)發(fā)工資

6、NULLint實發(fā)工資NULLint3.系統(tǒng)信息表字段名是否為空數(shù)據(jù)類型用戶名NULLnchar(10)密碼NULLint4.崗位信息表字段名是否為空數(shù)據(jù)類型編號NULLint職稱類別NULLnchar(10)薪酬標(biāo)準(zhǔn)NULLnchar(10)3.2 各窗體設(shè)計啟動封面窗體及登錄對話框的設(shè)計要求：圖片背景、歡迎類文字、單擊顯示“進(jìn)入系統(tǒng)”標(biāo)題的標(biāo)簽或按鈕，將打開“登錄”對話框，用戶輸入用戶名和密碼，若正確則打開下面的主窗體；否則提示密碼錯誤，請重新輸入。最多允許輸入3次。進(jìn)入系統(tǒng)后進(jìn)入登陸主窗體的編碼為： Private Sub Command1_Click() 登錄.Show End Sub

7、登陸編碼如下：Dim miCount As IntegerPrivate Sub CmdLand_Click()Dim SQLStr As StringSQLStr = "Select * From 系統(tǒng)信息 Where 用戶名= '" & Text1 & "'"Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.EOF Then MsgBox "用戶名錯誤，重新輸入", vbExclamation, "警告"

8、Text1.Text = " "Text1.SetFocusElse If Adodc1.Recordset.Fields("密碼") = Text2 Then MDIForm1.Show Unload Me Else MsgBox "密碼錯誤，重新輸入 ", vbExclamation, "警告"Text2.Text = " "Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd Sub

9、Private Sub CmdCancel_Click() Unload MeEnd Sub主窗體要求：設(shè)計為MDI窗體，含有主菜單：文件、數(shù)據(jù)管理、數(shù)據(jù)查詢。 文件菜單包含以下子菜單及其功能：注冊新用戶菜單：打開“注冊新用戶”窗體退出：結(jié)束程序運行 數(shù)據(jù)管理 包含以下子菜單：職工基本信息菜單：顯示職工信息窗體職工工資信息菜單：顯示工資信息窗體崗位信息菜單：顯示崗位信息窗體職工工資信息錄入菜單：顯示職工工資錄入窗體 數(shù)據(jù)查詢包含以下子菜單：查詢職工信息：顯示職工信息查詢窗體查詢工資信息：顯示工資信息查詢窗體查詢崗位信息：顯示崗位信息查詢窗體其編碼如下：Private Sub MDIForm1_

10、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 mDgangwei_Click(Index As Integer)崗位信息.ShowEnd SubPrivate Sub mDjia

11、oshi_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 Sub注冊新用戶窗體 用于添加新的用戶名和密碼。；單擊“注冊新用戶”菜單，打開對話框如圖2要求：若新用戶名與系統(tǒng)信息表原有用戶名相同，則提示“用戶名已存在，重新輸

12、入”；判斷二次輸入密碼若不一致，則提示用戶“輸入密碼不一致，重新輸入密碼”；判斷若輸入密碼為空，則提示“密碼不能為空”；若輸入正確，則將輸入的用戶名保存到“系統(tǒng)信息”表，并提示“注冊用戶成功”，關(guān)閉本窗體。以下各窗體設(shè)為MDI主窗體的子窗體注冊新用戶的編碼如下：Private Sub CmdOK_Click()Dim SQLStr As StringIf Text1 = "" Then MsgBox "請輸入用戶名！", vbExclamation, "確認(rèn)用戶名" Text1.SetFocus Exit SubElse SQLStr

13、 = "Select * from 系統(tǒng)信息 where 用戶名='" & Text1 & "'" Adodc1.RecordSource = SQLStr Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox "用戶名已存在，請重新輸入！", vbExclamation, "檢驗用戶名" Text1 = "" Text1.SetFocus Exit Sub End IfEnd IfIf Text2 &

14、lt;> Text3 Then MsgBox "二次輸入的密碼不一致，請重新輸入", vbExclamation, "檢驗密碼" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElseIf Text2 = "" Then MsgBox "密碼不能為空！", vbExclamation, "檢驗密碼" Text2.SetFocusElse Adodc1.Recordset.Fields("用戶名&

15、quot;) = Trim(Text1) Adodc1.Recordset.Fields("密碼") = Trim(Text2) Me.Hide MsgBox "成功注冊新用戶！", vbInformation, "添加用戶"End IfEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd Sub分別設(shè)計各個信息窗體功能：瀏覽和錄入各信息。該窗體以文本框顯示當(dāng)前記錄，用按鈕首記錄、末記錄、前一個、后一個，控制記錄指針的移動；用一個標(biāo)簽Label顯示：當(dāng)前記錄號/記錄總數(shù)；單擊表格顯示按鈕，顯

16、示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊返回按鈕，可以關(guān)閉本窗體，返回主窗體?？梢詫τ涗涍M(jìn)行新增、確認(rèn)、刪除、取消操作。其編碼如下：Private Sub CmdAdd_Click()CmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueCombo1.AddItem "男"Combo1.AddItem "女"End SubPrivate Sub CmdOK_Click()CmdAdd.Enabled

17、 = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdDel_Click()x = MsgBox("確實要刪除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.Refre

18、shCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd Sub各種信息的查詢窗體 可以按各種條件查找，這些條件放在組合列表框Combo中,供用戶選擇。在文本框中輸入要查詢的內(nèi)容，單擊查詢按鈕，查詢結(jié)果用網(wǎng)格控件顯示.。其編碼為：Private Sub Command1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox "請選擇要修改的行" Exit SubEnd If

19、職工信息修改.ShowEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate 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 Adodc1.RefreshEnd Sub參考文獻(xiàn)