人事档案管理数据库应用程序设计

1、实验 7 人事档案管理数据库应用程序设计 实验目的 1掌握利用 SQL 语句，通过 ADO 数据 HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E5%AF%B9%E8%B1%A1 o 小词典: 对象 对象管理数据的方法。 2理解数据库实用程序的框架体系。 实验内容 开发一个人事档案管理数据库应用程序，要求程序运行后，通过 MSFlexGrid 控件在主界面上显示数据表中的内容，单击 HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E5%B7%A5%E5%

2、85%B7%E6%A0%8F o 小词典: 工具栏 工具栏上的“增加”、“删除”、“查看”按钮，可以进行相应的操作，单击“退出”按钮，退出应用程序。程序运行界面如图1 、图2 、图3 所示。 图 1 程序运行主界面图 2 “增加” HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E7%AA%97%E4%BD%93 o 小词典: 窗体 窗体运行界面图 3 “查看”窗体运行界面实验步骤指导 1准备工作 建立名称为“vbxk5人事档案管理” HYPERLINK /mod/glossary/showentry.php?coursei

3、d=20&concept=%E6%96%87%E4%BB%B6 o 小词典: 文件 文件夹，在该文件夹下，建立“图标”文件夹，在其中存入界面设计时所用图标。开发过程中的全部文件存放在“人事档案管理”文件夹中。 2建立人事档案管理数据库 用Microsoft Access 建立数据库，名称为HRM.mdb 。在HRM.mdb 数据库中建立“档案”和“职称”2个数据表。 表 1 “档案”表结构 字段名 类型 大小 说明 职工编号 文本 20 主键 职工姓名 文本 15 职称 文本 10 简历 备注 照片 OLE 对象 表 2 “职称”表结构 字段名 类型 大小 说明 职称 文本 不设为主键 3界面

4、设计 （1）创建工程 新建一“标准EXE ”工程，工程名为“HRM.vbp ”。通过“工程部件”菜单，选中Microsoft Windows comman Control5.0 和Microsoft FlexGrid Control6.0 添加ToolBar 控件和FlexGrid 表格控件。通过“工程引用”菜单项，选中Microsoft ActiveX Data Object2.7 Library 添加ADO 数据对象。并按以下要求创建窗体，所有窗体的StartUpPosition HYPERLINK /mod/glossary/showentry.php?courseid=20&conce

5、pt=%E5%B1%9E%E6%80%A7 o 小词典: 属性 属性均设置为：2- 屏幕中心。 （2）创建主窗体（ frmMain ） 按图4 所示，运用Toolbar 控件、ImageList 控件和MSFlexGrid 控件创建“人事档案管理”主窗体。窗体名frmMain ，其它控件保留缺省名称。 图 4 主窗体设计界面（3）创建“增加”窗体（ frmAdd ） 按图5所示，使用 HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E6%A0%87%E7%AD%BE o 小词典: 标签 标签、 HYPERLINK /mod/

6、glossary/showentry.php?courseid=20&concept=%E6%96%87%E6%9C%AC%E6%A1%86 o 小词典: 文本框 文本框、组合框、 HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AE o 小词典: 命令按钮 命令按钮、图片框控件，创建“增加”窗体，窗体名为 frmAdd 。 （4）创建“查看”窗体（ frmShow ） 按图6 所示，使用标签、文本框、组合框、命令按钮、图片框控件，创建“查询”窗体，窗体名为

7、frmShow 。 图 6 查询窗体设计界面 4代码设计 （1） 添加模块，编写 Main 过程 Public cn As New ADODB.Connection Sub main() Dim strcn As String strcn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + HRM.mdb;Persist Security Info=False cn.Open strcn frmMain.Show End Sub Public Sub SavePhoto(FName As String, strNo As S

8、tring) Dim rs As New ADODB.Recordset Dim image_data() As Byte 定义图片保存的变量 rs.ActiveConnection = cn rs.Open Select * From 档案 Where 编号 = + strNo + , cn, adOpenDynamic, adLockOptimistic If Trim(FName) Then 假如有图片，开始得到图片文件 Open Trim(FName) For Binary As #1 ReDim image_data(LOF(1) - 1) Get #1, , image_data(

9、) Close #1 rs( 照片 ).AppendChunk image_data() rs.Update rs.Close Else rs( 照片 ).AppendChunk rs.Update rs.Close End If End Sub （2） 设计主窗体代码 Private Sub Myrefresh() Dim rs As New ADODB.Recordset Dim strtmp As String Dim i As Integer Dim r As Integer rs.ActiveConnection = cn rs.Open Select * From 档案 Order

10、 by 编号 MSFlexGrid1.Clear MSFlexGrid1.FixedRows = 0 MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 4 MSFlexGrid1.AddItem 职工编号 + vbTab + 职工姓名 + vbTab + 职称 + vbTab + 简历 , 0 i = 1 Do While Not rs.EOF strtmp = rs( 编号 ) + vbTab + rs( 姓名 ) + vbTab + rs( 职称 ) + vbTab + rs( 简历 ) MSFlexGrid1.AddItem strtmp, i rs.Mov

11、eNext Loop MSFlexGrid1.FixedRows = 1 End Sub Private Sub Form_Load() Myrefresh End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Caption Case 增加 frmAdd.Show 1 Myrefresh Case 删除 strtmp = MSFlexGrid1.Text If MsgBox( 你真的要删除职工编号为： + strtmp + 的档案吗？ , vbInformation + vbYesNo) = vbYes Then cn.Execute Delete From 档案 Where 编号 = + strtmp + Myrefresh End If Case 查看 strtmp = MSFlexGrid1.Text If strtmp Then frmShow.Text1 = strtmp frmShow.Show 1 End If Case 退出 End End Select End Sub （3） 设计“增加”窗体代码 请同学们参考本章典型案例的 “增加薪记录”窗体 代码自己完成。 （4） 设计查询窗体代码 请同学们参考本章典型案