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

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

文檔僅供參考

數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計說明書

題目：企業(yè)員工信息管理系統(tǒng)

學(xué)院（系）：____________________

專業(yè)班級：_____________________

學(xué)號：_____________________

學(xué)生姓名：_____________________

指導(dǎo)教師：_____________________

教師職稱：_____________________

起止時間：.12.19-,12.31

文檔僅供參考

遼寧工業(yè)大學(xué)課程設(shè)計（論文）任務(wù)書

院（系）：教

研室：軟件工程

學(xué)工學(xué)牛廠專業(yè)班級

號姓名

設(shè)計

企業(yè)員工信息管理系統(tǒng)

題目

設(shè)計1.題目要達到的目標：完成系統(tǒng)的登陸、數(shù)

技術(shù)據(jù)的插入刪除修改統(tǒng)計等基本操作。

參數(shù)2.數(shù)據(jù)庫：SQLSERVER。

3.所使用的語言、工具:VB6.0+SQLSERVER

+WINDOWSXP0

4.所采用的技術(shù)、系統(tǒng)結(jié)構(gòu):ADO數(shù)據(jù)庫聯(lián)接

技術(shù)。

1.教師布置實習(xí)任務(wù)和要求時，不得缺席，

設(shè)

計并做好記錄。

要2.上機前預(yù)先把所有的源程序編寫好。

求

3.上機時不得遲到，不得缺席，愛護設(shè)備，

認真調(diào)試程序。

4.仔細查閱相關(guān)資料，認真完成思考題。

5.按要求書寫設(shè)計任務(wù)書，并按要求按版打

文檔僅供參考

EL不得雷同。

一田

工作一周

量

周一聽取教師布置設(shè)計的任務(wù)及要求。

工

周二學(xué)生查閱相關(guān)資料，進行數(shù)據(jù)庫設(shè)計。

作

周三至周五：詳細設(shè)計與界面設(shè)計。

計

周一至周四程序設(shè)計與上機，調(diào)試源程序。

劃

周五書寫課程設(shè)計任務(wù)書。

《數(shù)據(jù)庫應(yīng)用技術(shù)》

參考

《數(shù)據(jù)庫應(yīng)用技術(shù)實驗指導(dǎo)書》自編

資料

《數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計大綱》自編等

文檔僅供參考

指導(dǎo)

教

師

評

語

教師：

學(xué)生：

說明：此表一式四份，學(xué)生、指導(dǎo)教師、教研室、

系部各一份。可加附頁。

12月31日

文檔僅供參考

目錄

第一章概述................................錯誤!未定義書簽。

第二章問題定義............................錯誤!未定義書簽。

第三章需求分析............................錯誤!未定義書簽。

第四章數(shù)據(jù)庫設(shè)計..........................錯誤!未定義書簽。

第五章界面設(shè)計............................錯誤!未定義書簽。

第六章代碼與注釋..........................錯誤!未定義書簽。

設(shè)計總結(jié)...................................錯誤!未定義書簽。

參考文獻...................................錯誤!未定義書簽。

文檔僅供參考

第一章概述

企業(yè)人事檔案是企業(yè)在人事管理活動中形成的重要人事記錄。人事檔案在發(fā)展中

國特色社會主義過程中，是人力資源儲備、促進人才合理流動、科學(xué)配置和合理使用

人才,全面考察了解、正確評價和使用人才的重要依據(jù)?？墒牵械钠髽I(yè)卻片面地認為，

人事檔案不過是人的經(jīng)歷記錄，其本身不能直接帶來經(jīng)濟效益，管好管壞無所謂，因

此對人事檔案工作在管理制度、管理手段、管理模式、管理人員等方面不夠重視，存

在著這樣和那樣的問題，影響了企業(yè)的改革和發(fā)展。因此，研究開發(fā)出一套比較通用、

功能比較完善的企業(yè)員工培訓(xùn)管理軟件，力求在這一領(lǐng)域取得一些新的成果。

員工管理系統(tǒng)是一個企事業(yè)單位不可缺少的部分，它的內(nèi)容對于企事業(yè)單位的決策

