vb可視化編程技術(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ù)課程設(shè)計(jì)任務(wù)及要求：1、掌握VB程序設(shè)計(jì)語(yǔ)言的基礎(chǔ)知識(shí)。2、設(shè)計(jì)所選擇的題目，對(duì)具體功能進(jìn)行詳細(xì)的分析，根據(jù)系統(tǒng)的要求在VB中設(shè)計(jì)窗體界面，使其合理化。3、了解VB與數(shù)據(jù)庫(kù)的連接方法。4、編寫(xiě)代碼，實(shí)現(xiàn)系統(tǒng)的功能。5、通過(guò)調(diào)試程

2、序，加深對(duì)VB編程的基本技巧及方法的理解。課程設(shè)計(jì)過(guò)程中，要嚴(yán)格遵守實(shí)踐環(huán)節(jié)的時(shí)間安排，聽(tīng)從指導(dǎo)教師的指導(dǎo)。正確地完成上述內(nèi)容，記錄實(shí)習(xí)日記，規(guī)范完整地撰寫(xiě)出課程設(shè)計(jì)論文。指導(dǎo)教師評(píng)語(yǔ)及成績(jī)成績(jī)： 指導(dǎo)教師簽字： 2012 年 12 月 13日14 / 17文檔可自由編輯打印目 錄第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ì)目的與要求1.1 課程設(shè)計(jì)目的本課程的課程設(shè)計(jì)

3、實(shí)際是學(xué)生學(xué)習(xí)完可視化編程技術(shù)課程后，進(jìn)行的一次全面的綜合訓(xùn)練，其目的在于加深對(duì)可視化編程技術(shù)基本知識(shí)的理解，掌握運(yùn)用VB開(kāi)發(fā)應(yīng)用程序的基本方法及基本技巧。1.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境硬件要求能運(yùn)行Windows 9.X操作系統(tǒng)的微機(jī)系統(tǒng)。軟件：Microsoft Visual Basic 6.0 Microsoft Access 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)的具體要求，按照應(yīng)用程序的設(shè)計(jì)步驟和VB的基本知識(shí)應(yīng)用程

4、序的分析與實(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ì)學(xué)生信息的添加、修改、刪除和查詢。（4） 課程管理。完成對(duì)課程信息的維護(hù)，包

5、括課程添加、修改、刪除和查詢功能。（5） 成績(jī)管理。主要完成成績(jī)的添加、刪改和成績(jī)查詢。2.1.2 系統(tǒng)功能模塊設(shè)計(jì) 企業(yè)銷售合同管理系統(tǒng)產(chǎn)品信息管理合同費(fèi)用管理合同收賬管理合同信息管理合同統(tǒng)計(jì)管理系統(tǒng)用戶管理修改產(chǎn)品信息刪除產(chǎn)品信息添加合同費(fèi)用修改合同費(fèi)用添加合同收賬修改合同收賬添加銷售合同修改合同信息合同成本利潤(rùn)月統(tǒng)計(jì)合同成本利潤(rùn)年統(tǒng)計(jì)添加用戶信息刪除用戶信息添加產(chǎn)品信息修改用戶信息圖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)判斷是否可能進(jìn)入系統(tǒng)；（2

6、）根據(jù)用戶類型決定用戶擁有的權(quán)限2.代碼設(shè)計(jì)Private Sub Cmd_OK_Click() Dim j As Single數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請(qǐng)輸入用戶名 txtUser.SetFocus Exit Sub End If If txtPwd = Then MsgBox 請(qǐng)輸入密碼 txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd)判斷用戶是否存在 If MyUser.In_DB(NameKey) = False The

7、n MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If判斷密碼是否正確 If MyUser.GetPwd(NameKey) PasswordKey Then MsgBox 密碼錯(cuò)誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconne

8、ct End Else Exit Sub End If End If CurUser.UserName = MyUser.UserName關(guān)閉自己 Unload 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)行管理。管理界面具有以下功能：（1） 產(chǎn)品管理（2） 合同管理（3） 費(fèi)用管理（4） 收賬管理（5） 合同統(tǒng)計(jì)（6） 用戶管理 2.代碼設(shè)計(jì)Private Sub Cmd_Save_Click() Dim TmpId As String If Trim(txtId) = Then MsgBox 請(qǐng)輸入合同編號(hào) Exit

9、 Sub End If If Trim(txtClient) = Then MsgBox 請(qǐng)輸入客戶單位 Exit Sub End If If ComboSignDate.Text = Then MsgBox 請(qǐng)輸入簽約日期 Exit Sub End If TmpId = MakeStr(txtId) 判斷產(chǎn)品編號(hào)是否已經(jīng)存在 If Modify = False Or OriId Trim(txtId) Then If MyContract.In_DB(TmpId) = True Then MsgBox 合同編號(hào)“ + Trim(txtId) + ”已經(jīng)存在，請(qǐng)重新輸入 txtId.SetFo

10、cus txtId.SelStart = 0 txtId.SelLength = Len(txtId) Exit Sub End If End If With MyContract .ContractId = TmpId .Client = MakeStr(txtClient) 規(guī)范日期格式 .SignDate = Format(ComboSignDate.Text, yyyy-mm-dd) .EmpName = MakeStr(txtEmpName) .DeliveryWay = MakeStr(txtDeliveryWay) .DeliveryDate = Format(ComboDeli

11、veryDate.Text, yyyy-mm-dd) .SettleWay = ComboSettle.ListIndex + 1 .LastDay = Format(ComboLastDay.Text, yyyy-mm-dd) .Contents = MakeStr(txtContents) .Additional = MakeStr(txtAdditional) If Modify = False Then .Status = 1 .Insert Modify = True OriId = .ContractId Else .Update (OriId) End If End With M

