計(jì)算機(jī)畢業(yè)論文---企業(yè)客戶資源管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

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ā)工具和運(yùn)行環(huán)境選擇2</p><

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

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

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

5、<p>　　4.2.2設(shè)計(jì)思想13</p><p>　　4.2.3具體實(shí)現(xiàn)核心代碼13</p><p>　　4.3 用戶管理模塊的設(shè)計(jì)與實(shí)現(xiàn)14</p><p>　　4.3.1設(shè)計(jì)目的14</p><p>　　4.3.2 設(shè)計(jì)思想15</p><p>　　4.3.3具體實(shí)現(xiàn)核心代碼15</

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

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

8、<p>　　隨著科學(xué)技術(shù)的高速發(fā)展，我們的管理系統(tǒng)已經(jīng)步入信息化的時(shí)代，而利用信息技術(shù)開發(fā)的企業(yè)管理系統(tǒng)必然代替過去的大量、繁重的手工操作。它是一個(gè)由人、計(jì)算機(jī)等組成的實(shí)現(xiàn)對(duì)企業(yè)在各個(gè)地區(qū)、各個(gè)行業(yè)客戶的綜合管理系統(tǒng)。</p><p>　　近幾年，隨著企業(yè)的全球化，客戶的資源也日益增多，隨之而來的是管理人員的工作日趨復(fù)雜繁重，要消耗大量的人力、物力，已成為企業(yè)日常管理的一個(gè)模式?？蛻魡挝恍畔⒐芾怼⑸虡I(yè)

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

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

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

12、 Basic 6.0 </p><p>　　操作系統(tǒng)：Windows 2000 或Windows XP</p><p>　　數(shù)據(jù)庫：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è)應(yīng)用及基于Web的應(yīng)用程序的最有效工具。集成進(jìn)來的可視化數(shù)據(jù)庫工具和一個(gè)RAD（快速應(yīng)用開發(fā)）環(huán)境能提高生產(chǎn)效率，而自然代碼編譯則能生成運(yùn)行速度更快的應(yīng)用程序。</p><p>　　使用集成在Microsoft Visual Basic 6.0里的可視化數(shù)據(jù)庫工具和新的數(shù)據(jù)環(huán)境設(shè)計(jì)器（Data Environment Designer）可

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

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

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

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

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

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

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

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

22、t;<p><b>　　單位數(shù)據(jù)戶數(shù)據(jù)</b></p><p><b>　　提供類別</b></p><p><b>　　數(shù)據(jù)</b></p><p><b>　　提供類別</b></p><p><b>　　數(shù)據(jù)提供職務(wù)數(shù)據(jù)&

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

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

25、去的大量、繁重的手工操作，減少人工開支，節(jié)省資金，并且可大大提高企業(yè)客戶資源管理效率，使企業(yè)資源管理質(zhì)量更上一個(gè)臺(tái)階。</p><p><b>　　3.2數(shù)據(jù)庫的設(shè)計(jì)</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 數(shù)據(jù)表的建立</p><p>　　區(qū)域管理基本信息表Area 如表3.1所示：</p><p>　　該表列出區(qū)域管理的基本信息，如：區(qū)域編號(hào)、區(qū)域名稱、區(qū)域類型、上級(jí)區(qū)域編碼等。</p><p>　　表3.1 學(xué)生基本信息表

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

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

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

31、所示：</p><p>　　該表列出客戶基本信息，如：客戶編碼、客戶單位名稱、聯(lián)系人姓名、性別、職位編碼、辦公室電話、移動(dòng)電話、家庭電話、客戶等級(jí)、家庭住址、郵政編碼、身份證、刪除標(biāo)記、錄入時(shí)間、錄入日期等</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)結(jié)構(gòu)圖

33、</b></p><p>　　4 功能模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　4.1 客戶管理模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　4.1.1 設(shè)計(jì)目的</p><p>　　該模塊的主要功能是用來對(duì)客戶的基本信息進(jìn)行管理。可以實(shí)現(xiàn)添加客戶單位信息、修改客戶單位信息、刪除客戶單位信息、查看客戶單位信息以及客戶單位回收站管理（可以實(shí)現(xiàn)還

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

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