者和管理者來說都至關(guān)重要,因此員工管理系統(tǒng)應(yīng)該能夠為用戶提供充分的信息和快捷

的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件信息，這種管理方式存在著

許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、

更新和維護都帶來了不少的困難。

隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認識，

它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。

文檔僅供參考

第二章問題定義

用戶管理：系統(tǒng)的登錄人員，需要經(jīng)過密碼才能進入。她們擁有對系統(tǒng)數(shù)據(jù)的登

錄界面，信息查詢，部門/職務(wù)管理，密碼修改等操作權(quán)限。

管理員管理：員工信息管理，員工工資管理，員工部門/職務(wù)的管理，用戶管理,

退出的詳細信息的管理。能夠?qū)ο到y(tǒng)密碼進行更改，能夠管理用戶信息、權(quán)限。

員工信息管理：指管理系統(tǒng)的管理人員，能夠查詢到員工信息編號，姓名，出生

年月，現(xiàn)任職務(wù)，所屬部門，開始工作時間，進單位時間，身份證號，聯(lián)系電話，家

庭住址，填表時間等。

文檔僅供參考

第三章需求分析

一、數(shù)據(jù)庫需求分析

企業(yè)員工信息管理系統(tǒng)的開發(fā)任務(wù)是為了減輕工作人員的工作負擔(dān)，為了管理工

作能夠系統(tǒng)化、規(guī)范化和自動化而開發(fā)的。作為企業(yè)發(fā)展戰(zhàn)略的重要組成部分，人員

工作是其中的重中之重，是企業(yè)賴以生存的命脈，市場經(jīng)濟條件下，在企業(yè)中起決定

作用的除企業(yè)產(chǎn)品、服務(wù)之外，人員的作用越來越為明顯。作為企業(yè)“選、育、用、

留、汰”的重要部門一一人力資源部，對員工信息管理工作的支持將發(fā)揮越來越大的

作用。培訓(xùn)部作為人力資源工作中“育”的主要執(zhí)行部門就處于“承上啟下”的重要

地位，所謂“承上”即承接“選才”后的培訓(xùn)工作，所謂“啟下”即經(jīng)過培訓(xùn)，更好

的“用人”和更好的“留人”。

企業(yè)員工管理系統(tǒng)是將企業(yè)的人事管理、工資管理、考勤管理有機相合，綜合運

用的一個企業(yè)管理軟件，它使企業(yè)的人事管理由以往的手工作業(yè)，向自動化、網(wǎng)絡(luò)化、

現(xiàn)代化邁進了一大步。從而使企業(yè)的人事管理人員從繁重的人事管理中解放出來，大

大提高了工作效率，減輕了管理人員的工作量。

企業(yè)員工管理系統(tǒng)的數(shù)據(jù)需求包括如下幾點：

數(shù)據(jù)的一致性與完整性

由于系統(tǒng)的數(shù)據(jù)是共享的，在不同的公司中，員工信息是共享數(shù)據(jù)，因此如何保

證這些數(shù)據(jù)的一致性，是系統(tǒng)必須解決的問題。要解決這一問題，要有一定的人員維

護數(shù)據(jù)的一致性，在數(shù)據(jù)錄入處控制數(shù)據(jù)的去向，而且要求對數(shù)據(jù)庫的數(shù)據(jù)完整性進

行嚴格的約束。

二、數(shù)據(jù)庫概念的結(jié)構(gòu)設(shè)計

數(shù)據(jù)庫是數(shù)據(jù)庫應(yīng)用程序的重要組成部分。一個設(shè)計結(jié)構(gòu)合理的數(shù)據(jù)庫對于應(yīng)用

程序的開發(fā)效率和程序的性能都是非常重要的。數(shù)據(jù)庫的設(shè)計過程大致如下：

根據(jù)用戶需求，確定數(shù)據(jù)庫中要保存的數(shù)據(jù)信息

對用戶需求進行分析是數(shù)據(jù)庫設(shè)計的第一個階段。不斷地調(diào)查與研究用戶需求，

