设计一个人事管理系统2.doc

设计一个人事管理系统1、 设计要求 具有软件封面、人事多媒体档案（照片、声音）、菜单与工具按钮选择功能等； 人事信息添加功能； 人事信息修改功能； 人事信息删除功能； 人事信息查找功能； 人事信息分析与打印功能。打印菜单2、 系统结构图： 添加工具 修改 删除 查询 退出 3、 设计步骤：1、 利用Microsoft Access 2003创建数据库及其数据表先定义一个“人事管理数据表”的结构，如表1所示。表1 人事管理数据表结构创建字段名称字段类型字段大小索引必须填写姓名文本50惟一、主索引是性别文本50是工号文本50是职位文本30是籍贯文本50是学历文本50是照片OLE对象否利用Microsoft Access 2003创建数据库及其数据表的步骤如下：（1）启动Microsft Access 2003的Microsoft Access应用程序，出现图1所示界面。通过该界面就可以创建一个新的数据库或打开一个已经存在的数据库。图1 选择创建数据库的方式 （2）选择创建新数据库，即选择“空Access数据库”选项。 （3）单击“确定”按钮之后出现保存对话框，确定保存数据库文件的位置和文件名称之后即创建了一个空的数据库然后出现图2所示窗口。图2 数据库中的数据表操作窗口数据库只是数据表的容器，在数据库操作窗口中，用户可以打开已经存在的数据表，也可以创建新的：数据表+并可以对已经存在的数据表进行删除。创建一个数据表本质上就是创建一个数据表的结构，即定义数据表的字段名、宇段大小和数据类型等等。这一切工作均是通过“设计”菜单进行的。（4） 单击“设计”菜单，可以打开一个新的数据表结构的设计器，如图3所示。 图3 数据表设计器在Microsoft Access 2003数据表设计器中，用户可以定义数据表的字段名称、字段类型、字段大小等内容。数据表结构一经确定，可以打开该数据表，在数据表中输入一些基本数据，以在后面的系统设计中体现设计的效果。 表2 数据表记录内容姓名性别工号职位籍贯学历照片萧炎男019经理广西本科程小雨女054秘书南宁本科芳女043普职工湖南本科音效凯子男024普职工湖北本科西门女001普职工南宁本科小东男005普职工桂林本科小飞男007普职工桂林本科小郭男009普职工惠州本科最后，系统自动将创建的数据表保存在 人事管理数据库中。（5）vb窗体设计建立工程1，在窗体1的基础上再建立一个窗体，窗体2作为打印功能界面。（6）窗体1的设计 caption=”人事管理系统” 在“ 工具菜单编辑器”中创建form1的下拉菜单菜单 工具 退出 打印 添加 修改 删除 查找在窗体中添加六个label，六个text，一个Adodc属性设置如下： Label1.caption=”姓名” text1.datasource=adodc1text 1.datafield=”姓名” Label2.caption=”性别”text 2.datasource=adodc1text 2.datafield=”性别“Label3.caption=”工号”text l3.datasource=adodc1text l3.datafield=”工号”Label4.caption=“职位” text 4.datasource=adodc1text 4.datafield=”职位”Label5.caption=“籍贯”text 5.datasource=adodc1text 5.datafield=”籍贯”Label6.caption=“学历”text 6.datasource=adodc1text 6.datafield=”学历”在窗体添加七个commandCommand1（0）.caption=“首记录”Command1（1）。caption=“上一条”Command1（2）.caption=“下一条”Command1（3）.caption=“尾记录”Command3.caption=“确认”Command4.caption=“取消”Command5.caption=“确认”在窗体中添加控件Adodc1，点击右键属性，在属性页链接已建立的数据库表renshiguanli.mdb，测试链接，并在记录源项命令类型选择2-adcmdtable,表或存储过程名称选表1效果图（1） （7）窗体2的设计添加控件datagrid,adodc,commondialog各一个,command两个Command1.caption=“确认“Command2.caption=“退出“在窗体中添加控件Adodc1，点击右键属性，在属性页链接已建立的数据库表renshiguanli.mdb，测试链接，并在记录源项命令类型选择2-adcmdtable,表或存储过程名称选表1效果图如下： 4、 运行结果： 本设计具有三个窗口，即人事管理系统主窗口、查找窗口以及打印窗口，可以实现人事信息添加、查找、删除、修改以及打印功能，含有菜单以及工具按钮选择功能等。 图4人事管理系统主窗口 图5人事管理系统添加窗口 图6人事管理系统删除窗口 图7人事管理系统修改窗口 图8人事管理系统查找窗口 图9人事管理系统打印窗口 本设计没能实现人事信息的分析以及多媒体档案功能。5、 心得体会： 从十二周开始到接近十七周，准备了相当长得时间，从开始的选题到搜集资料，然后再进行编程设计，从中体现了我们的团结与配合精神，从中我们学到了不少东西，以及以前我们学过的东西又一次温习了一遍，对以后的学习以及工作都将产生重大的影响。这次程序设计也考验了我们的信息的搜索能力，从互联网以及资料书找到我们所需要的相关资料，从中选择出我们真正需要和使用的东西 。有了这次难忘的经历，我觉得自己充实了许多，学到了很多东西，更重要的是我们学会了如何协同合作，学到了遇到问题应该如何解决。这将在我们以后的学习和工作中起着重要的作用。6、 附录：窗体1程序Private Sub Form_Load()Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueEnd SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0Adodc1.Recordset.MoveFirstCase 1Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstCase 2Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastCase 3Adodc1.Recordset.MoveLastEnd SelectEnd SubPrivate Sub Command3_Click()Dim i As Integer If Text1.Text = Then i = MsgBox(名字不能为空, 1, 提示) Text1.SetFocus ElseIf Text3.Text = Then i = MsgBox(工号不能为空, 1, 提示) Text3.SetFocus Else Adodc1.Recordset.Update Command1(0).Visible = True Command1(1).Visible = True Command1(2).Visible = True Command1(3).Visible = True Command3.Visible = flase Command4.Visible = flase Adodc1.RefreshForm2.Refresh End If End SubPrivate Sub Command4_Click() Adodc1.Recordset.CancelUpdate Command1(0).Visible = True Command1(1).Visible = True Command1(2).Visible = True Command1(3).Visible = True Command3.Visible = flase Command4.Visible = flase Command5.Visible = flase Form2.RefreshEnd SubPrivate Sub Command5_Click() Adodc1.Recordset.Update Command1(0).Visible = True Command1(1).Visible = True Command1(2).Visible = True Command1(3).Visible = TrueCommand4.Visible = FalseCommand5.Visible = FalseAdodc1.RefreshForm2.RefreshEnd SubPrivate Sub add_Click()Adodc1.Recordset.AddNew Command1(0).Visible = False Command1(1).Visible = False Command1(2).Visible = False Command1(3).Visible = False Command3.Visible = True Command4.Visible = True Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked = FalseEnd SubPrivate Sub move_Click() Adodc1.Recordset.Update Command4.Visible = TrueCommand5.Visible = True Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked = FalseEnd SubPrivate Sub print_Click()Form2.ShowEnd SubPrivate Sub search_Click()Dim mo As Stringmo = InputBox(请输入工号, 查找窗口)Adodc1.Recordset.Find 工号= & mo & , , , 1If Adodc1.Recordset.EOF Then MsgBox 无此工号, , 提示Adodc1.Recordset.MoveFirstEnd SubPrivate Sub del_Click()Dim ask As Integerask = MsgBox(删除否, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfAdodc1.RefreshForm2.RefreshEnd Sub窗体2程序Private Sub Command1_Click()Dim BeginPage, EndPage, NumCopies, Orientation, iCommonDialog1.CancelError = TrueOn Error GoTo ErrHandlerCommonDialog1.ShowPrinterBeginPage = CommonDiag1.FromPageEn