企业销售合同管理系统

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

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

3、第一章概述 4第二章问题定义5第三章需求分析6第四章数据库设计9第五章界面设计14第六章代码与注释17参考文献24第一章概述在现代企业管理 中，销售合同的管理处于十分重要的地位，已成为与生产进度管理、 质量管理、资产管理、其它信息管理等同等重要的职能管理，企业生产的一切产品的交 换过程都是通过缔结和履行销售合同的方式来进行的，销售合同管理的好坏直接影响和 关系到企业经营活动顺利运行。企业销售合同确定了产品销售的价格、交易日期和质量 等项目，规定着 合同双方责任权利关系，它贯穿于企业从产品的研究、设计到质量检验 及交付货品的各 个阶段，涉及到企业生产的各个部门，渗透到企业的生产进度、质量管 理和

4、成本管理之中，形成一个纵横交错的庞大的合同信息链。随着经济的市场化和全球化，企业所面临的环境更加错综复杂，经济交易活动的不 稳定性随之增大，销售合同的管理难度也随着客户的增加而加大，由此产生的风险也愈 来愈多。目前，部分企业管理者或决策者存在合同法律意识差，不熟悉合同法的一般规 定，基本上没有 把销售合同管理纳入经营管理视野，合同管理制度形同虚设，无机构、 无人员、无销售 合同台账和档案，一些销售合同资料不全，甚至出现文本原件丢失时的 现象，各业务部 门协调不够，没有对合同的履行进行深入监控，往往致使销售合同履行 不到位，出了问 题不能及时得到解决的情况，这样一定会干扰正常的企业的生产经营活

5、动，给企业决策 造成不利影响，导致企业形象和利益受损。企业的销售合同管理采用无 制度管理或手工 管理方式甚至孤立的由某个管理层的管理方式，已远远不能满足市场竞 争的要求。根据企业销售合同管理的实际需要，设计一个省时省力地、轻松地管理众多复杂的 销售合同管理平 台，构建出信息高度集成的企业销售合同管理信息系统具有十分重要的 现实意义。第二章问题定义企业销售合同管理系统的主要任务是实现对企业销售合同的过程管理和成本控制。本课程设计所描述的企业销售合同管理系统的主要功能包括：1 .产品信息管理功能产品信息的录入：包括产品编号、产品名称、商标品牌、规格型号、计量单位等信 息；主要实现功能：产品信息的修

6、改；产品信息的删除；产品信息的查询。2 .合同费用管理功能合同费用的录入，包括凭单号、费用类别、合同编号、费用明细、金额、收款人、 经办人、发生日期和备注等信息；主要实现功能：合同费用的修改；合同费用的查询3 .合同收账管理功能合同收账的录入，包括发票编号、发票类别、合同编号、金额、日期、经办人、备 注等信息；主要实现功能：合同收账的修改；合同收账的查询。4 .合同信息管理功能合同信息的录入，包括合同编码、签订日期、客户名称、合同状态等信息；主要实 现功能：合同信 息的修改；合同信息的查询。5 .合同统计管理功能主要实现功能：合同成本利润统计月报表 合同成本利润统计年报表6 .系统用户管理功能

7、系统用户信息的录入，包括用户名、密码等信息；主要实现功能：系统用户信息的 修改；系统用户信息的删除；系统用户信息的查询第三章需求分析一、数据库需求分析销售合同时企业 经营的重要组成部分，它可以体现一个企业的经营情况和效益。企 业销售合同管理 系统可以有效地提高企业宏观控制和经营管理的质量，使企业现代化管 理的重要组成部分。本课程设计是在企业经营和管理领域中应用非常广泛的数据库应用系统之一。它既 可以作为独立的系统使用，也可以作为企业综合业务管理系统的一个重要组成部分。本 课程设计包括产品管理、合同基本信息管理、合同产品管理、合同费用管理、合同收账 管理、合同统计管理等主要功能模块，比较全面地实

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

9、体 是：产品，合同产品，费用，合同信息。三、数据库的逻辑结构设计：数据库的逻辑结构设计就是把概念结构设计阶段设计好的基本E -R图转换为与选用的 DBMS产品所支持的数据模型相符合的逻辑结构。将概念转化为 SQL Sever2000 数据库系统。产品信息表包含的数据项有产品编号，产品名称，产品商标，产品型号，产品单位。合同费用信息表包含的数据项有凭单号，合同编号，费用类别，费用金额，收款人 姓名，经办人姓名，发生日期，备注。合同收账信息表 包含的数据项有发票编号，合同编号，发票类型，收账金额，经办 人姓名，发生日期，备注。合同产品信息表 包含的数据项有合同编号，产品编号，产品单价，产品数量，订

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