了解企業(yè)運作流程等系統(tǒng)需求，是設(shè)計概念模型的基礎(chǔ)。

設(shè)計數(shù)據(jù)的概念模型

概念模型是按用戶的觀點來對數(shù)據(jù)建模，是用于進行信息世界建模的工具。它對

整個數(shù)據(jù)庫的設(shè)計具有深刻的影響。

文檔僅供參考

三、數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計：

此企業(yè)員工信息管理系統(tǒng)由用戶登錄，管理員登錄，信息查詢，部門職務(wù)管理，

密碼修改，營銷資源管理，員工信息管理，員工工資管理等部分組成。員工登陸屬性

表，用員工姓名做為主鍵，員工信息屬性表主鍵是EID員工登陸屬性表的主鍵作為

員工登陸屬性表的外鍵；公司信息屬性表，主鍵是YID,員工信息的主鍵作為其外鍵;

員工工資表，主鍵為PID。員工信息查詢屬性表，主鍵為ENAME。管理員登陸屬性

表，主鍵為CHANGETYPE。

四、數(shù)據(jù)字典（DD）:

企業(yè)員工信息管理基本信息表=用戶登錄+管理員登錄

用戶登錄表=員工信息+員工工資登記+員工部門職務(wù)登記

管理員登錄表=員工信息管理+員工工作管理+員工部門職務(wù)管理+用戶管理

五、程序流程圖：

圖3.1企業(yè)員工信息管理營銷管理系統(tǒng)功能模塊

六、功能結(jié)構(gòu)圖：

文檔僅供參考

田由

延

員

員

工

工

部

工

門

文檔僅供參考

圖3.2企業(yè)員工信息管理營銷管理系統(tǒng)功能模塊

文檔僅供參考

第四章數(shù)據(jù)庫設(shè)計

一、概念設(shè)計：系統(tǒng)ER圖

公司利用管理員管理員工

公司屬性是：工資管理信息，獎懲管理信息，考勤管理信息。

管理員負責(zé)對各種信息的輸入與輸出

員工屬性是：姓名，性別，年齡，部門，聯(lián)系方式，身份證號碼

文檔僅供參考

二、邏輯設(shè)計：

下面列出幾個主要的數(shù)據(jù)庫表設(shè)計：

在開發(fā)企業(yè)員工信息管理系統(tǒng)的過程中，因為要多處用到對數(shù)據(jù)庫的操作，因此

這些操作在每次用到時在每個VB程序中去實現(xiàn)。根據(jù)企業(yè)員工信息系統(tǒng)數(shù)據(jù)庫模塊

圖分析可知道，各表所包含的字段的列名，數(shù)據(jù)類型，長度，是否允許為空等具體情

況如下：

表4.1數(shù)據(jù)庫用戶登陸表

字段名標識名數(shù)據(jù)類空否字段說

稱稱型明

Uname用戶名/charN主碼

管理員

名

Upasswo密碼charN

rd

Utype用戶身charN

份

表4.2數(shù)據(jù)庫員工信息查詢表

字段名標識名數(shù)據(jù)類空否字段說

稱稱型明

yid員工編CharN主碼

號

changei變動編CharN

文檔僅供參考

d號

changet變動類CharN

ype型

ename姓名CharN

nowduty現(xiàn)任職CharN

務(wù)/部門

befored曾任職CharN

uty務(wù)/部門

changer變動原CharN

eason因

changet變動時DatetiN

ime間me

表4.3數(shù)據(jù)庫員工工資表

字段名標識名數(shù)據(jù)類空否字段說

稱稱型明

pid員工編CharN主碼

a

pay基本工FloatN

資

prize獎金FloatN

三、物理設(shè)計

文檔僅供參考

查詢模塊

對在職員工進行查詢

查詢包括按編號或者姓名或者身份證號等位關(guān)鍵字查詢

對離職員工進行查詢

同上

操作模塊

對員工的基本信息進行錄入，修改。

