【導(dǎo)讀】錄入、添加、修改、查詢等功能。快捷的查詢手段。一直以來(lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,信息管理系統(tǒng)。壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事。立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性。強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,具有良好的界面，易使。需求迭代,不斷修正和改進(jìn),直到形成方便可用的系統(tǒng)。

　　

【正文】 le As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) 2．判斷用戶權(quán)限 如果登陸的為普通用戶類型的用戶，則用戶不能使用“用戶管理”這一功能，而對(duì)于管 理員類型的用戶，則沒(méi)有此限制。所以在 MDIForm 的 Load 事件中需要判斷用戶類型。 Private Sub MDIForm_Load() (2).Text = 當(dāng)前操作員： amp。 LoginUser amp。 amp。 LoginPower amp。 If LoginPower = 普通用戶 Then = False (5).Enabled = False End If End Sub 3． Form 的 QueryUnload 事件 當(dāng)用戶要退出 MDI 窗體時(shí)，需要在 QueryUnload 事件中詢問(wèn)用戶是否真的要退出本系統(tǒng)；如果用戶不要退出，則將 Cancel 置為 1，取消整個(gè)退出過(guò)程。 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(確定要退出學(xué)生檔案管理系統(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ā)生。 當(dāng)一個(gè)應(yīng)用程序關(guān)閉時(shí)，可使用 QueryUnload 或 Unload 事件過(guò)程將 Cancel屬性設(shè)置為 True 來(lái)阻止關(guān)閉過(guò)程。但是， QueryUnload 事件是在任一個(gè)卸載之前在所有窗 體中發(fā)生，而 Unload 是在每個(gè)窗體卸載時(shí)發(fā)生。 在這兩個(gè)事件中，均可將 Cancel 設(shè)置為任何非零的值來(lái)防止窗體被刪除。但Unload 不能阻止其他事件，諸如從 Microsoft Windows 操作環(huán)境中退出等；而QueryUnload 事件則可以阻止從 Windows 中的退出。有介于此，通常來(lái)說(shuō)都是在QueryUnload 中詢問(wèn)用戶是否要退出當(dāng)前窗體。 4． .“重新登陸”子菜單的代碼 當(dāng)單擊了“重新登陸”或者按下了“ F2”鍵時(shí)，將會(huì)給出提示，如果用戶在提示框中按下了“確定”按鈕，則退出整個(gè) MDI 主 窗體，并顯示登陸窗體。 Private Sub filemenu15_Click() If MsgBox(若重新登陸，所有窗體都將關(guān)閉！是否重新登陸？ , vbYesNo + vbQuestion, 重新登陸 ) = vbYes Then Unload Me End If End Sub 5．“幫助主題”子菜單的代碼 調(diào)用 Windows API 函數(shù)，打開 幫助文件。 Private Sub filemenu21_Click() ShellExecute 0, open, amp。 \, , , 1 End Sub 6．當(dāng)用戶單擊查詢學(xué)生資料菜單項(xiàng)或者按下 F3 鍵時(shí)，將會(huì)出現(xiàn)“查找學(xué)生”窗體，供用戶查找滿足特定要求的學(xué)生信息。 Private Sub filemenu45_Click() 39。查找學(xué)生 1 End Sub 用戶管理窗體（ frmmanage） 向項(xiàng)目中添加窗體，并命名為 。窗體的控件設(shè)計(jì)如圖 所示 圖 用戶管理界面 如果登陸的用戶類型是管理員，用戶管理一項(xiàng)是可用的，當(dāng)單擊該子菜單時(shí)，將會(huì)出現(xiàn)用戶管理窗口，管理員可以對(duì)系統(tǒng)用戶進(jìn)行添加和刪除操作。 3． 3． 3． 1 窗體代碼設(shè)計(jì) 1． 定義一個(gè)整型變量 DelNO 用來(lái)存儲(chǔ)當(dāng)前系統(tǒng)用戶的數(shù)目，當(dāng) DelNO=1 時(shí)提示用戶不能再刪除用戶。在該窗體的通用部分寫如下代碼： Dim DelNO As Integer 2．窗體加載時(shí)，初始化 Listview 用以顯示系統(tǒng)用戶列表，代碼如下 Private Sub Form_Load() 39。初始化 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ù)用來(lái)顯示和刷新 Listview 中的數(shù)據(jù) Private Sub LoadOperator() On Error Resume Next Dim Listit As ListItem = lvwAuto = 3 Dim ef As New sqlstr = select * from UserInfo sqlstr, con, 1, 1 DelNO = Do While Not Set Listit = (, , (UserID)) (1) = *** 隱藏用戶的密碼，用 ***來(lái)替代。 (2) = ef(UserName) (3) = ef(UserPower) Loop Set ef = Nothing End Sub 3． 添加用戶 在 Textbox 中輸入了相應(yīng)的數(shù)據(jù)以后，按添加按鈕則調(diào)用該按鈕的 Click事件，代碼如下 當(dāng)單擊“添加”按鈕時(shí)，首先檢查輸入的用戶名和密碼是否為空，代碼如下： Private Sub Command4_Click() If Trim() = Then MsgBox 登陸用戶名不允許為空！ , vbOKOnly + 48, 提示： Exit Sub End If If InStr(1, Trim(), 39。, vbTextCompare) Then MsgBox 用戶姓名中有特殊字符 + 39。,請(qǐng)刪除。 , vbOKOnly + 48, 提示 ： Exit Sub End If If Trim() = Then MsgBox 密碼不能為空，請(qǐng)輸入密碼！ , vbOKOnly + 48, 提示： = = Exit Sub End If End Sub 如果不為空，則檢查用戶名是否有重復(fù)，需要打開系統(tǒng)信息表， Private Sub Command4_Click() ?? sqlstr = select * from UserInfo where UserID=39。 amp。 amp。 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() ?? Do While Not If = (UserID) Then MsgBox 已經(jīng) 存在 用戶名 為 amp。 Userid amp。 的 用戶 帳號(hào) , vbInformation Exit Sub End If Loop : Set rs = Nothing End Sub 如果沒(méi)有重復(fù)，再檢查兩次輸入的密碼是否一致，如果不一致，則提示“兩次密碼不一致”。 Private Sub Command4_Click() ?? If Trim() Trim() Then MsgBox 兩次密碼不相同，請(qǐng)重輸入！ , vbOKOnly + 48, 提示： = = Exit Sub End If End Sub 如果以上全部正確無(wú)誤的設(shè)置好了，則將新用戶的信息添加到數(shù)據(jù)表中，并提示“添加新用戶成功”。 Private Sub Command4_Click() sqlstr = insert into UserInfo(UserID,UserPWD,UserName,UserPower) sqlstr = sqlstr amp。 values(39。 amp。 Userid amp。 39。,39。 amp。 Userpwd amp。 39。, sqlstr = sqlstr amp。 39。 amp。 Username amp。 39。,39。 amp。Userpower amp。 39。) sqlstr MsgBox 添加用戶 amp。 amp。 成功 , vbOKOnly, 添加系統(tǒng)用戶 = = = = 39。更新列表 LoadOperator End Sub 4．刪除系統(tǒng)用戶 當(dāng)用戶雙擊 ListView 中的數(shù)據(jù)時(shí)，則會(huì)調(diào)用 DeleteRecord()函數(shù)，如果系統(tǒng)用戶只剩一個(gè)，則提示用戶不能再刪除；反之要求輸入您想要?jiǎng)h除的用戶的密碼，密碼正確時(shí)才可以將該用戶刪除，密碼錯(cuò)誤時(shí)則不采取任何措施；最后調(diào)用 LoadOperator 顯示并刷新 Listview 中的數(shù)據(jù)。根據(jù)以上的設(shè)計(jì)，DeleteRecord()的代碼如下： Private Sub DeleteRecord() 39。刪除用戶操作 On Error Resume Next If Then If DelNO = 1 Then MsgBox 只剩下一個(gè)用戶帳號(hào)，不允許再刪除！ , vbInformation ElseIf MsgBox(確定要?jiǎng)h除用戶名為 amp。 amp。 的用戶帳號(hào)嗎？ , vbYesNo + 32 + vbDefaultButton2) = vbYes Then sqlstr = select * from UserInfo where UserID=39。 amp。 amp。 39。 sqlstr, con, 1, 1 If MD5(InputBox(請(qǐng)輸入該用戶的密碼： )) = (UserPWD) Then sqlstr = delete from UserInfo where UserID=39。 amp。 amp。 39。 sqlstr Else MsgBox 對(duì)不起！您輸入的密碼不正確，刪除該用戶失??！ , vbInformation End If LoadOperator End If End If : Set rs = Nothing End Sub 修改密碼窗體（ frmchgPWD） 當(dāng)用戶要更改密碼時(shí)，單擊“系統(tǒng)選項(xiàng) /修改個(gè)人密碼”菜單，彈出如圖 所示窗體。在 MDI 主窗體編輯窗口中，單擊“系統(tǒng)選項(xiàng) /修改個(gè)人密碼”，添加如下代碼： Private Sub filemenu12_Click() 39。修改密碼界面 1 End Sub 圖 修改用戶密碼 當(dāng)用戶輸入完畢時(shí)，單擊“確定”按鈕，引發(fā) Click 事件。這時(shí)，先檢查兩次輸入的密碼是否一致，如果不一致，則提示用戶，將焦點(diǎn)設(shè)置到第二個(gè) Text2控件，后面兩 個(gè)文本框清空，代碼如下： Private Sub Command1_Click() D