1、遼 寧 工 業大 學 可視化編程技術課程設計（論文）題目：企業銷售合同管理系統院（系）： 專業班級：學 號：學生姓名：指導教師： 姜 瑤 教師職稱： 助 教 起止時間：至課程設計（論文）任務及評語院（系）：軟件學院 教研室：軟件教研窒學 號學生姓名專業班級課程設計（論文）題目企業銷售合同管理系統課程設計（論文）任務課程設計任務及要求：1、掌握VB程序設計語言的基礎知識。2、設計所選擇的題目，對具體功能進行詳細的分析，根據系統的要求在VB中設計窗體界面，使其合理化。3、了解VB與數據庫的連接方法。4、編寫代碼，實現系統的功能。5、通過調試程序，加深對VB編程的基本技巧及方法的理解。課程設計過程中

2、，要嚴格遵守實踐環節的時間安排，聽從指導教師的指導。正確地完成上述內容，記錄實習日記，規范完整地撰寫出課程設計論文。指導教師評語及成績成績： 指導教師簽字：2012 年 12 月 13日目 錄第1章 課程設計目的與要求11.1 課程設計目的11.2 課程設計的實驗環境11.3 課程設計的預備知識11.4 課程設計要求1第2章 課程設計內容22.1系統功能設計22.2 系統詳細設計22.3 系統運行與測試15第3章 課程設計總結16參考文獻17第1章 課程設計目的與要求1.1 課程設計目的本課程的課程設計實際是學生學習完可視化編程技術課程后，進行的一次全面的綜合訓練，其目的在于加深對可視化編程技

3、術基本知識的理解，掌握運用VB開發應用程序的基本方法及基本技巧。1.2 課程設計的實驗環境硬件要求能運行Windows 9.X操作系統的微機系統。軟件：Microsoft Visual Basic 6.0MicrosoftAccess 20031.3 課程設計的預備知識熟悉Visual Basic 6.0程序設計的基本語法知識及常用技巧。1.4 課程設計要求按課程設計指導書提供的課題，每個小組設計一個完整的管理系統應用程序。要求根據規定設計系統的具體要求，按照應用程序的設計步驟和VB的基本知識應用程序的分析與實現。應根據基本學時分配合理安排設計時間，并獨立完成各方面的設計。選擇同一題目的同學，

4、可以共同協作完成一個應用程序的開發任務。要求書寫詳細的設計說明書，對有復雜的代碼段和程序段的部分，應畫出程序流程圖，寫出全部的代碼。在界面設計中，需畫出每個窗體的布局，進行屬性說明，杜絕雷同。第2章 課程設計內容2.1系統功能設計系統功能分析主要完成學生成績的管理，包括：（1） 排課管理。主要完成課程的添加、修改、刪除和查詢。（2） 院系管理。主要完成院系的添加、修改、刪除和班級列表。（3） 學生管理。主要完成對學生信息的添加、修改、刪除和查詢。（4） 課程管理。完成對課程信息的維護，包括課程添加、修改、刪除和查詢功能。（5） 成績管理。主要完成成績的添加、刪改和成績查詢。系統功能模塊設計企業

5、銷售合同管理系統產品信息管理合同費用管理合同收賬管理合同信息管理合同統計管理系統用戶管理修改產品信息刪除產品信息添加合同費用修改合同費用添加合同收賬修改合同收賬添加銷售合同修改合同信息合同成本利潤月統計合同成本利潤年統計添加用戶信息刪除用戶信息添加產品信息修改用戶信息圖2.1系統功能模塊圖2.2系統詳細設計2.2.1用戶登陸模塊設計1.界面設計用戶要使用本系統，首先要通過系統的身份認證，也就是登陸。登陸過程需要完成一下任務：（1）根據用戶名和密碼來判斷是否可能進入系統；（2）根據用戶類型決定用戶擁有的權限2.代碼設計Private Sub Cmd_OK_Click() Dim j As Sin

6、gle'數據有效性檢查 If txtUser = "" Then MsgBox "請輸入用戶名" txtUser.SetFocus Exit Sub End If If txtPwd = "" Then MsgBox "請輸入密碼" txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd)'判斷用戶是否存在 If MyUser.In_DB(NameKey) = False Then

