【正文】 alse = False = False Else 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 您沒有輸入權限 ！ , 16, 出錯 ： End If End If End If End If End Sub Private Sub Command2_Click() If = True Or = True Then MsgBox 數據庫中沒有記錄！ , 16, 出錯： Else End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() If = True And Then MsgBox 數據庫中沒有記錄！ , 16, 出錯： Else If = 查詢 Then = True = False = False = False = False = 查詢完畢 = Else = False = True = True = True = True = 查詢 = End If End If End Sub Private Sub Command5_Click() If = True Or = True Then MsgBox 數據庫中沒有記錄！ , 16, 出錯： Else If = 修改 Then = 修改完畢 = 修改記錄 ： = True = False = False = False = False Else If = Or = Then X = MsgBox(您沒有輸入用戶名或密碼，要刪除嗎？ , 17, 出錯： ) If X = 1 Then = 123 = 123 Else Exit Sub End If Else If = 1 Or = 1 Then = False = 修改 = True = True = True = True Else MsgBox 您沒有輸入權限 ！ , 16, 出錯 ： End If End If End If End If End Sub Private Sub Command6_Click() = 1 For X = 1 To 1 If = True Then MsgBox 沒有找到記錄！ , 64, 提示： Else If Trim() = Trim() Then Exit Sub Else X = X 1 End If End If Next X End Sub Private Sub Command7_Click() For X = 1 To 1 If = True Then MsgBox 沒有找到記錄！ , 64, 提示： = 1 Else If Trim() = Trim() Then Exit Sub Else X = X 1 End If End If Next X End Sub Private Sub Form_Unload(Cancel As Integer) If = True Then Cancel = 0 Else MsgBox 請編 輯完這條記錄再退出 ！ , 64, 提示 ： Cancel = 1 End If End Sub 摸塊保稱 功能說明 1 錄入 對客戶關系信息進行錄入 2 查詢 對客戶關系信息進行查詢 3 用戶管理 對系統(tǒng)用戶名和密碼進行修改和刪除等操作 4 系統(tǒng) 退出系統(tǒng) 謝辭 在本次畢業(yè)設計中，我從指導老師 楊老師身上學到了很多東西。楊老師認真負責的工作態(tài)度，嚴謹的治學精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高 這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。 另外，在系統(tǒng)開發(fā)過程中助手同學也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給與我不少幫助，這里一并表示感謝。 主要參考文獻 [1] Visual Basic 使用指南 作者 ： Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文版 Microsoft Office 2020 自學通 作者： Ned Snell 出版 社：機械工業(yè)出版社 [3] Visual Basic 中文版控件大全 作者： Microsoft 出版社；電子工業(yè)出版社 [4] 中文 Access 2020 24學時教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機械工業(yè)出版社 [5]、《中文版 Access2020 入門及提高》 作者：王成輝 . And what numberless and powerful causes tend to destroy these rare natures! What causes? In the first place there are their own virtues, their courage, temperance, and the rest of them, every one of which praise w orthy qualities (and this is a most singular circumstance) destroys and distracts from philosophy the soul which is the possessor of them. That is very singular, he replied. Then there are all the ordinary goods of life beauty, wealth, strength, rank, and great connections in the State you understand the sort of things these also have a corrupting and distracting effect. I understand。 but I should like to know more precisely what y ou mean about them. Grasp the truth as a whole, I said, and in the right way。 you will then have no difficulty in apprehending the preceding rema rks, and they will no longer appear strange to you. And how am I to do so? he asked. Why, I said, we know that all germs or seeds, whether vegetable or animal, when they fail to meet with proper nutriment or climate or soil, in proporti on to their vigour, are all the more sensitive to the want of a suitable environment, for evil is a greater enemy to what is good than what is not. Very true. There is reason in supposing that the finest natures, when under alien conditions, receive more injury than the inferior, bec ause the contrast is greater. Certainly. And may we not say, Adeimantus, that the most gifted minds, when they are illeducated, bee preeminently bad? Do not great crimes and the spirit of pure evil spring out of a fulness of nature ruined by education rather than from any inferiority, whereas weak natures are scarcely capable of any very great good or very great evil? There I think that you are right. And our philosopher follows the same analogy he is like a plant which, having proper nurture, must necessarily grow and mature into all virtue, but, if sown and planted in an alien soil, bees the most noxious of all weeds, unless he be preserved by some divine power. Do you really think, as people so often say, that our youth are corrupted by Sophists, or tha t private teachers of the art corrupt them in any degree worth speaking of ? Are not the public who say these things the greatest of all Sophists? And do they not educate to perfection young and old, men and women alike, and fashion them after their own hearts? When is this acplished? he said. When they meet together, and the world si