【正文】 ............. 13 軟件模塊結(jié)構(gòu)設(shè)計 ....................................................................................................... 15 數(shù)據(jù)庫設(shè)計 .................................................................................................................. 17 第四章 系統(tǒng)功能實現(xiàn) .............................................................................................................. 19 系統(tǒng)登陸界面： ........................................................................................................... 19 系統(tǒng)主界面： .............................................................................................................. 21 客戶信息管理： ........................................................................................................... 26 客戶信息查詢： ........................................................................................................... 32 群組設(shè)置： .................................................................................................................. 35 用戶 管理 .................................................................................................................... 40 謝辭 ......................................................................................................................................... 45 主要參考文獻 ........................................................................................................................... 45 前 言 企業(yè)通過設(shè)計合理的專業(yè)性客戶關(guān)系信息管理系統(tǒng) ,可以合理控制客戶關(guān)系信息各個環(huán)節(jié) ,提高資金的利用率和結(jié)算速度 ,實現(xiàn)管理的高效率、實時性 、安全性、科學(xué)化、現(xiàn)代化和智能化。 摘 要 隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實施在技術(shù)上已逐步成熟。信息和材料、能源一樣成為一種社會的基本生產(chǎn)資料，在人類的社會生產(chǎn)活動中發(fā)揮著重要的作用。 下面繪制出客戶管理業(yè)務(wù)中的流程圖。 客戶信息系統(tǒng)的建立，需要進行用戶的需求調(diào)查與分析，以確定系統(tǒng)目標(biāo)，提出解決問題的詳細方案，這是系統(tǒng)建設(shè)的重要環(huán)節(jié)。 技術(shù)上可行：該系統(tǒng)所需硬件設(shè)備，市場上銷售且價格較低，甚至可以使用原有的設(shè)備，軟件上，操作系統(tǒng)采用 Windows 系列操作系統(tǒng)，數(shù)據(jù)庫管理系統(tǒng)采用 Visual ，這些軟件 在 MIS 開發(fā)中已被大量應(yīng)用，技術(shù)上都比較成熟。然而，語言的彈性和工具 的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點失去了作用；相反，如果只強調(diào)程語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴(yán)重地浪費程序設(shè)計師的寶貴時間。 Visual Basic 提供了可視化設(shè)計工具，把 Windows 界面設(shè)計的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。 Visual Basic 語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。 訪問數(shù)據(jù)庫 Visual Basic 具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。 OLE 技術(shù)是 Microsoft 公司對象技術(shù)的戰(zhàn)略，它把多個應(yīng)用程序合為一體，將每個應(yīng)用程 序看做是一個對象進行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。 _ 新建一個數(shù)據(jù)庫 創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設(shè)計必須是靈活的、有邏輯的。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。一個記錄集合是動態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。 3． 2 軟件模塊結(jié)構(gòu)設(shè)計 3． 2． 1 系統(tǒng)方案確定。 本系統(tǒng)涉及到的實體：（共有三個數(shù)據(jù)表，分別為： ， ， ）。ADO 是錯誤退出，正確進入 Else If Trim() = Trim() And Trim() = Trim() Then = Unload Me Else X = X 1 End If End If Next X End If = End Sub Private Sub Command2_Click() Unload Me 39。 = False 39。 = True 39。MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ End If End If End Sub Private Sub Command7_Click() If = Or = Then MsgBox 編號或姓名不能為空！ , 16, 出錯： = 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 請編輯完這條記錄再退出！若不編程請選擇任一 記錄保存后退出 , 64, 提示： Cancel = 1 End If End Sub 客戶信息查詢： 本功能模塊是本系統(tǒng)的查詢功能模塊，用戶可以在本模塊上進行按條件進行查詢，也可以按編號和姓名進行查詢。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高 這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。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。 代碼如下： Private Sub Command1_Click() If = True And = True Then MsgBox 您輸入的第一個管理員是系統(tǒng)管理員，是用來 設(shè)置用戶的，請不要刪除！ , 64, 提示： = 1 = False = False End If If = 添加 Then = 0 = 0 = True = 添加完畢 = False = False = 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