【正文】 在框架中添加文本框控件、標簽控件、按鈕控件和 ADO 數(shù)據(jù)控件，如下表所示，在屬性窗口中設(shè)置各控件的 屬性，并在窗體設(shè)計視圖中調(diào)整其位置和大小。其各屬性如下表所示： 框加控件的屬性設(shè)計 名稱 Caption Font Frame1 當前部門 宋體小四 Frame2 部門列表 宋體小四 Frame3 操作 宋體小四 文本框控件結(jié)構(gòu) 控件名稱 Font Text1 宋體小四 Text2 宋體小四 ＡＤＯ數(shù)據(jù)控件屬性 控件名稱 Caption datprimaryrs datprimaryrs 按鈕控件的屬性 控件名稱 Caption Font 所屬框架 Command1 增加部門 宋體五號 操作 Command2 刪除部門 宋體五號 操作 Command3 保存 宋體五號 操作 Command4 取消 宋體五號 操作 數(shù)據(jù)表控件的屬性 控件名稱 Datasource Graddatagrid Datprimaryrs 框架控件的性屬 名稱 Caption Font Frame1 查詢 宋體小四 按鈕控件的屬性 控件名稱 Caption Font Command1 查詢 宋體五號 Command2 取消 宋體五號 文本框控件的屬性 控件名稱 Font Text1 宋體小四 組合框控件屬性 控件名稱 Font List Combo1 宋體五號 代號ＩＤ 姓名 性別 職務(wù) 籍貫 民族 出生日期 Combo2 宋體五號 = = = 三、程序源代碼 主模塊代碼 Public conStr As String ‘變量初始化 Public datStr As String Public ActionType As String Public Sub Main() conStr = PROVIDER=。 amp。 ‘設(shè)置數(shù)據(jù)源 datStr = amp。 人事資料卡片窗體 代碼的編寫 Private Sub Command2_Click() If MsgBox(確定保存當前資料嗎？ , vbInformation + vbYesNo, 保存資料？ ) = vbYes Then (0) = (1) = = True = True = False = False End If End Sub ‘保存按鈕代碼，保存時會彈出一個對話框，詢問用戶是否要保存，如果選擇是，將文本框中的數(shù)據(jù)定如數(shù)據(jù)表中 Private Sub Command3_Click() If MsgBox(確定刪除當前資料嗎？ , vbInformation + vbYesNo, 刪除資料？ ) = vbYes Then ‘確認刪除并掉用 delete 方法刪除記錄 End If End Sub ‘刪除按鈕用于刪除當前記錄 Private Sub Command4_Click() = True = True = False = False End Sub Private Sub Command5_Click() Load frm 家庭成員 frm 家庭成員 . = conStr frm 家庭成員 . = select 代號 ID,編號 ,成員姓名 ,與本人關(guān)系 ,出生年月 ,婚姻狀況 ,政治面貌 ,文化程度 ,經(jīng)濟來源 ,工作單位 ,工資 ,職務(wù) from 家庭成員 where 代號 ID like amp。 Order by 編號 frm 家庭成員 . frm 家庭成員 .Show End Sub ‘家庭成員按鈕用于載入家庭成員表單， 并以表格的形式列出家庭成員的相關(guān)信息。 amp。 Private Sub Command7_Click() Load frm 個人簡歷 frm 個人簡歷 . = conStr frm 個人簡歷 . = select 代號 ID,編號 ,工作單位 ,職務(wù) ,起始日期 ,證明人 from 個人簡歷 where 代號 ID like amp。 Order by 編號 frm 個人簡歷 . frm 個人簡歷 .Show End Sub ‘個人簡歷按鈕用于載入個人簡歷表單， 并以表格的形式列出個人簡歷的相關(guān)信息。 amp。 Private Sub Form_Load() = conStr = select 部門代號 ,部門 from 部門 Order by 部門代號 ‘設(shè)置數(shù)據(jù)源 = True ‘設(shè)置按鈕 = True = False = False End sub ‘添加按鈕代碼 Private Sub Command1_Click() = = = True = True = False = False End Sub ‘保存按鈕代碼 Private Sub Command3_Click() If = Then MsgBox 請輸入部門編號！ End If If = Then MsgBox 請輸入部門名稱！ End If If MsgBox(確定保存當前資料嗎？ , vbInformation + vbYesNo, 保存資料？ ) = vbYes Then (0) = (1) = = False = False = True = True End If End Sub ‘取消按鈕代碼 Private Sub Command4_Click() = False = False = True = True ‘刪除部門按鈕代碼 Private Sub Command2_Click() If MsgBox(確定刪除當前資料嗎？ , vbInformation + vbYesNo, 刪除資料？ ) = vbYes Then End If End Sub 查找窗體代碼 ‘該表單主要完成對數(shù)據(jù)庫中的數(shù)據(jù) 查找操作 ‘查找按鈕的代碼如下： Private Sub Command1_Click() Dim str As String 39。 amp。 39。 amp。 39。調(diào) 用查詢窗體 39。 str amp。當窗體調(diào)整時會調(diào)整網(wǎng)格 = 30 End Sub Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。想要忽略錯誤，注釋掉下一行 39。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。 CStr() End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub 個人簡歷窗體 ‘用于顯示個人簡歷表中的數(shù)據(jù)信息并且對數(shù)據(jù)表中的數(shù)據(jù)進行添加、刪除、修改、保存等操作 Private Sub Form_Resize() On Error Resume Next 39。錯誤處理程序代碼置于此處 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。為這個 recordset 顯示當前記錄位置 = Record: amp。驗 證代碼置于此處 39。只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub grdDataGrid_Click() End Sub 家庭成員窗體 ‘用于顯示家庭成員表中的數(shù)據(jù)信息并且對數(shù)據(jù)表中的數(shù)據(jù)進行添加、刪除、修改、保存等操作 Private Sub Form_Resize() On Error Resume Next 39。錯誤處理程序代碼置于此處 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。為這個 recordset 顯示當前記錄位置 = Record: amp。驗證代碼置于此處 39。只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub grdDataGrid_Click() End Sub 社會關(guān)系窗體 ‘用于顯示社會關(guān)系表中的數(shù)據(jù)信息并且對數(shù)據(jù)表中的數(shù)據(jù)進行添加、刪除、修改、保存等操作 Private Sub Form_Resize() On Error Resume Next 39。錯誤處理程序代碼置于此處 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。為這個 recordset 顯示當前記錄 位置 = Record: amp。驗證代碼置于此處 39。只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub grdDataGrid_Click() End Sub 小結(jié) 本程序創(chuàng)建了相對簡單的數(shù)據(jù)庫應(yīng)用程序 —— 企業(yè)人事管理系統(tǒng)，學(xué)習(xí)了 VB 帶可視化數(shù)據(jù)庫管理器的創(chuàng)建，多文檔窗體的創(chuàng)建和使用，菜單編輯的使用， ADO數(shù)據(jù)控件和數(shù)據(jù)表格控件扔的使用，實現(xiàn)了對于數(shù)據(jù)庫中數(shù)據(jù)的存取、顯示、添加 、刪除、修改和查詢等一系列操作，從而對