7、 MsgBox "用戶名不存在" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已經三次嘗試進入本系統，均不成功，系統將關閉" DBapi_Disconnect End Else Exit Sub End If End If'判斷密碼是否正確 If MyUser.GetPwd(NameKey) <> PasswordKey Then MsgBox "密碼錯誤" Try_times = Try_times + 1 If Try_times &

8、gt;= 3 Then MsgBox "您已經三次嘗試進入本系統，均不成功，系統將關閉" DBapi_Disconnect End Else Exit Sub End If End If CurUser.UserName = MyUser.UserName'關閉自己 Unload MeEnd Sub2.2.2學生成績管理系統模塊設計1.界面設計當用戶驗證成功之后，就進入系統的管理界面，進行對系統進行管理。管理界面具有以下功能：（1） 產品管理（2） 合同管理（3） 費用管理（4） 收賬管理（5） 合同統計（6） 用戶管理2.代碼設計Private Sub Cmd_S

9、ave_Click() Dim TmpId As String If Trim(txtId) = "" Then MsgBox "請輸入合同編號" Exit Sub End If If Trim(txtClient) = "" Then MsgBox "請輸入客戶單位" Exit Sub End If If ComboSignDate.Text = "" Then MsgBox "請輸入簽約日期" Exit Sub End If TmpId = MakeStr(txtId)

10、'判斷產品編號是否已經存在 If Modify = False Or OriId <> Trim(txtId) Then If MyContract.In_DB(TmpId) = True Then MsgBox "合同編號“" + Trim(txtId) + "”已經存在，請重新輸入" txtId.SetFocus txtId.SelStart = 0 txtId.SelLength = Len(txtId) Exit Sub End If End If With MyContract .ContractId = TmpId .Cl

11、ient = MakeStr(txtClient) '規范日期格式 .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(C

12、omboLastDay.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 MsgBox "合同保存完成"End SubPrivate Sub ComboDeliveryDate_GotFocus() &

13、#39;將焦點設置為下一個控件，否則將反復執行此過程 txtDeliveryWay.SetFocus '如果ComboDeliveryDate中包含日期，則將它賦值到FrmDateSel中 If ComboDeliveryDate.Text <> "" Then FrmDateSel.OriDate = ComboDeliveryDate.Text End If '設置FrmDateSel窗體的位置 FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left + 350 FrmDateSel.Top =

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

15、mboLastDay.Text <> "" Then FrmDateSel.OriDate = ComboLastDay.Text End If '設置FrmDateSel窗體的位置 FrmDateSel.Left = Me.Left + ComboLastDay.Left + 350 - FrmDateSel.Width FrmDateSel.Top = Me.Top + ComboLastDay.Top + ComboLastDay.Height + 450 FrmDateSel.Show 1 '將選擇的日期顯示到ComboLastDay控件

16、中 ComboLastDay.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboSignDate_GotFocus() '將焦點設置為下一個控件，否則將反復執行此過程 ComboSettle.SetFocus '如果ComboSignDate中包含日期，則將它賦值到FrmDateSel中 If ComboSignDate.Text <> "" Then FrmDateSel.OriDate = ComboSignDate.Text End If '設置FrmDateSel窗體的位置 FrmD

17、ateSel.Left = Me.Left + ComboSignDate.Left + 350 FrmDateSel.Top = Me.Top + ComboSignDate.Top + ComboSignDate.Height + 450 FrmDateSel.Show 1 '將選擇的日期顯示到ComboSignDate控件中 ComboSignDate.Text = FrmDateSel.OriDateEnd Sub2.2.3數據庫訪問技術通過三種方式訪問數據庫：1、IDC（Internet Database Connector）方式；2、ADO（ActiveX Data Obj

18、ects）方式；3、RDS（Remote Data Service）方式。這三種訪問方式對數據庫的訪問都是由Internet Information Server完成的。通過Web瀏覽器用HTTP協議向IIS（Internet信息服務器）發送請求，IIS執行對數據庫的訪問，并返回一個HTML格式的文檔響應。下面分別說明：1、IDC（Internet數據庫接口）IDC是一個傳統的數據庫查詢工具，用來定義和執行數據庫查詢的SQL命令，并向瀏覽器返回一個指定數據格式的頁面。使用IDC訪問數據庫最大的特點是簡單，幾乎不需要編程就能實現對數據庫的訪問。IDC使用兩種文件來控制如何訪問數據庫以及如何創建返

