可視化編程技術(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ù)及評(píng)語(yǔ)院（系）：軟件學(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對(duì)匕連的對(duì)MK> 語(yǔ)九則冊(cè)檢惱H他 <:計(jì) 目 庫(kù) 系 力 喫 己 S#近題宜、據(jù)現(xiàn)一h, i 燦序的使數(shù)實(shí)W+,«

2、;, ):|=3-L/" > 二 ? 二 / 匚3E一、 你冋選s,/B碼酬由護(hù) M V所M V代珊心皿 折握計(jì)杪解寫(xiě)-M婦空 診爭(zhēng)戶殳巾了扁通B戶 程1、以窗了編1申完 課1>22計(jì)33445>i 地 設(shè) 確 中 正指導(dǎo)教師評(píng)語(yǔ)及成績(jī)指日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)行與測(cè)試 15第 3 章 課程設(shè)計(jì)總結(jié) 16 參考文獻(xiàn) 17第 1 章 課程設(shè)計(jì)目的與

3、要求1.1 課程設(shè)計(jì)目的進(jìn)行的一次全面掌握運(yùn)用VB開(kāi)發(fā)應(yīng)用本課程的課程設(shè)計(jì)實(shí)際是學(xué)生學(xué)習(xí)完可視化編程技術(shù)課程后， 的綜合訓(xùn)練，其目的在于加深對(duì)可視化編程技術(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ì)的基本語(yǔ)法知識(shí)及常用技巧。1.4 課程設(shè)計(jì)要求按課程設(shè)計(jì)指導(dǎo)書(shū)提供的課題，每個(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)用程序的開(kāi)發(fā)任務(wù)。要求書(shū)寫(xiě)詳細(xì)的設(shè)計(jì)說(shuō) 明書(shū)，對(duì)有復(fù)雜的代碼段和程序段的部分，應(yīng)畫(huà)出程序流程圖，寫(xiě)出全部的代碼。在界 面設(shè)計(jì)中，需畫(huà)出每個(gè)窗體的布局，進(jìn)行屬性說(shuō)明，杜絕雷同。第 2 章 課程設(shè)計(jì)內(nèi)容2.1 系統(tǒng)功能設(shè)計(jì)2.1.1 系統(tǒng)功能分析主要完成學(xué)生成績(jī)的管理，包括：（ 1） 排課管理。主要完成課程的添加、修改、刪除和查詢。（ 2） 院系管理。主要完成院系的添加、修改、刪除和班級(jí)列表。（ 3） 學(xué)生管理。主要完成對(duì)

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

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 "請(qǐng)輸入用戶名"txtUser.SetFocusExit SubEnd IfIf txtPwd = "" The nMsgBox " 請(qǐng)輸入密碼"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é)生成績(jī)管理系統(tǒng)模塊設(shè)計(jì)1. 界面設(shè)計(jì)當(dāng)用戶驗(yàn)證成功之后，就進(jìn)入系統(tǒng)的管理界面，進(jìn)行對(duì)系統(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 " 請(qǐng)輸入合同編號(hào) "Exit SubEnd IfIf Trim(txtClient) = "" ThenMsgBox " 請(qǐng)輸入客戶單位 "Exit SubEnd IfIf ComboSignDate.Text = "" ThenMsgBox " 請(qǐng)輸入簽約日期 "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)存在，請(qǐ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í)行此過(guò)程 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í)行此過(guò)程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í)行此過(guò)程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ù)庫(kù)訪問(wèn)技術(shù)通過(guò)三種方式訪問(wèn)數(shù)據(jù)庫(kù)：1、 IDC (Internet Database Connector)方式；2、ADO( ActiveX Data Objects )方式；3、RDS( Remote

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

19、(.ide)文件和HTMI擴(kuò)展(.htx)文件。.ide 文件必須包括 ODBCS據(jù)源(Datasource )、HTML 擴(kuò)展文件的文件名(Template)以及要執(zhí)行的SQL語(yǔ)句(SQLStateme nt)。此外還有許 多可選字段，可以根據(jù)需要選用。.htx文件是帶有用<%或<!-%->括起來(lái)的附加標(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")，用來(lái)控制數(shù)據(jù)庫(kù)中的數(shù)據(jù)怎樣和.htx文件中HTM格式進(jìn)行 合并。數(shù)據(jù)庫(kù)列

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

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

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

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

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

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

26、法的補(bǔ)充。錯(cuò)誤猜測(cè)法：猜測(cè)被測(cè) 程序在那些地方容易出錯(cuò)，然后針對(duì)可能的薄弱環(huán)節(jié)設(shè)計(jì)測(cè)試用例。依賴于人們的先驗(yàn) 知識(shí)，因此，錯(cuò)誤猜測(cè)法一般作為輔助測(cè)試用例設(shè)計(jì)方法使用。果圖法：有因必有果比 較測(cè)試：由多個(gè)開(kāi)發(fā)團(tuán)隊(duì)開(kāi)發(fā)出了更多的軟件版本，比較測(cè)試結(jié)果。一般用 1,2 o(2) 白盒測(cè)試：邏輯覆蓋：語(yǔ)句覆蓋、判定覆蓋、條件覆蓋、條件組合覆蓋，發(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 為月氐可麗辦匸合盤(pán)令同管if g他合*祠嚴(yán)叱.0011002003品1 AAG遼于工:ihE00«3E或合間1小博人J舞萬(wàn)式：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í)