11、式+交货日期+结算方式+有效期限+合同内容+附加信息五、程序流程图:图3.1登陆模块数据流图八、图3.2产品信息模块流程图功能结构图:企业销售合同管理系统同信息合同成本利佳威维和合同统计管理系统月户管理合同收账管理合同信息管理理添加用呵周娜飙户信息图3.3销售合同管理系统功能模块示意图第四章数据库设计、概念设计：1 .实体与实体之间关系E-R图，如图所示。用户信口图4.1各实体关系总E-R图2 . 单个实体E-R图在开发企业销售 合同管理系统时，得先进行 E-R图分析。根据对数据项与数据结 构的分析以及设计规划得出的实体有：产品实体、合同产品实体、合同费用实体、合同图4.6合同信息实体属性图二

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

13、ostTypeVarchar20费用类别（米购成 本、服务费、其他）4DdtailVarchar50当费用类别选择“其他”时，使用 Detail字段来描述。可以是火车票、 飞机票、出租车费、住宿费、差旅费等，也可以手动录入5AmountDecimal 15,2费用金额6ReceiverVarchar30收款人姓名7CashierVarchar30经办人姓名8CostDateVarchar10发生日期9MemoVarchar200备注3 .合同收账信息表Income合同收账信息表Income用来保存合同收账信息。表Income的结构如图4.3所示。表4.3 Income的结构表编R字段名称数据结

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

15、r50产品编号3UnitPriceDecimal 15,2产品单价4QuantityInt产品数量5OrderOrgVarchar100订购单位6DeliveryDateVarchar10交货日期7MemoVarchar200备注信息5 .合同信息表Conteact合同信息表Conteact用来保存销售合同的基本信息。结构如表 4.5所示表4.5 Conteact的结构表编R字段名称数据结构说明1ContractldVarchar50合同编号2ClientVarchar100客户单位名称3SignDateVarchar10合同签订日期4StatusTinyInt合同状态（1-签订合同，2-实施

16、合同，3-完成合同）5EmpNameVarchar50负责人姓名6DeliveryWayVarchar50交货方式7DeliveryDateVarchar10交货日期8SettleWayTinyInt结算方式（1-支票，2-现金，3-签单，4-汇款）9LadtDayVarchar10有效期限10ContentsVarchar500合同内容11AdditionalVarchar500附加信息9物理设计1 .创建索引1)为Produce表创建一个以Prold为索引关键字的惟一聚簇索引。2)为Cost表创建一个以Costld为索引关键字的惟一聚簇索引。3)为Income表创建一个以Receiptld

17、为索引关键字的惟一聚簇索引。4)为ConProduct表创建一个以Contractld为索引关键字的惟一聚簇索引。5)为Conteact表创建一个以Contractld为索引关键字的惟一聚簇索引。2 .物理位置学生信息管理系统数据库的数据文件安排如下：数据文件储存的位置：ContractSys_Data.MDF,将数据文件的初始大小设为20MB,文件增长方式设为自动增长，文件增长增量设为5MB,文件的增长上限设为500MB o事务日志存储的 位置：ContractSys_Log.LDF ,将日志文件的初始大小设为20MB,文件增长量设为1MB,文件增长限制设为100MB。Microsoft S

18、QL Server 2000提供了多种API,它使得其他应用程序访问数据库资源， 这些API被称为数据库访问API.数据库访问API允许应用程序执行一段 T-SQL语句来 访问一个关系数 据库的数据。这些 API有：ADO,OLE,DB,ODBC,嵌入式SQL和DB- Libray 等。本程序主要运用ADO数据访问接口，此接口使得程序设计者只要简单的创建几个 对象便可以连接 数据来源，获取所需的数据和进行数据访问后的保存操作。ADO对象模型定义了一个 可编程的分层对象集合，主要由三个成员： Connection对象，Command 对象和Recordest对象以及其它的集合对象。ADO提供以执

19、行以下的操作方式：(1)接到数据源。(2)指定访问数据远 的命令，同时可带变量参数或优化执行。(3)执行命令，例如一个SELECT脚本。(4)如果这个命令使数据按表中行的形式返回，则将这些行存储在易于检查，操作或更改的缓存中。(5)适当情况下，可 以把缓存的更改内容写回数据库中，更新数据源。(6)提供常规方法检测错误，设计ADO的Error对象。第五章界面设计1.登陆模块设计用户要使用本系统，首先要通过系统的身份认证，也就是登陆。登陆过程需要完成 一下任务：(1)根据用户名和密 码来判断是否可能进入系统;(2)根据用户类型决定用户拥有的权限。登陆模块如图5.1所示：图5.1登陆模块图登陆后首页

20、如图5.2所示：图5.2企业销售合同管理首页图2 .合同管理模块设计合同管理模块是 本系统的核心部分，可以实现一下功能:(1)创建合同；(2)修改合同；(3)改变合同状态；(4)查看合同内容。合同管理模块如 图5.3所示：图5.3合同管理模块图3 .合同收账管理模块设计合同收账管理模块可以实现一下功能：(1)添加合同收账信息；(2)修改合同收账信息；(3)查看合同收账信息。合同收账管理模 块如图5.4所示：图5.4合同收账管理模块图第六章代码与注释、代码Private Sub Cmd_OK_Click()Dim j As Single数据有效性检查If txtUser = "&quo

