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

辽 宁 工 业 大 学 可视化编程技术 课程设计（论文）题目： 企业销售合同管理系统 院（系）： 专业班级： 学 号： 学生姓名： 指导教师： 姜 瑶 教师职称： 助 教 起止时间： 2012.11.26至2012.12.9 课程设计（论文）任务及评语院（系）：软件学院 教研室：软件教研窒学 号学生姓名专业班级课程设计（论文）题目企业销售合同管理系统课程设计（论文）任务课程设计任务及要求：1、掌握VB程序设计语言的基础知识。2、设计所选择的题目，对具体功能进行详细的分析，根据系统的要求在VB中设计窗体界面，使其合理化。3、了解VB与数据库的连接方法。4、编写代码，实现系统的功能。5、通过调试程序，加深对VB编程的基本技巧及方法的理解。课程设计过程中，要严格遵守实践环节的时间安排，听从指导教师的指导。正确地完成上述内容，记录实习日记，规范完整地撰写出课程设计论文。指导教师评语及成绩成绩： 指导教师签字： 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 课程设计目的本课程的课程设计实际是学生学习完可视化编程技术课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。1.2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统。软件：Microsoft Visual Basic 6.0 Microsoft Access 20031.3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。第2章 课程设计内容2.1系统功能设计2.1.1 系统功能分析主要完成学生成绩的管理，包括：（1） 排课管理。主要完成课程的添加、修改、删除和查询。（2） 院系管理。主要完成院系的添加、修改、删除和班级列表。（3） 学生管理。主要完成对学生信息的添加、修改、删除和查询。（4） 课程管理。完成对课程信息的维护，包括课程添加、修改、删除和查询功能。（5） 成绩管理。主要完成成绩的添加、删改和成绩查询。2.1.2 系统功能模块设计 企业销售合同管理系统产品信息管理合同费用管理合同收账管理合同信息管理合同统计管理系统用户管理修改产品信息删除产品信息添加合同费用修改合同费用添加合同收账修改合同收账添加销售合同修改合同信息合同成本利润月统计合同成本利润年统计添加用户信息删除用户信息添加产品信息修改用户信息图2.1系统功能模块图2.2系统详细设计2.2.1用户登陆模块设计1.界面设计用户要使用本系统，首先要通过系统的身份认证，也就是登陆。登陆过程需要完成一下任务：（1）根据用户名和密码来判断是否可能进入系统；（2）根据用户类型决定用户拥有的权限2.代码设计Private Sub Cmd_OK_Click() Dim j As Single数据有效性检查 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 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 = 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_Save_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) 判断产品编号是否已经存在 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 .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(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 MsgBox 合同保存完成End SubPrivate Sub ComboDeliveryDate_GotFocus() 将焦点设置为下一个控件，否则将反复执行此过程 txtDeliveryWay.SetFocus 如果ComboDeliveryDate中包含日期，则将它赋值到FrmDateSel中 If ComboDeliveryDate.Text Then FrmDateSel.OriDate = ComboDeliveryDate.Text End If 设置FrmDateSel窗体的位置 FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left + 350 FrmDateSel.Top = Me.Top + ComboDeliveryDate.Top + ComboDeliveryDate.Height + 450 FrmDateSel.Show 1 将选择的日期显示到ComboDeliveryDate控件中 ComboDeliveryDate.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboLastDay_GotFocus() 将焦点设置为下一个控件，否则将反复执行此过程 ComboSettle.SetFocus 如果ComboLastDay中包含日期，则将它赋值到FrmDateSel中 If ComboLastDay.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控件中 ComboLastDay.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboSignDate_GotFocus() 将焦点设置为下一个控件，否则将反复执行此过程 ComboSettle.SetFocus 如果ComboSignDate中包含日期，则将它赋值到FrmDateSel中 If ComboSignDate.Text Then FrmDateSel.OriDate = ComboSignDate.Text End If 设置FrmDateSel窗体的位置 FrmDateSel.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 Objects）方式；3、RDS（Remote Data Service）方式。这三种访问方式对数据库的访问都是由Internet Information Server完成的。通过Web浏览器用HTTP协议向IIS（Internet信息服务器）发送请求，IIS执行对数据库的访问，并返回一个HTML格式的文档响应。下面分别说明：1、IDC（Internet数据库接口）IDC是一个传统的数据库查询工具，用来定义和执行数据库查询的SQL命令，并向浏览器返回一个指定数据格式的页面。使用IDC访问数据库最大的特点是简单，几乎不需要编程就能实现对数据库的访问。IDC使用两种文件来控制如何访问数据库以及如何创建返回的Web页面：IDC (.idc)文件和HTML扩展(.htx)文件。.idc文件必须包括ODBC数据源（Datasource）、HTML扩展文件的文件名（Template）以及要执行的SQL语句（SQLStatement）。此外还有许多可选字段，可以根据需要选用。.htx文件是带有用或括起来的附加标记的HTML文档，IDC用这些标记将动态数据添加到文档中。在.htx文件中有六个关键字（begindetail、enddetail、if、else、endif和%z），用来控制数据库中的数据怎样和.htx文件中HTML格式进行合并。数据库列名说明HTML文档中什么数据被返回。要执行IDC查询，通常的做法是在HTML文件中嵌入一个.idc文件的连接。例如，我们可用下面的HTML语句向Web服务器发出请求，要求执行idctest.idc文件：查询 当Web服务器接到请求后，就调用Httpodbc.dll（IDC），与一定的数据源相连并把SQL命令传给数据库。当SQL语句被执行后，IDC把返回的数据融入到.htx文件中。IDC再把这个文档返回给Web服务器，Web服务器再返回给浏览器。2、ADO（ActiveX数据对象） ADO访问数据库，更像编写数据库应用程序。它把绝大部分的数据库操作封装在七个对象中，在ASP页面中编程调用这些对象执行相应的数据库操作。ADO是ASP技术的核心之一，它集中体现了ASP技术丰富而灵活的数据库访问功能。ADO建立了基于Web方式访问数据库的脚本编写模型，不仅支持任何大型数据库的核心功能，而且支持许多数据库所专有的特性。ADO使用本机数据源，通过ODBC访问数据库。这些数据库可以是关系型数据库、文本型数据库、层次型数据库或者任何支持ODBC的数据库。主要优点是易用、高速、占用内存和磁盘空间少，所以非常适合于作为服务器端的数据库访问技术。相对于访问数据库的CGI程序而言，它是多线程的，在出现大量并发请求时，也同样可以保持服务器的运行效率，并且通过连接池（Connection Pool）技术以及对数据库连接资源的完全控制，提供与远程数据库的高效连接与访问，同时它还支持事务处理（Transaction），以开发高效率、高可靠性的数据库应用程序。 一般使用ADO访问数据库的ASP脚本程序应该使用Connection对象建立并管理与远程数据库的连接，用Command对象提供灵活的查询，用Recordset对象访问数据库查询所返回的结果。这三者是ADO的最核心的对象。与IDC一样，运行该数据库访问脚本的通常做法是在HTML文件中嵌入一个.asp文件的连接。如，用HTML语句向Web服务器发出请求，要求执行intels.asp文件：查询 3、RDS（远程数据服务） RDS在IIS 4.0中，与ADO集成到一起，使用同样的编程模型，提供访问远程数据库的功能。ADO虽然能够提供非常强大的数据库访问功能，但是它不支持数据远程操作（Data Remoting）。它只能执行查询并返回数据库查询的结果，这种结果是静态的，服务器上的数据库与客户端看到的数据没有活的连接关系。如果用户端需要修改数据库，就必须构造修改数据的SQL语句，并执行相应的查询。而RDS支持数据远程操作。它不仅能执行查询并返回数据库查询结果，而且可以把服务器端的数据“搬到”用户端修改，并调用一个数据库更新命令，将用户端修改的数据写回数据库，象使用本地数据库一样。RDS的底层是调用ADO来完成的，同样具有ADO的易用性，区别仅在于RDS需要与数据绑定控件一同使用，比如Sheridan的ActiveX DataBound Grid控件。RDS在ADO的基础上通过绑定的数据显示和操作控件，提供给客户端更强的数据表现力和远程数据操纵功能。可以说RDS是目前基于Web的最好的远程数据库访问方式。2.3 系统运行与测试一、测试方式:(1)黑盒测试：等价类划分，边界值分析法，错误猜测法，因果图法，比较测试法等价类划分：分析规格说明的基础上划分等价类，列出等价类，然后从等价类中选出有代表性的数据进行用例测试，如果某一类中的一个用例发现了错误，那么这一类中的其他用例也能发现同样的错误。有效等价类和无效等价类。效等价类：是由那些对程序规格说明有意义的、合理的数据数据所构成的集合；无效等价类：是那些对程序的规格说明不合理的或无意义的输入数据所构成的集合划分等价类的依据：正和反边界值分析法：其测试用例来自与等价类的边界，是对等价类划分方法的补充。错误猜测法：猜测被测程序在那些地方容易出错，然后针对可能的薄弱环节设计测试用例。依赖于人们的先验知识，因此，错误猜测法一般作为辅助测试用例设计方法使用。果图法：有因必有果比较测试：由多个开发团队开发出了更多的软件版本，比较测试结果。一般用1,2。 (2) 白盒测试：逻辑覆盖：语句覆盖、判定覆盖、条件覆盖、条件组合覆盖，发现错误的能力从弱到强。二、 程序运行展示合同管理模块是本系统的核心部分，可以实现一下功能：（1）创建合同；（2）修改合同；（3）改变合同状态；（4）查看合同内容。第3章 课程设计总结忙碌的VB课程设计转眼间已经结束了，每学期的课程设计是最锻炼同学们动手实践能力的时候。通过我们组四个人的共同努力终于完成了本次的课程设计