企业销售合同管理系统.docx

1、企业销售合同管理系统X X X X 大 学数据库应用技术课 程 设 计 说 明 书题目：企业销售合同管理系统学院（系）：专业班级：学号：学生姓名：指导教师：教师职称：起止时间：xxxx 大学课程设计（论文）任务书 院（系）：教研室：学 号学生姓名专业班级设计题目企业销售合同管理系统设计技术 参数1 题目要达到的目标：完成系统的登陆、数据的插入删除修改统计等基本操作。 2 数据库：SQLSERVER2000。3 所使用的语言、工具:VB6.0+ SQLSERVER2000+WINDOWSXP。4 所采用的技术、系统结构:ADO 数据库联接技术,系统结构为 C/S 结构。设计要求1 教师布置实习任

2、务和要求时，不得缺席，并做好记录。2 上机前预先把所有的源程序编写好。3 上机时不得迟到，不得缺席，爱护设备，认真调试程序。 4 仔细查阅相关资料，认真完成思考题。5 按要求书写设计任务书，并按要求按版打印，不得雷同。工作量二周工作计划周一听取教师布置设计的任务及要求。周二学生查阅相关资料，进行数据库设计。周三至周五：详细设计与界面设计。周一至周四程序设计与上机，调试源程序。周五书写课程设计任务书。参考资料数据库应用技术数据库应用技术实验指导书自编数据库应用技术课程设计大纲自编等指导教师评语教师：学生：说明：此表一式四份，学生、指导教师、教研室、系部各一份。可加附页。2011 年 12月 31

3、 日xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书第一章 概述 .4第二章 问题定义 .5第三章 需求分析 .6第四章 数据库设计 .9第五章 界面设计 .14第六章 代码与注释 .17参考文献 .24第 3 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书第一章 概述在现代企业管理中，销售合同的管理处于十分重要的地位，已成为与生产进度管理、 质量管理、资产管理、其它信息管理等同等重要的职能管理，企业生产的一切产品的交 换过程都是通过缔结和履行销售合同的方式来进行的，销售合同管理的好坏直接影响和 关系到企业经营活动顺利运行。企业销售合同确定了产品销售的价格

4、、交易日期和质量 等项目，规定着合同双方责任权利关系，它贯穿于企业从产品的研究、设计到质量检验 及交付货品的各个阶段，涉及到企业生产的各个部门，渗透到企业的生产进度、质量管 理和成本管理之中，形成一个纵横交错的庞大的合同信息链。随着经济的市场化和全球化，企业所面临的环境更加错综复杂，经济交易活动的不 稳定性随之增大，销售合同的管理难度也随着客户的增加而加大，由此产生的风险也愈 来愈多。目前，部分企业管理者或决策者存在合同法律意识差，不熟悉合同法的一般规 定，基本上没有把销售合同管理纳入经营管理视野，合同管理制度形同虚设，无机构、 无人员、无销售合同台账和档案，一些销售合同资料不全，甚至出现文本

5、原件丢失时的 现象，各业务部门协调不够，没有对合同的履行进行深入监控，往往致使销售合同履行 不到位，出了问题不能及时得到解决的情况，这样一定会干扰正常的企业的生产经营活 动，给企业决策造成不利影响，导致企业形象和利益受损。企业的销售合同管理采用无 制度管理或手工管理方式甚至孤立的由某个管理层的管理方式，已远远不能满足市场竞 争的要求。根据企业销售合同管理的实际需要，设计一个省时省力地、轻松地管理众多复杂的 销售合同管理平台，构建出信息高度集成的企业销售合同管理信息系统具有十分重要的 现实意义。第 4 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书第二章 问题定义企业

6、销售合同管理系统的主要任务是实现对企业销售合同的过程管理和成本控制。 本课程设计所描述的企业销售合同管理系统的主要功能包括：1.产品信息管理功能产品信息的录入：包括产品编号、产品名称、商标品牌、规格型号、计量单位等信 息；主要实现功能：产品信息的修改；产品信息的删除；产品信息的查询。2.合同费用管理功能合同费用的录入，包括凭单号、费用类别、合同编号、费用明细、金额、收款人、 经办人、发生日期和备注等信息；主要实现功能：合同费用的修改； 合同费用的查询。3.合同收账管理功能合同收账的录入，包括发票编号、发票类别、合同编号、金额、日期、经办人、备 注等信息；主要实现功能： 合同收账的修改；合同收账

