【正文】 字段 Parametes對(duì)象：表示 Command 對(duì)象的參數(shù)。 用來操縱數(shù)據(jù)的 SQL 命令 SQL 命令是發(fā)送給數(shù)據(jù)庫并要求數(shù)據(jù)庫操作的指令，它是專門為數(shù)據(jù)庫設(shè)計(jì)的語言，比一般的計(jì)算機(jī)程序語言簡(jiǎn)單的多。 1． 2． 4 Visual Basic 訪問數(shù)據(jù)庫的過程 ①定義數(shù)據(jù)庫組建 Dim con As New ②打開數(shù)據(jù)庫 對(duì)于 SQL 數(shù)據(jù)庫，其連接語句為 driver={sql server}。database=student。本數(shù)據(jù)庫采用 SQL Server 20xx 來構(gòu)造，共使用了 7個(gè)表，它們分別是用戶信息表（ UserInfo）、 員工 信息表（ StuInfo）、部門 信息表（ Class）、職 業(yè)信息表（ Major）、公司 信息表（ Depart）、職位 信息表（ Lesson）、 員工 業(yè) 績(jī)表（ Result）。 3． 1 準(zhǔn)備工作 1． 添加引用：?jiǎn)螕艄こ滩藛沃械囊眠x項(xiàng)，添加 Microsoft ActiveX Data Objects Library 和 Microsoft Excel Object Library 兩個(gè)引用。+\ End If End Sub 在 module2 中添加代碼 (MD5 算法 ) 詳細(xì)代碼見程序中 3． 3 用戶界面實(shí)現(xiàn) 3． 3． 1 登陸界面 (frmlogin) 因?yàn)楸鞠到y(tǒng)是按 員工檔案 管理的思想設(shè)計(jì)的，故而登陸部分主要完成密碼校驗(yàn)、確定管理員等功能，對(duì)于密碼本系統(tǒng)采用的是 MD5 算法。 利用 SQL 語句，在數(shù)據(jù)庫中查詢，如果查到相應(yīng)的記錄，則調(diào)用 Case 0 事件，15 用戶的登陸獲得通過，此時(shí)可以退出登陸窗口，并進(jìn)入 MDI 主窗口，同時(shí)將用戶類型和用戶名分別傳遞到 MDI 主窗口和 frmmanage 中；如果沒有相應(yīng)的記錄，則給出提示錯(cuò)誤信息，同時(shí)將用戶輸入錯(cuò)誤密碼次數(shù)增加 1，如果錯(cuò)誤超過 3次，則退出整個(gè)系統(tǒng)；若次數(shù) 還沒有超過 3 次，則提示用戶重新輸入。 39。 , vbInformation Unload Me Exit Sub End If ?? Else LoginUser = Userid 39。它有一個(gè)父窗口，在典型情況下，父窗口用來顯示程序菜單以及包含子窗口。 Private Declare Function ShellExecuteamp。 LoginUser amp。 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(確定要退出員工 檔案管理系統(tǒng)嗎？是 /否 , vbYesNo+vbQuestion+ vbDefaultButton1) = vbNo Then Cancel = 1 End If End Sub QueryUnload 和 Unload 事件 當(dāng)一個(gè)子窗體或一個(gè) Form 對(duì)象關(guān)閉時(shí)，在那個(gè)窗體中的 QueryUnload 事件先于該 窗體的 Unload 事件發(fā)生， Unload 事件在 Terminate 事件之前發(fā)生。但 Unload 不能阻止其他事件，諸如從 Microsoft Windows 操作環(huán)境中退出等；而 QueryUnload 事件則可以阻止從 Windows 中的退出。 Private Sub filemenu21_Click() ShellExecute 0, open, amp。查找員工 1 End Sub 3． 3． 3 用戶管理窗體（ frmmanage） 向項(xiàng)目中添加窗體，并命名為 。初始化 ListView Dim clmX As ColumnHeader Set clmX = (, , 用戶名 , / 3) Set clmX = (, , 密碼 , / 6, 2) Set clmX = (, , 姓名 , / 4, 2) Set clmX = (, , 用戶權(quán)限 , / 4, 2) 普通用戶 超級(jí)用戶 = 0 LoadOperator End Sub 其中調(diào)用了 LoadOperator 函數(shù)，該函數(shù)用來顯示和刷新 Listview 中的數(shù)據(jù) Private Sub LoadOperator() On Error Resume Next Dim Listit As ListItem = lvwAuto = 3 Dim ef As New 20 sqlstr = select * from UserInfo sqlstr, con, 1, 1 DelNO = Do While Not Set Listit = (, , (UserID)) (1) = *** 隱藏用戶的密碼，用 ***來替代。 , vbOKOnly + 48, 提示： Exit Sub End If If Trim() = Then MsgBox 密碼不能為空，請(qǐng)輸入密碼！ , vbOKOnly + 48, 提示： = 21 = Exit Sub End If End Sub 如果不為空，則檢查用戶名是否有重復(fù)，需要打開系 統(tǒng)信息表， Private Sub Command4_Click() ?? sqlstr = select * from UserInfo where UserID=39。 sqlstr, con, 1, 1 End Sub 如果當(dāng)前記錄不為空，則逐條記錄檢查是否有重復(fù) Private Sub Command4_Click() ?? Userid = Trim() Userpwd = MD5(Trim()) Username = Trim() Userpower = Trim() DelNO = Do While Not ?? Loop ?? End Sub 如果有重復(fù)，則提示已存在這個(gè)用戶，然后將焦點(diǎn)設(shè)置給 Text1，并將所有的文本框清空。 Private Sub Command4_Click() ?? If Trim() Trim() Then MsgBox 兩次密碼不相同，請(qǐng)重輸入！ , vbOKOnly + 48, 提示： = = Exit Sub End If End Sub 如果以上全部正確無誤的設(shè)置好了，則將新用戶的信息添加到數(shù) 據(jù)表中，并提示“添加新用戶成功”。 Userid amp。 Userpwd amp。 amp。 amp。 amp。刪除用戶操作 On Error Resume Next If Then If DelNO = 1 Then MsgBox 只剩下一個(gè)用戶帳號(hào)，不允許再刪除！ , vbInformation ElseIf MsgBox(確定要?jiǎng)h除用戶名為 amp。 amp。 amp。刪除用戶 DeleteRecord End Sub 3． 3． 4 修 改密碼窗體（ frmchgPWD） 當(dāng)用戶要更改密碼時(shí)，單擊“系統(tǒng)選項(xiàng) /修改個(gè)人密碼”菜單，彈出如圖 所示窗體。然后打開數(shù)據(jù)庫，并將新密碼寫入，提示用戶密碼修改成功 。 39。 39。 39。具體設(shè)置如表 所示 對(duì)象 屬性 設(shè)置 Form Name Frmstu Caption 員工 檔案管理 BorderStyle 2Sizable 27 MDIChild True WindowState 2Maximized Treeview Style tvwTreelinesPlusMinusPictureText Listview FullRowSelect True GridLines True MultiSelect False ToolTipText 雙擊顯示詳細(xì)資料 Image Name imgSplit Picturebox Name SliptBar 表 FrmStu 中部分控件的屬性 當(dāng)窗體啟動(dòng)時(shí)，需要在 Treeview 中加載班級(jí)列表，并初始化 Listview 中的標(biāo)題。設(shè)置 Width 屬性 If X 1500 Then X = 1500 28 If X ( 1500) Then X = 1500 = X = X = X + 50 = ( + 100) = 50 = = = = End Sub 單擊 Treeview 中的部門 號(hào) 碼 則調(diào) 用 TreeView_NodeClick 事件和ListviewLoad 事件在 Listview 中顯示該部門下面員工 的信息列表 。 amp。 在本系統(tǒng)中，在系統(tǒng)默認(rèn)情況下，部門編號(hào)作為身份證號(hào)的前面六位。 Private Sub pop3_Click() 39。顯示窗口 Dim EditNum As String If Then EditNum = CStr() Call (EditNum) Else Exit Sub End If End Sub 刪除員工 資料的設(shè)計(jì)思路： 在刪除記錄之前彈出詢問框，確認(rèn)用戶是否真的要?jiǎng)h除當(dāng)前記錄，如果用戶選擇了“是”，則刪除該條記錄，否則就不執(zhí)行任何操作。刪除員工 資料 Call End Sub Public Sub DelStu() If Then If MsgBox(確定要?jiǎng)h除身份證 號(hào)為 amp。 amp。為此，設(shè)計(jì)詳細(xì)信息框，來羅列用戶的各種詳細(xì)信息。顯示出該 員工 全部信息表單 Call (SelectNum) Else Exit Sub End If End If End Sub 在 frmstuinfo 的代碼窗口中添入以下代碼用來顯示該員工 的詳細(xì)資料。 39。根據(jù)以上設(shè)計(jì)，在 Form_Load 中添加如下代碼： Private Sub Form_Load() 39。A） EditStu(0).Text = classid EditStu(0).SelStart = 6 Else = 修改 身份證號(hào) 為 amp。 amp。把數(shù)據(jù)代入 文本框中 EditStu(0).Text = (SID) 34 EditStu(1).Text = (SName) EditStu(2).Text = (SBirthday) EditStu(3).Text = (SPlace) EditStu(4).Text = (SAddress) EditStu(5).Text = (SCode) EditStu(6).Text = (STel) EditStu(7).Text = (SDormitory) EditStu(8).Text = (SRemark) If (SGender) = 男 Then = 0 ElseIf (SGender) = 女 Then = 1 End If If (SZhengzhi) = Then = 0 ElseIf (SZhengzhi) = 團(tuán)員 Then = 1 ElseIf (SZhengzhi) = 黨員 Then = 2 ElseIf (SZhengzhi) = 預(yù)備黨員 Then = 3 End If Select Case (SMinzu) Case 漢族 : = 0 Case 瑤族 : = 1 Case 土家族 : = 2 Case 侗族 : = 3 Case 白族 : = 4 Case 苗族 : = 5 Case 回族 : = 6 Case 壯族 : = 7 35 End Select : Set rs = Nothing End I