【正文】 錄 = True = True = True39。 = True = 5728 = 600 = 1500 = False = 數(shù)據(jù)輸入：End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If = Or = ThenMsgBox 名稱和管理員不能為空！, 16, 出錯：ElseMsgBox 成功保存！, 64, 恭喜！ = True = True39。 = TrueEnd IfEnd SubPrivate Sub Command3_Click() = True = True = True = True = True = True = TrueIf = Or = ThenMsgBox 名稱和管理員不能為空！, 16, 出錯： = ElseMsgBox 開始新建群組！, 64, 恭喜！ = False = False = FalseEnd IfEnd SubPrivate Sub Command4_Click()If = True And = True ThenMsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！, 16, 出錯！ElseMsgBox 您確定要刪除這條信息？, 32, 提示！If = False ThenElseMsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！, 16, 出錯！End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)If = True ThenCancel = 0ElseMsgBox 請編輯完這條記錄再退出！, 64, 提示： Cancel = 1End IfEnd Sub4．6 用戶管理一個完整的應(yīng)用系統(tǒng)，必須要能夠具備適當?shù)挠脩艄芾砉δ?，以防系統(tǒng)數(shù)據(jù)的安全。在這里，有幾個實用的功能，一是系統(tǒng)密碼修改功能，以防止系統(tǒng)的密碼泄露之后，管理員能夠及時地進行密碼更新，以防系統(tǒng)的資料被別人竊取和修改。代碼如下：Private Sub Command1_Click()If = True And = True ThenMsgBox 您輸入的第一個管理員是系統(tǒng)管理員，是用來設(shè)置用戶的，請不要刪除！, 64, 提示： = 1 = False = FalseEnd IfIf = 添加 Then = 0 = 0 = True = 添加完畢 = False = False = False = FalseElse If = And = Then MsgBox 您沒有輸入用戶名或密碼！, 16, 出錯： = 123 = False = 添加 = 當前記錄： = True = True = True = True Else If = 1 Then = False = 添加 = True = True = True = True = True = True = 2 Else If = 1 Or = 1 Then = False = 添加 = True = True = True = True Else MsgBox 您沒有輸入權(quán)限！, 16, 出錯： End If End If End IfEnd IfEnd SubPrivate Sub Command2_Click()If = True Or = True ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Command4_Click()If = True And ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseIf = 查詢 Then = True = False = False = False = False = 查詢完畢 = Else = False = True = True = True = True = 查詢 = End IfEnd IfEnd SubPrivate Sub Command5_Click()If = True Or = True ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseIf = 修改 Then = 修改完畢 = 修改記錄： = True = False = False = False = FalseElseIf = Or = ThenX = MsgBox(您沒有輸入用戶名或密碼，要刪除嗎？, 17, 出錯：) If X = 1 Then = 123 = 123 Else Exit Sub End IfElse If = 1 Or = 1 Then = False = 修改 = True = True = True = True Else MsgBox 您沒有輸入權(quán)限！, 16, 出錯： End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command6_Click() = 1For X = 1 To 1If = True ThenMsgBox 沒有找到記錄！, 64, 提示：Else If Trim() = Trim() Then Exit Sub Else X = X 1 End IfEnd IfNext XEnd SubPrivate Sub Command7_Click()For X = 1 To 1If = True ThenMsgBox 沒有找到記錄！, 64, 提示： = 1Else If Trim() = Trim() Then Exit Sub Else X = X 1 End IfEnd IfNext XEnd SubPrivate Sub Form_Unload(Cancel As Integer)If = True ThenCancel = 0ElseMsgBox 請編輯完這條記錄再退出！, 64, 提示： Cancel = 1End IfEnd Sub 摸塊保稱功能說明1錄入對客戶關(guān)系信息進行錄入2查詢對客戶關(guān)系信息進行查詢3用戶管理對系統(tǒng)用戶名和密碼進行修改和刪除等操作4系統(tǒng)退出系統(tǒng)第五章．結(jié)束語經(jīng)過一個多月的設(shè)計和開發(fā)，圖書管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠?qū)崿F(xiàn)圖書信息的錄入、更新、刪除、打印等基本功能，從而實現(xiàn)圖書的管理。對于數(shù)據(jù)的一致性的問題也通過程序進行了有效的解決。但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進一步改善。 致謝在本次畢業(yè)設(shè)計中，我從指導老師 楊老師身上學到了很多東西。楊老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。另外，在系統(tǒng)開發(fā)過程中助手同學也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給與我不少幫助，這里一并表示感謝。 第六章．主要參考文獻[1] Visual Basic 使用指南 作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：電子工業(yè)出版社[2] 中文版Microsoft Office 2000 自學通作者：Ned Snell出版社：機械工業(yè)出版社[3] Visual Basic 中文版控件大全作者：Microsoft出版社；電子工業(yè)出版社[4] 中文Access 2000 24學時教程 作者：Craig Eddy ，Timothy Buchanan出版社：機械工業(yè)出版社[5]、《中文版Access2002入門及提高》作者：王成輝. 45 /