【正文】 碼，如果用戶密碼正確程序繼續(xù)執(zhí)行。事實上這是一個密碼 輸 入、密碼保存和密碼正確性的判斷的問題。 圖 41 用戶登錄窗體 這介界面的背景是啟動界面的一部分 ,調(diào)用用戶登錄后在這個圖片的原位置顯示登錄界面 ,這樣啟動界面的完整性得以保證 .由于這個用戶登錄界面上只有一個文本框 ,因此就不研究控件了。 這里應注意，在密碼輸入法時應用其它字符代替密碼字符，一般用“ *”號。 密碼保存的方便做法是將密碼放在程序里，作為程序的組成部分，即在程序中安排一個固定的字符串作為密碼，作為密碼輸入的字符串和這個固定的字符串做比較。這種做法最大問題是密碼不能更換，一旦密碼泄露也就無密可保。使用文件保有存密碼最大的好處是密碼可以隨時更換，如晨將密 碼加密后再存入文件，那么即使知道文件中數(shù)據(jù)是密碼，也不會知道真的密碼組成。 程序代碼如下： Option Explicit Public LoginSucceeded As Boolean Dim connConnection As Dim rsRecordSet As 39。 strDataSource = strDataBaseName = \人才信息 .mdb。 strDataSource amp。 strDataSource Set connConnection = New = adUseClient strConnect Set rsRecordSet = New account = pt = = adOpenStatic = adUseClient = adLockPessimistic = select * from 密碼表 where 用戶名 =39。 amp。 = connConnection If ( = 0) Then MsgBox 無此用戶名 , , 登錄 Else If ((密碼 ).Value = Trim()) Then Else MsgBox 無效的密碼，請重試 !, , 登錄 txtPassword = numlogin = numlogin + 1 If numlogin = 3 Then MsgBox 錯誤輸入已達 3 次，系統(tǒng)退出！ , vbOKOnly + vbExclamation, 警告 Unload Me Exit Sub End If End If End If Set connConnection = Nothing End Sub Private Sub cmdCancel_Click() 39。不提示失敗的登錄 LoginSucceeded = False Unload Me End Sub 2 系統(tǒng)管理界面的設計 用戶管理界面的窗體如圖４ 2 所示。 amp。 39。 amp。 39。 strDataSource = strDataBaseName = \人才信息 .mdb。 strDataSource amp。 strDataSource Set connConnection = New = adUseClient strConnect Set rsRecordSet = New = adOpenStatic = adUseClient = adLockPessimistic = connConnection End Sub 三、主窗體界面的設計 主窗體界面如圖４ 3 所示。API 函數(shù)聲明 Private Declare Function PlaySound Lib Alias PlaySoundA (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long 39。 圖 44 技術人才菜 單 1．當用戶單擊“錄入”時，將調(diào)出“技術人才錄入窗體” 完成技術人才信息保存。 控件設置 名稱 作用 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。數(shù)據(jù)錄入的工作流程如圖 46 所示。 窗體裝入 關閉關閉按鈕 確定數(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 查詢的模糊查詢 方法。查詢記錄 Set rsRecordSet2 = New = connConnection strcon = select * from 技術人才表 where strtext = strque = strcon amp。 amp。 39。在刪除數(shù)據(jù)的程序中對文本框的 Locked 屬性也作了相同的設定。 圖 48 技術信息人才刪除界面 代碼段如下： Private Sub Command4_Click() If blquery Then blquery = False 39。刪除沒有點擊 查詢 按鈕時的的記錄 End If 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。 amp。 39。Check to see if you are at the front of the record set. 39。This will prevent the user from moving to 39。Check to see if there is any data in the record set. MsgBox There is no data in the record set!, , Oops Else 39。to the first record. There are several other 39。loop the user to the last record by using 39。Check to see if there is any data in the recordset. MsgBox There is no data in the record set!, , Oops Else End If End If = True End Sub Private Sub Command4_Click() If blquery Then Call bind1 Else End If = False End Sub Private Sub Command5_Click() If bldat