【正文】 在此次畢業(yè)論文工作中，由于所學(xué)知識(shí)和自己的水平有限，所做的系統(tǒng)并不是很完美，比如界面不夠美觀，內(nèi)容不夠豐富等有不足和錯(cuò)誤之處，謹(jǐn)請(qǐng)輔導(dǎo)老師、答辯老師及專家組成員批評(píng)指正。梅旭時(shí)老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。通過這次課程設(shè)計(jì)，我學(xué)到了很多東西，在開發(fā)過程中，增強(qiáng)了自學(xué)的能力，對(duì)一些軟件開發(fā)模式有了更加深刻的認(rèn)識(shí)學(xué)會(huì)了如何進(jìn)行小組式的開發(fā)一個(gè)綜合的系統(tǒng)，同時(shí)也加強(qiáng)了同學(xué)間的相互合作能力，深刻的意識(shí)到了團(tuán)結(jié)就是力量。參考文獻(xiàn)[1] 劉蘭娟 ：電子工業(yè)出版社，2004[2郭瑞軍 唐幫民 Basic. 北京：電子工業(yè)出版社. [3] Basic實(shí)例精通 . 北京：清華大學(xué)出版社 [4] 李華飚 畢宗睿 Basic數(shù)據(jù)庫(kù)編程. 北京：[5] 曾強(qiáng)聰 . Visual Basic程序設(shè)計(jì) . [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è)知識(shí)以及較強(qiáng)的實(shí)用能力。如果每個(gè)企業(yè)可以很好的吸收CRM理念，會(huì)看到在利潤(rùn)、客戶忠誠(chéng)度和客戶滿意度多方面的提高，對(duì)未來的整體性的電子商務(wù)時(shí)代的來臨也就更有準(zhǔn)備，也就向網(wǎng)絡(luò)經(jīng)濟(jì)靠近了一步。系統(tǒng)的實(shí)現(xiàn)，將減輕中小企業(yè)管理人員的負(fù)擔(dān)。通過我們小組三名同學(xué)的共同努力終于完成了此系統(tǒng)的設(shè)計(jì)。由于時(shí)間和能力有限本系統(tǒng)只完成了基本的功能部分，一些真正實(shí)用的外圍功能還來不及完善特別是打印用戶查詢信息這部分沒法實(shí)現(xiàn)，美工方面也不夠漂亮。然而在我們指導(dǎo)老師梅旭時(shí)的幫助下我們克服了許多困難，最終完成了此系統(tǒng)的制作。 總 結(jié)從系統(tǒng)調(diào)查到查資料再到系統(tǒng)的分析設(shè)計(jì)，經(jīng)歷了幾個(gè)月的時(shí)間，經(jīng)過這幾個(gè)月的努力，這個(gè)系統(tǒng)總算是完成了。 Database文件夾，因此當(dāng)移植到其他機(jī)器時(shí)，這個(gè)路徑關(guān)系仍然不能改變。這涉及到工程項(xiàng)目屬性的設(shè)置、可執(zhí)行應(yīng)用程序的生成，以及安裝包的制作。要知道，軟件工程的宏觀統(tǒng)籌死刑與編碼調(diào)試的技巧并不矛盾。當(dāng)這個(gè)函數(shù)調(diào)試通過之后，其他相似函數(shù)再參考這個(gè)正確函數(shù)的基礎(chǔ)上很快就可以完成。例如在本系統(tǒng)中，對(duì)于ClientManagerCorm組件的調(diào)試，不要把整個(gè)工程代碼編寫完畢后再創(chuàng)建ClientManager工程。可以采取“先編譯后調(diào)試”的方案，先將工程編譯生成EXE或DLL，這樣在編譯時(shí)VB會(huì)提示你一次性把語(yǔ)法錯(cuò)誤解決掉，而后在調(diào)試時(shí)，只需要解決語(yǔ)義錯(cuò)誤即可。2. 先編譯后調(diào)試 因?yàn)閂B在調(diào)試時(shí)時(shí)解釋執(zhí)行的，每當(dāng)執(zhí)行到一個(gè)函數(shù)時(shí)才對(duì)這個(gè)函數(shù)進(jìn)行語(yǔ)法分析、語(yǔ)義分析，分析通過后才生成中間代碼解釋執(zhí)行。 系統(tǒng)的調(diào)試與注意事項(xiàng)1. 強(qiáng)制變量聲明這一點(diǎn)其實(shí)已經(jīng)成為一個(gè)無需再談的常識(shí)，因?yàn)槲覀兪窃谧鲆粋€(gè)項(xiàng)目，所要遵循的是軟件工程的規(guī)則，而不是在做某個(gè)算法的實(shí)現(xiàn)，所以一切應(yīng)當(dāng)從軟件開發(fā)的角度出發(fā)。使用白盒測(cè)試法，為了做到窮盡測(cè)試，程序中每條可能的通路至少都應(yīng)該執(zhí)行一次（嚴(yán)格地說每條通路都應(yīng)該在每種可能地輸入數(shù)據(jù)下執(zhí)行一次）。包含所有可能情況的測(cè)試稱為窮盡測(cè)試，對(duì)于實(shí)際程序而言，窮盡測(cè)試通常是不可能做到的。白盒測(cè)試又稱為結(jié)構(gòu)測(cè)試。與黑盒測(cè)試方法相反，白盒測(cè)試法的前提是可以把程序看成安裝在一個(gè)透明的白盒子里，也就是完全了解程序的結(jié)構(gòu)和處理過程。也就是說，黑盒測(cè)試是在程序接口進(jìn)行的測(cè)試，它只檢查程序功能是否能按照規(guī)格說明書的規(guī)定正常使用，程序是否能適當(dāng)?shù)亟邮蛰斎霐?shù)據(jù)產(chǎn)生地輸出信息，并且保持外部信息（如，數(shù)據(jù)庫(kù)或文件）的完整性。前一個(gè)方法成為黑盒測(cè)試，后一個(gè)方法稱為白盒測(cè)試法。如果為了表明程序是正確的而進(jìn)行測(cè)試，就會(huì)設(shè)計(jì)一些不易暴露錯(cuò)誤的測(cè)試方案；相反，如果測(cè)試是為了發(fā)現(xiàn)程序中的錯(cuò)誤，就會(huì)力求設(shè)計(jì)出最能暴露錯(cuò)誤的測(cè)試方案。這和某些人通常想象的“測(cè)試是為了表明程序是正確的”，“成功的測(cè)試是沒有發(fā)現(xiàn)錯(cuò)誤的測(cè)試”等等是完全相反的。將查詢結(jié)果顯示到客戶列表中 ClientsToListview objClients, lvListViewEnd Sub第5章 軟件測(cè)試測(cè)試是軟件開發(fā)時(shí)期的最后一個(gè)階段，也是軟件質(zhì)量保證中至關(guān)重要的一個(gè)環(huán)節(jié)。顯示查詢對(duì)話框 If () = False Then Exit Sub 39。實(shí)現(xiàn)代碼如下： 39。顯示客戶信息界面 If (objClient, vtInfo) = False Then Exit Sub 39。查看客戶信息Private Sub ClientInfo() Dim objClient As cClient Dim objWarn As New CWarning 39。設(shè)計(jì)思想：獲取選中的客戶信息－調(diào)用添加客戶信息窗體frnClient顯示數(shù)據(jù)－如果轉(zhuǎn)到了修改狀態(tài)，－顯示操作結(jié)果。從客戶列表中獲取選中的客戶信息 If GetClientFromControl(lvListView, objClient) = False Then Exit Sub 39。實(shí)現(xiàn)代碼如下： 39。如果選擇生日提醒，則在數(shù)據(jù)庫(kù)中加入提醒規(guī)則 = RefreshListView Else MsgBox 錯(cuò)誤 End If Set objWarn = Nothing Set objClient = Nothing 刪除客戶信息通過在frmMaind的代碼中加入過程DelClient來實(shí)現(xiàn)客戶信息的刪除。顯示修改客戶信息對(duì)話框 If (objClient, vtModify) = False Then Exit Sub 39。修改客戶信息Private Sub ModifyClient() Dim objClient As cClient Dim objWarn As New CWarning 39。更新數(shù)據(jù)庫(kù) If = True Then AddClientToLvw objClient, lvListView, False Else MsgBox 錯(cuò)誤 End IfEnd Sub 修改客戶信息設(shè)計(jì)思想：獲取選中的客戶信息－調(diào)用添加客戶信息對(duì)話框frnClient顯示數(shù)據(jù)－接收用戶輸入－－顯示操作結(jié)果。添加客戶Private Sub AddClient() Dim objClient As cClient 39。設(shè)計(jì)思想：調(diào)用客戶信息管理窗體frmClien－接收用戶輸入信息－－顯示操作結(jié)果。友好度 .Satisfaction = 39。備注 .Importance = 39。喜好 .Hate = Trim() 39。公司網(wǎng)址 .SelfSite = Trim() 39。職位 .Company = Trim() 39。是不啟用生日提醒 .Work = Trim() 39。郵編 .Birthday = 39。家庭住址 .MailAdr = Trim() 39。宅電 .Fax = Trim() 39。Email .OfficePhone = Trim() 39?？蛻纛愋虸d .Mobile = Trim() 39?？蛻裟挲g .Sex = IIf( = 0, Male, Female) 39。 SaveValue過程Private Sub SaveValue() With objClient .Name = Trim() 39。 設(shè)計(jì)思路：這個(gè)過程沒有太復(fù)雜的技巧或原理，只需要將控件中的信息報(bào)訊到客戶信息對(duì)象ojbClient中。 功能：將輸入信息保存到客戶信息對(duì)象中，以便通過RetriveClient函數(shù)傳出。H8000000F boolLocked = True = True = False = 關(guān)閉 = 查看客戶信息 Case Else End Select 39。只讀的文本框風(fēng)格設(shè)置 intBorderStyle = 0 39。修改客戶信息 = 保存 = 修改客戶信息 Case vtInfo 39。添加客戶 39。3D lngbkColor = amp。根據(jù)對(duì)話框的顯示方式來確定顯示的數(shù)據(jù)Private Sub SetStatus() Dim ctl As Control Dim intBorderStyle As Integer Dim lngbkColor As Long Dim boolLocked As Boolean 39。根據(jù)以上思想，可以編寫出類似以下的代碼。216。216。 客戶信息管理對(duì)話框代碼設(shè)計(jì)1. 添加成員變量進(jìn)入客戶信息管理對(duì)話框的代碼編輯模式，添加如下的成員變量：Private ok As Boolean ‘確定按了oK還是cancel按鈕Private mvarViewType As gxcViewType ‘顯示類新，即表示當(dāng)前是添加、查看、修改Private objClient As cClient ‘存儲(chǔ)客戶信息對(duì)象Private mvarBirthdayWarn As Boolean ‘標(biāo)實(shí)是否啟用生日提醒2. 添加屬性 ‘顯示類型，即表示當(dāng)前是添加、查看、修改Public Property Get ViewType()As gxcViewTypeViewType= mvarViewTypeEnd Property‘標(biāo)識(shí)是否啟用生日提醒Public Property Get ShowBirthdayWarn ()As BooleanShowBirthdayWarn=mvarBirthdayWarnEnd Property3. 添加方法1） SetStatus函數(shù)——設(shè)置對(duì)話框狀態(tài)216?？丶Q屬性屬性取值功能fraScore(Frame)Caption客戶評(píng)價(jià)客戶評(píng)價(jià)容器SldImportance(Slider)sldFriendly(Slider)sldSatisfaction(Slider)Max255重要度友好度滿意度Value50TickStyle3sldNoTicks 。 客戶合作記錄屬性頁(yè)控件設(shè)置控件名稱屬性屬性取值功能fraCoop(Frame)Caption合作記錄合作信息容器lvListView(ListView)FullRowSelectTrue顯示合作記錄列表GridLinesTrueViewIvwReportcmdAdd(CommandButton)Caption添加客戶喜好cmdModify(TestBox)Caption修改客戶喜好cmdDel(TestBox)Caption刪除客戶喜好cmdCoopInfo(TestBox)Caption查看客戶喜好控件布局完畢后?！翱蛻羝渌畔ⅰ睂傩皂?yè)控件設(shè)置控件名稱屬性屬性取值功能txtLikes(TestBox)MultiLine True客戶喜好txtHte(TestBox)ScrollBars2Vertical客戶厭惡txtRemark(TestBox)MaxLength255客戶備注 控件布局完畢后。 客戶基本信息屬性頁(yè)控件設(shè)置控件名稱屬性屬性取值功能frabaseInfo(Frame)Caption必填信息必填信息容器fraIn