辽宁工业大学可视化编程技术课程设计（论文）题目：企业销售合同管理系统院（系）：专业班级：学号：学生姓名：指导教师：姜瑶教师职称：助教起止时间： 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.0Microsoft 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 = "" ThenMsgBox "请输入用户名"txtUser.SetFocusExit SubEnd IfIf txtPwd = "" ThenMsgBox "请输入密码"txtPwd.SetFocusExit SubEnd IfNameKey = MakeStr(txtUser)PasswordKey = MakeStr(txtPwd)'判断用户是否存在If MyUser.In_DB(NameKey) = False ThenMsgBox "用户名不存在"Try_times = Try_times + 1If Try_times >= 3 ThenMsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_DisconnectEndElseExit SubEnd IfEnd If'判断密码是否正确If MyUser.GetPwd(NameKey) <> PasswordKey ThenMsgBox "密码错误"Try_times = Try_times + 1If Try_times >= 3 ThenMsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_DisconnectEndElseExit SubEnd IfEnd IferName = erName'关闭自己Unload MeEnd Sub2.2.2学生成绩管理系统模块设计1.界面设计当用户验证成功之后，就进入系统的管理界面，进行对系统进行管理。
管理界面具有以下功能：（1）产品管理（2）合同管理（3）费用管理（4）收账管理（5）合同统计（6）用户管理2.代码设计Private Sub Cmd_Save_Click()Dim TmpId As StringIf Trim(txtId) = "" ThenMsgBox "请输入合同编号"Exit SubEnd IfIf Trim(txtClient) = "" ThenMsgBox "请输入客户单位"Exit SubEnd IfIf ComboSignDate.Text = "" ThenMsgBox "请输入签约日期"Exit SubEnd IfTmpId = MakeStr(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.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.InsertModify = TrueOriId = .ContractIdElse.Update (OriId)End IfEnd WithMsgBox "合同保存完成"End SubPrivate Sub ComboDeliveryDate_GotFocus()'将焦点设置为下一个控件，否则将反复执行此过程txtDeliveryWay.SetFocus'如果ComboDeliveryDate中包含日期，则将它赋值到FrmDateSel中If ComboDeliveryDate.Text <> "" ThenFrmDateSel.OriDate = ComboDeliveryDate.TextEnd If'设置FrmDateSel窗体的位置FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left + 350FrmDateSel.Top = Me.Top + ComboDeliveryDate.Top + ComboDeliveryDate.Height + 450FrmDateSel.Show 1'将选择的日期显示到ComboDeliveryDate控件中ComboDeliveryDate.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboLastDay_GotFocus()'将焦点设置为下一个控件，否则将反复执行此过程ComboSettle.SetFocus'如果ComboLastDay中包含日期，则将它赋值到FrmDateSel中If ComboLastDay.Text <> "" ThenFrmDateSel.OriDate = ComboLastDay.TextEnd 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 <> "" ThenFrmDateSel.OriDate = ComboSignDate.TextEnd If'设置FrmDateSel窗体的位置FrmDateSel.Left = Me.Left + ComboSignDate.Left + 350FrmDateSel.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）方式。