人事檔案管理數(shù)據(jù)庫應(yīng)用程序設(shè)計

1、實驗 7 人事檔案管理數(shù)據(jù)庫應(yīng)用程序設(shè)計 實驗?zāi)康?1掌握利用 SQL 語句，通過 ADO 數(shù)據(jù) HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E5%AF%B9%E8%B1%A1 o 小詞典: 對象 對象管理數(shù)據(jù)的方法。 2理解數(shù)據(jù)庫實用程序的框架體系。 實驗內(nèi)容 開發(fā)一個人事檔案管理數(shù)據(jù)庫應(yīng)用程序，要求程序運行后，通過 MSFlexGrid 控件在主界面上顯示數(shù)據(jù)表中的內(nèi)容，單擊 HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E5%B7%A5%E5%

2、85%B7%E6%A0%8F o 小詞典: 工具欄 工具欄上的“增加”、“刪除”、“查看”按鈕，可以進行相應(yīng)的操作，單擊“退出”按鈕，退出應(yīng)用程序。程序運行界面如圖1 、圖2 、圖3 所示。 圖 1 程序運行主界面圖 2 “增加” HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E7%AA%97%E4%BD%93 o 小詞典: 窗體 窗體運行界面圖 3 “查看”窗體運行界面實驗步驟指導(dǎo) 1準(zhǔn)備工作 建立名稱為“vbxk5人事檔案管理” HYPERLINK /mod/glossary/showentry.php?coursei

3、d=20&concept=%E6%96%87%E4%BB%B6 o 小詞典: 文件 文件夾，在該文件夾下，建立“圖標(biāo)”文件夾，在其中存入界面設(shè)計時所用圖標(biāo)。開發(fā)過程中的全部文件存放在“人事檔案管理”文件夾中。 2建立人事檔案管理數(shù)據(jù)庫 用Microsoft Access 建立數(shù)據(jù)庫，名稱為HRM.mdb 。在HRM.mdb 數(shù)據(jù)庫中建立“檔案”和“職稱”2個數(shù)據(jù)表。 表 1 “檔案”表結(jié)構(gòu) 字段名 類型 大小 說明 職工編號 文本 20 主鍵 職工姓名 文本 15 職稱 文本 10 簡歷 備注 照片 OLE 對象 表 2 “職稱”表結(jié)構(gòu) 字段名 類型 大小 說明 職稱 文本 不設(shè)為主鍵 3界面

4、設(shè)計 （1）創(chuàng)建工程 新建一“標(biāo)準(zhǔn)EXE ”工程，工程名為“HRM.vbp ”。通過“工程部件”菜單，選中Microsoft Windows comman Control5.0 和Microsoft FlexGrid Control6.0 添加ToolBar 控件和FlexGrid 表格控件。通過“工程引用”菜單項，選中Microsoft ActiveX Data Object2.7 Library 添加ADO 數(shù)據(jù)對象。并按以下要求創(chuàng)建窗體，所有窗體的StartUpPosition HYPERLINK /mod/glossary/showentry.php?courseid=20&conce

5、pt=%E5%B1%9E%E6%80%A7 o 小詞典: 屬性 屬性均設(shè)置為：2- 屏幕中心。 （2）創(chuàng)建主窗體（ frmMain ） 按圖4 所示，運用Toolbar 控件、ImageList 控件和MSFlexGrid 控件創(chuàng)建“人事檔案管理”主窗體。窗體名frmMain ，其它控件保留缺省名稱。 圖 4 主窗體設(shè)計界面（3）創(chuàng)建“增加”窗體（ frmAdd ） 按圖5所示，使用 HYPERLINK /mod/glossary/showentry.php?courseid=20&concept=%E6%A0%87%E7%AD%BE o 小詞典: 標(biāo)簽 標(biā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 小詞典: 命令按鈕 命令按鈕、圖片框控件，創(chuàng)建“增加”窗體，窗體名為 frmAdd 。 （4）創(chuàng)建“查看”窗體（ frmShow ） 按圖6 所示，使用標(biāo)簽、文本框、組合框、命令按鈕、圖片框控件，創(chuàng)建“查詢”窗體，窗體名為

7、frmShow 。 圖 6 查詢窗體設(shè)計界面 4代碼設(shè)計 （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） 設(shè)計主窗體代碼 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） 設(shè)計“增加”窗體代碼 請同學(xué)們參考本章典型案例的 “增加薪記錄”窗體 代碼自己完成。 （4） 設(shè)計查詢窗體代碼 請同學(xué)們參考本章典型案