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

《vb_可视化编程技术课程设计--企业销售合同管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、辽宁工业大学可视化编程技术课程设计（论文）题目：企业销售合同管理系统院（系）：专业班级：学号：学生姓名：指导教师：姜瑶教师职称：助教起止时间：2012.11.26至2012.12.9课程设计（论文）任务及评语院（系）：软件学院教研室：软件教研窒学号学生姓名专业班级课程设计（论文）题目企业销售合同管理系统课程设计（论文）任务课程设计任务及要求：1、掌握VB程序设计语言的基础知识。2、设计所选择的题目，对具体功能进行详细的分析，根据系统的要求在VB中设计窗体界面，使其合理化。3、了解VB与数据库的连接方法。4、编写代码，实现系统的功

2、能。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参考文献1714辽宁工

3、业大学课程设计说明书（论文）第1章课程设计目的与要求1.1课程设计目的本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。1.2课程设计的实验环境硬件要求能运行Windows9.X操作系统的微机系统。软件：MicrosoftVisualBasic6.0MicrosoftAccess20031.3课程设计的预备知识熟悉VisualBasic6.0程序设计的基本语法知识及常用技巧。1.4课程设计要求按课程设计指

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

5、管理，包括：（1）排课管理。主要完成课程的添加、修改、删除和查询。（2）院系管理。主要完成院系的添加、修改、删除和班级列表。（3）学生管理。主要完成对学生信息的添加、修改、删除和查询。（4）课程管理。完成对课程信息的维护，包括课程添加、修改、删除和查询功能。（5）成绩管理。主要完成成绩的添加、删改和成绩查询。2.1.2系统功能模块设计企业销售合同管理系统产品信息管理合同费用管理合同收账管理合同信息管理合同统计管理系统用户管理修改产品信息删除产品信息添加合同费用修改合同费用添加合同收账修改合同收账添加销售合同修改合同信息合同成本利

6、润月统计合同成本利润年统计添加用户信息删除用户信息添加产品信息修改用户信息图2.1系统功能模块图14辽宁工业大学课程设计说明书（论文）2.2系统详细设计2.2.1用户登陆模块设计1.界面设计用户要使用本系统，首先要通过系统的身份认证，也就是登陆。登陆过程需要完成一下任务：（1）根据用户名和密码来判断是否可能进入系统；（2）根据用户类型决定用户拥有的权限2.代码设计PrivateSubCmd_OK_Click()DimjAsSingle'数据有效性检查IftxtUser=""ThenMsgBox"请输入用户名"txtUser.Se

7、tFocusExitSubEndIfIftxtPwd=""ThenMsgBox"请输入密码"txtPwd.SetFocusExitSubEndIfNameKey=MakeStr(txtUser)14辽宁工业大学课程设计说明书（论文）PasswordKey=MakeStr(txtPwd)'判断用户是否存在IfMyUser.In_DB(NameKey)=FalseThenMsgBox"用户名不存在"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已经三次尝试进入本系统，均不成功，系统将关

8、闭"DBapi_DisconnectEndElseExitSubEndIfEndIf'判断密码是否正确IfMyUser.GetPwd(NameKey)<>PasswordKeyThenMsgBox"密码错误"Try_times=Try_times+1IfTry_