員工信息應(yīng)該包括：學(xué)號、姓名、年齡、學(xué)歷（不多于3個）、地址、身份證號

碼（不多于19個）、部分、職務(wù)、籍貫、名族、政治身份。

照片錄入。

員工的調(diào)動和升降職位

對員工進行離職操作

維護模塊

員工信息的修改，員工信息的刪除。

查看數(shù)據(jù)庫看是否有此員工編號存在

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=nselect*fromemployermessegewhereeid=,n&

Trim（Textid.Text）&n,M

Adodcl.Refresh

IfAdodcl.Recordset.EOF=FalseThen

MsgBox”此員工編號已經(jīng)存在，不能進行登記！'vbOKOnly+

vbExclamation,“警告”

Textid.Text=

Textid.SetFocus

ExitSub

EndIf

文檔僅供參考

第五章界面設(shè)計

一、登陸窗口如下所示:

在企業(yè)員工管理系統(tǒng)中主窗臺界面中包括用戶登錄管理，管理員登錄圖5.1

主窗體截圖。

圖5.1主窗體截圖

在企業(yè)員工信息管理系統(tǒng)中單擊用戶登錄模塊能夠進行、新用戶注冊.登錄.退

出。用戶登錄表窗體截圖如圖5.2所示。

文檔僅供參考

圖5.2用戶登錄截圖

文檔僅供參考

在企業(yè)員工信息管理系統(tǒng)中登錄用戶管理進入此模塊，此模塊主要完成對產(chǎn)品登

錄界面，信息查詢，部門/職務(wù)的管理，密碼修改，退出的詳細信息的管理。用戶管

理表窗體截圖如圖5.3所示。

圖5.3用戶登錄表截圖

在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進入此模塊，此模塊主要完成員工信

息管理，員工工資管理，員工部門/職務(wù)的管理，用戶管理，退出的詳細信息的管理。

管理員管理表窗體截圖如圖5.4所示。

文檔僅供參考

圖5.4管理員登錄管理表截圖

文檔僅供參考

在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進入員工信息管理模塊，此模塊主要

完成員工信息編號，姓名，出生年月，現(xiàn)任職務(wù)，所屬部門，開始工作時間，進單位

時間，身份證號，聯(lián)系電話，家庭住址，填表時間等。員工信息管理表窗體截圖如圖

5.5所示。

f.員工信息管理目回區(qū)

員工信息_______________________

員工編號：「啟

姓名j李顆粒性別：r

出生年月：口975-2-5

現(xiàn)任職務(wù)：?職員

所屬部門：?

開始工作時間J1998-6-11

進單位時間：r

身份證號碼：|41568795465487541

聯(lián)系電話：卜義786489541

冢庭住址：「用匕武門

埴表時間：「

圖5.5員工信息管理表截圖

文檔僅供參考

第六章代碼與注釋

一、登錄代碼

OptionExplicit

PublicOKAsBoolean

DimmiCountAsInteger

PrivateSubForm_Load()

OK=False

miCount=0

EndSub

PrivateSubcmdOK_Click()

DimtxtsqlAsString

DimmrcAsADODB.Recordset

DimMsgTextAsString

