計算機畢業(yè)論文---企業(yè)客戶資源管理系統(tǒng)的設計與實現

1、<p><b>　　目 錄</b></p><p><b>　　1 引言1</b></p><p><b>　　2可行性研究2</b></p><p>　　2.1 開發(fā)的目的2</p><p>　　2.2開發(fā)工具和運行環(huán)境選擇2</p><

2、;p>　　2.2.1 Microsoft Visual Basic 6.0簡介2</p><p>　　2.1.2數據庫的搭建2</p><p><b>　　3系統(tǒng)總體設計3</b></p><p>　　3.1 可行性分析5</p><p>　　3.1.1 技術可行性5</p><p&g

3、t;　　3.1.2 經濟可行性5</p><p>　　3.2數據庫的設計6</p><p>　　3.2.1 E—R圖的建立6</p><p>　　3.2.2 數據表的建立6</p><p>　　3.3 系統(tǒng)流程圖9</p><p>　　4 功能模塊的設計與實現10</p><p>　

4、　4.1 客戶管理模塊的設計與實現10</p><p>　　4.1.1 設計目的10</p><p>　　4.1.2 設計思想10</p><p>　　4.1.3具體實現核心代碼10</p><p>　　4.2 商業(yè)交往模塊的設計與實現12</p><p>　　4.2.1 設計目的12</p>

5、<p>　　4.2.2設計思想13</p><p>　　4.2.3具體實現核心代碼13</p><p>　　4.3 用戶管理模塊的設計與實現14</p><p>　　4.3.1設計目的14</p><p>　　4.3.2 設計思想15</p><p>　　4.3.3具體實現核心代碼15</

6、p><p><b>　　5結束語18</b></p><p>　　企業(yè)客戶資源管理系統(tǒng)的設計與實現</p><p>　　--客戶管理、商業(yè)交往、用戶管理子模塊的實現</p><p>　　指導老師 XXX 講師</p><p>　　摘要 本文主要針對企業(yè)客戶資源管理系統(tǒng)的現狀和要求，從理論和應用的角度

7、論述了企業(yè)客戶資源管理系統(tǒng)子模塊---客戶管理、商業(yè)交往、用戶管理的設計思路，并給出了關鍵技術的實現步驟。本系統(tǒng)是結合企業(yè)實際的現狀，經過實際的需求分析，選擇SQL server 2000 作為后臺數據庫開發(fā)出來的企業(yè)客戶資源管理系統(tǒng)。</p><p>　　關鍵字 商業(yè)交往；用戶管理；客戶信息；數據庫</p><p><b>　　1 引言</b></p>

8、<p>　　隨著科學技術的高速發(fā)展，我們的管理系統(tǒng)已經步入信息化的時代，而利用信息技術開發(fā)的企業(yè)管理系統(tǒng)必然代替過去的大量、繁重的手工操作。它是一個由人、計算機等組成的實現對企業(yè)在各個地區(qū)、各個行業(yè)客戶的綜合管理系統(tǒng)。</p><p>　　近幾年，隨著企業(yè)的全球化，客戶的資源也日益增多，隨之而來的是管理人員的工作日趨復雜繁重，要消耗大量的人力、物力，已成為企業(yè)日常管理的一個模式。客戶單位信息管理、商業(yè)

9、交往、用戶管理是企業(yè)管理的一個重要的組成部分，也是比較繁瑣的工作。</p><p>　　客戶單位管理系統(tǒng)實現了由復雜、重復性手工操作向人機簡便操作的轉化，它運用計算機完成對客戶信息單位的添加、修改、刪除以及對刪除的信息可以還原等工作，提高了管理人員的工作效率。商業(yè)交往系統(tǒng)實現了對客戶基本信息以及商業(yè)往來信息進行添加、修改、刪除等工作。用戶管理系統(tǒng)實現了系統(tǒng)用戶的添加、修改、刪除等工作。對于管理人員來說，減少操作環(huán)

