版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
數(shù)據(jù)庫(kù)課程設(shè)計(jì)
一、設(shè)計(jì)任務(wù)
結(jié)合數(shù)據(jù)庫(kù)應(yīng)用與開發(fā)、管理信息系統(tǒng)課程內(nèi)容，設(shè)計(jì)一個(gè)人力資源管理系統(tǒng)，實(shí)現(xiàn)對(duì)
企業(yè)人員的管理。
二、需求分析：
1、儲(chǔ)存記錄企業(yè)員工的基本信息
2、能記錄、查詢員工所在部門，方便領(lǐng)導(dǎo)查找。
3、統(tǒng)計(jì)部門員工人數(shù)。
4、能詳細(xì)記錄部門員工的招錄、辭退情況。
三、概念設(shè)計(jì)
人力資源管理系統(tǒng)E-R模型
四、邏輯結(jié)構(gòu)設(shè)計(jì)
將E-R關(guān)系圖轉(zhuǎn)換成關(guān)系數(shù)據(jù)庫(kù)模式
員工（員工編號(hào)，姓名，性別，部門，備注）
員工編號(hào)?姓名,性別部門，備注,
119094001陳偉棟男生產(chǎn)部
胡采購(gòu)部
119094002吳
119094003科冊(cè)部
*
部門（部門編號(hào),名稱，人數(shù)，負(fù)責(zé)人）
部門編號(hào)?名稱▼人數(shù)▼負(fù)責(zé)人~?添加新字3.
EE0生產(chǎn)部1000陳偉棟
201采購(gòu)部10胡丹丹
*301科研部50吳小午
權(quán)限（用戶名，密碼，權(quán)限類別）
用戶名，密碼，權(quán)限類別,添加君
40014001系統(tǒng)管理員
員工辭退（員工編號(hào)，姓名，性別,部門，辭退時(shí)間）
員工編號(hào)姓名性別,部門?辭退時(shí)間?忝加新三
119094001陳偉棟生產(chǎn)部2014-12-28
119094002采購(gòu)部2014-12-29
119094003吳小午科研部2014-12-30
*
員工招錄（員工編號(hào)，姓名，性別，部門，進(jìn)廠日期）
員工編號(hào)▼姓名,性別?部門,進(jìn)廠日期;1忝加新字
1119094001陳偉棟生產(chǎn)部2014-12-1
119094002胡丹丹采購(gòu)部2014-12-2
吳小午科研部
*1190940032014-12-3
五、系統(tǒng)運(yùn)行
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”姓名或密碼錯(cuò)！“
EndIf
EndSub
PrivateSubForm_Load()
EndSub
2、員工查詢
PrivateSubCommandl_Click()
Adodcl.Recordsource="select*from員工where員工編號(hào)=&Textl.Text&
mu
Adodcl.Refresh
IfAdodcl.Recordset.RecordCount=0Then
MsgBox"無(wú)此員工！"
EndIf
EndSub
PrivateSubCommand2_Click()
Adodcl.Recordsource="select*from員工"
Adodcl.Refresh
EndSub
PrivateSubDataGridl_Click()
EndSub
3、部門查詢：
PrivateSubCommandl__Click()
Adodcl.Recordsource="select*from部門where部門編號(hào)=+Text1.Text+
Adodcl.Refresh
IfAdodcl.Recordset.RecordCount=0Then
MsgBox"無(wú)此部門！"
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”輸入出錯(cuò)！”
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員工編號(hào)二“'&Textl&
Adodc2.Refresh
IfAdodc2.Recordset.RecordCount=0Then
MsgBox(“無(wú)此員工“)
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員工編號(hào)=Textl&
Adodc2.Refresh
IfAdodc2.Recordset
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 飛機(jī)蒙皮落壓鈑金工誠(chéng)信模擬考核試卷含答案
- 通信傳輸設(shè)備裝調(diào)工安全文明模擬考核試卷含答案
- 老年神經(jīng)外科術(shù)后疼痛的特殊性與管理
- 老年睡眠障礙風(fēng)險(xiǎn)預(yù)測(cè)與管理方案
- 統(tǒng)編版高考?xì)v史考前沖刺：中國(guó)古代史 選擇題刷題練習(xí)題4（含答案解析）
- 2026四川虹信軟件股份有限公司招聘MM顧問(wèn)等崗位2人備考題庫(kù)及完整答案詳解一套
- 老年疼痛與心血管疾病共病管理方案
- 老年模擬健康宣教中的個(gè)性化關(guān)懷
- 虛擬現(xiàn)實(shí)技術(shù)突破指南
- 食品健康與安全課件
- 民辦職業(yè)培訓(xùn)方案模板
- 04S519小型排水構(gòu)筑物(含隔油池)圖集
- 旅居養(yǎng)老可行性方案
- 中國(guó)焦慮障礙防治指南
- 黎平縣水竹沖水庫(kù)工程環(huán)評(píng)報(bào)告
- 亞龍YL-235A光機(jī)電一體化介紹教學(xué)課件
- 心包積液及心包填塞
- GB/T 42195-2022老年人能力評(píng)估規(guī)范
- 兩片罐生產(chǎn)工藝流程XXXX1226
- 施工進(jìn)度計(jì)劃表完整版
- 反滲透EDI超濾設(shè)計(jì)計(jì)算
評(píng)論
0/150
提交評(píng)論