可視化編程技術(shù)課程設(shè)計(jì)企業(yè)銷售合同管理系統(tǒng)

1、遼寧工業(yè)大學(xué)可視化編稈技術(shù)課程設(shè)計(jì)（論文）題目：企業(yè)銷售合同管理系統(tǒng)院（系）：專業(yè)班級(jí)：學(xué) 號(hào)：學(xué)生姓名：指導(dǎo)教師：姜瑤教師職稱：助教起止時(shí)間：2012.11.26 至 2012.12.9課程設(shè)計(jì)（論文）任務(wù)及評語院（系）：軟件學(xué)院教研室：軟件教研窒學(xué)號(hào)學(xué)生姓名專業(yè)班級(jí)課程設(shè)計(jì) （論文） 題目企業(yè)銷售合同管理系統(tǒng)課程設(shè)計(jì)論文>任務(wù)BVO石疋 O V/.。r,Tp 厶冃 O礎(chǔ)功 法。B實(shí)B, q 農(nóng)匕匕 y? 星 、力厶冃 、了 j 的決 接功 加汕 、H對匕連的對MK> 語九則冊檢惱H他 <:計(jì) 目 庫 系 力 喫 己 S#近題宜、據(jù)現(xiàn)一h, i 燦序的使數(shù)實(shí)W+,«

2、;, ):|=3-L/" > 二 ? 二 / 匚3E一、 你冋選s,/B碼酬由護(hù) M V所M V代珊心皿 折握計(jì)杪解寫-M婦空 診爭戶殳巾了扁通B戶 程1、以窗了編1申完 課1>22計(jì)33445>i 地 設(shè) 確 中 正指導(dǎo)教師評語及成績指日3月成20目錄第 1 章 課程設(shè)計(jì)目的與要求 11.1 課程設(shè)計(jì)目的 11.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境 11.3 課程設(shè)計(jì)的預(yù)備知識(shí) 11.4 課程設(shè)計(jì)要求 1第 2 章 課程設(shè)計(jì)內(nèi)容 22.1 系統(tǒng)功能設(shè)計(jì) 22.2 系統(tǒng)詳細(xì)設(shè)計(jì) 22.3 系統(tǒng)運(yùn)行與測試 15第 3 章 課程設(shè)計(jì)總結(jié) 16 參考文獻(xiàn) 17第 1 章 課程設(shè)計(jì)目的與

3、要求1.1 課程設(shè)計(jì)目的進(jìn)行的一次全面掌握運(yùn)用VB開發(fā)應(yīng)用本課程的課程設(shè)計(jì)實(shí)際是學(xué)生學(xué)習(xí)完可視化編程技術(shù)課程后， 的綜合訓(xùn)練，其目的在于加深對可視化編程技術(shù)基本知識(shí)的理解， 程序的基本方法及基本技巧。1.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境硬件要求能運(yùn)行 Windows 9.X 操作系統(tǒng)的微機(jī)系統(tǒng)。軟件： Microsoft Visual Basic 6.0MicrosoftAccess 20031.3 課程設(shè)計(jì)的預(yù)備知識(shí)熟悉 Visual Basic 6.0 程序設(shè)計(jì)的基本語法知識(shí)及常用技巧。1.4 課程設(shè)計(jì)要求按課程設(shè)計(jì)指導(dǎo)書提供的課題，每個(gè)小組設(shè)計(jì)一個(gè)完整的管理系統(tǒng)應(yīng)用程序。要求 根據(jù)規(guī)定設(shè)計(jì)系統(tǒng)的具

4、體要求，按照應(yīng)用程序的設(shè)計(jì)步驟和 VB 的基本知識(shí)應(yīng)用程序的 分析與實(shí)現(xiàn)。應(yīng)根據(jù)基本學(xué)時(shí)分配合理安排設(shè)計(jì)時(shí)間，并獨(dú)立完成各方面的設(shè)計(jì)。選擇 同一題目的同學(xué)，可以共同協(xié)作完成一個(gè)應(yīng)用程序的開發(fā)任務(wù)。要求書寫詳細(xì)的設(shè)計(jì)說 明書，對有復(fù)雜的代碼段和程序段的部分，應(yīng)畫出程序流程圖，寫出全部的代碼。在界 面設(shè)計(jì)中，需畫出每個(gè)窗體的布局，進(jìn)行屬性說明，杜絕雷同。第 2 章 課程設(shè)計(jì)內(nèi)容2.1 系統(tǒng)功能設(shè)計(jì)2.1.1 系統(tǒng)功能分析主要完成學(xué)生成績的管理，包括：（ 1） 排課管理。主要完成課程的添加、修改、刪除和查詢。（ 2） 院系管理。主要完成院系的添加、修改、刪除和班級(jí)列表。（ 3） 學(xué)生管理。主要完成對

