【文章內(nèi)容簡介】 l dwflags As Long) As Long 39。常數(shù)聲明 Dim hWndl As Long Dim flag As Integer Private Sub Quit() Unload Me End Sub Private Sub e_Click() Unload Me End Sub Private Sub Form_Load() End Sub Private Sub gy_Click() 1 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case j 1 Case g 1 Case y 1 Case s Dim FileName1, FileName2 As String On Error GoTo A1 = *.mdb|*.mdb FileName1 = FileName2 = A1: If = 75 Or = 53 Then Exit Sub Else If = 70 Then If FileName1 = FileName2 Then MsgBox 文件已經(jīng)存在，請更改文件名 ！ , vbOKOnly + vbExclamation Exit Sub Else Exit Sub End If Else FileCopy FileName1, FileName2 End If End If Case q 1 Case e Quit End Select End Sub 四、技術人才管理窗體設計 該窗體主要完成錄入、刪除、修改、查詢技術人才管理功能的調(diào)用，如圖４ 4所示。 圖 44 技術人才菜 單 1．當用戶單擊“錄入”時，將調(diào)出“技術人才錄入窗體” 完成技術人才信息保存。工作界面使用的控件，如表 43 所示，控件屬性設置如表 44 所示。 控件設置 名稱 作用 Datal 連接數(shù)據(jù)庫 Command1 確認，轉下一記錄 Command2 清除當前錄入數(shù)據(jù)，重新錄入數(shù)據(jù) Command3 保存錄入數(shù)據(jù)，返回主菜單 Command4 返回，不保存數(shù)據(jù) Combo1 文化程度預設值 Combo2 政治面貌預設 Combo3 技術職稱預設值 Frme1 性別選擇分組框 Label1 窗體 標題 Line1 分割線 Option1 “男”單選框 Option2 “女”單選框 StatusBar1 顯示記錄情況和當前日期時間 Text1— Text2 與撥尖人才數(shù)據(jù)表各字段綁定 表 44 工作界面窗體控件設置 控件主要屬性 控件名稱 屬性 值 Datal RecordSource 拔尖人才 Visible Fasle Combo1 DataField 文化程度 Combo2 DataField 政治面貌 Combo. DataField 技術職稱 Text1 DataField 姓名 Text2 DataField 年 Text3 DataField 月 Text4 DataField 日 Text5 DataField 市（縣） Text6 DataField 區(qū) Text7 DataField 街 Text8 DataField 號 Text9 DataField 技術特長 Text10 DataField 何種獎勵 Text11 DataField 科研成果 Multiline True Text12 DataField 性別 Visible False Text13 Enabled True Interval 1000(1 秒 ) 表 45 工作界面的各個控件屬性設置 復選框和文本框的數(shù)據(jù)源均為 Datal。這里將 Text11 的 ”MultiLine”屬性設為：“ True”是為了能輸入多行文字。數(shù)據(jù)錄入的工作流程如圖 46 所示。 事件過程如表４ 6 所示。 窗體裝入 關閉關閉按鈕 確定數(shù)據(jù)文件、激活數(shù)據(jù)源 得到記錄總數(shù)、在狀態(tài)欄顯示記錄總數(shù)和當前記錄數(shù)及當前日期和時間 輸入一條新記錄 輸入姓名 顯示提示信息，等待輸入姓名 回車鍵向下 輸入姓名為空 等待按下回車鍵 選擇性別 改變下一文本框的背景顏色并設置焦點，等待輸入其他數(shù)據(jù) 各項數(shù)據(jù)輸入完畢 下一記錄按鈕按下 重新錄入按鈕按下 保存數(shù)據(jù)按鈕按下 返回按鈕按下 保存當前錄入的記錄 清空所有輸入數(shù)據(jù) 保存數(shù)據(jù)、返回主菜 返回主菜單、不保存數(shù)據(jù) 插入一新記錄 、等待數(shù)據(jù)輸入 等待數(shù)據(jù)輸入 過程名 類型 執(zhí)行條件 作用 Form_load 事件過程 裝入窗體 調(diào)用關閉關閉按鈕的函數(shù)過程關閉關閉按鈕、設置各 控件的屬性、連接數(shù)據(jù)庫、插入一條新記錄 Text1_KeyPress 事件過程 回車鍵按下 判斷姓名是否為空，設置單選鈕使能為真，設 Option1 值為真 Option1_Click 事件過程 Option1 單擊 選擇性別為“男”并賦值給 Text12 Option2_Click 事件過程 Option2 單擊 選擇性別為“女”并賦值給 Text12 Text2_KeyPress~ Text4_KeyPress 事件過程 回車鍵按下 分別輸入“年”“月”“日”，判斷輸入數(shù)據(jù)的合法性，激活下一控件 Combo1_ KeyPress Combo3_ KeyPress 事件過程 回車鍵按下 選擇“文化程度”、“政治面貌”、“技術職稱”，激活下一控件 Text5_KeyPress~ Text11_KeyPress 事件過程 回車鍵按下 繼續(xù)輸入其他各項數(shù)據(jù)，激活下一控件 Command1_Click 事件過程 鼠標單擊 插入空記錄，恢復各控件原屬性設置 Command1_KeyPress 事件過程 回車鍵按下 插入空記錄，恢復各控件原屬性設置 Command2_Click 事件過程 鼠 標單擊 清空錄入數(shù)據(jù)，恢復各控件原屬性設置，重新輸入 Command3_Click 事件過程 鼠標單擊 保存輸入數(shù)據(jù)，返回工作選項 Command4_Click 事件過程 鼠標單擊 取消數(shù)據(jù)輸入操作，返回工作選項 Timer1_Timer 事件過程 定時時間 更新當前時間 到 表 46 2．技術人才信息查詢 信息查詢的工作界面與數(shù)據(jù)錄入時使用的工作界面基本相同，只是多了一個輸入姓名的文本框和一個顯示“請輸入姓名”的標簽，如 47 圖所示：本程序使用 Visual Basic 自身提供的 Find 查詢的模糊查詢 方法。 圖 47 技術人才信息查詢工作界面 Private Sub Command1_Click() 39。查詢記錄 Set rsRecordSet2 = New = connConnection strcon = select * from 技術人才表 where strtext = strque = strcon amp。 職工編號 =39。 amp。 strtext amp。 39。 If Text18 = Then MsgBox 請輸入職工編號 ！ , vbExclamation Text18 = Exit Sub End If = strque If = 0 Then MsgBox 沒有找到要查詢的信息 , vbOKOnly End If Call bind1 = False = False End Sub 因為這里是進行查詢，這時數(shù)據(jù)應該只能顯示不能修改，故需要將所有用于顯示數(shù)據(jù)的文本框鎖住，即除用于輸入姓名的文本框“ Text17”外，將其他文本框的 Locked 屬性設置為 ”True”。在刪除數(shù)據(jù)的程序中對文本框的 Locked 屬性也作了相同的設定。 刪除 在該窗體中對記錄的刪除方法是先查詢后刪除，工作界面如 48 圖所示，工作時首先輸入需要待刪除人員的職工編號，然后計算機查找相應記錄，在查到需要刪除的記錄后，單擊“刪除”按鈕即可刪除記錄。 圖 48 技術信息人才刪除界面 代碼段如下： Private Sub Command4_Click() If blquery Then blquery = False 39。刪除查詢后的記錄 Else 39。刪除沒有點擊 查詢 按鈕時的的記錄 End If 39。關閉原來的記錄集 strcon = select * from 技術人才表 = strcon = adLockPessimistic 39。重新打開原來的記錄集 Call bind = False = True = True End Sub 3．技術人才信息的修改 數(shù)據(jù)修改的工作界面如 49 圖所示 圖 49 技術人才信息修改的工作界面 這個程序與數(shù)據(jù)查詢不同之處是各文本框沒有鎖定，與數(shù)據(jù)錄入的不同之處是不能輸入新記錄。這里不在細述。 程序清單如下： Option Explicit Dim strque As String Dim strcon As String Dim strtext As String Dim blquery As Boolean Dim bldatabase As Boolean Private WithEvents connConnection As Private WithEvents rsRecordSet As Private WithEvents rsRecordSet2 As Private Sub Command1_Click() blquery = True Set rsRecordSet2 = New = connConnection strcon = select * from 技術人才表 where strtext = strque = strcon amp。 職工編號 =39。 amp。 strtext amp。 39。 If Text18 = Then MsgBox 請輸入職工編號 ！ , vbExclamation Text18 = Exit Sub End If = strque = adLockPessimistic Call bind1 If = 0 Then = False = False = False = False MsgBox 沒有找到要查詢的信息 , vbOKOnly Exit Sub End If = False = False = False = True End Sub Private Sub Command2_Click() If = False Then 39。Check to see if you are at the front of the record set. 39。If you are not, then you can move forward. If = True Then 39。This will prevent the user from moving to 39。the BOF marker if he or she is on the first record. End If Else If Then 39。Chec