10、節(jié)，降低重復是提高工作效率的有效途徑。除此之外，管理系統(tǒng)的面向對象化設計使系統(tǒng)簡便易行，操作人員不需很強的專業(yè)技術便可操作，系統(tǒng)支持環(huán)境廣泛、普遍，在技術上具有可行性。 </p><p><b>　　2可行性研究</b></p><p><b>　　2.1 開發(fā)的目的</b></p><p>　　企業(yè)客戶資源管理系統(tǒng)是企業(yè)

11、管理的一個重要組成部分，為了能有效的進行企業(yè)在各地區(qū)、各行業(yè)客戶的綜合管理、幫助企業(yè)快捷的掌握客戶的情況，從而開發(fā)了客戶管理以及商業(yè)交往等模塊。提高企業(yè)管理的自動化、現代化水平，實現客戶基本信息的系統(tǒng)化、規(guī)范化，采用計算機代替手工勞動，從而達到提高企業(yè)客戶資源管理效率的目的。</p><p>　　2.2開發(fā)工具和運行環(huán)境選擇 </p><p>　　開發(fā)工具：Microsoft Visual

12、 Basic 6.0 </p><p>　　操作系統(tǒng)：Windows 2000 或Windows XP</p><p>　　數據庫：SQL server 2000 </p><p>　　2.2.1 Microsoft Visual Basic 6.0簡介 </p><p>　　本系統(tǒng)采用Microsoft Visual Basic 6.0.

13、 Microsoft Visual Basic 6.0是用來創(chuàng)建高性能的企業(yè)應用及基于Web的應用程序的最有效工具。集成進來的可視化數據庫工具和一個RAD（快速應用開發(fā)）環(huán)境能提高生產效率，而自然代碼編譯則能生成運行速度更快的應用程序。</p><p>　　使用集成在Microsoft Visual Basic 6.0里的可視化數據庫工具和新的數據環(huán)境設計器（Data Environment Designer）可

14、視化地設計Oracle和Microsoft SQL Server數據庫，創(chuàng)建可重用的數據查詢語句、過程——這些都不必離開Microsoft Visual Basic環(huán)境。</p><p>　　2.1.2數據庫的搭建 </p><p>　　使用Microsoft SQL 2000實現關系型數據庫 </p><p>　　客戶資源的地域管理基本信息存儲：地域編號、地域名稱

15、、地域類型、上級地域編號，其中地域編號為該表的主鍵。</p><p>　　客戶資源的商業(yè)交往基本信息存儲：商業(yè)交往編號、客戶編號、商業(yè)交往日期、商業(yè)往來類型、涉及金額、活動描述、經辦人姓名，其中商業(yè)交往編碼為該表的主鍵。</p><p>　　客戶資源的客戶職務基本信息存儲：客戶職務編碼、客戶職務名稱、排序編號、客戶職務屬于何種類別，其中客戶職務編碼為該表的主鍵。</p>&l

16、t;p>　　客戶資源的客戶單位基本信息存儲：客戶單位編碼、客戶單位名稱、所屬客戶類別編碼、通信地址、郵政編碼、所在地域編碼、刪除標記，其中客戶單位編碼為該表的主鍵。</p><p>　　客戶資源的客戶類別基本信息存儲：客戶類別編碼、排序編號，其中客戶類別編碼為該表的主鍵。</p><p>　　客戶資源的客戶基本信息存儲：客戶編碼、客戶單位名稱、聯系人姓名、性別、職位編碼、辦公室電話、

17、移動電話、家庭電話、客戶等級、家庭住址、郵政編碼、身份證、刪除標記、錄入時間、錄入日期，其中客戶編碼為該表的主鍵。</p><p>　　客戶資源的用戶基本信息存儲：用戶名、密碼，其中用戶名為該表的主鍵。</p><p>　　在以上表中，商業(yè)交往和客戶基本信息中的客戶編碼是相互關聯的，客戶基本資料中該客戶編碼存在，那么在商業(yè)交往中該客戶編碼也存在。</p><p>&

