1、成績評定表學(xué)生姓名班級學(xué)號專業(yè)Ik應(yīng)用統(tǒng)計學(xué)課程設(shè)計題目職工工資管理系統(tǒng)評語組長簽字：成績?nèi)掌?0 年 月曰課程設(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)）工作計劃與進度安排：第周：數(shù)據(jù)庫設(shè)計，利用SQL Server創(chuàng)建數(shù)據(jù)

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

3、 元素，資金的流動影響到 企業(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.2 表結(jié)構(gòu)設(shè)計 23系統(tǒng)各功能模塊

4、的詳細設(shè)計 33.1 表的設(shè)計 33.2 各窗體設(shè)計 5參考文獻 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 ）能夠進行職工基本信息的瀏覽、編輯（2 ）能夠進行職工工資信息的瀏覽、編輯（3）能夠按姓名、或部門、或職稱查詢職工的基本信息；查詢職工工資信息1.2系統(tǒng)物理模塊設(shè)計職工工資管理系統(tǒng)工資基本設(shè)定保 險 費應(yīng)實發(fā)發(fā)工工資Il資2.1需求分析登錄信息用戶登錄錯誤信息2數(shù)

5、據(jù)庫設(shè)計返回信息操作尋找信息數(shù)據(jù)庫需求分析一一數(shù)據(jù)流圖2.2表結(jié)構(gòu)設(shè)計EAMELN G- dbo.5HiB £AM£UNG-PCCL- dbc列容獺據(jù)類型飾Nd值用戶宅ncharClQ)弼毗回SAhUMG-PC職匚*承統(tǒng)-dboSag®£AM£UNG-PejRT_gSt - dboIRTT允詐Null值列名埶據(jù)類型卜工資號intISJthar10)葛本工蓋int団intgint圈intint實境工資intElEAM£UNG-PCRI._ft - dba.SRI 信旦 £&U NG - PC.KL. .St - dbc

6、列宕數(shù)據(jù)釜型允許hki值卜啦編號intlnctiar(lO)圍性別nchar(lO)部門名稱nctiar(lO)ffl學(xué)歷nctiar(lO)取稱nchar(lO)器MEUMG-PC舉工條 -dbm職工信息£AMEUNG-PC4RZ._t -能也斎也信息列名數(shù)據(jù)類型允許NJI值編號intchar(10)壓薪酬標(biāo)準(zhǔn)intffl3系統(tǒng)各功能模塊的詳細設(shè)計3.1 表的設(shè)計1. 職工信息表字段名是否為空數(shù)據(jù)類型職工編號NULLint姓名NULLnchar(10)性別NULLnchar(10)部門名稱NULLnchar(10)學(xué)歷NULLnchar(10)職稱NULLnchar(10)SAMS

7、LNfl- Mbo駅工信皂職工漏號姪名性別HM蔣稱學(xué)歷風(fēng)稱1卑人事部字士人事主菅2鄭憲晶人事部學(xué)士丈員3陳學(xué)名卑人審部學(xué)士兗員斗女營梢部碩士營蒲主管5卑學(xué)士促斂6勰典營請部學(xué)士促舖員2. 職工工資表字段名是否為空數(shù)據(jù)類型工資號NULLint基本工資NULLint姓名NULLnchar(10)獎金NULLint繳稅NULLint保險費NULLint應(yīng)發(fā)工資NULLint實發(fā)工資NULLint£AM£UMG-PCBLL£ft - dboJJLLLK X工發(fā)號姓名基本工賀呼冶T黨1號軒6CDD5001DOD卻065005300zJJ3Q30030033OT2500330

8、0曲ID7=500460305001DOJ£006SODi30053D0D300SOT20033002>00G3000300soa20033002SOO3. 系統(tǒng)信息表字段名是否為空數(shù)據(jù)類型用戶名NULLnchar(10)密碼NULLint£AM£UNG-rcjRT.蠱第-dbm盞第信身|1用戶名岳碼|馬皓軒126鄭秀晶123456味學(xué)冬L2J56徐熙嫦123W12456隆沒典1334564. 崗位信息表字段名是否為空數(shù)據(jù)類型編號NULLint職稱類別NULLnchar(10)薪酬標(biāo)準(zhǔn)NULLnchar(10)SAMSUN G -PC.0RT.北6 崗恃信宜

