可视化编程技术课程设计企业销售合同管理系统

1、辽宁工业大学可视化编稈技术课程设计（论文）题目：企业销售合同管理系统院（系）：专业班级：学 号：学生姓名：指导教师：姜瑶教师职称：助教起止时间：2012.11.26 至 2012.12.9课程设计（论文）任务及评语院（系）：软件学院教研室：软件教研窒学号学生姓名专业班级课程设计 （论文） 题目企业销售合同管理系统课程设计论文>任务BVO石疋 O V/.。r,Tp 厶冃 O础功 法。B实B, q 农匕匕 y? 星 、力厶冃 、了 j 的决 接功 加汕 、H对匕连的对MK> 语九则册檢惱H他 <:计 目 库 系 力 喫 己 S#近题宜、据现一h, i 灿序的使数实W+,«

2、;, ):|=3-L/" > 二 ? 二 / 匚3E一、 你冋选s,/B码酬由护 M V所M V代珊心皿 折握计杪解写-M妇空 诊爭戶殳巾了扁通B戶 程1、以窗了编1申完 课1>22计33445>i 地 设 确 中 正指导教师评语及成绩指日3月成20目录第 1 章 课程设计目的与要求 11.1 课程设计目的 11.2 课程设计的实验环境 11.3 课程设计的预备知识 11.4 课程设计要求 1第 2 章 课程设计内容 22.1 系统功能设计 22.2 系统详细设计 22.3 系统运行与测试 15第 3 章 课程设计总结 16 参考文献 17第 1 章 课程设计目的与

3、要求1.1 课程设计目的进行的一次全面掌握运用VB开发应用本课程的课程设计实际是学生学习完可视化编程技术课程后， 的综合训练，其目的在于加深对可视化编程技术基本知识的理解， 程序的基本方法及基本技巧。1.2 课程设计的实验环境硬件要求能运行 Windows 9.X 操作系统的微机系统。软件： Microsoft Visual Basic 6.0MicrosoftAccess 20031.3 课程设计的预备知识熟悉 Visual Basic 6.0 程序设计的基本语法知识及常用技巧。1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。要求 根据规定设计系统的具

4、体要求，按照应用程序的设计步骤和 VB 的基本知识应用程序的 分析与实现。应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。选择 同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说 明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界 面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。第 2 章 课程设计内容2.1 系统功能设计2.1.1 系统功能分析主要完成学生成绩的管理，包括：（ 1） 排课管理。主要完成课程的添加、修改、删除和查询。（ 2） 院系管理。主要完成院系的添加、修改、删除和班级列表。（ 3） 学生管理。主要完成对

5、学生信息的添加、修改、删除和查询。（ 4） 课程管理。完成对课程信息的维护，包括课程添加、修改、删除和查询功能（ 5） 成绩管理。主要完成成绩的添加、删改和成绩查询。2.1.2 系统功能模块设计企业销售合同管理系统系统用户管理合同信息管理合同收账管理合同费用管理产 品 信 息 管 理删除用户信息修改用户信息添加用户信息合同成本利润年统计合同成本利润月统计修改合同信息添加销售合同修改合同收账添加合同收账图2.1系统功能模块图2.2系统详细设计2.2.1用户登陆模块设计1.界面设计用户要使用本系统，首先要通过系统的身份认证，也就是登陆。登陆过程需要完成一下任务：(1) 根据用户名和密码来判断是否可

6、能进入系统;(2) 根据用户类型决定用户拥有的权限2代码设计Private Sub Cmd_OK_Click()Dim j As Sin gle'数据有效性检查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 "您已经三次尝试进入本系统，均不成功，系统将关闭DBapi_Disco nnectEndElseExit SubEnd IfEnd If'判断密码是否正确If MyUser.GetPwd（NameKey） <> PasswordKey The nMsgBox " 密码错误

8、"Try_times = Try_times + 1If Try_times >= 3 The nMsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_Disco nnectEndElseExit SubEnd IfEnd IfCurUser.UserName = MyUser.UserName'关闭自己Un load MeEnd Sub2.2.2学生成绩管理系统模块设计1. 界面设计当用户验证成功之后，就进入系统的管理界面，进行对系统进行管理。管理界面具有以Dim TmpId As Stri ng 产品底理费用簣理收帐肯理下功