7、的查询。4.合同信息管理功能合同信息的录入，包括合同编码、签订日期、客户名称、合同状态等信息；主要实 现功能：合同信息的修改；合同信息的查询。5.合同统计管理功能主要实现功能：合同成本利润统计月报表 合同成本利润统计年报表6.系统用户管理功能系统用户信息的录入，包括用户名、密码等信息；主要实现功能：系统用户信息的 修改； 系统用户信息的删除；系统用户信息的查询第 5 页 共 24 页数据库的逻辑结构设计就是把概念结构设计阶段设计好的基本 E -R 图转换为与选 用的 DBMS 产品所支持的数据模型相符合的逻辑结构。将概念转化为 SQL Sever2000 数据库系统。xxxx 大 学 课 程

8、设 计 说 明 （ 计 算 ）书第三章 需求分析一、数据库需求分析销售合同时企业经营的重要组成部分，它可以体现一个企业的经营情况和效益。企 业销售合同管理系统可以有效地提高企业宏观控制和经营管理的质量，使企业现代化管 理的重要组成部分。本课程设计是在企业经营和管理领域中应用非常广泛的数据库应用系统之一。它既 可以作为独立的系统使用，也可以作为企业综合业务管理系统的一个重要组成部分。本 课程设计包括产品管理、合同基本信息管理、合同产品管理、合同费用管理、合同收账 管理、合同统计管理等主要功能模块，比较全面地实现了企业销售合同管理系统的功能。本课程设计重点体现了企业经营和管理类系统的实现方法。其中

9、通过合同费用管理 和合同收由管理，对企业的经营活动进行记录和控制，动态地反映企业的经营状况。合 同统计模块则对企业的经营状况进行分析，演示了数据库管理系统中统计报表的实现。二、数据库概念的结构设计将需求分析得到的用户需求抽象为信息结构即概念模型的过程就是概念结构设计， 概 念 数 据 模 型 , 主 要 在 系 统 开 发 的 数 据 库 设 计 阶 段 使 用 , 是按照用 户 的 观 点 来 对 数 据 和 信 息 进 行 建 模 , 利 用 实 体 关 系 图 来 实 现 . 它 描 述 系 统 中 的 各 个 实 体 以 及 相 关 实 体 之 间 的 关 系 ，是 系 统 特 性 和

10、 静 态 描 述 . 概念结构设计是整个数据库结构设计的关键。我所定义的实体是：产品，合同产品，费用，合同信息。三、数据库的逻辑结构设计：产品信息表包含的数据项有产品编号，产品名称，产品商标，产品型号，产品单位。合同费用信息表包含的数据项有凭单号，合同编号，费用类别，费用金额，收款人 姓名，经办人姓名，发生日期，备注。合同收账信息表包含的数据项有发票编号，合同编号，发票类型，收账金额，经办第 6 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书人姓名，发生日期，备注。合同产品信息表包含的数据项有合同编号，产品编号，产品单价，产品数量，订购 单位，交货日期，备注信息。合

11、同信息表包含的数据项有合同编号，客户单位名称，合同签订日期，合同状态， 负责人姓名，交货方式，交货日期，结算方式，有效期限，合同内容，附加信息。四、数据字典（DD）:产品信息表=产品编号+产品名称+产品商标+产品型号+产品单位合同费用信息表=凭单号+合同编号+费用类别+费用金额+收款人姓名+经办人姓名+ 发生日期+备注合同收账信息表=发票编号+合同编号+发票类型+收账金额+经办人姓名+发生日期+ 备注合同产品信息表=合同编号+产品编号+产品单价+产品数量+订购单位+交货日期+备 注信息合同信息表=合同编号+客户单位名称+合同签订日期+合同状态+负责人姓名+交货 方式+交货日期+结算方式+有效期