18、lt;b>　　3系統(tǒng)總體設計</b></p><p>　　結合企業(yè)客戶資源管理系統(tǒng)實際的管理模式，從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，本系統(tǒng)分成6個功能模塊，分別是客戶管理、用戶名錄、結構管理、商業(yè)交往、地域管理、用戶管理。各個功能模塊如圖3.1所示：</p><p>　　圖3.1 功能模塊結構圖</p><p>　　主頁面比較

19、簡單，主要是顯示所有企業(yè)客戶資源管理的子功能模塊，使用者通過主頁面能夠清晰了解本系統(tǒng)能夠實現的基本功能。</p><p>　　客戶信息管理功能模塊是用來添加客戶單位信息、修改客戶單位信息、刪除客戶單位信息以及對刪除信息的還原操作。</p><p>　　客戶名錄信息管理功能模塊是用來添加客戶聯系人信息、修改客戶聯系人信息、刪除客戶聯系人信息以及對刪除信息的還原操作。</p>&

20、lt;p>　　結構管理功能模塊可以對客戶類型進行添加、修改、刪除以及對客戶職務進行添加、修改、刪除的操作。</p><p>　　商業(yè)交往功能模塊是用來進行添加客戶往來信息、修改客戶往來信息以及刪除客戶往來信息。</p><p>　　地域管理功能模塊可以實現對地域的添加、修改、刪除操作。</p><p>　　用戶管理功能模塊在系統(tǒng)初始化時有一個默認的”系統(tǒng)管理用

21、”用戶Admin,由程序設計人員手動地添加到數據庫中，Admin用戶可以創(chuàng)建用戶、修改用戶信息以及刪除用戶；普通用戶只能夠修改自己的用戶名和密碼。</p><p>　　企業(yè)客戶資源管理系統(tǒng)的功能模塊之間的關系如圖3.2 所示：</p><p><b>　　提供地域</b></p><p>　　數據 提供客戶提供客</p&g

22、t;<p><b>　　單位數據戶數據</b></p><p><b>　　提供類別</b></p><p><b>　　數據</b></p><p><b>　　提供類別</b></p><p><b>　　數據提供職務數據&

23、lt;/b></p><p>　　圖3.2 功能模塊關系圖</p><p><b>　　3.1 可行性分析</b></p><p>　　3.1.1 技術可行性</p><p>　　本系統(tǒng)采用 Windows 2000或Windows XP作為操作平臺。數據庫開發(fā)平臺選用Microsoft SQL Server ，

24、 該數據庫管理系統(tǒng)在 Windows 2000或Windows XP上都能運行，并提供數據庫之間的數據復制功能，可代替現有系統(tǒng)單據數據的手工傳遞工作，降低出錯率，提高數據的可用性。本系統(tǒng)的應用軟件開發(fā)平臺也選用Microsoft SQL Server，這是目前數據庫應用軟件的主流開發(fā)平臺。</p><p>　　3.1.2 經濟可行性</p><p>　　采用新的企業(yè)客戶資源管理系統(tǒng)可取代過

25、去的大量、繁重的手工操作，減少人工開支，節(jié)省資金，并且可大大提高企業(yè)客戶資源管理效率，使企業(yè)資源管理質量更上一個臺階。</p><p><b>　　3.2數據庫的設計</b></p><p>　　3.2.1 E—R圖的建立</p><p>　　E—R圖如圖3.3所示：</p><p><b>　　1</b

26、></p><p><b>　　1</b></p><p><b>　　1n</b></p><p><b>　　1</b></p><p><b>　　m</b></p><p><b>　　1</b>

27、;</p><p>　　圖3.3 企業(yè)資源管理系統(tǒng)E—R圖</p><p>　　3.2.2 數據表的建立</p><p>　　區(qū)域管理基本信息表Area 如表3.1所示：</p><p>　　該表列出區(qū)域管理的基本信息，如：區(qū)域編號、區(qū)域名稱、區(qū)域類型、上級區(qū)域編碼等。</p><p>　　表3.1 學生基本信息表