21、t; 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 Then关

22、闭”MsgBox "您已经三次尝试进入本系统，均不成功，系统将DBapi_DisconnectEndElseExit SubEnd IfEnd If'判断密码是否正确If MyUser.GetPwd(NameKey) <> PasswordKey ThenMsgBox "密码错误"Try_times = Try_times + 1If Try_times >= 3 Then关闭”MsgBox "您已经三次尝试进入本系统，均不成功，系统将DBapi_DisconnectEndElseExit SubEnd IfEnd IfCurU

23、ser.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 ”请

24、输入签约日期"Exit SubEnd IfTmpId = MakeStr(txtld)判断产品编号是否已经存在If Modify = False Or Orild <> Trim(txtld) ThenIf MyContract.In_DB(TmpId) = True ThenMsgBox ”合同编号" "+ Trim(txtId) + "”已经存在，请重新输 入"txtId.SetFocustxtId.SelStart = 0txtId.SelLength = Len(txtId)Exit SubEnd IfEnd IfWith

25、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 +

26、 1.LastDay = Format(ComboLastDay.Text, "yyyy-mm-dd").Contents = MakeStr(txtContents).Additional = MakeStr(txtAdditional)If Modify = False Then.Status = 1.InsertModify = TrueOriId = .ContractIdElse.Update (Orild)End IfEnd WithMsgBox "合同保存完成"End SubPrivate Sub ComboDeliveryDate_Got

27、Focus()将焦点设置为下一个控件，否则将反复执行此过程txtDeliveryWay.SetFocus'如果 ComboDeliveryDate中包含日期，则将它赋值到 FrmDateSel中If ComboDeliveryDate.Text <> "" ThenFrmDateSel.OriDate = ComboDeliveryDate.TextEnd If设置FrmDateSel窗体的位置FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left + 350FrmDateSel.Top = Me.Top +

28、 ComboDeliveryDate.Top + ComboDeliveryDate.Height + 450FrmDateSel.Show 1将选择的日期显示到ComboDeliveryDate控件中ComboDeliveryDate.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboLastDay_GotFocus()将焦点设置为下一个控件，否则将反复执行此过程ComboSettle.SetFocus'如果ComboLastDay中包含日期，则将它赋值到FrmDateSel中If ComboLastDay.Text <>

29、"" ThenFrmDateSel.OriDate = ComboLastDay.TextEnd If设置FrmDateSel窗体的位置FrmDateSel.Left = Me.Left + ComboLastDay.Left + 350 - FrmDateSel.WidthFrmDateSel.Top = Me.Top + ComboLastDay.Top + ComboLastDay.Height + 450FrmDateSel.Show 1'将选择的日期显示到ComboLastDay控件中ComboLastDay.Text = FrmDateSel.OriDa

30、teEnd SubPrivate Sub ComboSignDate_GotFocus()'将焦点设置为下一个控件，否则将反复执行此过程ComboSettle.SetFocus'如果ComboSignDate中包含日期，则将它赋 值至U FrmDateSel中If ComboSignDate.Text <> "" ThenFrmDateSel.OriDate = ComboSignDate.TextEnd If设置FrmDateSel窗体的位置FrmDateSel.Left = Me.Left + ComboSignDate.Left + 350

31、FrmDateSel.Top = Me.Top + ComboSignDate.Top + ComboSignDate.Height + 450FrmDateSel.Show 1'将选择的日期显示到ComboSignDate控件中ComboSignDate.Text = FrmDateSel.OriDateEnd Sub三、合同收账管理模块代码Private Sub Cmd_OK_Click()Dim TmpId As StringIf Trim(txtCostId) = "" ThenMsgBox "请输入凭单号"txtCostId.SetFo

32、cusExit SubEnd IfIf Val(txtAmount) < 0 ThenMsgBox ”费用应大于0"txtAmount.SetFocusExit SubEnd IfIf Trim(txtReceive) = "" ThenMsgBox ”请输入收款人”txtReceive.SetFocusExit SubEnd IfIf Trim(txtCashier) = "" ThenMsgBox ”请输入经办人”txtCashier.SetFocusExit SubEnd IfIf ComboDate.Text = "&q

33、uot; ThenMsgBox "请输入发生日期"ComboDate.SetFocusExit SubEnd IfTmpId = TrimStr(txtCostId.Text)判断凭单号是否已经存在If Modify = False Or OriId <> TmpId ThenIf MyCost.In_DB(TmpId) = True ThenMsgBox "凭单号-"+ TmpId + "-已经存在，请重新输入txtCostId.SetFocusExit SubEnd IfEnd IfWith MyCost.ContractId = MyContract.ContractId.CostId = MakeStr(txtCostId).CostType = ComboType.TextIf ComboDetail.Visible = True Then.Detail = MakeStr(Combo