辽宁工业大学
可视化编程技术课程设计（论文）题目：企业销售合同管理系统
院（系）：
专业班级：
学号：
学生姓名：
指导教师：姜瑶
教师职称：助教
起止时间： 2012.11.26至2012.12.9
课程设计（论文）任务及评语
目录
第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 课程设计目的
本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用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.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
erName = erName
'关闭自己
Unload Me
End Sub
2.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