28、</p><p>　　商業(yè)交往基本信息表Business 如表3.2所示：</p><p>　　該表列出商業(yè)交往基本信息，如：商業(yè)交往編號、客戶編號、商業(yè)交往日期、商業(yè)往來類型、涉及金額、活動描述、經辦人姓名等。</p><p>　　表3.2 商業(yè)交往基本信息</p><p>　　客戶職務基本信息表CltJob如表3.3所示：</p&

29、gt;<p>　　該表列出客戶職務基本信息，如：客戶職務編碼、客戶職務名稱、排序編號、客戶職務類別編號等。</p><p>　　表3.3 客戶職務基本信息</p><p>　　客戶單位基本信息表CltOrg如表3.4所示：</p><p>　　該表列出客戶單位基本信息，如：客戶單位編碼、客戶單位名稱、所屬客戶類別編碼、通信地址、郵政編碼、所在地域編碼、

30、刪除標記等</p><p>　　表3.4 客戶單位基本信息</p><p>　　客戶類別基本信息CltType如表3.5所示：</p><p>　　該表列出客戶類別基本信息，如：客戶類別編碼、客戶類別名稱、排序編號</p><p>　　表3.5 客戶類別基本信息</p><p>　　客戶基本信息Contact如表3.6

31、所示：</p><p>　　該表列出客戶基本信息，如：客戶編碼、客戶單位名稱、聯系人姓名、性別、職位編碼、辦公室電話、移動電話、家庭電話、客戶等級、家庭住址、郵政編碼、身份證、刪除標記、錄入時間、錄入日期等</p><p>　　表3.6 客戶基本信息</p><p>　　用戶基本信息Users如表3.7所示：</p><p>　　該表列出用戶

32、基本信息，如：用戶名、密碼</p><p>　　表3.7 用戶基本信息</p><p><b>　　3.3 系統(tǒng)流程圖</b></p><p>　　系統(tǒng)流程圖如圖3.4所示：</p><p><b>　　圖3.</b></p><p><b>　　圖3.4系統(tǒng)結構圖

33、</b></p><p>　　4 功能模塊的設計與實現</p><p>　　4.1 客戶管理模塊的設計與實現</p><p>　　4.1.1 設計目的</p><p>　　該模塊的主要功能是用來對客戶的基本信息進行管理?？梢詫崿F添加客戶單位信息、修改客戶單位信息、刪除客戶單位信息、查看客戶單位信息以及客戶單位回收站管理（可以實現還

34、原、刪除以及返回操作）。</p><p>　　4.1.2 設計思想</p><p>　　在FrmOrgMan.frm窗體下單擊添加按鈕，提交后進入FrmOrgEdit.frm窗體下，顯示出客戶單位編輯的信息，其中包括：所屬地域、客戶分類、客戶單位、通信地址、郵政編碼，可對客戶的信息進行添加操作。在FrmOrgMan.frm窗體下單擊修改按鈕，可以對已經添加的客戶單位的信息進行修改操作。在F

35、rmOrgMan.frm窗體下單擊刪除按鈕，可以對已經添加的客戶信息進行刪除操作。在FrmOrgMan.frm窗體下單擊還原按鈕，提交后進入FrmOrgRec.frm窗體下，可以對以前刪除的行進行還原操作。</p><p>　　4.1.3具體實現核心代碼</p><p><b>　　’添加功能的實現</b></p><p>　　Private

36、Sub Cmd_Add_Click()</p><p>　　Dim TmpAreaId As Integer</p><p>　　’保存當前CurArea的對象</p><p>　　TmpAreaId = CurArea.AreaId</p><p>　　FrmOrgEdit.Modify = False</p><p&g

37、t;　　FrmOrgEdit.ComboArea.Text = CurArea.AreaName</p><p>　　If ComboType.ListIndex > 0 Then</p><p>　　FrmOrgEdit.OriType = ComboType.Text</p><p><b>　　End If</b></p>

38、;<p>　　FrmOrgEdit.OriOrgId = 0</p><p>　　FrmOrgEdit.Show 1</p><p>　　CurArea.AreaId = TmpAreaId</p><p>　　CurArea.GetInfo (CurArea.AreaId)</p><p>　　Refresh_Org</