5、學(xué)生信息的添加、修改、刪除和查詢。（ 4） 課程管理。完成對課程信息的維護(hù)，包括課程添加、修改、刪除和查詢功能（ 5） 成績管理。主要完成成績的添加、刪改和成績查詢。2.1.2 系統(tǒng)功能模塊設(shè)計(jì)企業(yè)銷售合同管理系統(tǒng)系統(tǒng)用戶管理合同信息管理合同收賬管理合同費(fèi)用管理產(chǎn) 品 信 息 管 理刪除用戶信息修改用戶信息添加用戶信息合同成本利潤年統(tǒng)計(jì)合同成本利潤月統(tǒng)計(jì)修改合同信息添加銷售合同修改合同收賬添加合同收賬圖2.1系統(tǒng)功能模塊圖2.2系統(tǒng)詳細(xì)設(shè)計(jì)2.2.1用戶登陸模塊設(shè)計(jì)1.界面設(shè)計(jì)用戶要使用本系統(tǒng)，首先要通過系統(tǒng)的身份認(rèn)證，也就是登陸。登陸過程需要完成一下任務(wù)：(1) 根據(jù)用戶名和密碼來判斷是否可

6、能進(jìn)入系統(tǒng);(2) 根據(jù)用戶類型決定用戶擁有的權(quán)限2代碼設(shè)計(jì)Private Sub Cmd_OK_Click()Dim j As Sin gle'數(shù)據(jù)有效性檢查If txtUser = "" The nMsgBox "請輸入用戶名"txtUser.SetFocusExit SubEnd IfIf txtPwd = "" The nMsgBox " 請輸入密碼"txtPwd.SetFocusExit SubEnd IfNameKey = MakeStr(txtUser)PasswordKey = MakeSt

7、r(txtPwd)'判斷用戶是否存在If MyUser.ln_DB(NameKey) = False The nMsgBox " 用戶名不存在"Try_times = Try_times + 1If Try_times >= 3 The nMsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉DBapi_Disco nnectEndElseExit SubEnd IfEnd If'判斷密碼是否正確If MyUser.GetPwd（NameKey） <> PasswordKey The nMsgBox " 密碼錯(cuò)誤

8、"Try_times = Try_times + 1If Try_times >= 3 The nMsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"DBapi_Disco nnectEndElseExit SubEnd IfEnd IfCurUser.UserName = MyUser.UserName'關(guān)閉自己Un load MeEnd Sub2.2.2學(xué)生成績管理系統(tǒng)模塊設(shè)計(jì)1. 界面設(shè)計(jì)當(dāng)用戶驗(yàn)證成功之后，就進(jìn)入系統(tǒng)的管理界面，進(jìn)行對系統(tǒng)進(jìn)行管理。管理界面具有以Dim TmpId As Stri ng 產(chǎn)品底理費(fèi)用簣理收帳肯理下功

9、能：（1）產(chǎn)品管理（2）合同管理（3）費(fèi)用管理（4）收賬管理（5）合同統(tǒng)計(jì)（6）用戶管理2.用戶琶理If Trim(txtId) = "" ThenMsgBox " 請輸入合同編號(hào) "Exit SubEnd IfIf Trim(txtClient) = "" ThenMsgBox " 請輸入客戶單位 "Exit SubEnd IfIf ComboSignDate.Text = "" ThenMsgBox " 請輸入簽約日期 "Exit SubEnd IfTmpId = Mak

10、eStr(txtId)' 判斷產(chǎn)品編號(hào)是否已經(jīng)存在If Modify = False Or OriId <> Trim(txtId) ThenIf MyContract.In_DB(TmpId) = True ThenMsgBox " 合同編號(hào)“ " + Trim(txtId) + "”已經(jīng)存在，請重新輸入 "txtId.SetFocustxtId.SelStart = 0txtId.SelLength = Len(txtId)Exit SubEnd IfEnd IfWith MyContract.ContractId = TmpId

