版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
数据库课程设计
一、设计任务
结合数据库应用与开发、管理信息系统课程内容，设计一个人力资源管理系统，实现对
企业人员的管理。
二、需求分析：
1、储存记录企业员工的基本信息
2、能记录、查询员工所在部门，方便领导查找。
3、统计部门员工人数。
4、能详细记录部门员工的招录、辞退情况。
三、概念设计
人力资源管理系统E-R模型
四、逻辑结构设计
将E-R关系图转换成关系数据库模式
员工（员工编号，姓名，性别，部门，备注）
员工编号•姓名,性别部门，备注,
119094001陈伟栋男生产部
胡采购部
119094002吴
119094003科册部
*
部门（部门编号,名称，人数，负责人）
部门编号•名称▼人数▼负责人~•添加新字3.
EE0生产部1000陈伟栋
201采购部10胡丹丹
*301科研部50吴小午
权限（用户名，密码，权限类别）
用户名，密码，权限类别,添加君
40014001系统管理员
员工辞退（员工编号，姓名，性别,部门，辞退时间）
员工编号姓名性别,部门•辞退时间•忝加新三
119094001陈伟栋生产部2014-12-28
119094002采购部2014-12-29
119094003吴小午科研部2014-12-30
*
员工招录（员工编号，姓名，性别，部门，进厂日期）
员工编号▼姓名,性别•部门,进厂日期;1忝加新字
1119094001陈伟栋生产部2014-12-1
119094002胡丹丹采购部2014-12-2
吴小午科研部
*1190940032014-12-3
五、系统运行
1、员工查询
2、部门查询
3、员工编辑
员工编辑目回冈
4、部门编辑
5、员工辞退
6、员工招录
六、VB程序代码:
1、用户登录
PrivateSubCommandl_Click()
Adodcl.Recordsource="select*from权限where用户名=&Trim(Textl)&
and密码="'&Trim(Text2)&
Adodcl.Refresh
IfAdodcl.Recordset.RecordCount<>0Then
IfAdodcl.Recordset.Fields("权限类另『')="系统管理员“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人数where员工编号二“'&Textl&
Adodc2.Refresh
IfAdodc2.Recordset.RecordCount=0Then
MsgBox(“无此员工“)
ElselfAdodc2.Recordset.Fields("^(M")<Vai(Text3)Then
MsgBox(“超出上限")
Else
Adodc2.Recordset.Fields(“数量")二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人数where员工编号=Textl&
Adodc2.Refresh
IfAdodc2.Recordset
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 吊顶圆弧角施工方案(3篇)
- 乐视新年营销方案(3篇)
- 临时塑胶坡道施工方案(3篇)
- 专业应急预案c-1(3篇)
- 初中团委活动创意方案策划(3篇)
- 2016版施工方案标准(3篇)
- 1-1-4-1-Terphenyl-2-3-3-5-tetracarboxylicacid-生命科学试剂-MCE
- 南京会员店营销方案(3篇)
- 反问式文案营销方案(3篇)
- 品牌活动策划播客方案(3篇)
- 【新课标】人教版小学数学一年级上册第一单元大单元整体教学设计
- 2026年小学生心理健康教育课件
- 塑料排水板施工方案
- 2.5+中国现当代音乐（1）课件-高一音乐湘教版（2019）必修1+音乐鉴赏
- 2026年超长期特别国债、中央预算资金、专项债资金申报实操手册
- 首席产品官培训课件
- 数字遗产保护法律框架研究课题申报书
- GD2016《2016典管》火力发电厂汽水管道零件及部件典型设计（取替GD2000）-601-700
- 2026中国资源循环集团有限公司校园招聘备考题库附答案
- 铁路钢轨打磨课件
- 新疆医保知识培训课件
评论
0/150
提交评论