9、堀號職稱類別彌酬標(biāo);隹1主管60002員工30003員工30004主管6000530006員工30003.2各窗體設(shè)計啟動封面窗體及登錄對話框的設(shè)計要求：圖片背景、歡迎類文字、單擊顯示“進入系統(tǒng)”標(biāo)題的標(biāo)簽或按鈕，將打開“登錄”對話框, 用戶輸入用戶名和密碼，若正確則打開下面的主窗體；否則提示密碼錯誤，請重新輸入。最多允許 輸入3次。Wk、S > I1!華潤萬家職工EZ3I i. F進入系統(tǒng)后進入登陸主窗體的編碼為:Private Sub Comma nd1_Click() 登錄.ShowEnd Sub& Textl & "”'警告敬+ H警告登陸編碼如

10、下：Dim miCo unt As In tegerPrivate Sub CmdLa nd_Click()Dim SQLStr As Stri ngSQLStr = "Select * From 系統(tǒng)信息 Where 用戶名=AdodcI.RecordSource = SQLStrAdodcI.RefreshIf Adodc1.Recordset.EOF The nMsgBox "用戶名錯誤，重新輸入", vbExclamation,"Textl.Text =""Textl.SetFocusElseIf Adodcl .R ecor

11、dset.Fields("密碼")=Text2 The nMDIForml.ShowUn load MeElseMsgBox " 密碼錯誤，重新輸入 ", vbExclamation,"Text2.Text =""Text2.SetFocusEnd IfEnd IfmiCo unt = miCo unt + 1If miCou nt = 3 The n Un load MeEnd SubPrivate Sub CmdCa ncel_Click()Un load MeEnd Sub主窗體要求：設(shè)計為MDI窗體，含有主菜單：文件

12、、數(shù)據(jù)管理、數(shù)據(jù)查詢文件菜單包含以下子菜單及其功能：注冊新用戶菜單：打開“注冊新用戶”窗體退出:結(jié)束程序運行數(shù)據(jù)管理包含以下子菜單：職工基本信息菜單：顯示職工信息窗體職工工資信息菜單：顯示工資信息窗體崗位信息菜單：顯示崗位信息窗體職工工資信息錄入菜單：顯示職工工資錄入窗體數(shù)據(jù)查詢包含以下子菜單：查詢職工信息:顯示職工信息查詢窗體查詢工資信息:顯示工資信息查詢窗體查詢崗位信息:顯示崗位信息查詢窗體其編碼如下：Private Sub MDIForm1_Load() mData Mn g.E nabled = FalseEnd SubPrivate Sub mDcax un _Click(l nde

13、x As In teger)職工信息查詢.ShowEnd SubPrivate Sub mDcaxu n1_Click(l ndex As In teger)職工工資查詢.ShowEnd SubPrivate Sub mDcax un 2_Click(I ndex As In teger)崗位信息查詢.ShowEnd SubPrivate Sub mDga ngwei_Click(l ndex As In teger)崗位信息.ShowEnd SubPrivate Sub mDjiaoshi_Click(l ndex As In teger)職工工資.ShowEnd SubPrivate Su

14、b mFxinyon ghu_Click(I ndex As In teger)注冊新用戶.ShowEnd SubPrivate Sub mFExit_Click(I ndex As In teger)EndEnd SubPrivate Sub mDzhig on g_Click(I ndex As In teger)職工信息.ShowEnd Sub注冊新用戶窗體用于添加新的用戶名和密碼。；單擊“注冊新用戶”菜單，打開對話框如圖2要求：若新用戶名與系統(tǒng)信息表原有用戶名相同，則提示“用戶名已存在，重新輸入”；判斷二次輸入密碼若不一致，則提示用戶“輸入密碼不一致，重新輸入密碼”；判斷若輸入密碼為空

