数据库作业课程设计.docx

数据库课程设计一、 设计任务结合数据库应用与开发、管理信息系统课程内容，设计一个人力资源管理系统，实现对企业人员的管理。二、 需求分析：1、 储存记录企业员工的基本信息2、 能记录、查询员工所在部门，方便领导查找。3、 统计部门员工人数。4、 能详细记录部门员工的招录、辞退情况。三、 概念设计基本信息员工编号所在部门人数招录辞退部门部门员工人力资源管理系统E-R模型 四、 逻辑结构设计将E-R关系图转换成关系数据库模式员工（员工编号，姓名 ，性别，部门，备注）部门（部门编号，名称，人数，负责人）权限（用户名，密码，权限类别）员工辞退（员工编号，姓名，性别，部门，辞退时间）员工招录（员工编号，姓名，性别，部门，进厂日期）五、 系统运行1、 员工查询2、 部门查询3、 员工编辑4、部门编辑5、员工辞退6、员工招录六、 VB程序代码：1、 用户登录Private Sub Command1_Click()Adodc1.RecordSource = select * from 权限 where 用户名 = & Trim(Text1) & and 密码 = & Trim(Text2) & Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenIf Adodc1.Recordset.Fields(权限类别) = 系统管理员 ThenFormmain.cx.Enabled = TrueFormmain.jcsjbj.Enabled = TrueFormmain.crkgl.Enabled = TrueFormmain.tjbb.Enabled = TrueFormmain.tch.Enabled = TrueFormmain.xtgl.Enabled = TrueUnload MeFormmain.ShowElseFormmain.cx.Enabled = TrueFormmain.jcsjbj.Enabled = FalseFormmain.crkgl.Enabled = TrueFormmain.tjbb.Enabled = FalseFormmain.tch.Enabled = TrueFormmain.xtgl.Enabled = FalseUnload MeFormmain.ShowEnd IfElseMsgBox 姓名或密码错！End IfEnd SubPrivate Sub Form_Load()End Sub2、 员工查询Private Sub Command1_Click()Adodc1.RecordSource = select * from 员工 where 员工编号= & Text1.Text & Adodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox 无此员工！End IfEnd SubPrivate Sub Command2_Click()Adodc1.RecordSource = select * from 员工 Adodc1.RefreshEnd SubPrivate Sub DataGrid1_Click()End Sub3、 部门查询： Private Sub Command1_Click()Adodc1.RecordSource = select * from 部门 where 部门编号 = + Text1.Text + Adodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox 无此部门！End IfEnd SubPrivate Sub Command2_Click()Adodc1.RecordSource = select * from 部门 Adodc1.RefreshEnd SubPrivate Sub DataGrid1_Click()End Sub4、 员工编辑 Private Sub Command1_Click()If Adodc1.Recordset.BOF = False ThenAdodc1.Recordset.MovePreviousEnd IfEnd SubPrivate Sub Command2_Click()If Adodc1.Recordset.EOF = False ThenAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command3_Click()On Error GoTo pAdodc1.Recordset.DeleteMsgBox 删除成功a = 0If a = 1 Thenp:MsgBox 操作有误Adodc1.RefreshEnd IfEnd SubPrivate Sub Command4_Click()Text1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand7.Enabled = FalseCommand6.Enabled = TrueAdodc1.Recordset.AddNewEnd SubPrivate Sub Command5_Click()Text1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand7.Enabled = FalseCommand6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Text1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand7.Enabled = TrueCommand6.Enabled = FalseAdodc1.Recordset.UpdateEnd SubPrivate Sub Command7_Click()Unload MeEnd SubPrivate Sub Command8_Click()Adodc1.RefreshEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub5、 部门编辑 Private Sub Command1_Click()If Adodc1.Recordset.BOF = False ThenAdodc1.Recordset.MovePreviousEnd IfEnd SubPrivate Sub Command2_Click()If Adodc1.Recordset.EOF = False ThenAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command4_Click()Text1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand7.Enabled = FalseCommand6.Enabled = TrueAdodc1.Recordset.AddNewEnd SubPrivate Sub Command5_Click()Text1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand7.Enabled = FalseCommand6.Enabled = TrueEnd SubPrivate Sub Command6_Click()On Error GoTo eText1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand7.Enabled = TrueCommand6.Enabled = FalseAdodc1.Recordset.Updatea = 0If a 0 Thene:MsgBox 输入出错！Adodc1.RefreshEnd IfEnd SubPrivate Sub Command7_Click()Unload MeEnd SubPrivate Sub Command8_Click()Adodc1.RefreshEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub6、 员工辞退 Private Sub Command4_Click()Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueCommand4.Enabled = FalseCommand7.Enabled = FalseCommand6.Enabled = TrueCommand8.Enabled = TrueAdodc1.Recordset.AddNewEnd SubPrivate Sub Command6_Click()Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseCommand4.Enabled = TrueCommand7.Enabled = TrueCommand6.Enabled = FalseCommand8.Enabled = FalseAdodc2.RecordSource = select * from 人数 where 员工编号= & Text1 & Adodc2.RefreshIf Adodc2.Recordset.RecordCount = 0 ThenMsgBox (无此员工)ElseIf Adodc2.Recordset.Fields(数量) Val(Text3) ThenMsgBox (超出上限)ElseAdodc2.Recordset.Fields(数量) = Adodc2.Recordset.Fields(数量) - Val(Text3)Adodc2.Recordset.UpdateEnd IfAdodc1.Recordset.UpdateEnd SubPrivate Sub Command7_Click()Unload MeEnd SubPrivate Sub Command8_Click()Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseCommand4.Enabled = TrueCommand7.Enabled = TrueCommand6.Enabled = FalseCommand8.Enabled = FalseAdodc1.RefreshEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub7、 员工招录 Private Sub Command4_Click()Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueCommand4.Enabled = FalseCommand7.Enabled = FalseCommand6.Enabled = TrueCommand8.Enabled = TrueAdodc1.Recordset.AddNewEnd SubPrivate Sub Command6_Click()Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseCommand4.Enabled = TrueCommand7.Enabled = TrueCommand6.Enabled = FalseCommand8.Enabled = FalseAdodc1.Recordset.UpdateAdodc2.RecordSource = select * from 人数 where 员工编号= & Text1 & Adodc2.RefreshIf Adodc2.Recordset.RecordCount = 0 ThenAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(员工编号) = Text1Adodc2.Recordset.Fields(部门编