12、sgBox 合同保存完成End SubPrivate Sub ComboDeliveryDate_GotFocus() 將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過(guò)程 txtDeliveryWay.SetFocus 如果ComboDeliveryDate中包含日期，則將它賦值到FrmDateSel中 If ComboDeliveryDate.Text Then FrmDateSel.OriDate = ComboDeliveryDate.Text End If 設(shè)置FrmDateSel窗體的位置 FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left

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

14、el中 If ComboLastDay.Text Then FrmDateSel.OriDate = ComboLastDay.Text End If 設(shè)置FrmDateSel窗體的位置 FrmDateSel.Left = Me.Left + ComboLastDay.Left + 350 - FrmDateSel.Width FrmDateSel.Top = Me.Top + ComboLastDay.Top + ComboLastDay.Height + 450 FrmDateSel.Show 1 將選擇的日期顯示到ComboLastDay控件中 ComboLastDay.Text = F

15、rmDateSel.OriDateEnd SubPrivate Sub ComboSignDate_GotFocus() 將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過(guò)程 ComboSettle.SetFocus 如果ComboSignDate中包含日期，則將它賦值到FrmDateSel中 If ComboSignDate.Text Then FrmDateSel.OriDate = ComboSignDate.Text End If 設(shè)置FrmDateSel窗體的位置 FrmDateSel.Left = Me.Left + ComboSignDate.Left + 350 FrmDateSel.

16、Top = Me.Top + ComboSignDate.Top + ComboSignDate.Height + 450 FrmDateSel.Show 1 將選擇的日期顯示到ComboSignDate控件中 ComboSignDate.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 Data Service）方式。這三種訪問(wèn)方式對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)都是由Internet I

17、nformation Server完成的。通過(guò)Web瀏覽器用HTTP協(xié)議向IIS（Internet信息服務(wù)器）發(fā)送請(qǐng)求，IIS執(zhí)行對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)，并返回一個(gè)HTML格式的文檔響應(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 (.idc)文件和HTML擴(kuò)展(.htx)文件。.idc文件必須包括ODBC數(shù)據(jù)源（Datasource

18、）、HTML擴(kuò)展文件的文件名（Template）以及要執(zhí)行的SQL語(yǔ)句（SQLStatement）。此外還有許多可選字段，可以根據(jù)需要選用。.htx文件是帶有用或括起來(lái)的附加標(biāo)記的HTML文檔，IDC用這些標(biāo)記將動(dòng)態(tài)數(shù)據(jù)添加到文檔中。在.htx文件中有六個(gè)關(guān)鍵字（begindetail、enddetail、if、else、endif和%z），用來(lái)控制數(shù)據(jù)庫(kù)中的數(shù)據(jù)怎樣和.htx文件中HTML格式進(jìn)行合并。數(shù)據(jù)庫(kù)列名說(shuō)明HTML文檔中什么數(shù)據(jù)被返回。要執(zhí)行IDC查詢，通常的做法是在HTML文件中嵌入一個(gè).idc文件的連接。例如，我們可用下面的HTML語(yǔ)句向Web服務(wù)器發(fā)出請(qǐng)求，要求執(zhí)行idcte

19、st.idc文件：查詢 當(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服務(wù)器再返回給瀏覽器。2、ADO（ActiveX數(shù)據(jù)對(duì)象） ADO訪問(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ù)的核心功

20、能，而且支持許多數(shù)據(jù)庫(kù)所專有的特性。ADO使用本機(jī)數(shù)據(jù)源，通過(guò)ODBC訪問(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)空間少，所以非常適合于作為服務(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)用程序。 一般使用ADO訪問(wèn)數(shù)據(jù)庫(kù)的ASP腳

21、本程序應(yīng)該使用Connection對(duì)象建立并管理與遠(yuǎn)程數(shù)據(jù)庫(kù)的連接，用Command對(duì)象提供靈活的查詢，用Recordset對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)查詢所返回的結(jié)果。這三者是ADO的最核心的對(duì)象。與IDC一樣，運(yùn)行該數(shù)據(jù)庫(kù)訪問(wèn)腳本的通常做法是在HTML文件中嵌入一個(gè).asp文件的連接。如，用HTML語(yǔ)句向Web服務(wù)器發(fā)出請(qǐng)求，要求執(zhí)行intels.asp文件：查詢 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 Remoting）。它只能執(zhí)行查詢并返回?cái)?shù)

22、據(jù)庫(kù)查詢的結(jié)果，這種結(jié)果是靜態(tài)的，服務(wù)器上的數(shù)據(jù)庫(kù)與客戶端看到的數(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)

23、力和遠(yuǎn)程數(shù)據(jù)操縱功能?？梢哉f(shuō)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à)類的邊界，

24、是對(duì)等價(jià)類劃分方法的補(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。 (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)容。第3章 課程設(shè)計(jì)總結(jié)忙碌的VB課程設(shè)計(jì)轉(zhuǎn)眼間已經(jīng)結(jié)束了，每學(xué)期的課程設(shè)計(jì)是最鍛煉同學(xué)們動(dòng)手實(shí)踐能力的時(shí)候。通過(guò)我們組四個(gè)人的共同努力終于完成了本次的課程設(shè)計(jì)