企业销售合同管理系统

X X X X 大 学 数据库应用技术数据库应用技术课课 程程 设设 计计 说说 明明 书书 题目 题目 企业销售合同管理系统企业销售合同管理系统 学院 系 学院 系 专业班级 专业班级 学学 号 号 学生姓名 学生姓名 指导教师 指导教师 教师职称 教师职称 起止时间 起止时间 xxxx 大学课程设计 论文 任务书大学课程设计 论文 任务书 院 系 教研室 学 号 学生姓名 专业班级 设计题目企业销售合同管理系统企业销售合同管理系统 设计技术 参数 1 题目要达到的目标 完成系统的登陆 数据的插入删除修改统计等基本操作 2 数据库 SQLSERVER2000 3 所使用的语言 工具 VB6 0 SQLSERVER2000 WINDOWSXP 4 所采用的技术 系统结构 ADO 数据库联接技术 系统结构为 C S 结构 设 计 要 求 1 教师布置实习任务和要求时 不得缺席 并做好记录 2 上机前预先把所有的源程序编写好 3 上机时不得迟到 不得缺席 爱护设备 认真调试程序 4 仔细查阅相关资料 认真完成思考题 5 按要求书写设计任务书 并按要求按版打印 不得雷同 工作量 二周 工 作 计 划 周一听取教师布置设计的任务及要求 周二学生查阅相关资料 进行数据库设计 周三至周五 详细设计与界面设计 周一至周四程序设计与上机 调试源程序 周五书写课程设计任务书 参考资料 数据库应用技术 数据库应用技术实验指导书 自编 数据库应用技术课程设计大纲 自编等 指导教师 评语 教师 学生 说明 此表一式四份 学生 指导教师 教研室 系部各一份 可加附页 2011 年 12 月 31 日 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 3 页 共 24 页 目录目录 第一章 概述 4 第二章 问题定义 5 第三章 需求分析 6 第四章 数据库设计 9 第五章 界面设计 14 第六章 代码与注释 17 参考文献 24 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 4 页 共 24 页 第一章第一章 概述概述 在现代企业管理中 销售合同的管理处于十分重要的地位 已成为与生产进度管理 质量管理 资产管理 其它信息管理等同等重要的职能管理 企业生产的一切产品的交 换过程都是通过缔结和履行销售合同的方式来进行的 销售合同管理的好坏直接影响和 关系到企业经营活动顺利运行 企业销售合同确定了产品销售的价格 交易日期和质量 等项目 规定着合同双方责任权利关系 它贯穿于企业从产品的研究 设计到质量检验 及交付货品的各个阶段 涉及到企业生产的各个部门 渗透到企业的生产进度 质量管 理和成本管理之中 形成一个纵横交错的庞大的合同信息链 随着经济的市场化和全球化 企业所面临的环境更加错综复杂 经济交易活动的不 稳定性随之增大 销售合同的管理难度也随着客户的增加而加大 由此产生的风险也愈 来愈多 目前 部分企业管理者或决策者存在合同法律意识差 不熟悉合同法的一般规 定 基本上没有把销售合同管理纳入经营管理视野 合同管理制度形同虚设 无机构 无人员 无销售合同台账和档案 一些销售合同资料不全 甚至出现文本原件丢失时的 现象 各业务部门协调不够 没有对合同的履行进行深入监控 往往致使销售合同履行 不到位 出了问题不能及时得到解决的情况 这样一定会干扰正常的企业的生产经营活 动 给企业决策造成不利影响 导致企业形象和利益受损 企业的销售合同管理采用无 制度管理或手工管理方式甚至孤立的由某个管理层的管理方式 已远远不能满足市场竞 争的要求 根据企业销售合同管理的实际需要 设计一个省时省力地 轻松地管理众多复杂的 销售合同管理平台 构建出信息高度集成的企业销售合同管理信息系统具有十分重要的 现实意义 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 5 页 共 24 页 第二章第二章 问题定义问题定义 企业销售合同管理系统的主要任务是实现对企业销售合同的过程管理和成本控制 本课程设计所描述的企业销售合同管理系统的主要功能包括 1 产品信息管理功能 产品信息的录入 包括产品编号 产品名称 商标品牌 规格型号 计量单位等信 息 主要实现功能 产品信息的修改 产品信息的删除 产品信息的查询 2 合同费用管理功能 合同费用的录入 包括凭单号 费用类别 合同编号 费用明细 金额 收款人 经办人 发生日期和备注等信息 主要实现功能 合同费用的修改 合同费用的查询 3 合同收账管理功能 合同收账的录入 包括发票编号 发票类别 合同编号 金额 日期 经办人 备 注等信息 主要实现功能 合同收账的修改 合同收账的查询 4 合同信息管理功能 合同信息的录入 包括合同编码 签订日期 客户名称 合同状态等信息 主要实 现功能 合同信息的修改 合同信息的查询 5 合同统计管理功能 主要实现功能 合同成本利润统计月报表 合同成本利润统计年报表 6 系统用户管理功能 系统用户信息的录入 包括用户名 密码等信息 主要实现功能 系统用户信息的 修改 系统用户信息的删除 系统用户信息的查询 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 6 页 共 24 页 第三章第三章 需求分析需求分析 一 数据库需求分析一 数据库需求分析 销售合同时企业经营的重要组成部分 它可以体现一个企业的经营情况和效益 企 业销售合同管理系统可以有效地提高企业宏观控制和经营管理的质量 使企业现代化管 理的重要组成部分 本课程设计是在企业经营和管理领域中应用非常广泛的数据库应用系统之一 它既 可以作为独立的系统使用 也可以作为企业综合业务管理系统的一个重要组成部分 本 课程设计包括产品管理 合同基本信息管理 合同产品管理 合同费用管理 合同收账 管理 合同统计管理等主要功能模块 比较全面地实现了企业销售合同管理系统的功能 本课程设计重点体现了企业经营和管理类系统的实现方法 其中通过合同费用管理 和合同收由管理 对企业的经营活动进行记录和控制 动态地反映企业的经营状况 合 同统计模块则对企业的经营状况进行分析 演示了数据库管理系统中统计报表的实现 二 数据库概念的结构设计二 数据库概念的结构设计 将需求分析得到的用户需求抽象为信息结构即概念模型的过程就是概念结构设计 概念数据模型 主要在系统开发的数据库设计阶段使用 是按照用户的观点来对数据 和信息进行建模 利用实体关系图来实现 它描述系统中的各个实体以及相关实体之 间的关系 是系统特性和静态描述 概念结构设计是整个数据库结构设计的关键 我所定义的实体是 产品 合同产品 费用 合同信息 三 数据库的逻辑结构设计 三 数据库的逻辑结构设计 数据库的逻辑结构设计就是把概念结构设计阶段设计好的基本 E R 图转换为与选 用的 DBMS 产品所支持的数据模型相符合的逻辑结构 将概念转化为 SQL Sever2000 数据库系统 产品信息表包含的数据项有产品编号 产品名称 产品商标 产品型号 产品单位 合同费用信息表包含的数据项有凭单号 合同编号 费用类别 费用金额 收款人 姓名 经办人姓名 发生日期 备注 合同收账信息表包含的数据项有发票编号 合同编号 发票类型 收账金额 经办 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 7 页 共 24 页 人姓名 发生日期 备注 合同产品信息表包含的数据项有合同编号 产品编号 产品单价 产品数量 订购 单位 交货日期 备注信息 合同信息表包含的数据项有合同编号 客户单位名称 合同签订日期 合同状态 负责人姓名 交货方式 交货日期 结算方式 有效期限 合同内容 附加信息 四 数据字典 四 数据字典 DD 产品信息表 产品编号 产品名称 产品商标 产品型号 产品单位 合同费用信息表 凭单号 合同编号 费用类别 费用金额 收款人姓名 经办人姓名 发生日期 备注 合同收账信息表 发票编号 合同编号 发票类型 收账金额 经办人姓名 发生日期 备注 合同产品信息表 合同编号 产品编号 产品单价 产品数量 订购单位 交货日期 备 注信息 合同信息表 合同编号 客户单位名称 合同签订日期 合同状态 负责人姓名 交货 方式 交货日期 结算方式 有效期限 合同内容 附加信息 五 程序流程图 五 程序流程图 D2 事物 登录信息 密码 用户名 用户 P1 1 接受事务 D1 P1 2 处理事务 P1 3 退出登录 系统界面 登录信息用户管理 图 3 1 登陆模块数据流图 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 8 页 共 24 页 D3 产品信息 用户 查询产品管 理信息 P2 1 查询费用管 理信息 P2 2 接受事务 P2 3 处理事务 P2 4 产品基本信 息 Cost 信息表 D3产品 图 3 2 产品信息模块流程图 六 功能结构图 六 功能结构图 企业销售合同管理系统 产品信息管理 合同费用管理 合同收账管理 合同信息管理 合同统计管理 系统用户管理 修改产品信息 删除产品信息 添加合同费用 修改合同费用 添加合同收账 修改合同收账 添加销售合同 修改合同信息 合同成本利润月统计 合同成本利润年统计 添加用户信息 删除用户信息 添加产品信息 修改用户信息 图 3 3 销售合同管理系统功能模块示意图 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 9 页 共 24 页 第四章第四章 数据库设计数据库设计 一 概念设计 1 实体与实体之间关系 E R 图 如图所示 图 4 1 各实体关系总 E R 图 2 单个实体 E R 图 在开发企业销售合同管理系统时 得先进行 E R 图分析 根据对数据项与数据结 构的分析以及设计规划得出的实体有 产品实体 合同产品实体 合同费用实体 合同 信息实体 合同收账实体 E R 图 如图所示 产品信息 产品商标产品编号计量单位产品型号产品名称 图 4 2 产品信息实体属性图 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 10 页 共 24 页 合同费用信息 费用类别凭单号 费用金额合同编号 图 4 3 合同费用信息实体属性图 合同收账信息 发票类型发票编号 收账金额合同编号 图 4 4 合同收账信息实体属性图 合同产品信息 产品单价合同编号 产品数量产品编号 图 4 5 合同产品信息实体属性图 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 11 页 共 24 页 合同信息 合同状态合同编号 交货方式交货日期 图 4 6 合同信息实体属性图 二 逻辑设计 1 产品信息表 产品信息表 Product 用来保存产品信息 它的结构如表 4 1 所示 表 4 1Produce 的结构表 编号字段名称数据结构说明 1ProldVarchar50产品编号 2ProNameVarchar50产品名称 3ProMarkVarchar50产品商标 4ProStyleVarchar50产品型号 5ProUnitVarchar50 计量单位 2 合同费用信息表 Cost 合同费用信息表 Cost 用来保存合同费用信息 表 Cost 的结构如图 4 2 所示 表 4 2 Cost 的结构表 编号字段名称数据结构说明 1CostldVarchar50凭单号 2ContractldVarchar50合同编号 3CostTypeVarchar20费用类别 采购成本 服务费 其他 4DdtailVarchar50 当费用类别选择 其他 时 使用 Detail 字段来描述 可以是火车票 飞机票 出租车费 住宿费 差旅费 等 也可以手动录入 5AmountDecimal 15 2费用金额 6ReceiverVarchar30收款人姓名 7CashierVarchar30经办人姓名 8CostDateVarchar10发生日期 9MemoVarchar200备注 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 12 页 共 24 页 3 合同收账信息表 Income 合同收账信息表 Income 用来保存合同收账信息 表 Income 的结构如图 4 3 所示 表 4 3 Income 的结构表 编号字段名称数据结构说明 1ReceiptldVarchar50发票编号 2ContractldVarchar50合同编号 3ReceiptTypeVarchar20发票类型 增值税 服务费 4AmountDecimal 15 2收账金额 5CashierVarchar30经办人姓名 6IncomeDateVarchar10发生日期 7MemoVarchar200备注 4 合同产品信息表 ConProduct 合同产品信息表 ConProduct 用来保存销售合同中涉及产品信息 结构如表 4 4 所示 表 4 4 ConProduct 的结构表 编号字段名称数据结构说明 1ContractldVarchar50合同编号 2proldVarchar50产品编号 3UnitPriceDecimal 15 2产品单价 4QuantityInt产品数量 5OrderOrgVarchar100订购单位 6DeliveryDateVarchar10交货日期 7MemoVarchar200备注信息 5 合同信息表 Conteact 合同信息表 Conteact 用来保存销售合同的基本信息 结构如表 4 5 所示 表 4 5 Conteact 的结构表 编号字段名称数据结构说明 1ContractldVarchar50合同编号 2ClientVarchar100客户单位名称 3SignDateVarchar10合同签订日期 4StatusTinyInt合同状态 1 签订合同 2 实施合同 3 完成合同 5EmpNameVarchar50负责人姓名 6DeliveryWayVarchar50交货方式 7DeliveryDateVarchar10交货日期 8SettleWayTinyInt结算方式 1 支票 2 现金 3 签单 4 汇款 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 13 页 共 24 页 9LadtDayVarchar10有效期限 10ContentsVarchar500合同内容 11AdditionalVarchar500附加信息 三 物理设计 1 创建索引 1 为 Produce 表创建一个以 Prold 为索引关键字的惟一聚簇索引 2 为 Cost 表创建一个以 Costld 为索引关键字的惟一聚簇索引 3 为 Income 表创建一个以 Receiptld 为索引关键字的惟一聚簇索引 4 为 ConProduct 表创建一个以 Contractld 为索引关键字的惟一聚簇索引 5 为 Conteact 表创建一个以 Contractld 为索引关键字的惟一聚簇索引 2 物理位置 学生信息管理系统数据库的数据文件安排如下 数据文件储存的位置 e office MSSQL data ContractSys Data MDF 将数据文件 的初始大小设为 20MB 文件增长方式设为自动增长 文件增长增量设为 5MB 文件的 增长上限设为 500MB 事务日志存储的位置 e office MSSQL data ContractSys Log LDF 将日志文件的 初始大小设为 20MB 文件增长量设为 1MB 文件增长限制设为 100MB Microsoft SQL Server 2000 提供了多种 API 它使得其他应用程序访问数据库资源 这些 API 被称为数据库访问 API 数据库访问 API 允许应用程序执行一段 T SQL 语句来 访问一个关系数据库的数据 这些 API 有 ADO OLE DB ODBC 嵌入式 SQL 和 DB Libray 等 本程序主要运用 ADO 数据访问接口 此接口使得程序设计者只要简单的创建几个 对象便可以连接数据来源 获取所需的数据和进行数据访问后的保存操作 ADO 对象 模型定义了一个可编程的分层对象集合 主要由三个成员 Connection 对象 Command 对象和 Recordest 对象以及其它的集合对象 ADO 提供以执行以下的操作方式 1 接到数据源 2 指定访问数据远的命令 同时可带变量参数或优化执行 3 执行命令 例如一个 SELECT 脚本 4 如果这个命令使数据按表中行的形式返回 则将这些行存储在易于检查 操 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 14 页 共 24 页 作或更改的缓存中 5 适当情况下 可以把缓存的更改内容写回数据库中 更新数据源 6 提供常规方法检测错误 设计 ADO 的 Error 对象 第五章第五章 界面设计界面设计 1 登陆模块设计 用户要使用本系统 首先要通过系统的身份认证 也就是登陆 登陆过程需要完成 一下任务 1 根据用户名和密码来判断是否可能进入系统 2 根据用户类型决定用户拥有的权限 登陆模块如图 5 1 所示 图 5 1 登陆模块图 登陆后首页如图 5 2 所示 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 15 页 共 24 页 图 5 2 企业销售合同管理首页图 2 合同管理模块设计 合同管理模块是本系统的核心部分 可以实现一下功能 1 创建合同 2 修改合同 3 改变合同状态 4 查看合同内容 合同管理模块如图 5 3 所示 图 5 3 合同管理模块图 3 合同收账管理模块设计 合同收账管理模块可以实现一下功能 1 添加合同收账信息 2 修改合同收账信息 3 查看合同收账信息 合同收账管理模块如图 5 4 所示 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 16 页 共 24 页 图 5 4 合同收账管理模块图 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 17 页 共 24 页 第六章第六章 代码与注释代码与注释 一 登录代码 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 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 18 页 共 24 页 判断密码是否正确 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 CurUser UserName MyUser UserName 关闭自己 Unload Me End Sub 二 主界面代码 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 If ComboSignDate Text Then MsgBox 请输入签约日期 Exit Sub xxxx 大 学 课 程 设 计 说 明 计 算 书 第 19 页 共 24 页 End If TmpId MakeStr txtId 判断产品编号是否已经存在 If Modify False Or OriId Trim txtId Then If MyContract In DB TmpId True Then MsgBox 合同编号 Trim txtId 已经存在 请重新输入 txtId SetFocus txtId SelStart 0 txtId SelLength Len txtId Exit Sub End If End If With 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 Insert Modify True OriId ContractId Else xxxx 大 学 课 程 设 计 说 明 计 算 书 第 20 页 共 24 页 Update OriId End If End With MsgBox 合同保存完成 End Sub Private Sub ComboDeliveryDate GotFocus 将焦点设置为下一个控件 否则将反复执行此过程 txtDeliveryWay SetFocus 如果 ComboDeliveryDate 中包含日期 则将它赋值到 FrmDateSel 中 If ComboDeliveryDate Text Then FrmDateSel OriDate ComboDeliveryDate Text End If 设置 FrmDateSel 窗体的位置 FrmDateSel Left Me Left ComboDeliveryDate Left 350 FrmDateSel Top Me Top ComboDeliveryDate Top ComboDeliveryDate Height 450 FrmDateSel Show 1 将选择的日期显示到 ComboDeliveryDate 控件中 ComboDeliveryDate Text FrmDateSel OriDate End Sub Private Sub ComboLastDay GotFocus 将焦点设置为下一个控件 否则将反复执行此过程 ComboSettle SetFocus 如果 ComboLastDay 中包含日期 则将它赋值到 FrmDateSel 中 If ComboLastDay Text Then FrmDateSel OriDate ComboLastDay Text End If 设置 FrmDateSel 窗体的位置 FrmDateSel Left Me Left ComboLastDay Left 350 FrmDateSel Width FrmDateSel Top Me Top ComboLastDay Top ComboLastDay Height 450 FrmDateSel Show 1 xxxx 大 学 课 程 设 计 说 明 计 算 书 第 21 页 共 24 页 将选择的日期显示到 ComboLastDay 控件中 ComboLastDay Text FrmDateSel OriDate End Sub Private Sub ComboSignDate GotFocus 将焦点设置为下一个控件 否则将反复执行此过程 ComboSettle SetFocus 如果 ComboSignDate 中包含日期 则将它赋值到 FrmDateSel 中 If ComboSignDate Text Then FrmDateSel OriDate ComboSignDate Text End If 设置 FrmDateSel 窗体的位置 FrmDateSel Left Me Left ComboSignDate Left 350 FrmDateSel Top Me Top ComboSignDate Top ComboSignDate Height 450 FrmDateSel Show 1 将选择的日期显示到 ComboSignDate 控件中 ComboSignDate Text FrmDateSel OriDate End Sub 三 合同收账管理模块代码 Private Sub Cmd OK Click Dim TmpId As String If Trim txtCostId Then MsgBox 请输入凭单号 txtCostId SetFocus Exit Sub End If If Val txtAmount 0 Then MsgBox 费用应大于 0 txtAmount SetFocus Exit Sub End If xxxx 大 学 课 程 设 计 说 明 计 算 书 第 22 页 共 24 页 If Trim txtReceive Then MsgBox 请输入收款人 txtReceive SetFocus Exit Sub End If If Trim txtCashier Then MsgBox 请输入经办人 txtCashier SetFocus Exit Sub End If If ComboDate Text Then MsgBox 请输入发生日期 ComboDate SetFocus Exit Sub End If TmpId TrimStr txtCostId Text 判断凭单号是否已经存在 If Modify False Or OriId TmpId Then If MyCost In DB TmpId True Then MsgBox 凭单号 TmpId 已经存在 请重新输入 txtCostId SetFocus Exit Sub End If End If With MyCost ContractId MyContract ContractId CostId MakeStr txtCostId CostType ComboType Text If Com