设计一个人事管理系统2

设计一个人事管理系统一、设计要求具有软件封面、人事多媒体档案（照片、声音）、菜单与工具按钮选择功能等；人事信息添加功能；人事信息修改功能；人事信息删除功能；人事信息查找功能；人事信息分析与打印功能。二、系统结构图：菜单打印工具添加修改删除查询三、设计步骤：1、利用MicrosoftAccess2003创建数据库及其数据表先定义一个“人事管理数据表”的结构，如表1所示。表1人事管理数据表结构创建字段名称字段类型字段大小索引必须填写姓名文本50惟一、主索引是性别文本50是工号文本50是职位文本30是籍贯文本50是学历文本50是照片OLE对象否利用MicrosoftAccess2003创建数据库及其数据表的步骤如下：（1）启动MicrosftAccess2003的MicrosoftAccess应用程序，出现图1所示界面。通过该界面就可以创建一个新的数据库或打开一个已经存在的数据退出库。图1选择创建数据库的方式（2）选择创建新数据库，即选择“空Access数据库”选项。（3）单击“确定”按钮之后出现保存对话框，确定保存数据库文件的位置和文件名称之后即创建了一个空的数据库然后出现图2所示窗口。图2数据库中的数据表操作窗口数据库只是数据表的容器，在数据库操作窗口中，用户可以打开已经存在的数据表，也可以创建新的：数据表+并可以对已经存在的数据表进行删除。创建一个数据表本质上就是创建一个数据表的结构，即定义数据表的字段名、宇段大小和数据类型等等。这一切工作均是通过“设计”菜单进行的。（4）单击“设计”菜单，可以打开一个新的数据表结构的设计器，如图3所示。图3数据表设计器在MicrosoftAccess2003数据表设计器中，用户可以定义数据表的字段名称、字段类型、字段大小等内容。数据表结构一经确定，可以打开该数据表，在数据表中输入一些基本数据，以在后面的系统设计中体现设计的效果。表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=adodc1text1.datafield=”姓名”Label2.caption=”性别”text2.datasource=adodc1text2.datafield=”性别“Label3.caption=”工号”textl3.datasource=adodc1textl3.datafield=”工号”Label4.caption=“职位”text4.datasource=adodc1text4.datafield=”职位”Label5.caption=“籍贯”text5.datasource=adodc1text5.datafield=”籍贯”Label6.caption=“学历”text6.datasource=adodc1text6.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人事管理系统主窗口图5人事管理系统添加窗口图6人事管理系统删除窗口图7人事管理系统修改窗口图8人事管理系统查找窗口图9人事管理系统打印窗口本设计没能实现人事信息的分析以及多媒体档案功能。五、心得体会：从十二周开始到接近十七周，准备了相当长得时间，从开始的选题到搜集资料，然后再进行编程设计，从中体现了我们的团结与配合精神，从中我们学到了不少东西，以及以前我们学过的东西又一次温习了一遍，对以后的学习以及工作都将产生重大的影响。这次程序设计也考验了我们的信息的搜索能力，从互联网以及资料书找到我们所需要的相关资料，从中选择出我们真正需要和使用的东西。有了这次难忘的经历，我觉得自己充实了许多，学到了很多东西，更重要的是我们学会了如何协同合作，学到了遇到问题应该如何解决。这将在我们以后的学习和工作中起着重要的作用。六、附录：窗体1程序PrivateSubForm_Load()Text1.Locked=TrueText2.Locked=TrueText3.Locked=TrueText4.Locked=TrueText5.Locked=TrueText6.Locked=TrueEndSubPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0Adodc1.Recordset.MoveFirstCase1Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCase2Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCase3Adodc1.Recordset.MoveLastEndSelectEndSubPrivateSubCommand3_Click()DimiAsIntegerIfText1.Text=Theni=MsgBox(名字不能为空,1,提示)Text1.SetFocusElseIfText3.Text=Theni=MsgBox(工号不能为空,1,提示)Text3.SetFocusElseAdodc1.Recordset.UpdateCommand1(0).Visible=TrueCommand1(1).Visible=TrueCommand1(2).Visible=TrueCommand1(3).Visible=TrueCommand3.Visible=flaseCommand4.Visible=flaseAdodc1.RefreshForm2.RefreshEndIfEndSubPrivateSubCommand4_Click()Adodc1.Recordset.CancelUpdateCommand1(0).Visible=TrueCommand1(1).Visible=TrueCommand1(2).Visible=TrueCommand1(3).Visible=TrueCommand3.Visible=flaseCommand4.Visible=flaseCommand5.Visible=flaseForm2.RefreshEndSubPrivateSubCommand5_Click()Adodc1.Recordset.UpdateCommand1(0).Visible=TrueCommand1(1).Visible=TrueCommand1(2).Visible=TrueCommand1(3).Visible=TrueCommand4.Visible=FalseCommand5.Visible=FalseAdodc1.RefreshForm2.RefreshEndSubPrivateSubadd_Click()Adodc1.Recordset.AddNewCommand1(0).Visible=FalseCommand1(1).Visible=FalseCommand1(2).Visible=FalseCommand1(3).Visible=FalseCommand3.Visible=TrueCommand4.Visible=TrueText1.Locked=FalseText2.Locked=FalseText3.Locked=FalseText4.Locked=FalseText5.Locked=FalseText6.Locked=FalseEndSubPrivateSubmove_Click()Adodc1.Recordset.UpdateCommand4.Visible=TrueCommand5.Visible=TrueText1.Locked=FalseText2.Locked=FalseText3.Locked=FalseText4.Locked=FalseText5.Locked=FalseText6.Locked=FalseEndSubPrivateSubprint_Click()Form2.ShowEndSubPrivateSubsearch_Click()DimmoAsStringmo=InputBox(请输入工号,查找窗口)Adodc1.Recordset.Find工号='&mo&',,,1IfAdodc1.Recordset.EOFThenMsgBox无此工号,,提示Adodc1.Recordset.MoveFirstEndSubPrivateSubdel_Click()DimaskAsIntegerask=MsgBox(删除否,vbYesNo)Ifask=6ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfAdodc1.RefreshForm2.RefreshEndSub窗体2程序PrivateSubCommand1_Click()DimBeginPage,EndPage,NumCopies,Orientation,iCommonDialog1.CancelError=TrueOnErrorGoToErrHandlerCommonDialog1.ShowPrinterBeginPage=CommonDiag1.FromPageEndPage=CommonDiag1.ToPageNumCopies=CommonDiag1.CopiesOrientation=CommonDiag1.OrientationFori=1ToNumCopiesNextExitSubErrHandler:ExitSubEndSubPrivateSubCommand2_Click()Form1.ShowForm2.HideEndSub七、参考文献：《VisualBasic程序设计教程（第三版）》龚沛曾杨志强陆慰民编