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

數(shù)據(jù)庫課程設(shè)計設(shè)職工工資管理系統(tǒng)精品文檔成績評定表學(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)收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔實踐教學(xué)要求與任務(wù):職工工資管理系統(tǒng)（1）職工信息（2）職工工資信息（3）系統(tǒng)信息（4）崗位信息數(shù)據(jù)庫的設(shè)計（1）系統(tǒng)信息（用戶名、密碼）（2）職工信息（職工編號、姓名、性別、部門名稱、學(xué)歷、職稱 ）（3）職工工資信息（工資號、姓名、基本工資、獎金、繳稅、保險費、應(yīng)發(fā)工資、 實發(fā)工資 ）（4）崗位信息（編號、職稱類別、薪酬標(biāo)準(zhǔn) ）工作計劃與進(jìn)度安排:第一周：數(shù)據(jù)庫設(shè)計，利用 SQLServer創(chuàng)建數(shù)據(jù)庫及數(shù)據(jù)表?？傮w結(jié)構(gòu)設(shè)計，設(shè)計調(diào)試系統(tǒng)首頁、登陸窗體及MDI窗體。第二周：管理功能設(shè)計，設(shè)計調(diào)試各種數(shù)據(jù)管理功能窗體及打印報表功能。撰寫課程設(shè)計報告，驗收與答辯。指導(dǎo)教師： 專業(yè)負(fù)責(zé)人： 學(xué)院教學(xué)副院長：2014 年11月20 2014年11月20日 2014年11月21日日摘要收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔企業(yè)的工資管理是公司管理的一個重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動人事的管理，同時也是企業(yè)財務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的基本工資、津貼、醫(yī)療保險、保險費、實際發(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：職工工資收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔目錄1系統(tǒng)功能概述 01.1系統(tǒng)功能分析? 01.2系統(tǒng)模塊設(shè)計? 02數(shù)據(jù)庫設(shè)計 22.1需求分析 22.2表結(jié)構(gòu)設(shè)計 23系統(tǒng)各功能模塊的詳細(xì)設(shè)計 33.1表的設(shè)計 33.2各窗體設(shè)計?? 5參考文獻(xiàn) 14收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔系統(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è)計職工工資管理系職工信 工資基本設(shè)員員員基獎繳保應(yīng)實工工工本金稅險發(fā)發(fā)信信信工費工工收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔2數(shù)據(jù)庫設(shè)計2.1需求分析登錄信息 返回信息用戶 登錄 操作錯誤信息 尋找信息數(shù)據(jù)庫需求分析——數(shù)據(jù)流圖2.2表結(jié)構(gòu)設(shè)計收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔系統(tǒng)各功能模塊的詳細(xì)設(shè)計3.1表的設(shè)計1.職工信息表字段名是否為空數(shù)據(jù)類型職工編號NULLint姓名NULLnchar(10)性別NULLnchar(10)部門名稱NULLnchar(10)學(xué)歷NULLnchar(10)職稱NULLnchar(10)職工工資表字段名 是否為空 數(shù)據(jù)類型收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔工資號NULLint基本工資NULLint姓名NULLnchar(10)獎金NULLint繳稅NULLint保險費NULLint應(yīng)發(fā)工資NULLint實發(fā)工資NULLint系統(tǒng)信息表字段名 是否為空 數(shù)據(jù)類型用戶名 NULL nchar(10)密碼 NULL int收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔崗位信息表字段名是否為空數(shù)據(jù)類型編號NULLint職稱類別NULLnchar(10)薪酬標(biāo)準(zhǔn)NULLnchar(10)3.2各窗體設(shè)計啟動封面窗體及登錄對話框的設(shè)計要求：圖片背景、歡迎類文字、單擊顯示“進(jìn)入系統(tǒng)”標(biāo)題的標(biāo)簽或按鈕，將打開“登錄”對話框，用戶輸入用戶名和密碼，若正確則打開下面的主窗體；否則提示密碼錯誤，請重新輸入。最多允許輸入 3次。收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔進(jìn)入系統(tǒng)后進(jìn)入登陸主窗體的編碼為：PrivateSubCommand1_Click()登錄.ShowEndSub收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔登陸編碼如下：DimmiCountAsIntegerPrivateSubCmdLand_Click()DimSQLStrAsStringSQLStr="Select*From 系統(tǒng)信息Where用戶名='"&Text1&"'"Adodc1.RecordSource=SQLStrAdodc1.RefreshMsgBox"用戶名錯誤，重新輸入",vbExclamation," 警告"Text1.Text=""Text1.SetFocusElse 密碼")=Text2ThenMDIForm1.ShowUnloadMeElseMsgBox" 密碼錯誤，重新輸入 ",vbExclamation," 警告"Text2.Text=""Text2.SetFocus收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔EndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCmdCancel_Click()UnloadMeEndSub主窗體要求：設(shè)計為MDI窗體，含有主菜單：[文件]、[數(shù)據(jù)管理]、[數(shù)據(jù)查詢]。[文件]菜單包含以下子菜單及其功能：[注冊新用戶]菜單：打開“注冊新用戶”窗體[退出]：結(jié)束程序運行[數(shù)據(jù)管理]包含以下子菜單：[職工基本信息]菜單：顯示職工信息窗體[職工工資信息]菜單：顯示工資信息窗體[崗位信息]菜單：顯示崗位信息窗體[職工工資信息錄入]菜單：顯示職工工資錄入窗體[數(shù)據(jù)查詢]包含以下子菜單：[查詢職工信息]：顯示職工信息查詢窗體[查詢工資信息]：顯示工資信息查詢窗體[查詢崗位信息]：顯示崗位信息查詢窗體收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔其編碼如下：PrivateSubMDIForm1_Load()mDataMng.Enabled=FalseEndSubPrivateSubmDcaxun_Click(IndexAsInteger)職工信息查詢.ShowEndSubPrivateSubmDcaxun1_Click(IndexAsInteger)職工工資查詢.ShowEndSubPrivateSubmDcaxun2_Click(IndexAsInteger)崗位信息查詢.ShowEndSubPrivateSubmDgangwei_Click(IndexAsInteger)崗位信息.ShowEndSubPrivateSubmDjiaoshi_Click(IndexAsInteger)職工工資.ShowEndSubPrivateSubmFxinyonghu_Click(IndexAsInteger)注冊新用戶.ShowEndSubPrivateSubmFExit_Click(IndexAsInteger)End收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔EndSubPrivateSubmDzhigong_Click(IndexAsInteger)職工信息.ShowEndSub注冊新用戶窗體用于添加新的用戶名和密碼。；單擊“注冊新用戶”菜單，打開對話框如圖 2要求：若新用戶名與系統(tǒng)信息表原有用戶名相同，則提示“用戶名已存在，重新輸入”；判斷二次輸入密碼若不一致，則提示用戶“輸入密碼不一致，重新輸入密碼”；判斷若輸入密碼為空，則提示“密碼不能為空”；若輸入正確，則將輸入的用戶名保存到“系統(tǒng)信息”表，并提示“注冊用戶成功”，關(guān)閉本窗體。以下各窗體設(shè)為 MDI主窗體的子窗體注冊新用戶的編碼如下：PrivateSubCmdOK_Click()DimSQLStrAsStringIfText1=""ThenMsgBox"請輸入用戶名！",vbExclamation,"確認(rèn)用戶名"收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔Text1.SetFocusExitSubElseSQLStr="Select*from系統(tǒng)信息where用戶名='"&Text1&"'"Adodc1.RecordSource=SQLStrAdodc1.RefreshMsgBox"用戶名已存在，請重新輸入！ ",vbExclamation,"檢驗用戶名"Text1=""Text1.SetFocusExitSubEndIfEndIfIfText2<>Text3ThenMsgBox"二次輸入的密碼不一致，請重新輸入 ",vbExclamation,"檢驗密碼"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密碼不能為空！",vbExclamation,"檢驗密碼"Text2.SetFocusElse用戶名")=Trim(Text1)密碼")=Trim(Text2)Me.HideMsgBox"成功注冊新用戶！",vbInformation,"添加用戶"EndIfEndSubPrivateSubCmdCancel_Click()UnloadMeEndSub收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔分別設(shè)計各個信息窗體功能：瀏覽和錄入各信息。該窗體以文本框顯示當(dāng)前記錄，用按鈕 [首記錄]、[末記錄]、[前一個]、[后一個]，控制記錄指針的移動；用一個標(biāo)簽 Label顯示：當(dāng)前記錄號/記錄總數(shù)；單擊[表格顯示]按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊[返回]按鈕，可以關(guān)閉本窗體，返回主窗體?？梢詫τ涗涍M(jìn)行新增、確認(rèn)、刪除、取消操作。其編碼如下：PrivateSubCmdAdd_Click()CmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueCombo1.AddItem"男"收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔Combo1.AddItem"女"EndSubPrivateSubCmdOK_Click()CmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdDel_Click()x=MsgBox("確實要刪除當(dāng)前記錄嗎？ ",vbYesNo+vbQuestion,"確認(rèn)")Ifx=vbYesThenEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSub各種信息的查詢窗體可以按各種條件查找，這些條件放在組合列表框 Combo中,供用戶選擇。在文本框中輸入要查詢的內(nèi)容，單擊 [查詢]按鈕，查詢結(jié)果用網(wǎng)格控件顯示 .。收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔其編碼為：PrivateSubCommand1_Click()MsgBox"請選擇要修改的行"ExitSubEndIf職工信息修改.ShowEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Combo1.AddItem"姓名"Combo1.AddItem"部門" '為組合列表框添加各選項Combo1.AddItem"職稱"Combo1.Text=""Text1.Text="" '清空文本框EndSubPrivateSubCmd1_Click()收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除精品文檔DimstrAsStringstr="Select職工信息.*From職工信息"str=str&"Where職工信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub參考文獻(xiàn)王進(jìn)強．VisualBasic.NET基礎(chǔ)教程．北京:清華大學(xué)出版社，2004童愛紅．劉凱.VB.NET應(yīng)用教程．清華大學(xué)出版社，2005-01[3]張立科．VisualBasic.NET設(shè)計與開