UserName=''''

IfTrim(txtUserName.Text=Then

MsgBox”沒有這個用戶，請重新輸入用戶名！二

vbOKOnly+vbExclamation,"警告"

txtUserName.SetFocus

Else

txtsql="select*fromuserjnfowhere

user_ID=H,&txtUserName.Text&H,n

Setmrc=ExecuteSQL(txtsql,MsgText)

文檔僅供參考

Ifmrc.EOF=TrueThen

MsgBox”沒有這個用戶，請重新輸入用戶名！二

vbOKOnly+vbExclamation,"警告"

txtUserName.SetFocus

Else

IfTrim(mrc.Fields(l))=Trim(txtPassword.Text)

Then

OK=True

mrc.Close

Me.Hide

UserName=Trim(txtUserName.Text)

Else

MsgBox”輸入密碼不正確，請重新輸入！”,

vbOKOnly+vbExdamation,"警告”

txtPassword.SetFocus

txtPassword.Text=,M,

EndIf

EndIf

EndIf

miCount=miCount+1

IfmiCount=3Then

Me.Hide

文檔僅供參考

EndIf

ExitSub

二、員工部門/職務(wù)代碼

PrivateSubCommandl_CIick()

，判斷員工編號是否為空

IfTextid.Text=n,,Then

MsgBox”員工編號不能為空?。踲bOKOnly+

vbExclamation,"警告”

Textid.SetFocus

ExitSub

EndIf

，查看數(shù)據(jù)庫看是否有此編號的員工存在

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=nselect*from

employermessegewhereeid=,n&Trim(Textid.Text)

&n,n

Adodcl.Refresh

IfAdodc2.Recordset.EOF=TrueThen

MsgBox”此員工不存在，不能進行登記，請先填

寫正確員工編號！”,vbOKOnly+vbExclamation,n

警告,，

Textid.Text=

文檔僅供參考

Textid.SetFocus

ExitSub

EndIf

，查看數(shù)據(jù)庫看此編號是否已登記

Adodcl.CommandType=adCmdText

Adodcl.RecordSource="select*frombdwhere

yid=,n&Trim(Textid.Text)&

Adodcl.Refresh

IfAdodcl.Recordset.EOF=FalseThen

MsgBox”此員工已經(jīng)登記！"，vbOKOnly+

vbExclamation,"警告”

Textid.Text=

Textid.SetFocus

ExitSub

EndIf

，查看姓名是否為空

IfTextname.Text=Then

MsgBox”姓名不能為空！n,vbOKOnly+

vbExclamation,"警告”

Textname.SetFocus

ExitSub

EndIf

文檔僅供參考

，查看曾任職務(wù)是否為空

IfTextbeforeduty.Text=nnThen

MsgBox”曾任職務(wù)不能為空！、vbOKOnly+

vbExdamation,"警告"

Textbeforeduty.SetFocus

ExitSub

EndIf

，查看現(xiàn)任職務(wù)是否為空

IfTextnowduty.Text=nnThen

MsgBox”現(xiàn)任職務(wù)不能為空！、vbOKOnly+

vbExclamation,"警告”

Textnowduty.SetFocus

ExitSub

EndIf

三、管理員管理用戶代碼

PrivateSubCommandl_Click()

Adodcl.Recordset.MoveFirst

EndSub

PrivateSubCommand2_Click()

Adodcl.Recordset.MovePrevious

IfAdodcl.Recordset.BOFThen

Adodcl.Recordset.MoveLast

文檔僅供參考

IfAdodcl.Recordset.EOFThen

ExitSub

EndIf

EndIf

EndSub

PrivateSubCommand3_Click()

Adodcl.Recordset.MoveNext

IfAdodcl.Recordset.EOFThen

Adodcl.Recordset.MoveFirst

IfAdodcl.Recordset.BOFThen

ExitSub

EndIf

EndIf

EndSub

PrivateSubCommand4_Click()

Adodcl.Recordset.MoveLast

EndSub

PrivateSubCommand5_Click()

Text3.Enabled=True

Commandl.Enabled=False

Command2.Enabled=False

Command3.Enabled=False

文檔僅供參考

Command4.Enabled=False

Command5.Enabled=False

Command6.Enabled=False

Textl.DataField=nn

Textl.DataField=nn

Text3.DataField=nn

EndSub

PrivateSubCommand6_Click()

DimresAsString

res=MsgBox(“你確定要刪除此信息嗎？］

vbQuestion+vbYesNo,"提示")

Ifres=vbYesThen

Adodcl.Recordset.Delete

Adodcl.Recordset.MoveNext

IfAdodcl.Recordset.EOFThen

Adodcl.Recordset.MoveFirst

EndIf

EndIf

EndSub

PrivateSubCommand7_CIick()

DimresAsString

res=MsgBox("你確定要更新此信息嗎？”,

文檔僅供參考

vbQuestion+vbYesNo,"提示”)

Ifres=vbYesThen

Adodcl.Recordset.Delete

Adodcl.RecordSource=nselect*from

usermessegewhereuname=,n&Trim(Textl.Text)

&n,n

IfAdodcl.Recordset.EOF=FalseThen

MsgBox”此用戶名已經(jīng)存在，請另外選擇用戶

名！"，vbOKOnly+vbExclamation,"警告”

Textl.SetFocus

ExitSub

EndIf

Adodcl.Recordset.AddNew

Adodcl.Recordset.FieIds(nUname'')=

Trim(Textl.Text)

Adodcl.Recordset.Fields(nUpasswordn)=

Trim(Text2.Text)

Adodcl.Recordset.Fields(nUtypeM)=

Trim(Text3.Text)

Adodcl.Recordset.Update

MsgBox”信息修改成功！工vbOKOnly+

vbExclamation,''提示''

文檔僅供參考

Adodcl.Recordset.MoveLast

EndIf

Text1.Enabled=False

Textl.Enabled=False

Text3.Enabled=False

Commandl.Enabled=True

Command2.Enabled=True

Command3.Enabled=True

Command4.Enabled=True

Command5.Enabled=True

Command6.Enabled=True

Textl.DataField=nUnamen

Textl.DataField="Upassword''

Text3.DataField=nUtypen

EndSub

PrivateSubCommand8_Click()

Textl.Enabled=False

Textl.Enabled=False

Text3.Enabled=False

Commandl.Enabled=True

Commandl.Enabled=True

Command3.Enabled=True

文檔僅供參考

Command4.Enabled=True

Command5.Enabled=True

Command6.Enabled=True

Formglygl.Show

Me.Hide

EndSub

三、密碼修改

PrivateSubCommandl_Click()

，判斷原密碼是否為空

IfLen(Trim(Textl.Text))=0Then

MsgBox”原密碼不允許為空！二vbOKOnly+

vbExdamation,"警告"

Textl.SetFocus

ExitSub

EndIf

，判斷原密碼是否正確

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=nselect*from

usermessegewhereuname=,n&Labell.Caption&

Adodcl.Refresh

Trim(Textl.Text)<>

文檔僅供參考

Trim(Adodcl.Recordset.Fields(nUpasswordn).Valu

e)Then

MsgBox”原密碼不正確！"，vbOKOnly+

vbExdamation,"警告"

Textl.Text=nn

Textl.Text=nn

Text3.Text=nn

Textl.SetFocus

ExitSub

EndIf

，判斷新密碼是否為空

IfLen(Trim(Text2.Text))=0Then

MsgBox”新密碼不允許為空！工vbOKOnly+

vbExclamation,"警告”

Textl.SetFocus

ExitSub

EndIf

，限制密碼長度

IfLen(Trim(Text2.Text))<6Or

Len(Trim(Text2.Text))>16Then

MsgBox”密碼必須為6-16位！1vbOKOnly+

vbExclamation,"警告''

文檔僅供參考

Textl.Text=''''

Text3.Text=

Textl.SetFocus

ExitSub

EndIf

，判斷災(zāi)次輸入的密碼是否為空

IfLen(Trim(Text3.Text))=0Then

MsgBox”請再次輸入密碼！”，vbOKOnly+

vbExclamation,"警告"

Text3.SetFocus

ExitSub

EndIf

，判斷兩次所輸入的密碼是否一致

IfTextl.Text<>Text3.TextThen

MsgBox”輸入密碼不一致，請重新輸入”,

vbOKOnly+vbExclamation,”警告

Textl.Text=nn

Text3.Text=nn

Text2.SetFocus

ExitSub

EndIf

彳修改密碼

文檔僅供參考

MsgBox”恭喜你，修改密碼成功！請記住你的新

密碼！”,vbOKOnly+vbExclamation,"提示"

Adodcl.Recordset.Fields(nUpasswordn)=

Trim(Text2.Text)

Adodcl.Recordset.Update

Adodcl.Refresh

Text1.Text=nn

Textl.Text=''''

Text3.Text=

Formyhgl.Show

Me.Hide

End