11、.Client = MakeStr(txtClient)' 規(guī)范日期格式.SignDate = Format(ComboSignDate.Text, "yyyy-mm-dd").EmpName = MakeStr(txtEmpName).DeliveryWay = MakeStr(txtDeliveryWay).DeliveryDate = Format(ComboDeliveryDate.Text, "yyyy-mm-dd").SettleWay = ComboSettle.ListIndex + 1.LastDay = Format(Comb

12、oLastDay.Text, "yyyy-mm-dd").Contents = MakeStr(txtContents).Additional = MakeStr(txtAdditional)If Modify = False Then.Status = 1.InsertModify = TrueOriId = .ContractIdElse.Update (OriId)End IfEnd WithMsgBox " 合同保存完成 "End SubPrivate Sub ComboDeliveryDate_GotFocus()' 將焦點(diǎn)設(shè)置為下一個(gè)

13、控件，否則將反復(fù)執(zhí)行此過程 txtDeliveryWay.SetFocus' 如果 ComboDeliveryDate 中包含日期，則將它賦值到 FrmDateSel 中If ComboDeliveryDate.Text <> "" ThenFrmDateSel.OriDate = ComboDeliveryDate.TextEnd If' 設(shè)置 FrmDateSel 窗體的位置FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left + 350FrmDateSel.Top = Me.Top + Com

14、boDeliveryDate.Top ComboDeliveryDate.Height + 450FrmDateSel.Show 1' 將選擇的日期顯示到 ComboDeliveryDate 控件中 ComboDeliveryDate.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboLastDay_GotFocus()'將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過程ComboSettle.SetFocus'如果ComboLastDay中包含日期，則將它賦值到 FrmDateSel中If ComboLastDay.Text

15、<> "" The nFrmDateSel.OriDate = ComboLastDay.TextEnd If'設(shè)置FrmDateSel窗體的位置FrmDateSel 丄 eft = Me丄 eft + ComboLastDay Left + 350 - FrmDateSel.WidthFrmDateSel.Top = Me.Top + ComboLastDay.Top + ComboLastDay.Height + 450FrmDateSel.Show 1'將選擇的日期顯示到ComboLastDay控件中ComboLastDay.Text =

16、FrmDateSel.OriDateEnd SubPrivate Sub ComboSig nDate_GotFocus()'將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過程ComboSettle.SetFocus'如果ComboSignDate中包含日期，則將它賦值到 FrmDateSel中If ComboSig nDate.Text <> "" The nFrmDateSel.OriDate = ComboSig nDate.TextEnd If'設(shè)置FrmDateSel窗體的位置FrmDateSel Left = Me Left + C

17、omboSig nDate.Left + 350FrmDateSel.Top = Me.Top + ComboSig nDate.Top + ComboSig nDate.Height + 450FrmDateSel.Show 1'將選擇的日期顯示到ComboSignDate控件中ComboSig nDate.Text = FrmDateSel.OriDateEnd Sub2.2.3數(shù)據(jù)庫訪問技術(shù)通過三種方式訪問數(shù)據(jù)庫：1、 IDC (Internet Database Connector)方式；2、ADO( ActiveX Data Objects )方式；3、RDS( Remote

18、 Data Service )方式。這三種訪問方式對數(shù)據(jù)庫的訪問都是由In ternet In formation Server完成的。通過 Web瀏覽器用HTTP協(xié)議向IIS (Internet信息服務(wù)器)發(fā)送請求，IIS執(zhí)行對數(shù)據(jù)庫的訪問， 并返回一個(gè)HTMI格式的文檔響應(yīng)。下面分別說明：1、IDC(Internet 數(shù)據(jù)庫接口)IDC是一個(gè)傳統(tǒng)的數(shù)據(jù)庫查詢工具，用來定義和執(zhí)行數(shù)據(jù)庫查詢的SQL命令，并向?yàn)g覽器返回一個(gè)指定數(shù)據(jù)格式的頁面。使用IDC訪問數(shù)據(jù)庫最大的特點(diǎn)是簡單，幾乎不需要 編程就能實(shí)現(xiàn)對數(shù)據(jù)庫的訪問。IDC使用兩種文件來控制如何訪問數(shù)據(jù)庫以及如何創(chuàng)建返回的Web頁面:IDC

