数据库作业课程设计

《数据库作业课程设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、数据库课程设计一、设计任务结合数据库应用与开发、管理信息系统课程内容，设计一个人力资源管理系统，实现对企业人员的管理。二、需求分析：1、储存记录企业员工的基本信息2、能记录、查询员工所在部门，方便领导查找。3、统计部门员工人数。4、能详细记录部门员工的招录、辞退情况。三、概念设计基本信息员工编号所在部门人数招录辞退部门部门员工人力资源管理系统E-R模型四、逻辑结构设计将E-R关系图转换成关系数据库模式员工（员工编号，姓名，性别，部门，备注）部门（部门编号，名称，人数，负责人）权限（用户名，密码，权限类别）员工辞

2、退（员工编号，姓名，性别，部门，辞退时间）员工招录（员工编号，姓名，性别，部门，进厂日期）二、系统运行1、员工查询2、部门查询1、员工编辑4、部门编辑5、员工辞退6、员工招录二、VB程序代码：1、用户登录PrivateSubCommand1_Click()Adodc1.RecordSource="select*from权限where用户名='"&Trim(Text1)&"'and密码='"&Trim(Text2)&"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount<>

3、0ThenIfAdodc1.Recordset.Fields("权限类别")="系统管理员"ThenFormmain.cx.Enabled=TrueFormmain.jcsjbj.Enabled=TrueFormmain.crkgl.Enabled=TrueFormmain.tjbb.Enabled=TrueFormmain.tch.Enabled=TrueFormmain.xtgl.Enabled=TrueUnloadMeFormmain.ShowElseFormmain.cx.Enabled=TrueFor

4、mmain.jcsjbj.Enabled=FalseFormmain.crkgl.Enabled=TrueFormmain.tjbb.Enabled=FalseFormmain.tch.Enabled=TrueFormmain.xtgl.Enabled=FalseUnloadMeFormmain.ShowEndIfElseMsgBox"姓名或密码错！"EndIfEndSubPrivateSubForm_Load()EndSub1、员工查询PrivateSubCommand1_Click()Adodc1.Reco

5、rdSource="select*from员工where员工编号='"&Text1.Text&"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount=0ThenMsgBox"无此员工！"EndIfEndSubPrivateSubCommand2_Click()Adodc1.RecordSource="select*from员工"Adodc1.RefreshEndSubPrivateSubDataGrid1_Click()EndSub1、部门查询：PrivateSubCom

6、mand1_Click()Adodc1.RecordSource="select*from部门where部门编号='"+Text1.Text+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount=0ThenMsgBox"无此部门！"EndIfEndSubPrivateSubCommand2_Click()Adodc1.RecordSource="select*from部门"Adodc1.RefreshEndSubPrivateSubDataGrid1_Click()En

7、dSub2、员工编辑PrivateSubCommand1_Click()IfAdodc1.Recordset.BOF=FalseThenAdodc1.Recordset.MovePreviousEndIfEndSubPrivateSubCommand2_Click()IfAdodc1.Recordset.EOF=FalseThenAdodc1.Recordset.MoveNextEndIfEndSubPrivateSubCommand3_Click()OnErrorGoTopAdodc1.Recordset.D

8、eleteMsgBox"删除成功"a=0Ifa=1Thenp:MsgBox"操作有误"Adodc1.RefreshEndIfEndSubPrivateSubCommand4_Click()Text1.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled