vb客戶關(guān)系管理系統(tǒng)-資料下載頁

　　

【正文】 接收用戶輸入信息－－顯示操作結(jié)果。代碼如下： 39。添加客戶Private Sub AddClient() Dim objClient As cClient 39。顯示添加客戶對話框并獲取數(shù)據(jù) If (objClient, vtadd, GetID()) _ = False Then Exit Sub 39。更新數(shù)據(jù)庫 If = True Then AddClientToLvw objClient, lvListView, False Else MsgBox 錯誤 End IfEnd Sub 修改客戶信息設(shè)計思想：獲取選中的客戶信息－調(diào)用添加客戶信息對話框frnClient顯示數(shù)據(jù)－接收用戶輸入－－顯示操作結(jié)果。實(shí)現(xiàn)代碼如下： 39。修改客戶信息Private Sub ModifyClient() Dim objClient As cClient Dim objWarn As New CWarning 39。從客戶列表中獲取選中客戶信息 If GetClientFromControl(lvListView, objClient) = False Then Exit Sub 39。顯示修改客戶信息對話框 If (objClient, vtModify) = False Then Exit Sub 39。更新數(shù)據(jù)庫 If = True Then = = 39。如果選擇生日提醒，則在數(shù)據(jù)庫中加入提醒規(guī)則 = RefreshListView Else MsgBox 錯誤 End If Set objWarn = Nothing Set objClient = Nothing 刪除客戶信息通過在frmMaind的代碼中加入過程DelClient來實(shí)現(xiàn)客戶信息的刪除。設(shè)計思想：提示確認(rèn)－獲取選中的客戶信息－－顯示結(jié)果。實(shí)現(xiàn)代碼如下： 39。刪除客戶Private Sub DelClient() Dim objClient As cClient If MsgBox(確定要刪除客戶嗎？, vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub 39。從客戶列表中獲取選中的客戶信息 If GetClientFromControl(lvListView, objClient) = False Then Exit Sub 39。從數(shù)據(jù)庫中刪除客戶，并從界面中也刪除 If = True Then () Else MsgBox 錯誤 End IfEnd Sub 查看客戶信息通過在frmMaind的代碼中加入過程ClientInfo 來實(shí)現(xiàn)客戶信息的瀏覽功能。設(shè)計思想：獲取選中的客戶信息－調(diào)用添加客戶信息窗體frnClient顯示數(shù)據(jù)－如果轉(zhuǎn)到了修改狀態(tài)，－顯示操作結(jié)果。實(shí)現(xiàn)代碼如下： 39。查看客戶信息Private Sub ClientInfo() Dim objClient As cClient Dim objWarn As New CWarning 39。獲取客戶列表中選擇項(xiàng)的客戶信息 If GetClientFromControl(, objClient) = False Then Exit Sub 39。顯示客戶信息界面 If (objClient, vtInfo) = False Then Exit Sub 39。如果在查看客戶信息時選擇修改信息，則進(jìn)一步保存修改內(nèi)容 If = vtModify Then If = True Then = = = RefreshListView Else MsgBox 錯誤 End If End If Set objWarn = Nothing Set objClient = NothingEnd Sub 查找客戶設(shè)計思想：調(diào)用查找客戶對話框frnSearch－取得查找條件－－顯示結(jié)果。實(shí)現(xiàn)代碼如下： 39。查找客戶Private Sub SearchClient() Dim objClients As New CClients 39。顯示查詢對話框 If () = False Then Exit Sub 39。返回查詢結(jié)果 , , 39。將查詢結(jié)果顯示到客戶列表中 ClientsToListview objClients, lvListViewEnd Sub第5章 軟件測試測試是軟件開發(fā)時期的最后一個階段，也是軟件質(zhì)量保證中至關(guān)重要的一個環(huán)節(jié)。 測試的目的與任務(wù)測試的真正目的是“為了發(fā)現(xiàn)程序中的錯誤”。這和某些人通常想象的“測試是為了表明程序是正確的”，“成功的測試是沒有發(fā)現(xiàn)錯誤的測試”等等是完全相反的。正確認(rèn)識測試的目標(biāo)是十分重要的，測試目標(biāo)決定了測試方案的設(shè)計。如果為了表明程序是正確的而進(jìn)行測試，就會設(shè)計一些不易暴露錯誤的測試方案；相反，如果測試是為了發(fā)現(xiàn)程序中的錯誤，就會力求設(shè)計出最能暴露錯誤的測試方案。 測試的方法測試任何產(chǎn)品都有兩種方法：如果已經(jīng)知道了產(chǎn)品應(yīng)該具有的功能，可以通過測試來檢驗(yàn)是否每個功能都能正常使用；如果知道產(chǎn)品內(nèi)部工作過程，可以通過測試來檢驗(yàn)產(chǎn)品內(nèi)部動作是否按照規(guī)格說明書的規(guī)定正常進(jìn)行。前一個方法成為黑盒測試，后一個方法稱為白盒測試法。對于軟件測試而言，黑盒測試法把程序看成一個黑盒子，完全不考慮程序的內(nèi)部結(jié)構(gòu)和處理過程。也就是說，黑盒測試是在程序接口進(jìn)行的測試，它只檢查程序功能是否能按照規(guī)格說明書的規(guī)定正常使用，程序是否能適當(dāng)?shù)亟邮蛰斎霐?shù)據(jù)產(chǎn)生地輸出信息，并且保持外部信息（如，數(shù)據(jù)庫或文件）的完整性。黑盒測試又稱為功能測試。與黑盒測試方法相反，白盒測試法的前提是可以把程序看成安裝在一個透明的白盒子里，也就是完全了解程序的結(jié)構(gòu)和處理過程。這種方法按照程序內(nèi)部的邏輯測試程序，檢驗(yàn)程序中的每條通路是否都能按預(yù)定要求正確工作。白盒測試又稱為結(jié)構(gòu)測試。不論采用上述哪種測試方法，只要對每一種可能的情況都進(jìn)行測試，就可以得到完全正確的程序。包含所有可能情況的測試稱為窮盡測試，對于實(shí)際程序而言，窮盡測試通常是不可能做到的。使用黑盒測試法，為了做到窮盡測試，至少必須對多有輸入數(shù)據(jù)的各種可能值的排列組合都進(jìn)行測試，但是，由此得到的應(yīng)測試的情況往往大到世局上根本無法測試的程度。使用白盒測試法，為了做到窮盡測試，程序中每條可能的通路至少都應(yīng)該執(zhí)行一次（嚴(yán)格地說每條通路都應(yīng)該在每種可能地輸入數(shù)據(jù)下執(zhí)行一次）。即使測試很小的程序，通常也不能做到上述這一點(diǎn)。 系統(tǒng)的調(diào)試與注意事項(xiàng)1. 強(qiáng)制變量聲明這一點(diǎn)其實(shí)已經(jīng)成為一個無需再談的常識，因?yàn)槲覀兪窃谧鲆粋€項(xiàng)目，所要遵循的是軟件工程的規(guī)則，而不是在做某個算法的實(shí)現(xiàn)，所以一切應(yīng)當(dāng)從軟件開發(fā)的角度出發(fā)。打開“選項(xiàng)”對話框，在“編輯器”屬性頁中，把“要求變量聲明”復(fù)選框選上，或者手工在每個文件的開頭加上關(guān)鍵字：Option ExpLicit這樣在編譯時會對沒有聲明的變量報錯，從而減少很多不必要的調(diào)試。2. 先編譯后調(diào)試 因?yàn)閂B在調(diào)試時時解釋執(zhí)行的，每當(dāng)執(zhí)行到一個函數(shù)時才對這個函數(shù)進(jìn)行語法分析、語義分析，分析通過后才生成中間代碼解釋執(zhí)行。這樣當(dāng)一個函數(shù)內(nèi)部有多處語法錯誤時，執(zhí)行到這個函數(shù)時遇到第一個錯誤就會停下來，修改之后繼續(xù)調(diào)試，如果仍有錯誤會再次停下來直到全部語法錯誤修改完畢，這樣大大降低了調(diào)試效率。可以采取“先編譯后調(diào)試”的方案，先將工程編譯生成EXE或DLL，這樣在編譯時VB會提示你一次性把語法錯誤解決掉，而后在調(diào)試時，只需要解決語義錯誤即可。兩個工程聯(lián)合調(diào)試比一個工程單獨(dú)調(diào)試難度相對較大，可采取一個類或類內(nèi)的一個方法先單獨(dú)調(diào)試的方案。例如在本系統(tǒng)中，對于ClientManagerCorm組件的調(diào)試，不要把整個工程代碼編寫完畢后再創(chuàng)建ClientManager工程。當(dāng)編寫完一個類，或類內(nèi)的一個方法，只要它可以單獨(dú)使用，便可以創(chuàng)建ClientManager工程來調(diào)試這個函數(shù)。當(dāng)這個函數(shù)調(diào)試通過之后，其他相似函數(shù)再參考這個正確函數(shù)的基礎(chǔ)上很快就可以完成。相反，如果ClientManagerCorm全部編寫完之后再創(chuàng)建ClientManager工程，那么首次運(yùn)行時可能將會錯誤百出，更重要的是同種類型的錯誤占大多數(shù)，這樣雖然最后可以解決，但重復(fù)勞動巨大，效率變低。要知道，軟件工程的宏觀統(tǒng)籌死刑與編碼調(diào)試的技巧并不矛盾。 系統(tǒng)的編譯與發(fā)行完成了客戶管理系統(tǒng)的編程和調(diào)試工作，最后一步就是該系統(tǒng)的編譯和發(fā)行。這涉及到工程項(xiàng)目屬性的設(shè)置、可執(zhí)行應(yīng)用程序的生成，以及安裝包的制作。兩個工程的項(xiàng)目屬性在前面創(chuàng)建項(xiàng)目時均已設(shè)置完畢，當(dāng)移植到其他機(jī)器使用時，需要先注冊此組件。 Database文件夾，因此當(dāng)移植到其他機(jī)器時，這個路徑關(guān)系仍然不能改變。程序中用到的其他控件，現(xiàn)在一般的Windows操作系統(tǒng)都已具備，可以不用打包。 總 結(jié)從系統(tǒng)調(diào)查到查資料再到系統(tǒng)的分析設(shè)計，經(jīng)歷了幾個月的時間，經(jīng)過這幾個月的努力，這個系統(tǒng)總算是完成了。在完成這個系統(tǒng)時我們遇到了許多困難，由于我們沒有學(xué)習(xí)過VB，所以在做此系統(tǒng)時我們邊學(xué)習(xí)邊制作。然而在我們指導(dǎo)老師梅旭時的幫助下我們克服了許多困難，最終完成了此系統(tǒng)的制作。由于我們小組實(shí)力的不足，顯然這個系統(tǒng)還是有很多不成熟、不完善的地方。由于時間和能力有限本系統(tǒng)只完成了基本的功能部分，一些真正實(shí)用的外圍功能還來不及完善特別是打印用戶查詢信息這部分沒法實(shí)現(xiàn)，美工方面也不夠漂亮。在本系統(tǒng)中我們詳細(xì)地講述了三層客戶管理系統(tǒng)地設(shè)計與實(shí)現(xiàn)，重點(diǎn)介紹了三層結(jié)構(gòu)功能模塊劃分以及結(jié)構(gòu)設(shè)計，使我們對使用Visual Basic 。通過我們小組三名同學(xué)的共同努力終于完成了此系統(tǒng)的設(shè)計。但這畢竟是自己獨(dú)立完成的第一個運(yùn)行正常的系統(tǒng)，從敝帚自珍的角度來講，還是頗覺欣慰的。系統(tǒng)的實(shí)現(xiàn)，將減輕中小企業(yè)管理人員的負(fù)擔(dān)。并能為公司領(lǐng)導(dǎo)的決策提供支持。如果每個企業(yè)可以很好的吸收CRM理念，會看到在利潤、客戶忠誠度和客戶滿意度多方面的提高，對未來的整體性的電子商務(wù)時代的來臨也就更有準(zhǔn)備，也就向網(wǎng)絡(luò)經(jīng)濟(jì)靠近了一步。由于本人水平有限和時間的緊迫，文章在論述和分析上難免存在疏漏和不完善的地方，懇請各位評審老師不吝賜教，多提寶貴意見。參考文獻(xiàn)[1] 劉蘭娟 ：電子工業(yè)出版社，2004[2郭瑞軍 唐幫民 Basic. 北京：電子工業(yè)出版社. [3] Basic實(shí)例精通 . 北京：清華大學(xué)出版社 [4] 李華飚 畢宗睿 Basic數(shù)據(jù)庫編程. 北京：[5] 曾強(qiáng)聰 . Visual Basic程序設(shè)計 . [6] . 北京：人民郵電出版社，2004[7] CRM系統(tǒng)組成[8] 萬維信息[9] (CRM).北京：經(jīng)濟(jì)管理出版社，[10] [11] 王力，[12] [13] 明寰資訊，.：清華大學(xué)出版，2003年3月[14] 薩師煊，：高等教育出版社，2004[15] 許家飴 曾翎 ：高等教育出版社，2004 致 謝客戶關(guān)系管理系統(tǒng)所涉及的內(nèi)容較多，它要求具有很強(qiáng)Visual Basic方面的專業(yè)知識以及較強(qiáng)的實(shí)用能力。在具體技術(shù)的運(yùn)用時遇到較多實(shí)際困難。通過這次課程設(shè)計，我學(xué)到了很多東西，在開發(fā)過程中，增強(qiáng)了自學(xué)的能力，對一些軟件開發(fā)模式有了更加深刻的認(rèn)識學(xué)會了如何進(jìn)行小組式的開發(fā)一個綜合的系統(tǒng)，同時也加強(qiáng)了同學(xué)間的相互合作能力，深刻的意識到了團(tuán)結(jié)就是力量。由于本人水平有限所以所做的系統(tǒng)并不是很完美，比如界面不夠美觀，內(nèi)容不夠豐富等，在系統(tǒng)開發(fā)的這些日子里，我受到了指導(dǎo)老師梅旭時的細(xì)心指導(dǎo)，對文檔的編輯以及對系統(tǒng)的不足之處梅老師能夠及時的指出，使我們能夠及時的糾正錯誤。梅旭時老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。在此，謹(jǐn)向梅旭時老師致以誠摯的謝意！最后，衷心感謝在百忙之中抽出寶貴時間對此論文進(jìn)行評閱與審議的老師們。 在此次畢業(yè)論文工作中，由于所學(xué)知識和自己的水平有限，所做的系統(tǒng)并不是很完美，比如界面不夠美觀，內(nèi)容不夠豐富等有不足和錯誤之處，謹(jǐn)請輔導(dǎo)老師、答辯老師及專家組成員批評指正。