36、Sub Cmd_Add_Click()</p><p>　　Dim TmpAreaId As Integer</p><p>　　’保存當(dāng)前CurArea的對(duì)象</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>　　’客戶單位編輯信息的實(shí)現(xiàn)</p><p>　　Private Function Check() As Boolean</p><p>　　If CurArea.AreaId <= 0 Then</p><p>　　MsgBox

40、"請(qǐng)選擇地域"</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 "請(qǐng)輸入客戶單位"</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 "請(qǐng)選擇客戶類型"</p><p>　　ComboType.SetFocus</p&g

43、t;<p>　　Check = False</p><p>　　Exit Function</p><p><b>　　End If</b></p><p><b>　　’還原功能的實(shí)現(xiàn)</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 "請(qǐng)選擇記錄"</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("是否還原當(dāng)前行?", vbYesNo, "確認(rèn)") = 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è)交往模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　4.2.1 設(shè)計(jì)目的</p><p>　　該模塊主要功能是用來對(duì)客戶商業(yè)往來基本信息進(jìn)行管理。添加客戶商業(yè)往來數(shù)據(jù)、修改商業(yè)往來數(shù)據(jù)、刪除商業(yè)往來數(shù)據(jù)、查看客戶商業(yè)往來。</p><p><b>　　4.2.2設(shè)計(jì)思想</b></p>&

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

50、作。</p><p>　　4.2.3具體實(shí)現(xiàn)核心代碼</p><p><b>　　’添加功能的實(shí)現(xiàn)</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è)往來信息的實(shí)現(xiàn)</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 "請(qǐng)選擇客戶單位"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If ComboName.Text = "" Then<

54、;/p><p>　　MsgBox "請(qǐng)輸入聯(lián)系人"</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 用戶管理模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p><b>　　4.3.1設(shè)計(jì)目的</b></p><p>　　該模塊主要功能是用來對(duì)用戶基本信息進(jìn)行管理。可對(duì)用戶的基本信息進(jìn)行添加、修改、刪除的操作，但是不能夠?qū)芾碚哌M(jìn)行修改和刪除的操

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

60、lt;/p><p>　　4.3.3具體實(shí)現(xiàn)核心代碼</p><p><b>　　’添加功能的實(shí)現(xiàn)</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>　　’用戶信息的實(shí)現(xiàn)</b></p><p>　　Private Sub Cmd_OK_Clic

62、k()</p><p>　　If Trim(txtUserName) = "" Then</p><p>　　MsgBox "請(qǐng)輸入用戶名"</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 "密碼和確認(rèn)密碼不相同，請(qǐng)重新輸入"</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 "用戶名已經(jīng)存在，請(qǐng)重新輸入"</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>　　’修改功能的實(shí)現(xiàn)</b></p><p>　　Private Sub Cmd_Modi_Click()</p><p>　　If DataList1.Text = "" Then</p><p>　　MsgBox "請(qǐng)選擇要修改的用戶"</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>　　’刪除功能的實(shí)現(xiàn)</b&

76、gt;</p><p>　　Private Sub Cmd_Del_Click()</p><p>　　If DataList1.Text = "" Then</p><p>　　MsgBox "請(qǐng)選擇要?jiǎng)h除的用戶"</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>　　'確認(rèn)刪除</b></p><p>　　If MsgBox("是否刪除當(dāng)前用戶", vbYesNo, "請(qǐng)選擇") = 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結(jié)束語</b></p><p>　　經(jīng)過兩個(gè)月的開發(fā)和設(shè)計(jì)，由我負(fù)責(zé)的客戶管理、商業(yè)交往、用戶管理這些模塊的功能基本實(shí)現(xiàn)，其基本功能符合整個(gè)系統(tǒng)開發(fā)要求。開發(fā)過程中小組成員多次商討研究，共同努力，最終開發(fā)出了企業(yè)客戶資源管理系統(tǒng)。其基本功能能夠?qū)崿F(xiàn)客戶管理、客戶名錄、地域管理、商業(yè)交往、結(jié)構(gòu)管理以及用戶管理功能的實(shí)現(xiàn)。但

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

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

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