版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)
文檔簡介
數(shù)據(jù)庫課程設(shè)計
一、設(shè)計任務(wù)
結(jié)合數(shù)據(jù)庫應(yīng)用與開發(fā)、管理信息系統(tǒng)課程內(nèi)容，設(shè)計一個人力資源管理系統(tǒng)，實現(xiàn)對
企業(yè)人員的管理。
二、需求分析：
1、儲存記錄企業(yè)員工的基本信息
2、能記錄、查詢員工所在部門，方便領(lǐng)導(dǎo)查找。
3、統(tǒng)計部門員工人數(shù)。
4、能詳細記錄部門員工的招錄、辭退情況。
三、概念設(shè)計
人力資源管理系統(tǒng)E-R模型
四、邏輯結(jié)構(gòu)設(shè)計
將E-R關(guān)系圖轉(zhuǎn)換成關(guān)系數(shù)據(jù)庫模式
員工（員工編號，姓名，性別，部門，備注）
員工編號?姓名,性別部門，備注,
119094001陳偉棟男生產(chǎn)部
胡采購部
119094002吳
119094003科冊部
*
部門（部門編號,名稱，人數(shù)，負責人）
部門編號?名稱▼人數(shù)▼負責人~?添加新字3.
EE0生產(chǎn)部1000陳偉棟
201采購部10胡丹丹
*301科研部50吳小午
權(quán)限（用戶名，密碼，權(quán)限類別）
用戶名，密碼，權(quán)限類別,添加君
40014001系統(tǒng)管理員
員工辭退（員工編號，姓名，性別,部門，辭退時間）
員工編號姓名性別,部門?辭退時間?忝加新三
119094001陳偉棟生產(chǎn)部2014-12-28
119094002采購部2014-12-29
119094003吳小午科研部2014-12-30
*
員工招錄（員工編號，姓名，性別，部門，進廠日期）
員工編號▼姓名,性別?部門,進廠日期;1忝加新字
1119094001陳偉棟生產(chǎn)部2014-12-1
119094002胡丹丹采購部2014-12-2
吳小午科研部
*1190940032014-12-3
五、系統(tǒng)運行
1、員工查詢
2、部門查詢
3、員工編輯
員工編輯目回岡
4、部門編輯
5、員工辭退
6、員工招錄
六、VB程序代碼:
1、用戶登錄
PrivateSubCommandl_Click()
Adodcl.Recordsource="select*from權(quán)限where用戶名=&Trim(Textl)&
and密碼="'&Trim(Text2)&
Adodcl.Refresh
IfAdodcl.Recordset.RecordCount<>0Then
IfAdodcl.Recordset.Fields("權(quán)限類另『')="系統(tǒng)管理員“Then
Formmain.cx.Enabled=True
Formmain.jcsjbj.Enabled=True
Formmain.crkgl.Enabled=True
Formmain.tjbb.Enabled=True
Formmain.tch.Enabled=True
Formmain.xtgl.Enabled=True
UnloadMe
Formmain.Show
Else
Formmain.cx.Enabled=True
Formmain.jcsjbj.Enabled=False
Formmain.crkgl.Enabled=True
Formmain.tjbb.Enabled=False
Formmain.tch.Enabled=True
Formmain.xtgl.Enabled=False
UnloadMe
Formmain.Show
EndIf
Else
MsgBox”姓名或密碼錯！“
EndIf
EndSub
PrivateSubForm_Load()
EndSub
2、員工查詢
PrivateSubCommandl_Click()
Adodcl.Recordsource="select*from員工where員工編號=&Textl.Text&
mu
Adodcl.Refresh
IfAdodcl.Recordset.RecordCount=0Then
MsgBox"無此員工！"
EndIf
EndSub
PrivateSubCommand2_Click()
Adodcl.Recordsource="select*from員工"
Adodcl.Refresh
EndSub
PrivateSubDataGridl_Click()
EndSub
3、部門查詢：
PrivateSubCommandl__Click()
Adodcl.Recordsource="select*from部門where部門編號=+Text1.Text+
Adodcl.Refresh
IfAdodcl.Recordset.RecordCount=0Then
MsgBox"無此部門！"
EndIf
EndSub
PrivateSubCommand2_Click()
Adodcl.Recordsource="select*from部門”
Adodcl.Refresh
EndSub
PrivateSubDataGridl_Click()
EndSub
4、員工編輯
PrivateSubCommandl_Click()
IfAdodcl.Recordset.BOF=FalseThen
Adodcl.Recordset.MovePrevious
EndIf
EndSub
PrivateSubCommand2_Click()
IfAdodcl.Recordset.EOF=FalseThen
Adodcl.Recordset.MoveNext
EndIf
EndSub
PrivateSubCommand3_Click()
OnErrorGoTop
Adodcl.Recordset.Delete
MsgBox”刪除成功“
a=0
Ifa=1Then
P：
MsgBox"操作有誤"
Adodcl.Refresh
EndIf
EndSub
PrivateSubCommand4_Click()
Textl.Enabled=True
Commandl.Enabled=False
Command2.Enabled=False
Commands.Enabled=False
Command4.Enabled=False
Commands.Enabled=False
Command?.Enabled=False
Command6.Enabled=True
Adodcl.Recordset.AddNew
EndSub
PrivateSubCommand5_Click()
Textl.Enabled=True
Commandl.Enabled=False
Command?.Enabled=False
Commands.Enabled=False
Command4.Enabled=False
Commands.Enabled=False
Command?.Enabled=False
Command6.Enabled=True
EndSub
PrivateSubCommand6_Click()
Textl.Enabled=False
Commandl.Enabled=True
Command2.Enabled=True
Commands.Enabled=True
Command4.Enabled=True
Commands.Enabled=True
Command?.Enabled=True
Command6.Enabled=False
Adodcl.Recordset.Update
EndSub
PrivateSubCommand7_Click()
UnloadMe
EndSub
PrivateSubCommand8_Click()
Adodcl.Refresh
EndSub
PrivateSubFramel_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
EndSub
5、部門編輯
PrivateSubCommandl_Click()
IfAdodcl.Recordset.BOF=FalseThen
Adodcl.Recordset.MovePrevious
EndIf
EndSub
PrivateSubCommand2_Click()
IfAdodcl.Recordset.EOF=FalseThen
Adodcl.Recordset.MoveNext
EndIf
EndSub
PrivateSubCommand3_Click()
Adodcl.Recordset.Delete
EndSub
PrivateSubCommand4_Click()
Textl.Enabled=True
Commandl.Enabled=False
Command?.Enabled=False
Commands.Enabled=False
Command4.Enabled=False
Commands.Enabled=False
Command?.Enabled=False
Command6.Enabled=True
Adodcl.Recordset.AddNew
EndSub
PrivateSubCommand5_Click()
Textl.Enabled=True
Commandl.Enabled=False
Command?.Enabled=False
Commands.Enabled=False
Command4.Enabled=False
Commands.Enabled=False
Command?.Enabled=False
Command6.Enabled=True
EndSub
PrivateSubCommand6_Click()
'OnErrorGoToe
Textl.Enabled=False
Commandl.Enabled=True
Command?.Enabled=True
Commands.Enabled=True
Command4.Enabled=True
Commands.Enabled=True
Command?.Enabled=True
Command6.Enabled=False
Adodcl.Recordset.Update
a=0
Ifa>0Then
e:
MsgBox”輸入出錯！”
Adodcl.Refresh
EndIf
EndSub
PrivateSubCommand7_Click()
UnloadMe
EndSub
PrivateSubCommand8_Click()
Adodcl.Refresh
EndSub
PrivateSubFramel_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
EndSub
6,員工辭退
PrivateSubCommand4_Click()
Textl.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Text5.Enabled=True
Text6.Enabled=True
Text7.Enabled=True
Text8.Enabled=True
Command4.Enabled=False
Command?.Enabled=False
Command6.Enabled=True
Commands.Enabled=True
Adodcl.Recordset.AddNew
EndSub
PrivateSubCommand6_Click()
Textl.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Text6.Enabled=False
Text7.Enabled=False
Text8.Enabled=False
Command4.Enabled=True
Command7.Enabled=True
Command6.Enabled=False
Commands.Enabled=False
Adodc2.RecordSource="select*from人數(shù)where員工編號二“'&Textl&
Adodc2.Refresh
IfAdodc2.Recordset.RecordCount=0Then
MsgBox(“無此員工“)
ElselfAdodc2.Recordset.Fields("^(M")<Vai(Text3)Then
MsgBox(“超出上限")
Else
Adodc2.Recordset.Fields(“數(shù)量")二Adodc2.Recordset.Fields("^fi")-Val(Text3)
Adodc2.Recordset.Update
EndIf
Adodcl.Recordset.Update
EndSub
PrivateSubCommand7_Click()
UnloadMe
EndSub
PrivateSubCommand8_Click()
Textl.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Text6.Enabled=False
Text7.Enabled=False
Text8.Enabled=False
Command4.Enabled=True
Command?.Enabled=True
Command6.Enabled=False
Commands.Enabled=False
Adodcl.Refresh
EndSub
PrivateSubFramel_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
EndSub
7、員工招錄
PrivateSubCommand4__Click()
Textl.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Text5.Enabled=True
Text6.Enabled=True
Text7.Enabled=True
Text8.Enabled=True
Command4.Enabled=False
Command?.Enabled=False
Command6.Enabled=True
Commands.Enabled=True
Adodcl.Recordset.AddNew
EndSub
PrivateSubCommand6__Click()
Textl.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Text6.Enabled=False
Text7.Enabled=False
Text8.Enabled=False
Command4.Enabled=True
Command7.Enabled=True
Command6.Enabled=False
Commands.Enabled=False
Adodcl.Recordset.Update
Adodc2.RecordSource="select*from人數(shù)where員工編號=Textl&
Adodc2.Refresh
IfAdodc2.Recordset
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 農(nóng)村分戶分家協(xié)議書范本8篇
- 有關(guān)建設(shè)工程勘察設(shè)計合同(3)4篇
- 多人股份制合作協(xié)議合同6篇
- 交通運輸自動化監(jiān)測與管理系統(tǒng)項目績效評估報告
- 中低壓電纜連接件項目績效評估報告
- T/ZHCA 028-2023化妝品原料水解膠原深冷金槍魚膠原低聚肽
- 2025西安交通大學城市學院輔導(dǎo)員考試試題及答案
- 2025煙臺文化旅游職業(yè)學院輔導(dǎo)員考試試題及答案
- 2025石家莊醫(yī)學高等專科學校輔導(dǎo)員考試試題及答案
- 機器人學導(dǎo)論 課件全套 王偉 第1-5章-緒論 -操作臂的控制方法
- ZJUTTOP100理工類學術(shù)期刊目錄（2018年版）
- F0值計算公式自動
- 道路交通事故現(xiàn)場勘查課件
- 門店電表記錄表
- 心理學在船舶安全管理中的應(yīng)用
- JJF(鄂) 90-2021 電子輥道秤校準規(guī)范(高清版）
- 超星爾雅學習通《今天的日本》章節(jié)測試含答案
- 組態(tài)王雙機熱備
- 餐飲量化分級
- 三一重工SCC2000履帶吊履帶式起重機技術(shù)參數(shù)
- [精品]GA38-2004《銀行營業(yè)場所風險等級和防護級別的規(guī)定》
評論
0/150
提交評論