19、(.ide)文件和HTMI擴(kuò)展(.htx)文件。.ide 文件必須包括 ODBCS據(jù)源(Datasource )、HTML 擴(kuò)展文件的文件名(Template)以及要執(zhí)行的SQL語句(SQLStateme nt)。此外還有許 多可選字段，可以根據(jù)需要選用。.htx文件是帶有用<%或<!-%->括起來的附加標(biāo)記的HTM文檔，IDC用這些標(biāo) 記將動(dòng)態(tài)數(shù)據(jù)添加到文檔中。在.htx文件中有六個(gè)關(guān)鍵字(beg in detail 、en ddetail、 if、else、endif和"%z")，用來控制數(shù)據(jù)庫中的數(shù)據(jù)怎樣和.htx文件中HTM格式進(jìn)行 合并。數(shù)據(jù)庫列

20、名說明HTML文檔中什么數(shù)據(jù)被返回。要執(zhí)行IDC查詢，通常的做法是在 HTML文件中嵌入一個(gè).idc文件的連接。例如，我們可用下面的HTML語句向Web服務(wù)器發(fā)出請求，要求執(zhí)行idctest.idc 文件：<A HREF="http:/LocalHost/idctest/idctest/idctest.idc">查詢 </A>當(dāng)Web服務(wù)器接到請求后，就調(diào)用 Httpodbc.dll (IDC)，與一定的數(shù)據(jù)源相連并 把SQL命令傳給數(shù)據(jù)庫。當(dāng)SQL語句被執(zhí)行后，IDC把返回的數(shù)據(jù)融入到.htx文件中。 IDC再把這個(gè)文檔返回給 Web服務(wù)器，Web

21、服務(wù)器再返回給瀏覽器。2、ADO( ActiveX 數(shù)據(jù)對象)ADOJ問數(shù)據(jù)庫，更像編寫數(shù)據(jù)庫應(yīng)用程序。它把絕大部分的數(shù)據(jù)庫操作封裝在七個(gè)對象中，在ASP頁面中編程調(diào)用這些對象執(zhí)行相應(yīng)的數(shù)據(jù)庫操作 ADO是 ASP技術(shù)的核心之一，它集中體現(xiàn)了 ASP技術(shù)豐富而靈活的數(shù)據(jù)庫訪問功能。ADO 建立了基于Web方式訪問數(shù)據(jù)庫的腳本編寫模型，不僅支持任何大型數(shù)據(jù)庫的核心功能， 而且支持許多數(shù)據(jù)庫所專有的特性。ADO使用本機(jī)數(shù)據(jù)源，通過 ODB(訪問數(shù)據(jù)庫。這些數(shù)據(jù)庫可以是關(guān)系型數(shù)據(jù)庫、文本型 數(shù)據(jù)庫、層次型數(shù)據(jù)庫或者任何支持 ODBC勺數(shù)據(jù)庫。主要優(yōu)點(diǎn)是易用、高速、占用內(nèi)存 和磁盤空間少，所以非常適合

22、于作為服務(wù)器端的數(shù)據(jù)庫訪問技術(shù)。相對于訪問數(shù)據(jù)庫的 CGI程序而言，它是多線程的，在出現(xiàn)大量并發(fā)請求時(shí)，也同樣可以保持服務(wù)器的運(yùn)行 效率，并且通過連接池(Connection Pool)技術(shù)以及對數(shù)據(jù)庫連接資源的完全控制，提 供與遠(yuǎn)程數(shù)據(jù)庫的高效連接與訪問，同時(shí)它還支持事務(wù)處理(Transaction )，以開發(fā)高效率、高可靠性的數(shù)據(jù)庫應(yīng)用程序。一般使用ADOff問數(shù)據(jù)庫的ASP腳本程序應(yīng)該使用Connection對象建立并管理與遠(yuǎn) 程數(shù)據(jù)庫的連接，用Comman對象提供靈活的查詢，用 Recordset對象訪問數(shù)據(jù)庫查詢 所返回的結(jié)果。這三者是 ADOS最核心的對象。與IDC一樣，運(yùn)行該數(shù)據(jù)

23、庫訪問腳本的通常做法是在HTML文件中嵌入一個(gè).asp文件的連接。如，用HTML語句向Web服務(wù)器發(fā)出請求，要求執(zhí)行intels.asp 文件：<A HREF="http:/LocalHost/idctest/ado/i ntels.asp">查詢 </A>3、RDS(遠(yuǎn)程數(shù)據(jù)服務(wù))RDS在 IIS 4.0中，與ADO集成到一起，使用同樣的編程模型，提供訪問遠(yuǎn)程數(shù)據(jù) 庫的功能。ADO雖然能夠提供非常強(qiáng)大的數(shù)據(jù)庫訪問功能，但是它不支持?jǐn)?shù)據(jù)遠(yuǎn)程操作(Data Remot ing)。它只能執(zhí)行查詢并返回?cái)?shù)據(jù)庫查詢的結(jié)果，這種結(jié)果是靜態(tài)的，服 務(wù)器上的數(shù)據(jù)庫