12、限+合同内容+附加信息五、程序流程图：用户名密码事物图 3.1 登陆模块数据流图第 7 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书产品信息图 3.2 产品信息模块流程图六、功能结构图：图 3.3 销售合同管理系统功能模块示意图第 8 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书第四章 数据库设计一、概念设计：1.实体与实体之间关系 E-R 图，如图所示。图 4.1 各实体关系总 E-R 图2.单个实体 E-R 图在开发企业销售合同管理系统时，得先进行 E-R 图分析。根据对数据项与数据结 构的分析以及设计规划得出的实体有：产品实体、

13、合同产品实体、合同费用实体、合同 信息实体、合同收账实体。E-R 图，如图所示。产品编号产品名称产品商标产品型号计量单位图 4.2 产品信息实体属性图第 9 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书凭单号合同编号费用类别费用金额图 4.3 合同费用信息实体属性图发票编号合同编号发票类型收账金额图 4.4合同收账信息实体属性图合同编号产品编号产品单价产品数量图 4.5合同产品信息实体属性图第 10 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书合同编号交货日期合同状态交货方式图 4.6 合同信息实体属性图二、逻辑设计：1.产品信息表：

14、产品信息表 Product 用来保存产品信息，它的结构如表 4.1 所示。表 4.1Produce 的结构表编号字段名称数据结构说明1ProldVarchar50产品编号2ProNameVarchar50产品名称3ProMarkVarchar50产品商标4ProStyleVarchar50产品型号5ProUnitVarchar50计量单位2.合同费用信息表 Cost合同费用信息表 Cost 用来保存合同费用信息，表 Cost 的结构如图 4.2 所示。表 4.2 Cost 的结构表编号字段名称数据结构说明1CostldVarchar50凭单号2ContractldVarchar50合同编号3C

15、ostTypeVarchar20费用类别（采购成本、服务费、其他）4DdtailVarchar50当费用类别选择“其他”时，使用 Detail 字段来描述。可以是火车票、 飞机票、出租车费、住宿费、差旅费等，也可以手动录入5AmountDecimal 15,2费用金额6ReceiverVarchar30收款人姓名7CashierVarchar30经办人姓名8CostDateVarchar10发生日期9MemoVarchar200备注第 11 页 共 24 页）xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书3.合同收账信息表 Income合同收账信息表 Income 用来保存合同收账

16、信息。表 Income 的结构如图 4.3 所示。表 4.3 Income 的结构表编号字段名称数据结构说明1ReceiptldVarchar50发票编号2ContractldVarchar50合同编号3ReceiptTypeVarchar20发票类型（增值税、服务费）4AmountDecimal 15,2收账金额5CashierVarchar30经办人姓名6IncomeDateVarchar10发生日期7MemoVarchar200备注4.合同产品信息表 ConProduct合同产品信息表 ConProduct 用来保存销售合同中涉及产品信息。结构如表 4.4 所示。表 4.4 ConPro

17、duct 的结构表编号字段名称数据结构说明1ContractldVarchar50合同编号2proldVarchar50产品编号3UnitPriceDecimal 15,2产品单价4QuantityInt产品数量5OrderOrgVarchar100订购单位6DeliveryDateVarchar10交货日期7MemoVarchar200备注信息5.合同信息表 Conteact合同信息表 Conteact 用来保存销售合同的基本信息。结构如表 4.5 所示。表 4.5 Conteact 的结构表编号字段名称数据结构说明1ContractldVarchar50合同编号2ClientVarchar

18、100客户单位名称3SignDateVarchar10合同签订日期4StatusTinyInt合同状态（1-签订合同，2-实施合同，3-完成合同5EmpNameVarchar50负责人姓名6DeliveryWayVarchar50交货方式7DeliveryDateVarchar10交货日期8SettleWayTinyInt结算方式（1-支票，2-现金，3-签单，4-汇款）第 12 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书9LadtDayVarchar10有效期限10ContentsVarchar500合同内容11AdditionalVarchar500附加信息

