【正文】 alse = False = False Else If = And = Then MsgBox 您沒有輸入用戶名或密碼！ , 16, 出錯： = 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, 出錯 ： End If End If End If End If End Sub Private Sub Command2_Click() If = True Or = True Then MsgBox 數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： 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, 出錯： 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, 出錯： 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 您沒有輸入權(quán)限 ！ , 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 錄入 對客戶關(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é)到了很多東西。楊老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高 這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在系統(tǒng)開發(fā)過程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 主要參考文獻(xiàn) [1] Visual Basic 使用指南 作者 ： Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文版 Microsoft Office 2021 自學(xué)通 作者： Ned Snell 出版 社：機(jī)械工業(yè)出版社 [3] Visual Basic 中文版控件大全 作者： Microsoft 出版社；電子工業(yè)出版社 [4] 中文 Access 2021 24學(xué)時教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機(jī)械工業(yè)出版社 [5]、《中文版 Access2021 入門及提高》 作者：王成輝 . In the late summer of that year we lived in a house in a village that looked across the river and the plain to the mountains. In the bed of the river there were pebbles and boulders, dry and white in the sun, and the water was clear and swiftly moving and blue in the channels. Troops went by the house and dow n the road and the dust they raised powdered the leaves of the trees. The trunks of t he trees too were dusty and the leaves fell early that year and we saw the troops marching along the road and the dust rising and leaves, stirred by the breeze, falling and the soldiers marching and afterward the road bare and white except for the leaves. The plain was r ich with crops。 there were many orchards of fruit trees and beyond the plain the mountains were brown and bare . There was fighting in the mountains and at night we could see the flashes from the artillery. In the dark it was like summer lightning, but the nights were cool and there was not the feeling of a storm ing. Sometimes in the dar k we heard the troops marching under the window and guns going past pulled by motor tractors. There was much traffic at night and many mules on the roads with boxes of ammunition on each side of their pac ksaddles and gray motor trucks that carried men, and other trucks w ith loads covered with canvas that moved slower in the traf fic. There were big guns too that passed in the day drawn by tractors, the lon g barrels of the guns covered with green branches and green leafy branches and vines laid over the tractors. To the north we could look across a valley and see a forest of chestnut trees and behind it another mountain on this side of the river. There was fighting for that mountain too, but it was not successful, and in the fall when the rains came the leaves all fell from the chestnut trees and the branches were bare and the trunks black w ith rain. The vineyards were thin and bare branched too and all the country wet and brown and dead with the autumn. There were mists over the river and clouds on the mountain and the truc ks splashed mud on the road and the troops were muddy and wet in their capes。 their rifles were wet and under their capes the two leather cartridgeboxes on the front of the belts, gray leather boxes heavy with the packs of clips of thin, long mm. cartridges, bulged forward under the capes so that the men, passing on the road, marched as though they were six months gone with