1 / 18 辽 宁 工 业 大 学 可视化编程技术 课程设计（论文）

题目： 企业销售合同管理系统

院（系）： 专业班级： 学 号： 学生姓名： 指导教师： 姜 瑶 教师职称： 助 教 起止时间： 2012.11.26至2012.12.9 2 / 18

课程设计（论文）任务及评语 院（系）：软件学院 教研室：软件教研窒 学 号 学生姓名 专业班级 课程设计（论文）题目 企业销售合同管理系统

课程设计（论文）任务

课程设计任务及要求： 1、掌握VB程序设计语言的基础知识。 2、设计所选择的题目，对具体功能进行详细的分析，根据系统的要求在VB中设计窗体界面，使其合理化。 3、了解VB与数据库的连接方法。 4、编写代码，实现系统的功能。 5、通过调试程序，加深对VB编程的基本技巧及方法的理解。

课程设计过程中，要严格遵守实践环节的时间安排，听从指导教师的指导。正确地完成上述内容，记录实习日记，规范完整地撰写出课程设计论文。

指导教师评语及成绩 成绩： 指导教师签字：

2012 年 12 月 13日 目 录 第1章 课程设计目的与要求 .................................................. 1

1.1 课程设计目的 ..................................................... 1 1.2 课程设计的实验环境 ............................................... 1 1.3 课程设计的预备知识 ............................................... 1 1.4 课程设计要求 ..................................................... 1 第2章 课程设计内容................................................... 2

2.1 系统功能设计 ..................................................... 2 2.2 系统详细设计 ..................................................... 2 2.3 系统运行与测试 ................................................... 15

第3章 课程设计总结................................................... 16

参考文献 ............................................................... 17 1

第1章 课程设计目的与要求 1.1 课程设计目的 本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。

1.2 课程设计的实验环境 硬件要求能运行Windows 9.X操作系统的微机系统。 软件：Microsoft Visual Basic 6.0 Microsoft Access 2003

1.3 课程设计的预备知识 熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。

1.4 课程设计要求 按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。 2

第2章 课程设计内容 2.1系统功能设计 2.1.1 系统功能分析 主要完成学生成绩的管理，包括： （1） 排课管理。主要完成课程的添加、修改、删除和查询。 （2） 院系管理。主要完成院系的添加、修改、删除和班级列表。 （3） 学生管理。主要完成对学生信息的添加、修改、删除和查询。 （4） 课程管理。完成对课程信息的维护，包括课程添加、修改、删除和查询功能。 （5） 成绩管理。主要完成成绩的添加、删改和成绩查询。 2.1.2 系统功能模块设计

图2.1系统功能模块图 企业销售合同管理系统

产品信息管理

合同费用管理 合同收账管理 合同信息管理

合同统计管理

系统用户管理

修改产品信息 删除产品信息 添加合同费用 修改合同费用 添加合同收账 修改合同收账 添加销售合同 修改合同信息 合同成本利润月统计 合同成本利润年统计 添加用户信息

删除用户信息 添加产品信息 修改用户信息 3

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) 4

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 Me End Sub 2.2.2学生成绩管理系统模块设计 5

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 6

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