19、回的Web頁面：IDC (.idc)文件和HTML擴展(.htx)文件。.idc文件必須包括ODBC數據源（Datasource）、HTML擴展文件的文件名（Template）以及要執行的SQL語句（SQLStatement）。此外還有許多可選字段，可以根據需要選用。.htx文件是帶有用<%>或<!-%->括起來的附加標記的HTML文檔，IDC用這些標記將動態數據添加到文檔中。在.htx文件中有六個關鍵字（begindetail、enddetail、if、else、endif和"%z"），用來控制數據庫中的數據怎樣和.htx文件中HTML格式進行合并

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

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

22、訪問技術。相對于訪問數據庫的CGI程序而言，它是多線程的，在出現大量并發請求時，也同樣可以保持服務器的運行效率，并且通過連接池（Connection Pool）技術以及對數據庫連接資源的完全控制，提供與遠程數據庫的高效連接與訪問，同時它還支持事務處理（Transaction），以開發高效率、高可靠性的數據庫應用程序。 一般使用ADO訪問數據庫的ASP腳本程序應該使用Connection對象建立并管理與遠程數據庫的連接，用Command對象提供靈活的查詢，用Recordset對象訪問數據庫查詢所返回的結果。這三者是ADO的最核心的對象。與IDC一樣，運行該數據庫訪問腳本的通常做法是在HTML文件

23、中嵌入一個.asp文件的連接。如，用HTML語句向Web服務器發出請求，要求執行intels.asp文件：<A HREF="http:/LocalHost/idctest/ado/intels.asp">查詢</A>     3、RDS（遠程數據服務） RDS在IIS 4.0中，與ADO集成到一起，使用同樣的編程模型，提供訪問遠程數據庫的功能。ADO雖然能夠提供非常強大的數據庫訪問功能，但是它不支持數據遠程操作（Data Remoting）。它只能執行查詢并返回數據庫查詢的結果，這種結果是靜態的，服務器上的數據庫與客戶端

24、看到的數據沒有活的連接關系。如果用戶端需要修改數據庫，就必須構造修改數據的SQL語句，并執行相應的查詢。而RDS支持數據遠程操作。它不僅能執行查詢并返回數據庫查詢結果，而且可以把服務器端的數據“搬到”用戶端修改，并調用一個數據庫更新命令，將用戶端修改的數據寫回數據庫，象使用本地數據庫一樣。RDS的底層是調用ADO來完成的，同樣具有ADO的易用性，區別僅在于RDS需要與數據綁定控件一同使用，比如Sheridan的ActiveX DataBound Grid控件。RDS在ADO的基礎上通過綁定的數據顯示和操作控件，提供給客戶端更強的數據表現力和遠程數據操縱功能。可以說RDS是目前基于Web的最好的

25、遠程數據庫訪問方式。2.3 系統運行與測試一、測試方式:(1)黑盒測試：等價類劃分，邊界值分析法，錯誤猜測法，因果圖法，比較測試法等價類劃分：分析規格說明的基礎上劃分等價類，列出等價類，然后從等價類中選出有代表性的數據進行用例測試，如果某一類中的一個用例發現了錯誤，那么這一類中的其他用例也能發現同樣的錯誤。有效等價類和無效等價類。效等價類：是由那些對程序規格說明有意義的、合理的數據數據所構成的集合；無效等價類：是那些對程序的規格說明不合理的或無意義的輸入數據所構成的集合劃分等價類的依據：正和反邊界值分析法：其測試用例來自與等價類的邊界，是對等價類劃分方法的補充。錯誤猜測法：猜測被測程序在那些地方容易出錯，然后針對可能的薄弱環節設計測試用例。依賴于人們的先驗知識，因此，錯誤猜測法一般作為輔助測試用例設計方法使用。果圖法：有因必有果比較測試：由多個開發團隊開發出了更多的軟件版本，比較測試結果。一般用1,2。 (2) 白盒測試：邏輯覆蓋：語句覆蓋、判定覆蓋、條件覆蓋、條件組合覆蓋，發現錯誤的能力從弱到強。二、 程序運行展示合同管理模塊是本系統的核心部分，可以實現一下功能：（1）創建合同；（2）修改合同；（3）改變合同狀態；（4）查看合同內容。第3章 課程設計總結忙碌的VB課程設計轉