15、，則提示“密碼不能為空”；若輸入正確，則將輸入的用戶名保存到“系統(tǒng)信息”表，并提示“注冊用戶成功”，關(guān)閉本窗體。以下各窗體設(shè)為 MDI主窗體的子窗體注冊新用戶的編碼如下：Private Sub CmdOK_Click()Dim SQLStr As Stri ngIf Text1 = "" The nMsgBox "請輸入用戶名！ ", vbExclamation,"確認用戶名"Text1.SetFocusExit SubElseSQLStr = "Select * from系統(tǒng)信息 where 用戶名=”'&

16、 Textl & "AdodcI.RecordSource = SQLStrAdodcI.RefreshIf Adodc1.Recordset.EOF = False The nMsgBox "用戶名已存在，請重新輸入！", vbExclamation,"檢驗用戶名"Textl =""Textl.SetFocusExit SubEnd IfEnd IfIf Text2 <> Text3 The nMsgBox "二次輸入的密碼不一致，請重新輸入 ", vbExclamation,&qu

17、ot;檢驗密碼"Text2 = "": Text3 =""Text2.SetFocusExit SubElseIf Text2 = "" The nMsgBox "密碼不能為空！ ", vbExclamation,"檢驗密碼"Text2.SetFocusElse(”用戶名")=Trim(Textl)(”密碼")=Trim(Text2)Me.HideMsgBox "成功注冊新用戶！ ", vblnformation,"添加用戶"

18、End IfEnd SubPrivate Sub CmdCa ncel_Click()Un load MeEnd Sub分別設(shè)計各個信息窗體功能：瀏覽和錄入各信息。該窗體以文本框顯示當(dāng)前記錄，用按鈕首記錄、末記錄、前一個、后一個，控制記錄指針的移動；用一個標(biāo)簽Label顯示：當(dāng)前記錄號/記錄總數(shù)；單擊表格顯示按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊返回按鈕，可以關(guān)閉本窗體，返回主窗體?？梢詫τ涗涍M行新增、確認、刪除、取消操作。其編碼如下：Private Sub CmdAdd_Click() Adodc1.Recordset. AddNew Cm

19、dAdd.E nabled = FalseCmdDel.E nabled = FalseCmdOk.E nabled = TrueCmdEsc.E nabled = TrueCombol.Addltem "男"Combol.Addltem "女"End SubPrivate Sub CmdOK_Click()CmdAdd.E nabled = TrueCmdDel.E nabled = TrueCmdOk.E nabled = FalseCmdEsc.E nabled = FalseEnd SubPrivate Sub CmdDel_Click()x =

20、 MsgBox("確實要刪除當(dāng)前記錄嗎？ ", vbYesNo + vbQuestion,"確認")If x = vbYes The nIf Adodc1.Recordset.EOF The nEnd IfElseAdodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.E nabled = TrueCmdDel.E nabled = TrueCmdOk.E nabled = FalseCmdEsc.E nabled = FalseEnd Sub各種信息的查詢窗體可

21、以按各種條件查找，這些條件放在組合列表框Combo中,供用戶選擇。在文本框中輸入要查詢的內(nèi)容，單擊查詢按鈕，查詢結(jié)果用網(wǎng)格控件顯示.。其編碼為：Private Sub Comma nd1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF The nMsgBox "請選擇要修改的行"Exit SubEnd If職工信息修改.ShowEnd SubPrivate Sub Comma nd3_Click()EndEnd SubPrivate Sub Form_Load()Combo1. AddItem "姓名&

22、quot;Combo1. AddItem "部門"為組合列表框添加各選項Combo1. AddItem "職稱"Combo1.Text =""Text1.Text =""'清空文本框End SubPrivate Sub Cmd1_Click()Dim str As Stri ngstr = " Select職工信息.* From 職工信息"str = str & " Where職工信息."& Combo1.Text & " Like '" & Text1 & "%'"Adodc1.