精選數(shù)據(jù)庫管理系統(tǒng)-企業(yè)員工信息管理

精選數(shù)據(jù)庫管理系統(tǒng)-企業(yè)員工信息管理數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計(jì)說明書題目：企業(yè)員工信息管理系統(tǒng)學(xué)院〔系〕：專業(yè)班級：學(xué)號：學(xué)生姓名：指導(dǎo)教師：教師職稱：起止時間：2023.12.19-2023.12.31遼寧工業(yè)大學(xué)課程設(shè)計(jì)〔論文〕任務(wù)書院〔系〕：教研室：軟件工程學(xué)號學(xué)生姓名專業(yè)班級設(shè)計(jì)題目企業(yè)員工信息管理系統(tǒng)設(shè)計(jì)技術(shù)參數(shù)題目要到達(dá)的目標(biāo)：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計(jì)等根本操作。數(shù)據(jù)庫：SQLSERVER2000。所使用的語言、工具:VB6.0+SQLSERVER2000+WINDOWSXP。所采用的技術(shù)、系統(tǒng)結(jié)構(gòu):ADO數(shù)據(jù)庫聯(lián)接技術(shù)。設(shè)計(jì)要求教師布置實(shí)習(xí)任務(wù)和要求時，不得缺席，并做好記錄。上機(jī)前預(yù)先把所有的源程序編寫好。上機(jī)時不得遲到，不得缺席，保護(hù)設(shè)備，認(rèn)真調(diào)試程序。仔細(xì)查閱相關(guān)資料，認(rèn)真完成思考題。按要求書寫設(shè)計(jì)任務(wù)書，并按要求按版打印，不得雷同。工作量二周工作計(jì)劃周一聽取教師布置設(shè)計(jì)的任務(wù)及要求。周二學(xué)生查閱相關(guān)資料，進(jìn)行數(shù)據(jù)庫設(shè)計(jì)。周三至周五：詳細(xì)設(shè)計(jì)與界面設(shè)計(jì)。周一至周四程序設(shè)計(jì)與上機(jī)，調(diào)試源程序。周五書寫課程設(shè)計(jì)任務(wù)書。參考資料?數(shù)據(jù)庫應(yīng)用技術(shù)??數(shù)據(jù)庫應(yīng)用技術(shù)實(shí)驗(yàn)指導(dǎo)書?自編?數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計(jì)大綱?自編等指導(dǎo)教師評語教師：學(xué)生：說明：此表一式四份，學(xué)生、指導(dǎo)教師、教研室、系部各一份?？杉痈巾摗?023年12月31日遼寧工業(yè)大學(xué)課程設(shè)計(jì)說明〔計(jì)算〕書第4頁共25頁目錄TOC\o"1-3"\h\z第一章概述 4第二章問題定義 5第三章需求分析 6第四章數(shù)據(jù)庫設(shè)計(jì) 9第五章界面設(shè)計(jì) 12第六章代碼與注釋 15設(shè)計(jì)總結(jié) 24參考文獻(xiàn) 25第一章概述企業(yè)人事檔案是企業(yè)在人事管理活動中形成的重要人事記錄。人事檔案在開展中國特色社會主義過程中,是人力資源儲藏、促進(jìn)人才合理流動、科學(xué)配置和合理使用人才,全面考察了解、正確評價和使用人才的重要依據(jù)。但是,有的企業(yè)卻片面地認(rèn)為,人事檔案不過是人的經(jīng)歷記錄，其本身不能直接帶來經(jīng)濟(jì)效益，管好管壞無所謂，所以對人事檔案工作在管理制度、管理手段、管理模式、管理人員等方面不夠重視，存在著這樣和那樣的問題，影響了企業(yè)的改革和開展。因此，研究開發(fā)出一套比擬通用、功能比擬完善的企業(yè)員工培訓(xùn)管理軟件，力求在這一領(lǐng)域取得一些新的成果。員工管理系統(tǒng)是一個企事業(yè)單位不可缺少的局部,它的內(nèi)容對于企事業(yè)單位的決策者和管理者來說都至關(guān)重要,所以員工管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件信息，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。第二章問題定義用戶管理：系統(tǒng)的登錄人員，需要通過密碼才能進(jìn)入。他們擁有對系統(tǒng)數(shù)據(jù)的登錄界面，信息查詢，部門/職務(wù)管理，密碼修改等操作權(quán)限。管理員管理：員工信息管理，員工工資管理，員工部門/職務(wù)的管理，用戶管理，退出的詳細(xì)信息的管理?？梢詫ο到y(tǒng)密碼進(jìn)行更改，可以管理用戶信息、權(quán)限。員工信息管理：指管理系統(tǒng)的管理人員，可以查詢到員工信息編號，姓名，出生年月，現(xiàn)任職務(wù)，所屬部門，開始工作時間，進(jìn)單位時間，身份證號，聯(lián)系電話，家庭住址，填表時間等。第三章需求分析一、數(shù)據(jù)庫需求分析企業(yè)員工信息管理系統(tǒng)的開發(fā)任務(wù)是為了減輕工作人員的工作負(fù)擔(dān)，為了管理工作能夠系統(tǒng)化、標(biāo)準(zhǔn)化和自動化而開發(fā)的。作為企業(yè)開展戰(zhàn)略的重要組成局部，人員工作是其中的重中之重，是企業(yè)賴以生存的命脈，市場經(jīng)濟(jì)條件下，在企業(yè)中起決定作用的除企業(yè)產(chǎn)品、效勞之外，人員的作用越來越為明顯。作為企業(yè)“選、育、用、留、汰〞的重要部門——人力資源部，對員工信息管理工作的支持將發(fā)揮越來越大的作用。培訓(xùn)部作為人力資源工作中“育〞的主要執(zhí)行部門就處于“承上啟下〞的重要地位，所謂“承上〞即承接“選才〞后的培訓(xùn)工作，所謂“啟下〞即通過培訓(xùn)，更好的“用人〞和更好的“留人〞。企業(yè)員工管理系統(tǒng)是將企業(yè)的人事管理、工資管理、考勤管理有機(jī)相合，綜合運(yùn)用的一個企業(yè)管理軟件，它使企業(yè)的人事管理由以往的手工作業(yè)，向自動化、網(wǎng)絡(luò)化、現(xiàn)代化邁進(jìn)了一大步。從而使企業(yè)的人事管理人員從繁重的人事管理中解放出來，大大提高了工作效率，減輕了管理人員的工作量。企業(yè)員工管理系統(tǒng)的數(shù)據(jù)需求包括如下幾點(diǎn)：數(shù)據(jù)的一致性與完整性由于系統(tǒng)的數(shù)據(jù)是共享的，在不同的公司中，員工信息是共享數(shù)據(jù)，所以如何保證這些數(shù)據(jù)的一致性，是系統(tǒng)必須解決的問題。要解決這一問題，要有一定的人員維護(hù)數(shù)據(jù)的一致性，在數(shù)據(jù)錄入處控制數(shù)據(jù)的去向，并且要求對數(shù)據(jù)庫的數(shù)據(jù)完整性進(jìn)行嚴(yán)格的約束。二、數(shù)據(jù)庫概念的結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫是數(shù)據(jù)庫應(yīng)用程序的重要組成局部。一個設(shè)計(jì)結(jié)構(gòu)合理的數(shù)據(jù)庫對于應(yīng)用程序的開發(fā)效率和程序的性能都是非常重要的。數(shù)據(jù)庫的設(shè)計(jì)過程大致如下：根據(jù)用戶需求，確定數(shù)據(jù)庫中要保存的數(shù)據(jù)信息對用戶需求進(jìn)行分析是數(shù)據(jù)庫設(shè)計(jì)的第一個階段。不斷地調(diào)查與研究用戶需求，了解企業(yè)運(yùn)作流程等系統(tǒng)需求，是設(shè)計(jì)概念模型的根底。設(shè)計(jì)數(shù)據(jù)的概念模型概念模型是按用戶的觀點(diǎn)來對數(shù)據(jù)建模，是用于進(jìn)行信息世界建模的工具。它對整個數(shù)據(jù)庫的設(shè)計(jì)具有深刻的影響。三、數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)：此企業(yè)員工信息管理系統(tǒng)由用戶登錄，管理員登錄，信息查詢，部門職務(wù)管理，密碼修改，營銷資源管理，員工信息管理，員工工資管理等局部組成。員工登陸屬性表，用員工姓名做為主鍵，員工信息屬性表主鍵是EID員工登陸屬性表的主鍵作為員工登陸屬性表的外鍵；公司信息屬性表，主鍵是YID，員工信息的主鍵作為其外鍵；員工工資表，主鍵為PID。員工信息查詢屬性表，主鍵為ENAME。管理員登陸屬性表，主鍵為CHANGETYPE。四、數(shù)據(jù)字典〔DD〕:企業(yè)員工信息管理根本信息表=用戶登錄+管理員登錄用戶登錄表=員工信息+員工工資登記+員工部門職務(wù)登記管理員登錄表=員工信息管理+員工工作管理+員工部門職務(wù)管理+用戶管理五、程序流程圖：系統(tǒng)主界面系統(tǒng)主界面驗(yàn)證登錄口令驗(yàn)證登錄口令密碼是否正確？密碼是否正確？是是調(diào)用系統(tǒng)菜單進(jìn)入用戶或者管理員界面調(diào)用系統(tǒng)菜單進(jìn)入用戶或者管理員界面否否退出系統(tǒng)退出系統(tǒng)圖3.1企業(yè)員工信息管理營銷管理系統(tǒng)功能模塊六、功能結(jié)構(gòu)圖：企業(yè)員工資料信息系統(tǒng)企業(yè)員工資料信息系統(tǒng)登錄類型選擇登錄類型選擇管理員登錄用戶登錄管理員登錄用戶登錄用戶管理用戶管理管理員管理管理員管理登記界面信息查詢密碼修改登記界面信息查詢密碼修改用戶管理員工部門職務(wù)管理員工工資管理員工信息管理用戶管理員工部門職務(wù)管理員工工資管理員工信息管理員工部門職務(wù)登記員工部門職務(wù)登記員工工資登記員工信息登員工工資登記員工信息登記圖3.2企業(yè)員工信息管理營銷管理系統(tǒng)功能模塊第四章數(shù)據(jù)庫設(shè)計(jì)一、概念設(shè)計(jì)：系統(tǒng)ER圖公司利用管理員管理員工公司屬性是：工資管理信息，獎懲管理信息，考勤管理信息。管理員負(fù)責(zé)對各種信息的輸入與輸出員工屬性是：姓名，性別，年齡，部門，聯(lián)系方式，身份證號碼11N員工管理員公司聯(lián)系方式姓名性別年齡身份證號碼部門輸入信息打印工資管理信息獎懲管理信息考勤管理信息圖4.1E-R圖二、邏輯設(shè)計(jì)：下面列出幾個主要的數(shù)據(jù)庫表設(shè)計(jì)：在開發(fā)企業(yè)員工信息管理系統(tǒng)的過程中，因?yàn)橐嗵幱玫綄?shù)據(jù)庫的操作，所以這些操作在每次用到時在每個VB程序中去實(shí)現(xiàn)。根據(jù)企業(yè)員工信息系統(tǒng)數(shù)據(jù)庫模塊圖分析可知道，各表所包含的字段的列名，數(shù)據(jù)類型，長度，是否允許為空等具體情況如下：表4.1數(shù)據(jù)庫用戶登陸表字段名稱標(biāo)識名稱數(shù)據(jù)類型空否字段說明Uname用戶名/管理員名charN主碼Upassword密碼charNUtype用戶身份charN表4.2數(shù)據(jù)庫員工信息查詢表字段名稱標(biāo)識名稱數(shù)據(jù)類型空否字段說明yid員工編號CharN主碼changeid變動編號CharNchangetype變動類型CharNename姓名CharNnowduty現(xiàn)任職務(wù)/部門CharNbeforeduty曾任職務(wù)/部門CharNchangereason變動原因CharNchangetime變動時間DatetimeN表4.3數(shù)據(jù)庫員工工資表字段名稱標(biāo)識名稱數(shù)據(jù)類型空否字段說明pid員工編號CharN主碼pay根本工資FloatNprize獎金FloatN三、物理設(shè)計(jì)查詢模塊對在職員工進(jìn)行查詢查詢包括按編號或者姓名或者身份證號等位關(guān)鍵字查詢對離職員工進(jìn)行查詢同上操作模塊對員工的根本信息進(jìn)行錄入，修改。員工信息應(yīng)該包括：學(xué)號、姓名、年齡、學(xué)歷〔不多于3個〕、地址、身份證號碼〔不多于19個〕、局部、職務(wù)、籍貫、名族、政治身份。照片錄入。員工的調(diào)動和升降職位對員工進(jìn)行離職操作維護(hù)模塊員工信息的修改，員工信息的刪除。查看數(shù)據(jù)庫看是否有此員工編號存在Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*fromemployermessegewhereeid='"&Trim(Textid.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"此員工編號已經(jīng)存在，不能進(jìn)行登記！",vbOKOnly+vbExclamation,"警告"Textid.Text=""Textid.SetFocusExitSubEndIf第五章界面設(shè)計(jì)一、登陸窗口如下所示：在企業(yè)員工管理系統(tǒng)中主窗臺界面中包括用戶登錄管理，管理員登錄.。圖5.1主窗體截圖。圖5.1主窗體截圖在企業(yè)員工信息管理系統(tǒng)中單擊用戶登錄模塊可以進(jìn)行、新用戶注冊.登錄.退出。用戶登錄表窗體截圖如圖5.2所示。圖5.2用戶登錄截圖在企業(yè)員工信息管理系統(tǒng)中登錄用戶管理進(jìn)入此模塊，此模塊主要完成對產(chǎn)品登錄界面，信息查詢，部門/職務(wù)的管理，密碼修改，退出的詳細(xì)信息的管理。用戶管理表窗體截圖如圖5.3所示。圖5.3產(chǎn)品信息表截圖圖5.3用戶登錄表截圖在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進(jìn)入此模塊，此模塊主要完成員工信息管理，員工工資管理，員工部門/職務(wù)的管理，用戶管理，退出的詳細(xì)信息的管理。管理員管理表窗體截圖如圖5.4所示。圖5.4管理員登錄管理表截圖在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進(jìn)入員工信息管理模塊，此模塊主要完成員工信息編號，姓名，出生年月，現(xiàn)任職務(wù)，所屬部門，開始工作時間，進(jìn)單位時間，身份證號，聯(lián)系電話，家庭住址，填表時間等。員工信息管理表窗體截圖如圖5.5所示。圖5.5員工信息管理表截圖第六章代碼與注釋一、登錄代碼OptionExplicitPublicOKAsBooleanDimmiCountAsIntegerPrivateSubForm_Load()OK=FalsemiCount=0EndSubPrivateSubcmdOK_Click()DimtxtsqlAsStringDimmrcAsADODB.RecordsetDimMsgTextAsStringUserName=""IfTrim(txtUserName.Text="")ThenMsgBox"沒有這個用戶，請重新輸入用戶名！",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElsetxtsql="select*fromuser_Infowhereuser_ID='''&txtUserName.Text&'''"Setmrc=ExecuteSQL(txtsql,MsgText)Ifmrc.EOF=TrueThenMsgBox"沒有這個用戶，請重新輸入用戶名！",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox"輸入密碼不正確，請重新輸入！",vbOKOnly+vbExclamation,"警告"txtPassword.SetFocustxtPassword.Text=""EndIfEndIfEndIfmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSub二、員工部門/職務(wù)代碼PrivateSubCommand1_Click()'判斷員工編號是否為空IfTextid.Text=""ThenMsgBox"員工編號不能為空！",vbOKOnly+vbExclamation,"警告"Textid.SetFocusExitSubEndIf'查看數(shù)據(jù)庫看是否有此編號的員工存在Adodc2.CommandType=adCmdTextAdodc2.RecordSource="select*fromemployermessegewhereeid='"&Trim(Textid.Text)&"'"Adodc2.RefreshIfAdodc2.Recordset.EOF=TrueThenMsgBox"此員工不存在，不能進(jìn)行登記，請先填寫正確員工編號！",vbOKOnly+vbExclamation,"警告"Textid.Text=""Textid.SetFocusExitSubEndIf'查看數(shù)據(jù)庫看此編號是否已登記Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*frombdwhereyid='"&Trim(Textid.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"此員工已經(jīng)登記！",vbOKOnly+vbExclamation,"警告"Textid.Text=""Textid.SetFocusExitSubEndIf'查看姓名是否為空IfTextname.Text=""ThenMsgBox"姓名不能為空！",vbOKOnly+vbExclamation,"警告"Textname.SetFocusExitSubEndIf'查看曾任職務(wù)是否為空IfTextbeforeduty.Text=""ThenMsgBox"曾任職務(wù)不能為空！",vbOKOnly+vbExclamation,"警告"Textbeforeduty.SetFocusExitSubEndIf'查看現(xiàn)任職務(wù)是否為空IfTextnowduty.Text=""ThenMsgBox"現(xiàn)任職務(wù)不能為空！",vbOKOnly+vbExclamation,"警告"Textnowduty.SetFocusExitSubEndIf三、管理員管理用戶代碼PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstEndSubPrivateSubCommand2_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLastIfAdodc1.Recordset.EOFThenExitSubEndIfEndIfEndSubPrivateSubCommand3_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveFirstIfAdodc1.Recordset.BOFThenExitSubEndIfEndIfEndSubPrivateSubCommand4_Click()Adodc1.Recordset.MoveLastEndSubPrivateSubCommand5_Click()Text3.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseText1.DataField=""Text2.DataField=""Text3.DataField=""EndSubPrivateSubCommand6_Click()DimresAsStringres=MsgBox("你確定要刪除此信息嗎？",vbQuestion+vbYesNo,"提示")Ifres=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveFirstEndIfEndIfEndSubPrivateSubCommand7_Click()DimresAsStringres=MsgBox("你確定要更新此信息嗎？",vbQuestion+vbYesNo,"提示")Ifres=vbYesThenAdodc1.Recordset.DeleteAdodc1.RecordSource="select*fromusermessegewhereuname='"&Trim(Text1.Text)&"'"IfAdodc1.Recordset.EOF=FalseThenMsgBox"此用戶名已經(jīng)存在，請另外選擇用戶名！",vbOKOnly+vbExclamation,"警告"Text1.SetFocusExitSubEndIfAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("Uname")=Trim(Text1.Text)Adodc1.Recordset.Fields("Upassword")=Trim(Text2.Text)Adodc1.Recordset.Fields("Utype")=Trim(Text3.Text)Adodc1.Recordset.UpdateMsgBox"信息修改成功！",vbOKOnly+vbExclamation,"提示"Adodc1.Recordset.MoveLastEndIfText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueText1.DataField="Uname"Text2.DataField="Upassword"Text3.DataField="Utype"EndSubPrivateSubCommand8_Click()Text1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueFormglygl.ShowMe.HideEndSub三、密碼修改PrivateSubCommand1_Click()'判斷原密碼是否為空IfLen(Trim(Text1.Text))=0ThenMsgBox"原密碼不允許為空！",vbOKOnly+vbExclamation,"警告"Text1.SetFocusExitSubEndIf'判斷原密碼是否正確Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*fromusermessegewhereuname='"&Label2.Caption&"'"Adodc1.RefreshIfTrim(Text1.Text)<>Trim(Adodc1.Recordset.Fields("Upassword").Value)ThenMsgBox"原密碼不正確！",vbOKOnly+vbExclamation,"警告"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIf'判斷新密碼是否為空IfLen(Trim(Text2.Text))=0ThenMsgBox"新密碼不允許為空！",vbOKOnly+vbExclamation,"警告"Text2.SetFocusExitSubEndIf'限制密碼長度IfLen(Trim(Text2.Text))<6OrLen(Trim(Text2.Text))>16ThenMsgBox"密碼必須為6-16位！",vbOKOnly+vbExclamation,"警告"Text2.Text=""Text3.Text=""Text2.SetFocusExitSubEndIf'判斷災(zāi)次輸入的密碼是否為空IfLen(Trim(Text3.Text))=0ThenMsgBox"請?jiān)俅屋斎朊艽a！",vbOKOnly+vbExclamation,"警告"Text3.SetFocusExitSubEndIf'判斷兩次所輸入的密碼是否一致IfText2.Text<>Text3.TextThenMsgBox"輸入密碼不一致，請重新輸入",vbOKOnly+vbExclamation,"警告Text2.Text=""Text3.Text=""Text2.SetFocusExitSubEndIf'修改密碼MsgBox"恭喜你，修改密碼成功！請記住你的新密碼！",vbOKOnly+vbExclamation,"提示"Adodc1.Recordset.Fields("Upassword")=Trim(Text2.Text)Adodc1.Recordset.UpdateAdodc1.RefreshText1.Text=""Text2.Text=""Text3.Text=""Formyhgl.ShowMe.HideEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand3_Click()Formyhgl.ShowMe.HideEndSubPrivateSubForm_Load()Label2.Caption=Formyonghu.Adodc1