19、9物理设计1.创建索引1）为 Produce 表创建一个以 Prold 为索引关键字的惟一聚簇索引。2）为 Cost 表创建一个以 Costld 为索引关键字的惟一聚簇索引。3）为 Income 表创建一个以 Receiptld 为索引关键字的惟一聚簇索引。4）为 ConProduct 表创建一个以 Contractld 为索引关键字的惟一聚簇索引。5）为 Conteact 表创建一个以 Contractld 为索引关键字的惟一聚簇索引。2.物理位置学生信息管理系统数据库的数据文件安排如下：数据文件储存的位置：e:officeMSSQLdata ContractSys_Data.MDF，将数据

20、文件 的初始大小设为 20MB，文件增长方式设为自动增长，文件增长增量设为 5MB,文件的 增长上限设为 500MB。事务日志存储的位置：e:officeMSSQLdata ContractSys _Log.LDF，将日志文件的 初始大小设为 20MB，文件增长量设为 1MB，文件增长限制设为 100MB。Microsoft SQL Server 2000 提供了多种 API,它使得其他应用程序访问数据库资源， 这些 API 被称为数据库访问 API.数据库访问 API 允许应用程序执行一段 T-SQL 语句来 访问一个关系数据库的数据。这些 API 有：ADO,OLE,DB,ODBC,嵌入式

21、 SQL 和 DB- Libray 等。本程序主要运用 ADO 数据访问接口，此接口使得程序设计者只要简单的创建几个 对象便可以连接数据来源，获取所需的数据和进行数据访问后的保存操作。ADO 对象 模型定义了一个可编程的分层对象集合，主要由三个成员：Connection 对象，Command 对象和 Recordest 对象以及其它的集合对象。ADO 提供以执行以下的操作方式：（1）接到数据源。（2）指定访问数据远的命令，同时可带变量参数或优化执行。（3）执行命令，例如一个 SELECT 脚本。（4）如果这个命令使数据按表中行的形式返回，则将这些行存储在易于检查，操第 13 页 共 24 页x

22、xxx 大 学 课 程 设 计 说 明 （ 计 算 ）书作或更改的缓存中。（5）适当情况下，可以把缓存的更改内容写回数据库中，更新数据源。（6）提供常规方法检测错误，设计 ADO 的 Error 对象。第五章 界面设计1.登陆模块设计用户要使用本系统，首先要通过系统的身份认证，也就是登陆。登陆过程需要完成 一下任务：（1）根据用户名和密码来判断是否可能进入系统；（2）根据用户类型决定用户拥有的权限。登陆模块如图 5.1 所示：图 5.1 登陆模块图登陆后首页如图 5.2 所示：第 14 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书图 5.2 企业销售合同管理首页图

23、2.合同管理模块设计合同管理模块是本系统的核心部分，可以实现一下功能： （1）创建合同；（2）修改合同；（3）改变合同状态；（4）查看合同内容。合同管理模块如图 5.3 所示：图 5.3 合同管理模块图3.合同收账管理模块设计合同收账管理模块可以实现一下功能：（1）添加合同收账信息；（2）修改合同收账信息；（3）查看合同收账信息。合同收账管理模块如图 5.4 所示：第 15 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书图 5.4 合同收账管理模块图第 16 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书第六章 代码与注释一、登录代码Pr

24、ivate 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 +

25、1If Try_times = 3 ThenMsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_DisconnectEndElseExit SubEnd IfEnd If第 17 页 共 24 页xxxx 大 学 课 程 设 计 说 明 （ 计 算 ）书判断密码是否正确If MyUser.GetPwd(NameKey) PasswordKey ThenMsgBox 密码错误Try_times = Try_times + 1If Try_times = 3 ThenMsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_DisconnectEndElseE

26、xit SubEnd IfEnd IfCurUser.UserName = MyUser.UserName关闭自己Unload MeEnd Sub二、主界面代码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 Sub第 18 页 共 24 页xxxx 大 学

27、 课 程 设 计 说 明 （ 计 算 ）书End 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.Cl

28、ient = 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).Additi