39、p><p><b>　　End Sub</b></p><p>　　’客戶單位編輯信息的實現</p><p>　　Private Function Check() As Boolean</p><p>　　If CurArea.AreaId <= 0 Then</p><p>　　MsgBox

40、"請選擇地域"</p><p>　　Check = False</p><p>　　Exit Function</p><p><b>　　End If</b></p><p>　　If Trim(txtOrg) = "" Then</p><p>　　Ms

41、gBox "請輸入客戶單位"</p><p>　　txtOrg.SetFocus</p><p>　　txtOrg.SelStart = 0</p><p>　　txtOrg.SelLength = Lench(Trim(txtOrg))</p><p>　　Check = False</p><p&g

42、t;　　Exit Function</p><p><b>　　End If</b></p><p>　　If ComboType.ListIndex < 0 Then</p><p>　　MsgBox "請選擇客戶類型"</p><p>　　ComboType.SetFocus</p&g

43、t;<p>　　Check = False</p><p>　　Exit Function</p><p><b>　　End If</b></p><p><b>　　’還原功能的實現</b></p><p>　　Private Sub Cmd_Restore_Click()<

44、/p><p>　　Dim TmpOrg As String</p><p>　　Dim TmpOrgId As Long</p><p>　　If Adodc1.Recordset.BOF = True Then</p><p>　　MsgBox "請選擇記錄"</p><p><b>　　E

45、xit Sub</b></p><p><b>　　End If</b></p><p>　　p = Adodc1.Recordset.AbsolutePosition</p><p>　　TmpOrg = Adodc1.Recordset.Fields(0)</p><p>　　TmpOrgId = MyO

46、rg.GetId(TmpOrg)</p><p>　　If MsgBox("是否還原當前行?", vbYesNo, "確認") = vbYes Then</p><p>　　Call MyOrg.SetDeleted(TmpOrgId, 0)</p><p>　　Refresh_Org</p><p>

47、　　If p - 1 > 0 Then</p><p>　　Adodc1.Recordset.Move p - 1</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b><

48、;/p><p>　　4.2 商業(yè)交往模塊的設計與實現</p><p>　　4.2.1 設計目的</p><p>　　該模塊主要功能是用來對客戶商業(yè)往來基本信息進行管理。添加客戶商業(yè)往來數據、修改商業(yè)往來數據、刪除商業(yè)往來數據、查看客戶商業(yè)往來。</p><p><b>　　4.2.2設計思想</b></p>&

49、lt;p>　　在FrmBusiMan.frm窗體下單擊添加按鈕，提交后進入FrmBusEdit.frm窗體下，顯示出客戶商業(yè)往來的信息，其中包括：客戶單位、聯系人、商業(yè)往來類型、涉及金額、活動描述、經辦人，可對客戶商業(yè)往來的信息進行添加操作。在FrmBusiMan.frm窗體下單擊修改按鈕，可以對已經添加的客戶商業(yè)往來的信息進行修改操作。在FrmBusiMan.frm窗體下單擊刪除按鈕，可以對已經添加的客戶商業(yè)往來的信息進行刪除操

50、作。</p><p>　　4.2.3具體實現核心代碼</p><p><b>　　’添加功能的實現</b></p><p>　　Private Sub Cmd_Add_Click()</p><p>　　FrmBusiEdit.Modify = False</p><p>　　FrmBusiEdi

51、t.lblDate = ComboDate.Text</p><p>　　FrmBusiEdit.ComboOrg = CurOrg.OrgName</p><p>　　FrmBusiEdit.ComboType.ListIndex = 0</p><p>　　FrmBusiEdit.Show 1</p><p>　　Refresh_Busi

52、</p><p><b>　　End Sub</b></p><p>　　’客戶商業(yè)往來信息的實現</p><p>　　Private Sub Cmd_OK_Click()</p><p>　　Dim TmpCltId As Integer</p><p>　　If CurOrg.OrgId &l

