【正文】 第六章．主要參考文獻[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 / 45。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。 致謝在本次畢業(yè)設計中，我從指導老師 楊老師身上學到了很多東西。但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯機文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。其功能基本符合用戶需求，能夠實現圖書信息的錄入、更新、刪除、打印等基本功能，從而實現圖書的管理。在這里，有幾個實用的功能，一是系統(tǒng)密碼修改功能，以防止系統(tǒng)的密碼泄露之后，管理員能夠及時地進行密碼更新，以防系統(tǒng)的資料被別人竊取和修改。 = True = 5728 = 600 = 1500 = False = 數據輸入：End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If = Or = ThenMsgBox 名稱和管理員不能為空！, 16, 出錯：ElseMsgBox 成功保存！, 64, 恭喜！ = True = True39。代碼如下：Private Sub Command1_Click()If = True ThenMsgBox 這已經是第一條信息了！, 16, 出錯：ElseEnd IfEnd SubPrivate Sub Command2_Click()If = True ThenMsgBox 已經到最后一條記錄了！, 16, 提示！ElseEnd IfEnd SubPrivate Sub Command3_Click()If = True ThenMsgBox 這已經是第一條信息了！, 16, 出錯：ElseEnd IfEnd SubPrivate Sub Command4_Click()If = True ThenMsgBox 已經到最后一條記錄了！, 16, 提示！ElseEnd IfEnd SubPrivate Sub Command5_Click()If = ThenMsgBox 沒有輸入查詢條件！, 16, 提示！ = End IfDo While TrueIf (姓名).Value = Then = (姓名).ValueExit DoEnd IfLoop = End SubPrivate Sub Command6_Click()If = ThenMsgBox 沒有輸入查詢條件！, 16, 提示！ = End IfDo While TrueIf (客戶編號).Value = Then = (客戶編號).ValueExit DoEnd IfLoop = End Sub：進行對群組消費客戶管理，以實現大客戶的維護管理以及完善售后服務工作。MsgBox 刷新成功！, 16, 恭喜：End SubPrivate Sub Command5_Click() = True = True = True = True = True = True = True = True = True = True = TrueIf = Or = ThenMsgBox 編號或姓名不能為空！, 16, 出錯： = = 男ElseMsgBox 開始添加信息！, 64, 恭喜！ = False = False = FalseEnd IfEnd SubPrivate Sub Command6_Click()If = True And = True ThenMsgBox 您的數據庫中沒有信息可以刪除！, 16, 出錯！ElseMsgBox 您確定要刪除這條信息？, 32, 出錯！If = False ThenElse39。 = False39。 = 60039。 = True39。 = True39。 = 修改記錄39。 = True39。 = False39。 = False39。代碼如下：Private Sub Command1_Click() = True = True = True = True = True = True = True = True = True = True = TrueIf = True ThenIf = True And = True ThenMsgBox 您的數據庫中沒有記錄！, 16, 出錯：ElseIf = 修改記錄 Then39。關閉當前窗體End SubPrivate Sub a2_Click()Unload MeEnd SubPrivate Sub a3_Click() = 9345 = 12870End SubPrivate Sub b1_Click() = 8355 = 13710End SubPrivate Sub bz_Click()End SubPrivate Sub c1_Click() = 9510 = 13875End SubPrivate Sub C2_Click() = 6795 = 10020 = True = 輸入群組名進行查詢End SubPrivate Sub c3_Click() = 收入查詢 = 4200 = 4081 = 495 = 2055 = 輸入名稱End SubPrivate Sub cz_Click() 2End SubPrivate Sub dc_Click() 0End SubPrivate Sub glysx_Click()End SubPrivate Sub gy_Click()End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim YesNo As Integer Dim M As Single YesNo = MsgBox(真的要退出系統(tǒng)嗎？, vbYesNo + vbQuestion, 提示) If YesNo = vbYes Then EndTxt = True Unload Me Else Cancel = 1 End IfEnd SubPrivate Sub pp_Click() 1End SubPrivate Sub stsz_Click() = 6930 = 8400End SubPrivate Sub tc_Click() Unload Me End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case key1 = 8355 = 13710Case key2 = 9510 = 13875Case key3 = 6795 = 10020 = True = 輸入群組名進行查詢Case key4Case key7 = 6930 = 8400Case key6 Unload Me End SelectEnd Sub：本應用模塊的主要功能是實現對客戶個人信息的錄入系統(tǒng)操作，如編號，姓名，性別，性別等基本操作。EndEnd SubPrivate Sub Form_Load() = End Sub4．2系統(tǒng)主界面：在系統(tǒng)登錄成功之后，就會看到系統(tǒng)的主界面如下所示：在本系統(tǒng)主界面中，我們可以看到一個MDI窗體，用戶在使用時只需要點擊鼠標左鍵就可以進入相應的功能選項，快捷而方便，從這個窗體上可以清楚地看到本系統(tǒng)所具備的三個主要主要功能，即客戶數據錄入，客戶數據查詢及設置三大功能模塊。錯誤出現3次， If = True Then MsgBox 密碼錯誤請重新登錄, 16, 錯誤： = = = 1 39。代碼如下：Private Sub Command1_Click()If Trim() = Trim() And Trim() = Trim() Then 39。需要通過系統(tǒng)管理驗證，即輸入正確的密碼進行系統(tǒng)登陸，本系統(tǒng)默認的密碼為0。(1)本系統(tǒng)中所涉及到的主要實體及其屬性有：