【正文】 s history that I would prefer not to ha ve known. I was sitting quietly in the room next to my parents39。s bed. She looked so pink and wrinkled to me that I did not see how the inspector could have been quite sure about her. However, there was nothing obviously wrong with her, so she had got her certificate. Nobody could blame the inspector for that。 my father was perfectly well aware of that, too. At last Petra39。s room. Then followed the worst wait of all. Mary said afterwards that he hummed and ha39。 主要參考文獻(xiàn) [1] Visual Basic 使用指南 作者 ： Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文版 Microsoft Office 2020 自學(xué)通 作者： Ned Snell 出版 社：機(jī)械工業(yè)出版社 [3] Visual Basic 中文版控件大全 作者： Microsoft 出版社；電子工業(yè)出版社 [4] 中文 Access 2020 24學(xué)時(shí)教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機(jī)械工業(yè)出版社 [5]、《中文版 Access2020 入門及提高》 作者：王成輝 . t was not until midafternoon that the inspector ambled up on his pony. My father pulled himself together, and went out to receive him。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高 這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 代碼如下： Private Sub Command1_Click() If = True And = True Then MsgBox 您輸入的第一個(gè)管理員是系統(tǒng)管理員，是用來 設(shè)置用戶的，請不要?jiǎng)h除！ , 64, 提示： = 1 = False = False End If If = 添加 Then = 0 = 0 = True = 添加完畢 = False = False = False = False Else If = And = Then MsgBox 您沒有輸入用戶名或密碼！ , 16, 出錯(cuò)： = 123 = False = 添加 = 當(dāng)前記 錄 ： = 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, 出錯(cuò) ： End If End If End If End If End Sub Private Sub Command2_Click() If = True Or = True Then MsgBox 數(shù)據(jù)庫中沒有記錄！ , 16, 出錯(cuò)： Else End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() If = True And Then MsgBox 數(shù)據(jù)庫中沒有記錄！ , 16, 出錯(cuò)： 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 數(shù)據(jù)庫中沒有記錄！ , 16, 出錯(cuò)： Else If = 修改 Then = 修改完畢 = 修改記錄 ： = True = False = False = False = False Else If = Or = Then X = MsgBox(您沒有輸入用戶名或密碼，要?jiǎng)h除嗎？ , 17, 出錯(cuò)： ) If X = 1 Then = 123 = 123 Else Exit Sub End If Else If = 1 Or = 1 Then = False = 修改 = True = True = True = True Else MsgBox 您沒有輸入權(quán)限 ！ , 16, 出錯(cuò) ： 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 錄入 對客戶關(guān)系信息進(jìn)行錄入 2 查詢 對客戶關(guān)系信息進(jìn)行查詢 3 用戶管理 對系統(tǒng)用戶名和密碼進(jìn)行修改和刪除等操作 4 系統(tǒng) 退出系統(tǒng) 謝辭 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師 楊老師身上學(xué)到了很多東西。 = True End If End Sub Private Sub Command3_Click() = True = True = True = True = True = True = True If = Or = Then MsgBox 名稱和管理員不能為空！ , 16, 出錯(cuò)： = Else MsgBox 開始新建群組！ , 64, 恭喜！ = False = False = False End If End Sub Private Sub Command4_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯(cuò)！ Else MsgBox 您確定要?jiǎng)h除這條信息？ , 32, 提示！ If = False Then Else MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯(cuò)！ End If End If End Sub Private Sub Form_Unload(Cancel As Integer) If = True Then Cancel = 0 Else MsgBox 請編輯完這條記錄再退出！ , 64, 提示： Cancel = 1 End If End Sub 4． 6 用戶管理 一個(gè)完整的應(yīng)用系統(tǒng)，必須要能夠具備適當(dāng)?shù)挠脩艄芾砉δ?，以防系統(tǒng)數(shù)據(jù)的安全。 代碼如下： Private Sub Command1_Click() = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有記錄！ , 16, 出錯(cuò)： Else If = 修改記錄 Then = 設(shè)置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄： Else If = Then MsgBox 姓名不能為空！ , 16, 出錯(cuò)： Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長 , 16, 出錯(cuò)： Exit Sub End If Next X = 修改記錄 = True = True = True 39。MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯(cuò)！ End If End If End Sub Private Sub Command7_Click() If = Or = Then MsgBox 編號或姓名不能為空！ , 16, 出錯(cuò)： = Else MsgBox 信息保存完畢！ , 16, 恭喜！ = True = True = True End If End Sub Private Sub Command8_Click() Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) If = True Then Cancel = 0 Else MsgBox 請編輯完這條