53、t;= 0 Then</p><p>　　MsgBox "請選擇客戶單位"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If ComboName.Text = "" Then<

54、;/p><p>　　MsgBox "請輸入聯系人"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　With MyBusi</p><p>　　.BusiDate = lblDate&

55、lt;/p><p>　　.CltId = MyClt.GetId(CurOrg.OrgId, MakeStr(ComboName.Text))</p><p>　　.BusiType = ComboType.Text</p><p>　　.Amount = Val(txtAmount)</p><p>　　.Describe = MakeStr(

56、txtDescribe)</p><p>　　.Operator = MakeStr(txtOperator)</p><p>　　If Modify = False Then</p><p><b>　　.Insert</b></p><p><b>　　Else</b></p>&

57、lt;p>　　.Update (OriBusiId)</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p>　　ClickOK = True</p><p><b>　　Unload Me</b></

58、p><p><b>　　End Sub</b></p><p>　　4.3 用戶管理模塊的設計與實現</p><p><b>　　4.3.1設計目的</b></p><p>　　該模塊主要功能是用來對用戶基本信息進行管理?？蓪τ脩舻幕拘畔⑦M行添加、修改、刪除的操作，但是不能夠對管理者進行修改和刪除的操

59、作。</p><p>　　4.3.2 設計思想</p><p>　　在FrmUserMan.frm窗體下單擊添加按鈕，提交后進入FrmUserEdit.frm窗體下，顯示出編輯用戶的窗體，可對用戶的信息進行添加操作。在FrmUserMan.frm窗體下單擊修改按鈕，可以對已經添加用戶的信息進行修改操作。在FrmUserMan.frm窗體下單擊刪除按鈕，可以對已添加用戶的信息進行刪除操作。&

60、lt;/p><p>　　4.3.3具體實現核心代碼</p><p><b>　　’添加功能的實現</b></p><p>　　Private Sub Cmd_Add_Click()</p><p>　　FrmUserEdit.Show 1</p><p>　　AdoUserList.Refresh&l

61、t;/p><p>　　DataList1.ReFill</p><p>　　DataList1_Click</p><p><b>　　End Sub</b></p><p><b>　　’用戶信息的實現</b></p><p>　　Private Sub Cmd_OK_Clic

62、k()</p><p>　　If Trim(txtUserName) = "" Then</p><p>　　MsgBox "請輸入用戶名"</p><p>　　txtUserName.SetFocus</p><p><b>　　Exit Sub</b></p>&

63、lt;p><b>　　End If</b></p><p>　　If Len(txtPass) < 6 Then</p><p>　　MsgBox "密碼長度不能小于6"</p><p>　　txtPass.SetFocus</p><p>　　txtPass.SelStart = 0&l

64、t;/p><p>　　txtPass.SelLength = Len(txtPass2)</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If txtPass <> txtPass2 Then</p>

65、<p>　　MsgBox "密碼和確認密碼不相同，請重新輸入"</p><p>　　txtPass2.SetFocus</p><p>　　txtPass2.SelStart = 0</p><p>　　txtPass2.SelLength = Len(txtPass2)</p><p><b>　　E

66、xit Sub</b></p><p><b>　　End If</b></p><p>　　With MyUser</p><p>　　If Modify = False Or OriUser <> Trim(txtUserName) Then</p><p>　　If .In_DB(Trim(

67、txtUserName)) = True Then</p><p>　　MsgBox "用戶名已經存在，請重新輸入"</p><p>　　txtUserName.SetFocus</p><p>　　txtUserName.SelStart = 0</p><p>　　txtUserName.SelLength = Len

68、(txtUserName)</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　.UserName = MakeStr(txtUserName)</p

69、><p>　　.Pwd = MakeStr(txtPass)</p><p>　　If Modify = False Then</p><p><b>　　.Insert</b></p><p><b>　　Else</b></p><p>　　.Update (OriUser)

