实训报告(第三组实训报告)new

《实训报告(第三组实训报告)new》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、连云港职业技术学院实训报告课程名称：信息系统开发与应用项目名称：人力资源管理系统姓名：周长青学号：090104130组别:第三组2011年11月6日一、实训题目人力资源管理系统（人力资源管理系统所实现的功能是能够在本系统中查询，增加，删除员工的信息，实现对员工信息的管理）二、实训要求建立员工基本信息数据库，通过vf数据编程建立数据交换窗口与数据库链接，实现数据交换，便于数据库数据信息的管理。员工信息在本系统能够进行查询，增加，删除等，起到对员工基本信息，员工职位薪水的管理，员工流动情况的分析添加的作用是在添加的窗体之

2、中输入详细的员工信息然后通过VB来进行对数据库的增加来实现功能。删除的作用是有些调走或离职的员工信息进行清除。一旦删除只能通过添加功能进行弥补。查询的功能是通过输入员工号来对查询个别需要了解的员工的信息。。三个选项的功能一致，但用户点击人事信息的来查询整体员工职位情况的时候会出现一个员工人事信息窗口，这个窗口集合了所有人事信息。三、任务分工四、设计功能登陆界面主菜单员工信息人事信息员工基本信息增加员工删除员工人事情况人事调动图1-流程图五、数据结构1、数据库建立（1）用“Access2003”这个软件来建立学生信息数

3、据库。（2）在使用向导创建表，然后依次输入需要建立的字段名称。当完成向导，建立好新的数据库后，应该对其进行属性的设置（设计视图）图2、设计完成的数据库图3、设计视图2、数据库与工程间的绑定（1）当数据库建立好之后，需要把数据库与VB进行绑定，点击开始菜单，选择设置，然后点击控制面板，找到管理工具，双击数据源，选择第三个进行添加。图4、数据库与工程的绑定再点“添加”，如下图：图四、数据源创建点第二个，添加文件，如下图：图5、数据源建立完成（2）建立工程，在桌面点“MicrosoftVisualBasic6.0”1．打开

4、这个软件后，建立新工程，取名为“人力资源管理系统”。如图图6、人力资源管理界面2、建立登陆界面图7、登陆界面3、在新建页面添加控件adodc1,DataGrid，Frame和菜单编辑器。然后在空白的地方右击鼠标，打开菜单编辑器，在菜单编辑器里面进行菜单名称的命名图8、主菜单界面4、建立查询员工窗口图9、员工查询界面5、添加员工窗口图10、添加员工界面6、删除员工窗口图11、删除员工窗口7、在新建立的工程里，点部件如下图：图12、数据按钮设置8.接着画出上面窗口的按钮，将按钮与数据库进行绑定，并设定如下：图13、数据链

5、接图14、数据链接9.再选上面的那个窗体，并设定为：图15、数据链接六、程序代码设计(1)跳转登陆面：PrivateSubCommand1_Click()frmLogin.ShowUnloadMeEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubText2_Change()nametextText="电子091"EndSub(2)登陆界面：PrivateSubcmdCancel_Click()'设置全局变量为false'不提示失败的登录LoginSucceeded=

6、FalseMe.HideEndSubPrivateSubcmdOK_Click()'检查正确的密码IftxtUserName="1"AndtxtPassword="1"Then'将代码放在这里传递'成功到calling函数'设置全局变量时最容易的LoginSucceeded=Truerenliziyuan.ShowMe.HideElseMsgBox"无效的密码，请重试!",,"登录"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSub（3）菜单语言：Private

7、Subshanchubumen_Click()shanchubumenform22.ShowEndSubPrivateSubshanchuyuangong_Click()shanchuyuangongform1.ShowEndSubPrivateSubtianjiabumen_Click()tianjiabumenform11.ShowEndSubPrivateSubtianjiayuangong_Click()tianjiayuangongform2.ShowEndSubPrivateSubyuangongchax

8、un_Click()chaxunyuangongforml.ShowEndSub（4）删除员工语言PrivateSubyes_Click()DimnumAsStringnum=Trim(""&"text1.Text"&"")IfText1.Text=""ThenMsgBox"请输入添加除员工的信息"ElseIfAdodc5.Recordset