客戶關(guān)系信息管理系統(tǒng)—免費(fèi)畢業(yè)設(shè)計(jì)論文-資料下載頁(yè)

【導(dǎo)讀】客戶關(guān)系信息管理系統(tǒng)。學(xué)科專業(yè)計(jì)算機(jī)科學(xué)與技術(shù)

　　

【正文】 在這里，有幾個(gè)實(shí)用的功能，一是系統(tǒng)密碼修改功能，以防止系統(tǒng)的密碼泄露之后，管理員能夠及時(shí)地進(jìn)行密碼更新，以防系統(tǒng)的資料被別人竊取和修改。 代碼如下 ： Private Sub Command1_Click() If = True And = True Then MsgBox 您輸入的第一個(gè)管理員是系統(tǒng)管理員 ， 是用來(lái)設(shè)置用戶的 ， 請(qǐng)不要?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ù)庫(kù)中沒有記錄！ , 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ù)庫(kù)中沒有記錄！ , 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ù)庫(kù)中沒有記錄！ , 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 請(qǐng)編輯完這條記錄再退出 ！ , 64, 提示 ： Cancel = 1 End If End Sub 具體 操作步驟 摸塊保稱 功能說(shuō)明 1 錄入 對(duì)客戶關(guān)系信息進(jìn)行錄入 2 查詢 對(duì)客戶關(guān)系信息進(jìn)行查詢 3 用戶管理 對(duì)系統(tǒng)用戶名和密碼進(jìn)行修改和刪除等操作 4 系統(tǒng) 退出系統(tǒng) 第五章 ． 結(jié)束語(yǔ) 經(jīng)過(guò)一個(gè)多月的設(shè)計(jì)和開發(fā) ， 圖書管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠 實(shí)現(xiàn)圖書信息的錄入、更新、刪除、打印等基本功能，從而實(shí)現(xiàn)圖書的管理。 對(duì)于數(shù)據(jù)的一致性的問題也通過(guò)程序進(jìn)行了有效的解決。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出 錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。 致謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師 楊老師身上學(xué)到了很多東西。楊老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在系統(tǒng)開發(fā)過(guò)程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 第六章．主要參考文獻(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 入門及提高》 作者：王成輝 . 54 Of Vainglory It was prettily devised of Aesop。 the fly sat upon the axletree of the chariot wheel, and said. What a dust do I raise? So are there some vain persons, that whatsoever goeths indeed! They could tell us something worth hearing, if they only knew how to talk. It39。s really a pleasure now and then to bee a mere nothing, especially when a man is as highly placed as I am. And then to think that we all, even with patent lacquer, are nothing more than insects of a moment on that anthill the earth, though we may be insects with stars and garters, places and offices! One feels quite a novice beside these venerable millionyearold boulders. On last New Year39。s eve I was reading the book, and had lost myself in it so pletely, that I fot my usual New Year39。s diversion, namely, the wild hunt to Amack. Ah, you don39。t know what that is! The journey of the witches on broomsticks is well enough known that journey is taken on St. John39。s eve, to the Brocken。 but we have a wild journey, also which is national and modern, and that is the journey to Amack on the night of the New Year. All indifferent poets and poetesses, musicians, newspaper writers, and artistic notabilities, I mean those who are no good, ride in the New Year39。s night through the air to Amack. They sit backwards on their painting b all lapse of time, and had bee a cipher and a nothing. Then three alone, or moveth upon greater means, if they have never so little hand in it, they think it is they that carry it They that are glorious, must needs be factious。 for all bravery stands upon parisons. They must needs be violent, to make good their own vaunts. Neithe r can they be secret, and therefore not effectual。 but according to die French proverb。 beaucoup de bruit, peu de fruit: much bruit, little fruit Yet certainly there is use of this quality, in civil affairs. Where there is an