24、與客戶端看到的數(shù)據(jù)沒有活的連接關(guān)系。如果用戶端需要修改數(shù)據(jù)庫， 就必須構(gòu)造修改數(shù)據(jù)的SQL語句，并執(zhí)行相應(yīng)的查詢。而 RDS支持?jǐn)?shù)據(jù)遠(yuǎn)程操作。它不 僅能執(zhí)行查詢并返回?cái)?shù)據(jù)庫查詢結(jié)果，而且可以把服務(wù)器端的數(shù)據(jù)“搬到”用戶端修改， 并調(diào)用一個(gè)數(shù)據(jù)庫更新命令，將用戶端修改的數(shù)據(jù)寫回?cái)?shù)據(jù)庫，象使用本地?cái)?shù)據(jù)庫一樣。 RDS的底層是調(diào)用ADO來完成的，同樣具有ADO勺易用性，區(qū)別僅在于 RDS需要與數(shù)據(jù) 綁定控件一同使用，比如 Sheridan的ActiveX DataBound Grid 控件。RDS在 ADO勺基礎(chǔ)上通過綁定的數(shù)據(jù)顯示和操作控件，提供給客戶端更強(qiáng)的數(shù)據(jù)表 現(xiàn)力和遠(yuǎn)程數(shù)據(jù)操縱功能。可以說

25、 RDS是目前基于Web的最好的遠(yuǎn)程數(shù)據(jù)庫訪問方式。2.3系統(tǒng)運(yùn)行與測試、測試方式：(1) 黑盒測試：等價(jià)類劃分，邊界值分析法，錯(cuò)誤猜測法，因果圖法，比較測試法等 價(jià)類劃分：分析規(guī)格說明的基礎(chǔ)上劃分等價(jià)類，列出等價(jià)類，然后從等價(jià)類中選出有代 表性的數(shù)據(jù)進(jìn)行用例測試，如果某一類中的一個(gè)用例發(fā)現(xiàn)了錯(cuò)誤，那么這一類中的其他 用例也能發(fā)現(xiàn)同樣的錯(cuò)誤。有效等價(jià)類和無效等價(jià)類。效等價(jià)類：是由那些對程序規(guī)格 說明有意義的、合理的數(shù)據(jù)數(shù)據(jù)所構(gòu)成的集合；無效等價(jià)類：是那些對程序的規(guī)格說明 不合理的或無意義的輸入數(shù)據(jù)所構(gòu)成的集合劃分等價(jià)類的依據(jù)：正和反邊界值分析法： 其測試用例來自與等價(jià)類的邊界，是對等價(jià)類劃分方

26、法的補(bǔ)充。錯(cuò)誤猜測法：猜測被測 程序在那些地方容易出錯(cuò)，然后針對可能的薄弱環(huán)節(jié)設(shè)計(jì)測試用例。依賴于人們的先驗(yàn) 知識(shí)，因此，錯(cuò)誤猜測法一般作為輔助測試用例設(shè)計(jì)方法使用。果圖法：有因必有果比 較測試：由多個(gè)開發(fā)團(tuán)隊(duì)開發(fā)出了更多的軟件版本，比較測試結(jié)果。一般用 1,2 o(2) 白盒測試：邏輯覆蓋：語句覆蓋、判定覆蓋、條件覆蓋、條件組合覆蓋，發(fā)現(xiàn)錯(cuò) 誤的能力從弱到強(qiáng)。二、程序運(yùn)行展示合同管理模塊是本系統(tǒng)的核心部分，可以實(shí)現(xiàn)一下功能：(1) 創(chuàng)建合同；(2) 修改合同；(3) 改變合同狀態(tài)；(4) 查看合同內(nèi)容。&身份驗(yàn)證三2003 為月氐可麗辦匸合盤令同管if g他合*祠嚴(yán)叱.0011002003品1 AAG遼于工:ihE00«3E或合間1小博人J舞萬式：2000-12301：."叫眉二亦'邀屈1'：'：1 i .!14第3章課程設(shè)計(jì)總結(jié)忙碌的VB課程設(shè)計(jì)轉(zhuǎn)眼間已經(jīng)結(jié)束了，每學(xué)期的課程設(shè)計(jì)是最鍛煉同學(xué)們動(dòng)手實(shí)