9、能：（1）产品管理（2）合同管理（3）费用管理（4）收账管理（5）合同统计（6）用户管理2.用户琶理If Trim(txtId) = "" ThenMsgBox " 请输入合同编号 "Exit SubEnd IfIf Trim(txtClient) = "" ThenMsgBox " 请输入客户单位 "Exit SubEnd IfIf ComboSignDate.Text = "" ThenMsgBox " 请输入签约日期 "Exit SubEnd IfTmpId = Mak

10、eStr(txtId)' 判断产品编号是否已经存在If Modify = False Or OriId <> Trim(txtId) ThenIf MyContract.In_DB(TmpId) = True ThenMsgBox " 合同编号“ " + Trim(txtId) + "”已经存在，请重新输入 "txtId.SetFocustxtId.SelStart = 0txtId.SelLength = Len(txtId)Exit SubEnd IfEnd IfWith MyContract.ContractId = TmpId

11、.Client = 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(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()' 将焦点设置为下一个

13、控件，否则将反复执行此过程 txtDeliveryWay.SetFocus' 如果 ComboDeliveryDate 中包含日期，则将它赋值到 FrmDateSel 中If ComboDeliveryDate.Text <> "" ThenFrmDateSel.OriDate = ComboDeliveryDate.TextEnd If' 设置 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()'将焦点设置为下一个控件，否则将反复执行此过程ComboSettle.SetFocus'如果ComboLastDay中包含日期，则将它赋值到 FrmDateSel中If ComboLastDay.Text

15、<> "" The nFrmDateSel.OriDate = ComboLastDay.TextEnd If'设置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()'将焦点设置为下一个控件，否则将反复执行此过程ComboSettle.SetFocus'如果ComboSignDate中包含日期，则将它赋值到 FrmDateSel中If ComboSig nDate.Text <> "" The nFrmDateSel.OriDate = ComboSig nDate.TextEnd If'设置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数据库访问技术通过三种方式访问数据库：1、 IDC (Internet Database Connector)方式；2、ADO( ActiveX Data Objects )方式；3、RDS( Remote

18、 Data Service )方式。这三种访问方式对数据库的访问都是由In ternet In formation Server完成的。通过 Web浏览器用HTTP协议向IIS (Internet信息服务器)发送请求，IIS执行对数据库的访问， 并返回一个HTMI格式的文档响应。下面分别说明：1、IDC(Internet 数据库接口)IDC是一个传统的数据库查询工具，用来定义和执行数据库查询的SQL命令，并向浏览器返回一个指定数据格式的页面。使用IDC访问数据库最大的特点是简单，几乎不需要 编程就能实现对数据库的访问。IDC使用两种文件来控制如何访问数据库以及如何创建返回的Web页面:IDC

19、(.ide)文件和HTMI扩展(.htx)文件。.ide 文件必须包括 ODBCS据源(Datasource )、HTML 扩展文件的文件名(Template)以及要执行的SQL语句(SQLStateme nt)。此外还有许 多可选字段，可以根据需要选用。.htx文件是带有用<%或<!-%->括起来的附加标记的HTM文档，IDC用这些标 记将动态数据添加到文档中。在.htx文件中有六个关键字(beg in detail 、en ddetail、 if、else、endif和"%z")，用来控制数据库中的数据怎样和.htx文件中HTM格式进行 合并。数据库列

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 数据对象)ADOJ问数据库，更像编写数据库应用程序。它把绝大部分的数据库操作封装在七个对象中，在ASP页面中编程调用这些对象执行相应的数据库操作 ADO是 ASP技术的核心之一，它集中体现了 ASP技术丰富而灵活的数据库访问功能。ADO 建立了基于Web方式访问数据库的脚本编写模型，不仅支持任何大型数据库的核心功能， 而且支持许多数据库所专有的特性。ADO使用本机数据源，通过 ODB(访问数据库。这些数据库可以是关系型数据库、文本型 数据库、层次型数据库或者任何支持 ODBC勺数据库。主要优点是易用、高速、占用内存 和磁盘空间少，所以非常适合

22、于作为服务器端的数据库访问技术。相对于访问数据库的 CGI程序而言，它是多线程的，在出现大量并发请求时，也同样可以保持服务器的运行 效率，并且通过连接池(Connection Pool)技术以及对数据库连接资源的完全控制，提 供与远程数据库的高效连接与访问，同时它还支持事务处理(Transaction )，以开发高效率、高可靠性的数据库应用程序。一般使用ADOff问数据库的ASP脚本程序应该使用Connection对象建立并管理与远 程数据库的连接，用Comman对象提供灵活的查询，用 Recordset对象访问数据库查询 所返回的结果。这三者是 ADOS最核心的对象。与IDC一样，运行该数据

23、库访问脚本的通常做法是在HTML文件中嵌入一个.asp文件的连接。如，用HTML语句向Web服务器发出请求，要求执行intels.asp 文件：<A HREF="http:/LocalHost/idctest/ado/i ntels.asp">查询 </A>3、RDS(远程数据服务)RDS在 IIS 4.0中，与ADO集成到一起，使用同样的编程模型，提供访问远程数据 库的功能。ADO虽然能够提供非常强大的数据库访问功能，但是它不支持数据远程操作(Data Remot ing)。它只能执行查询并返回数据库查询的结果，这种结果是静态的，服 务器上的数据库

24、与客户端看到的数据没有活的连接关系。如果用户端需要修改数据库， 就必须构造修改数据的SQL语句，并执行相应的查询。而 RDS支持数据远程操作。它不 仅能执行查询并返回数据库查询结果，而且可以把服务器端的数据“搬到”用户端修改， 并调用一个数据库更新命令，将用户端修改的数据写回数据库，象使用本地数据库一样。 RDS的底层是调用ADO来完成的，同样具有ADO勺易用性，区别仅在于 RDS需要与数据 绑定控件一同使用，比如 Sheridan的ActiveX DataBound Grid 控件。RDS在 ADO勺基础上通过绑定的数据显示和操作控件，提供给客户端更强的数据表 现力和远程数据操纵功能。可以说

25、 RDS是目前基于Web的最好的远程数据库访问方式。2.3系统运行与测试、测试方式：(1) 黑盒测试：等价类划分，边界值分析法，错误猜测法，因果图法，比较测试法等 价类划分：分析规格说明的基础上划分等价类，列出等价类，然后从等价类中选出有代 表性的数据进行用例测试，如果某一类中的一个用例发现了错误，那么这一类中的其他 用例也能发现同样的错误。有效等价类和无效等价类。效等价类：是由那些对程序规格 说明有意义的、合理的数据数据所构成的集合；无效等价类：是那些对程序的规格说明 不合理的或无意义的输入数据所构成的集合划分等价类的依据：正和反边界值分析法： 其测试用例来自与等价类的边界，是对等价类划分方

26、法的补充。错误猜测法：猜测被测 程序在那些地方容易出错，然后针对可能的薄弱环节设计测试用例。依赖于人们的先验 知识，因此，错误猜测法一般作为辅助测试用例设计方法使用。果图法：有因必有果比 较测试：由多个开发团队开发出了更多的软件版本，比较测试结果。一般用 1,2 o(2) 白盒测试：逻辑覆盖：语句覆盖、判定覆盖、条件覆盖、条件组合覆盖，发现错 误的能力从弱到强。二、程序运行展示合同管理模块是本系统的核心部分，可以实现一下功能：(1) 创建合同；(2) 修改合同；(3) 改变合同状态；(4) 查看合同内容。&身份验证三2003 為月氐可丽办匸合盘令同管if g他合*祠严叱.0011002003品1 AAG辽于工:ihE00«3E或合间1小博人J舞万式：2000-12301：."叫眉二亦'邀屈1'：'：1 i .!14第3章课程设计总结忙碌的VB课程设计转眼间已经结束了，每学期的课程设计是最锻炼同学们动手实