70、</p><p><b>　　End If</b></p><p>　　If CurUser.UserName <> "Admin" Then</p><p>　　CurUser.UserName = Trim(txtUserName)</p><p>　　CurUser.Pwd = Tr

71、im(txtPass)</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p>

72、<p><b>　　’修改功能的實現</b></p><p>　　Private Sub Cmd_Modi_Click()</p><p>　　If DataList1.Text = "" Then</p><p>　　MsgBox "請選擇要修改的用戶"</p><p&g

73、t;<b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　With FrmUserEdit</p><p>　　.OriUser = MyUser.UserName</p><p>　　.txtUserName = MyUser.UserName

74、</p><p>　　.txtPass = MyUser.Pwd</p><p>　　.txtPass2 = MyUser.Pwd</p><p>　　.Modify = True</p><p><b>　　.Show 1</b></p><p><b>　　End With</

75、b></p><p>　　AdoUserList.Refresh</p><p>　　DataList1.ReFill</p><p>　　DataList1_Click</p><p><b>　　End Sub</b></p><p><b>　　’刪除功能的實現</b&

76、gt;</p><p>　　Private Sub Cmd_Del_Click()</p><p>　　If DataList1.Text = "" Then</p><p>　　MsgBox "請選擇要刪除的用戶"</p><p><b>　　Exit Sub</b></p

77、><p><b>　　End If</b></p><p>　　If MyUser.UserName = "Admin" Then</p><p>　　MsgBox "此用戶不能刪除"</p><p><b>　　Exit Sub</b></p>&

78、lt;p><b>　　End If</b></p><p><b>　　'確認刪除</b></p><p>　　If MsgBox("是否刪除當前用戶", vbYesNo, "請選擇") = vbYes Then</p><p>　　MyUser.Delete (Dat

79、aList1.Text)</p><p>　　AdoUserList.Refresh</p><p>　　DataList1.ReFill</p><p>　　DataList1_Click</p><p><b>　　End If</b></p><p><b>　　End Sub&l

80、t;/b></p><p><b>　　5結束語</b></p><p>　　經過兩個月的開發(fā)和設計，由我負責的客戶管理、商業(yè)交往、用戶管理這些模塊的功能基本實現，其基本功能符合整個系統(tǒng)開發(fā)要求。開發(fā)過程中小組成員多次商討研究，共同努力，最終開發(fā)出了企業(yè)客戶資源管理系統(tǒng)。其基本功能能夠實現客戶管理、客戶名錄、地域管理、商業(yè)交往、結構管理以及用戶管理功能的實現。但

81、是由于畢業(yè)設計時間較短，相信該系統(tǒng)還有許多不盡如人意的地方，有待進一步改善，在以后的測試應用中將逐步完善。</p><p>　　實踐證明，在高科技突飛猛進的時代，光靠課堂所學的知識是遠遠不夠的，必須依靠實踐去不斷的深化認識，尤其是計算機科學，操作性和實踐性很強，只有加強實際的動手能力，才能更好的掌握這一現代化工具。這次設計，無論是從技術上還是對環(huán)境的適應能力上講，對我今后步入社會都打下了一個良好的基礎。在設計與實

82、現的過程中，我也遇到了一些困難，主要表現了技術和經驗的欠缺，但通過努力，最終得到解決。</p><p><b>　　致謝</b></p><p>　　在本次畢業(yè)設計過程中，我得到了XXX老師的精心指導，X老師認真負責的工作態(tài)度、嚴謹的治學精神和深厚的理論水平都使我受益匪淺。使我的專業(yè)水平和實踐能力都有了很大的提高。這對于我以后的工作和學習都是一種巨大的幫助。在此我要衷

83、心地感謝我的指導老師于海清老師。</p><p><b>　　參考文獻</b></p><p>　　[1] 劉韜.Visual Basic 6.0 數據庫系統(tǒng)開發(fā)實例.北京:人民郵電出版社.2001 ,9. </p><p>　　[2] 劉韜，駱娟. Visual Basic數據庫系統(tǒng)開發(fā)實例導航.北京:人民郵電出版社.2003, 8.<