【正文】 + 39。,負(fù)責(zé)人=39。 + Text1(2) + _ 39。,所在區(qū)域 =39。 + Text1(3) + 39。,地址=39。 + Text1(4) + 39。,電話=39。 + Text1(5) + 39。,EMALL=39。 + _ Text1(6) + 39。,郵編=39。 + Text1(7) + 39。,簡介 =39。 + Text1(8) + 39。,成立日期=39。 + _ Str() + 39。,核心產(chǎn)品=39。 + Text1(9) + 39。,備注=39。 + Text1(10) + 39。where 編號(hào) =39。 + _ Text1(0) + 39。) End If If XSZZBookmark Then = XSZZBookmark Unload Me Exit SubSaveErr: MsgBox End Sub 銷售業(yè)績考核銷售業(yè)績考核模塊主要用于對(duì)業(yè)務(wù)員的銷售業(yè)績考核信息進(jìn)行有效管理，并根據(jù)業(yè)務(wù)員銷售業(yè)績的完成比率，自動(dòng)計(jì)算業(yè)務(wù)員的得分情況。本模塊可實(shí)現(xiàn)銷售業(yè)績考核信息的添加、修改、刪除、查找等功能。銷售業(yè)績考核模塊的運(yùn)行結(jié)果如圖13所示。圖13 銷售業(yè)績考核單擊“增加”按鈕，添加業(yè)務(wù)員的銷售業(yè)績考核信息，如圖14所示。圖14 銷售業(yè)績考核信息添加單擊“修改”按鈕，修改業(yè)務(wù)員的銷售業(yè)績考核信息，如圖15所示。圖15 銷售業(yè)績考核信息修改單擊“查找”按鈕，查找業(yè)務(wù)員的銷售業(yè)績考核信息，如圖16所示。圖16 銷售業(yè)績考核信息查詢1．父窗體設(shè)計(jì)（1）選擇“工程”→“添加窗體”命令，添加一個(gè)窗體，將該窗體的“名稱”屬性設(shè)置為main_xszz_xsyjgl。（2）在窗體中設(shè)計(jì)如圖13所示的工具欄。（3）在窗體上添加一個(gè)ADO控件和一個(gè)DataGrid控件。（4）主要控件的屬性設(shè)置如表3所示。表3 主要控件對(duì)象的屬性列表對(duì)象屬性值功能Adodc1 RecordSource 銷售考核表 提供數(shù)據(jù)綁定DataGrid1 DataSource Adodc1 顯示銷售考核信息（5）程序代碼。Dim rs1 As New Private Sub Form_Activate() If sql Then = sql If 0 Then Else MsgBox 沒有找到符合條件的記錄！, , 提示窗口 End If End IfEnd Sub雙擊DataGrid表格，進(jìn)入修改狀態(tài)，同時(shí)調(diào)出main_xszz_xsyjgl_lr窗體，代碼如下。Private Sub DataGrid1_DblClick() If 0 Then blnAddXSKH = False XSKHBookmark = Load main_xszz_xsyjgl_lr 1 Else MsgBox 系統(tǒng)沒有要修改的數(shù)據(jù)！, , 提示窗口 End IfEnd Sub單擊工具欄按鈕，調(diào)出相應(yīng)窗體或執(zhí)行相應(yīng)操作，代碼如下。Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case add 39。添加狀態(tài) blnAddXSKH = True = 2 Load main_yyxx 1 Case modify 39。修改狀態(tài)，并調(diào)用DataGrid1_DblClick過程 DataGrid1_DblClick Case delete If 0 Then Else MsgBox 系統(tǒng)沒有要?jiǎng)h除的數(shù)據(jù)！, , 提示窗口 End If Case find tb = 銷售考核表 Load main_find 1 Case all = 銷售考核表 order by ID End SelectEnd Sub2．子窗體設(shè)計(jì)（1）在工程中添加一個(gè)新窗體，將該窗體的“名稱”屬性設(shè)置為main_xszz_xszzgl_lr。（2）在窗體上添加TextBox控件數(shù)組（text1(0)～text1(10)）、一個(gè)TextBox控件（txtID）、一個(gè)Combo控件、一個(gè)DTPicker控件（默認(rèn)名稱為DTPicker1）和3個(gè)CommandButton控件等。（3）在窗體上添加一個(gè)ADODC控件、一個(gè)DataCombo控件，DataCombo控件屬于ActiveX控件，在使用前應(yīng)先將其添加到工具箱中，具體添加方法如下：在“部件”對(duì)話框中選中Microsoft DataList Controls （SP3）選項(xiàng)，然后單擊【確定】按鈕。此時(shí)，DataCombo控件將出現(xiàn)在工具箱中。（4）主要控件的屬性設(shè)置如表4所示。表4 主要控件對(duì)象的屬性列表對(duì)象屬性值功能Adodc1RecordSource考核指標(biāo)表提供數(shù)據(jù)綁定DataCombo1RowSourceListFieldAdodc1考核指標(biāo)顯示考核指標(biāo)信息（5）程序代碼。Dim n1 As Single窗體載入時(shí)，將首先通過布爾型變量blnAddXSKH判斷是添加還是修改。如果是添加狀態(tài)，則設(shè)置窗體的標(biāo)題為“銷售業(yè)績考核信息添加”；如果是修改狀態(tài)，則顯示當(dāng)前所選擇的記錄，代碼如下。Private Sub Form_Load() For i = 2005 To 3010 i amp。 年 Next i = 1 If blnAddXSKH = True Then = 銷售業(yè)績考核信息添加 Else = 銷售業(yè)績考核信息修改 = True: = True With If .RecordCount 0 Then txtID = .Fields(ID) Text1(0) = .Fields(業(yè)務(wù)員編號(hào)): Text1(1) = .Fields(業(yè)務(wù)員姓名) DataCombo1 = .Fields(考核指標(biāo)): Text1(2) = .Fields(完成率) Text1(3) = .Fields(分?jǐn)?shù)): If .Fields(年度) Then Combo1 = .Fields(年度) If .Fields(考核日期) Then DTPicker1 = .Fields(考核日期) End If End With End IfEnd SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Index = 2 Then n1 = Val(Text1(2)) Text1(3) = Round(3 * (n1 / 100) / (2 * (n1 / 100) + 1), 2) * 100 End IfEnd SubPrivate Sub Command1_Click() n1 = Val(Text1(2)) Text1(3) = Round(3 * (n1 / 100) / (2 * (n1 / 100) + 1), 2) * 100 If blnAddXSKH = True Then (insert into 銷售考核表(業(yè)務(wù)員編號(hào),業(yè)務(wù)員姓名,考核指標(biāo),完成率,分?jǐn)?shù),年度,考核日期) values(39。 + Text1(0) + 39。,39。 + Text1(1) + 39。,39。 + DataCombo1 + 39。,39。 + Text1(2) + 39。, + Text1(3) + ,39。 + Combo1 + 39。,39。 + Str(DTPicker1) + 39。)) Else (update 銷售考核表 set 考核指標(biāo)=39。 + DataCombo1 + 39。,完成率=39。 + Text1(2) + 39。,分?jǐn)?shù)= + Text1(3) + ,年度=39。 + Combo1 + 39。,考核日期=39。 + Str(DTPicker1) + 39。where ID= + txtID + ) End If If XSKHBookmark Then = XSKHBookmark Unload MeEnd Sub第六章 文件架構(gòu)。 主文件架構(gòu)圖，其中銷售訓(xùn)練項(xiàng)目設(shè)置和銷售考核指標(biāo)設(shè)置模塊使用了公用窗體main_jbzl_public。 基本資料文件架構(gòu)圖。 銷售業(yè)務(wù)管理和市場(chǎng)管理文件架構(gòu)圖。 銷售業(yè)務(wù)管理和銷售分析文件架構(gòu)圖。 營銷資源管理文件架構(gòu)圖第七章 系統(tǒng)評(píng)價(jià)7．1系統(tǒng)測(cè)試系統(tǒng)的測(cè)試是通過一些真實(shí)數(shù)據(jù)來測(cè)試軟件設(shè)計(jì)和編碼的錯(cuò)誤。由于軟件比較小，所以沒必要像大型系統(tǒng)一樣來測(cè)試。比如大型系統(tǒng)需要分模塊測(cè)試，子系統(tǒng)測(cè)試，系統(tǒng)測(cè)試等。在這一軟件的測(cè)試中，我們直接采用系統(tǒng)測(cè)試來完成。7．2系統(tǒng)的特點(diǎn)本系統(tǒng)軟件的編制按照軟件工程的方法和要求，具有以下特點(diǎn)：（1）系統(tǒng)維護(hù)簡單，系統(tǒng)所需要的任何數(shù)據(jù)或者任何公路橋梁信息資料，都是被保存在各自獨(dú)立的數(shù)據(jù)庫當(dāng)中的，大部分的工作都由我們的系統(tǒng)來完成，系統(tǒng)管理員和用戶只要做一些簡單的工作就可以了。（2）系統(tǒng)的使用方便，系統(tǒng)任何截面都全中文顯示，友好和可預(yù)見性的界面，及時(shí)的提示，讓用戶能很快的掌握操作方法。（3）系統(tǒng)的高效實(shí)用。數(shù)據(jù)庫的引入，不僅使本系統(tǒng)便于維護(hù)，而且，使得系統(tǒng)高效實(shí)用，無須了解系統(tǒng)的運(yùn)行體制和內(nèi)部結(jié)構(gòu)，就能掌握要領(lǐng)，運(yùn)用自如。（4）對(duì)于不同的數(shù)據(jù)資料都是采用分別獨(dú)立的數(shù)據(jù)庫來保存的。（5）可方便地按照各種查詢條件查詢得到相關(guān)數(shù)據(jù)，系統(tǒng)還支持模糊查詢，你只需輸入其中所包含的任意字符即可查詢得到相關(guān)的數(shù)據(jù)信息。7．3 系統(tǒng)總結(jié)系統(tǒng)實(shí)現(xiàn)了預(yù)期的效果，主要解決數(shù)據(jù)錄入、數(shù)據(jù)任意字段及任意字段模糊查詢、數(shù)據(jù)維護(hù)等功能。致謝正值論文完成之際，謹(jǐn)向所有曾給予我指導(dǎo)、鼓勵(lì)、支持、幫助、關(guān)心和理解的老師、同學(xué)以及朋友表示深深的謝意！首先感謝我的畢業(yè)設(shè)計(jì)指導(dǎo)老師巫宗賓老師和王新勝老師！在他們的精心幫助，細(xì)致的指導(dǎo)和言傳身教下，我的開發(fā)軟件的能力和獨(dú)立思考的能力得到系統(tǒng)的鍛煉和很大的提高，使得本文得以順利完成。感謝和我系機(jī)房的管理人員及教師，為我們畢業(yè)設(shè)計(jì)安排了理想的環(huán)境及公路橋梁，為我們的畢業(yè)設(shè)計(jì)的實(shí)際完成提供了可能。感謝我班的其他同學(xué)，在設(shè)計(jì)時(shí)給予的無私幫助和真誠的關(guān)心！參考文獻(xiàn)[1]趙杰、李濤、王國業(yè) 畢業(yè)設(shè)計(jì)指導(dǎo)及案例剖析——數(shù)據(jù)庫方向[M].北京:清華大學(xué)出版社，2005[2]張國藩 軟件工程導(dǎo)論[M].北京大學(xué)出版社， 2003[3]崔巍 數(shù)據(jù)庫系統(tǒng)及應(yīng)用[M].北京:高等教育出版社， 2004[4]方盈 SQL Server 2000中文版 徹底研究[M].北京:中國鐵道出版社，2001[5]甘仞初 管理信息系統(tǒng)[M].機(jī)械工業(yè)出版社，2001,P11152,P341[6]計(jì)算機(jī)軟件開發(fā)規(guī)范[S].[7]袁玲 三層客戶/服務(wù)器體系結(jié)構(gòu)實(shí)現(xiàn)信息管理系統(tǒng)技術(shù)探討人事管理系統(tǒng)的實(shí)現(xiàn)[D].成都:電子科技大學(xué)，2000– 53 –