人人文库网 > 毕业设计 > JSJ06-118@VB中大迅通合同统计系统(论文+源代码)
合同统计系统(5.25.11.26)论文-改.doc
JSJ06-118@VB中大迅通合同统计系统(论文+源代码)
收藏
资源目录
压缩包内文档预览：(预览前20页/共50页)
编号：508374
类型：共享资源
大小：445.17KB
格式：ZIP
上传时间：2015-11-10
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-118@VB中大迅通合同统计系统(论文+源代码),毕业设计论文
- 内容简介：
-
密码都是1nts 中大迅通合同统计设计概要 本系统主要分为以下几个功能模块： 一 : 录入 (新增 ) 主要是录入合同的原始资料。包括以下部分： 栏目 备注 1 合同编号 2 客户名称 3 合同类别 4 所属部门 5 合同期 6 合同额 7 已收款 8 成本 9 已付成本 10 应付税金 11 已付税金 12 未收余额 =合同额已收款 13 未付成本 =成本已付成本 14 未付税金 =应付税金已付税金 15 项目毛利 合同额成本应付税金 16 可分配毛利 已收款已付成本已付税 17 收款计划 二、 收钱 三、修改 修改原始资料（上表中红色字部分） 四、查询 查询条件有以下几种： 时间范围；客户名称；合同编号；部门；合同类别；模糊条件 五、统计 统计条件同查询条件； 可根据需要设置显示的字段并打印出来。 nts 六、显示列表 七、打印 八、导出到 Excel 与导入 (追加 )Excel 九、权限管理 另外，最好是有分权限的功能，权限分为录入，修改，浏览 nts 广东中大讯通软件科技有限公司 项目管理 编号： R&D-CXM0305(A) 制订人：邓德明 项目需求文档 项目名称 中大迅通合同统计系统 项目编号 版本历史 版本 日期 修改內容 作者 审核 D1 2005.02.06 统计系统需求初稿 余超 庄敬晖 D2 2005.02.21 对系统列表所显示的字段进行说明 李嵩 庄敬晖 编制人签署： 审核签字 审核日期 审批签字 审批日期 客户确认 确认签字 确认日期 nts 广东中大讯通软件科技有限公司 项目管理 编号： R&D-CXM0305(A) 制订人：邓德明 目 录 1 引 言 . 1 1.1 编写目的 . 1 1.2 背景 . 1 2 需求描述 . 2 2.1 录入（新增） . 2 2.2 修改 . 2 2.3 查询 . 2 2.4 统计 . 2 2.5 显示列表 . 2 2.6 导出到 EXCEL 与导入 (追加 )EXCEL . 4 2.7 打印 . 4 2.8 权限管理 . 4 nts 广东中大讯通软件科技有限公司 项目管理 编号： R&D-CXM0305(A) 第 1 页 制订人：邓德明 1 引言 1.1 编写目的 本文档主要是描述 中大迅通合同统计系统 的主要功能，目的为方便项目开发过程中财务部相关同事及项目开发相关人员的交流，以此作为项目调研书面文档。 文档阅读对象：财务部相关同事、程序员及项目相关人员。 1.2 背景 本项目的名称：中大讯通合同统计系统 本项目服务器运行环境为： Windows 2000 server Microsoft Access 本项目客户端运行环境为： Windows 98/2000/XP nts 广东中大讯通软件科技有限公司 项目管理 编号： R&D-CXM0305(A) 第 2 页 制订人：邓德明 2 需求描述 中大讯通合同统计系统有以下几个主要功能： 2.1 录入（新增） 录入合同的原始资料。包括以下部分： 栏目 备注 1 合同编号 2 客户名称 3 合同类别 4 所属部门 5 合同期 6 合同额 7 已收款 8 成本 9 已付成本 10 应付税金 11 已付税金 12 余额 =合同额已收款 13 未付成本 =成本已付成本 14 未付税金 =应付税金已付税金 15 项目毛利 合同额成本应付税金 16 可分配毛利 已收款已付成本已付税 2.2 修改 修改原始资料（上表中红色字部分） 2.3 查询 查询条件有以下几种：时间范围；客户名称；合同编号；部门；合同类别；模糊条件 2.4 统计 统计条件同查询条件； 2.5 显示列表 全部基本资料列表字段 : 字段 说 明 备 注 合同编号 记录合同的编号 客户名称 记录客户的名称 合同类别 说明合同的类别 所属部门 此合同为哪个部门相关 nts 广东中大讯通软件科技有限公司 项目管理 编号： R&D-CXM0305(A) 第 3 页 制订人：邓德明 合同期 此合同的到期时间 合同额 此合同 的金额 已收款 此合同目前已收款 成本 此项目合同所需的合部成本 已付成本 此项目合同目前已付的成本 应付税金 此项目合同所需付的全部税金 已付税金 此项目合同目前已付的税金 未收余额 =合同额已收款 此字段为自动计算 未付成本 =成本已付成本 此字段为自动计算 未付税金 =应付税金已付税金 此字段为自动计算 项目毛利 合同额成本应付税金 此字段为自动计算 可分配毛利 已收款已付成本已付税 此字段为自动计算 收款计划 目前为文字信息。 此字段以后要完善，根 据此字段来提示收款 收款列表字段： 字段 说 明 备 注 收款 ID 年 (4)+月 (2)+日 (2)+时 (2)+分 (2)+秒 (2) 共 14 位是根据录入的时间自动生成 合同编号 是从基本资料表的合同编号中取出 客户名称 是从基本资料表的客户名称中取出 合同类别 是从基本资料表的合同类别中取出 所属部门 是从基本资料表的所属部门中取出 合同期 是从基本资料表的合同期中取出 收款时间 当前收款的日期 下一期收 款时间 下一期收款的日期 合同额 是从基本资料表的合同额中取出 本期收款 本期收的款数 成本 是从基本资料表的成本中取出 本期付成本 本期要付的成本 应付税金 是从基本资料表的应付税金中取出 本期付税金 本期要付的税金 未收余额 =合同额 (基本资料表中已收款 +本期收款 ) 未付成本 =成本 (基本资料表中已付成本 +本期付成本 ) 未付税金 =应付税金 (基本资料表中已付税金 +本期付税金 ) 项目毛利 合同额成本应付税金 可分配毛利 已收款 (基本资料表中已付税金 +已付成本 ) (基本资料表中已付税金 +已付税 ) nts 广东中大讯通软件科技有限公司 项目管理 编号： R&D-CXM0305(A) 第 4 页 制订人：邓德明 收款计划 同基本资 料中的收款计划 收款人 自动生成把登入用户填入 2.6 导出到 Excel 与导入 (追加 )Excel Excel 格式待定。 2.7 打印 将统计结果根据需要设置字段并打印出来。 2.8 权限管理 有权限管理功能，权限分为：管理员（全部权限），修改（除对成本、利润、税金等相关信息不可以修改和浏览外），浏览（某个部门只能浏览此部门的相关资料） nts 1 毕业设计（论文） 中 文 题 目 ： 合同统计系统的设计与实现 英 文 题 目 ： 学 院： 专 业： 计算机科学与技术 学生姓名： 学 号： 指导教师： 2004 年 6 月 4 日 nts 2 摘 要 在 21 世纪，随 着计算机科学的发展，数据库技术在人们日常工作中的应用越来越广泛，为广大用户提供了更加周到和人性化的服务。数据库技术已 逐渐成为当今计算机应用的潮流。本文主要是通过制作一款数据库软件 即“合同统计系统”来介绍数据库技术在人们日常生活和工作中的应用。 本论文所做的主要工作如下： (1)介绍了 Visualbasic6.0 软件开发工具和利用 Delphi7.0和 Ado 技术操作数据库的一般原理。 (2)阐述整个“合同统计系统”的系统结构及工作原理；分析了系统实现中的特殊性、难点。 (3)设计实现对数据库的操作功能、数据库查询功能、数据库打印功能。 (4)分析并解决实现中的若干技术问题。 (5)建立完整的“合同统计系统”，进行测试并分析 结果。 关键字 数据库技术 Ado 合同统计系统 nts 3 Abstract At the 21th century ,With the development of computer science, Database technology is widely used in the peoples life and work. This makes users can enjoy more convenient and individual services. Database technology is the trend of todays computer applications. In this work, we study the technique to build a software named Contract Stat System in order to introduce the applications of database technology in the peoples life and work. The main work of this paper are : (1) Introduces the Visual Basic6.0 software development tool and introduces the method how to use the software and Ado technology to operate the database. (2) Investigates the system structure and working principle of the Contract Stat System. Analyses the particularity and difficulty of the system. (3) Analyses and resolves the technical problems in implementation. nts 4 (4) Establishes a test software and analyses the result after testing on it. Key Words Database technology Ado Contract Stat System nts 5 目录 第 1 章 绪论 . 第 2 章 概述 . 2-1 Visual Basic6.0 编程软件介绍及数据库概述 . 2-2 Visual Basic6.0 访问数据库的四种方法比较 . 第 3 章 系统分析与设计 . 3-1 系统需求分析 . 3-2 系统模块设计 . 第 4 章 合同统计管理系统的设计与实现 . 4-1 各功能模块流程图或联系图 . 4-2 分析与创建数据库 . 新建数据库及字段 . 4-3 系统各模块的设计与实现 . 4-3-1 用户登陆管理模块的设计 . 4-3-2 合同基本信息录入模块的设计 . 4-3-3 用户密 码修改模块的设计 . 4-3-4 合同统计模块的设计 . 4-3-5 合同信息查找模块的设计 . nts 6 4-3-6 收款模块的设计 . 第 5 章 系统性能测试 第 6 章 总结 . . . 致谢与参考文献 第 1 章 绪论 本论文描述了一个使用 VB 技术来实现创建一个基于本地数据库技术的合同统计系统的实例该系统主要面向合同信息处理的单机服务，整个系统共有几个部分来实 现不同的功能： 用户登录管理。只有有权限的用户才能进入本系统，没有权限的用户或非法用户不能进入本系统，从而有效地保证系统的安全。 合同基本信息录入。能够对合同的基本信息进入录入，包括合同的编号、合同的类别、合同名称、合同部门、所属部门、合同开始日期、合同结束日期、合同额等。 合同信息的查找。能够对合同的具体信息进行查找。可以提供按时间范围查找、按所属部门查找、按合同编号查找、按客户名称查找、按合同类别查找、按模糊条件查找。 对用户密码进行修改。为了保证软件的安全，用户需要定期修改密码。用户在登录后要能对自己 的密码进行修改。 合同统计。通过它首先可以浏览所有合同的具体信息，还能添nts 7 加、删除、修改、保存合同信息。同时，作为操作本软件的主要平台，通过它能够访问其它的单元。 收款。可以对合同的收款的情况信息进行管理，包括对收款信息的录入、删除、修改、保存等。 整个系统简单划分为以上 6 个部分 nts 8 第 2 章 概述 2-1 Visual Basic6.0 编程软件介绍及数据库概述 Visual Basic 是由微软公司推出的一套完整的 Windows 系统软件开发工具，可用于开发 Windows 环境下的各类应用 程序，是一种可视化、真正面向对象、采用事件驱动方式的结构化高级程序设计语言和工具的完美集成。它编程简单、方便、功能强大，具有与其它语言及环境的良好接口，不需要编程开发人员具备 C/C+或者 Turbo Pascal 语言知识和特别高深的专业知识，只要懂得 Windows 的界面及其基本操作，就可以迅速上手，而 VB 在程序界面设计、多媒体开发方面更是独具优势。 自 1991 年 Visual Basic 1.0 推出以来， Visual Basic 版本不断得到更新，功能不断得到增强，现在的最新版本是 Visual Basic 6.0。为了满足不同的开发需要， Visual Basic 6.0 本身又分为学习版、专业版。 Visual Basic 6.0 对已有功能进行完善，同时增加了许多新的功能。 新的数据访问特性 在数据访问技术方面 Visual Basic 6.0 比起 Visual Basic 5.0 有了极大的增强 : 新的数据访问接口 ADO:Visual Basic 6.0 支持的数据访问接口有ADO(ActiveX 数据对象 )、 RDO(远程数据对象 )和 DAO(数据访问对象 )，每个接口都代表了数据访问技术的不同发展阶段，最新的接口是 ADO。ADO 是比 RDO 和 DAO 更加简单、更加灵活的对象模型，它是为 OLE DB 而设计的。 OLD DB 是新的低层 COM 接口，可以为任何数据源提nts 9 供高性能的访问。这些数据源包括关系和非关系数据库、电子邮件和文件系统、文本和图形、自定义业务对象等。 ADO 封装并实现了 OLDDB的所有功能，它将全面取代 DAO 和 RDO，成为数据访问接口的主流。 新的数据源：除了已有的 Data 和 Remote Data 控件外， Visual Basic 6.0 引入了几种新的数据源，包括数据识别的类模块和用户控件、数据环境、 ADO 记录集和 ADO Data 控件等。 ADO Data 控件的功能与Data 和 Remote Data 控件十分相似，都允许编程人员用最少的代码来创建数据库应用程序。 新的数据库绑定控件： Visual Basic 6.0 新增加了为数不少的数据绑定控件，包括 DataGrid, Datalist, DataCombo, Hierarchical FlexGrid 和DataRepeater 等。 集成的可视化数据库工具：包括查询设计器和数据库设计器，提供了可视地查看并操作表、视图、存储过程和数据库结构的功能。 数据环境设计器：允许编程人员可视化 地创建和操作 ADO 对象，为编程人员操纵数据源提供了极大的方便。 数据报表设计器：允许编程人员利用拖放技术来快速地从任何记录集创建报表。 新的 Internet 特性 Visual Basic 6.0 提供了多种不同的途径，来帮助编程人员开发出动态的、功能强大的 Internet 应用程序： IIS 应用程序：可以直接 Visual Basic 6.0 来创建 IIS 应用程序 (服务器端 Internet 应用程序 )，响应浏览器用户的请求。 对下载 ActiveX 文档的支持：在 Internet Explorer 中下载 ActiveX 文nts 10 档 与下载 ActiveX 控件的方法相同。 除了新的数据访问特性和新的 Internet 特性外， Visual Basic 6.0 在其余方面也都做了重大改进，包括新的或增强的控件，新的或增强的语言特性，以及新的或增强的向导。所有这些都使得 Visual Basic 6.0 功能更为强大。总之，无论是开发小型应用系统，还是大型企业应用系统，甚至开发功能强大的 Internet 应用程序， Visual Basic 6.0 都能胜任。 2-2 Visual Basic 6.0 访问数据库的四种方法比较 Visuai Basic 6.0 的数据访问功能比起 Visual Basic 5.O 有了极大的增强。除了支持 DAO(数据访问对象 )和 RDO(远程数据对象 )外 ,Visual Basic 6.0 还提供了新的 ADO 和 RDO 更加简单、更加灵活的数据访问接口。此外 ,Visual Basic 6.0 还提供了新的数据源、新的数据绑定控件、新的可视化数据库工具、新的数据环境设计器以及新的数据报表设计器。 1.数据访问对象 (DAO)控件 数据访问对象 (DAO)是 Jet 引擎的面向对象的编程接口。 Jet 引擎使最终用户与正在访问的特定数据库无关。 Jet 引擎驻留 在 (动态连接库 )文件中 ,运行时将应用程序的请求翻译成对数据库的物理操作。 Jet 引擎真正读取、写入和修改数据库 ,并处理所有的内部的事务。 Jet 引擎介于用户界面和数据仓库之间。 通过数据访问对象和 Jet 引擎可以识别以下三类数据库 :Visual Basic 数据库 ;外部数据库 ;ODBC 数据库。 虽然可以直接使用数据访问对象来编程 ,但 Data 控件作为一个图形控件 ,具有易于使用的界面 ,它的最大优点就是只需少量代码或根本不用nts 11 代码就可以创建应用程序来显示。 2.运程数据对象和 Remtoe Data 控件 远程数据访问对象是位 于 ODBC API 和驱动程序管理器之上的对象模型 ,它提供了一系列的对象来满足远程数据访问的特殊要求。尽管RDO 在访问 Jet 或 ISAM 数据库时受到限制 ,而且只能通过现存的 ODBC驱动程序来访问关系数据库。但 RDO 能访问任何的 ODBC 数据源 ,特别适用于智能的数据库服务器 (如 SOL Server 和 Oracle 等 )。 Remote Data 与 Data 控件基本类似，都提供了对数据库的无缝访问 ,用户不必编写任何代码就可以创建数据识别的应用程序 ,区别在于 :Remite Data 控件是通过使用 RDO 来实现数据访问 ,而 Data 控件则通过使用 DAO 来连接到 Jet 引擎。 3.ActiveX 数据对象和 ADO Data 控件 OLE DB 是一种统一的数据访问接口 ,它能够访问各种 DBMS 和非DBMS 数据源。 DBMS 数据源包括主机数据库 (如 IMS 和 DB2、服务器数据库 (如 Oracle 和 SQL Sereer)以及桌面数据库 (如 (Micromft Access)；非 DBMS 数据源包括存放在 Windows 和 UNIX 文件系统中的信息、电子邮件、电子表格、 web 上的文件或图形以及目录服务等。 OLE DB 使得数据消费者 (应用程序 )可以使用相同的方法访问 各种数据，而不用考虑数据的具体存储地点、格式及类型。 ADO(ActiveX 数据对象 )是 DAO、RDO 的后继产物，更简单和灵活。它扩展了 DAO 和 RDO 所使用的对象模型，包含较少的对象，更多的属性、方法和事件。 ADO 是为 OLE DB而设计的，它封装并实现了 OLE DB 的所有功能。 ADO Data 控件，也就是 Adodc，是 Visual Basic 6.0 新引进的数据访问控件 ,它使用 ADO 来快速建立数据绑定控件和数据提供者之间的连nts 12 接，它使编程者使用最少的代码来创建数据库应用程序。当然，用 ADO Data 控件进行访 问数据时必须为待访问的数据库创建 OLE DB 数据连接。本毕业设计就是采用这种先进的数据库访问技术访问数据库的。 4.数据环境设计器和数据报表设计器 数据环境设计器用于在设计时创建 ADO 对象，它为数据库访问提供了一个交互式环境。 在编程时，可以使用数据环境设计器创建连接、命令和其他 ADO对象，使用 ADO 对象的方法和属性，执行命令和操作记录集等。 在数据环境设计器中创建连接和命令对象之后，数据环境设计器在设计时创建了 DataEnvieonmwnr 对象以及从属的 ADO 对象。当连接和命令对象的数据源可用时，可以在程 序运行时直接访问数据环境设计器创建的 Command、 Connection 和 Recordset 对象，好像这些对象是直接通过 ADO 创建的一样。例如，可以在运行时用代码将数据识别控件绑定到一个命令对象或命令对象中的字段，也可以在对象关闭时动态地设置 ADO Connection 和 Recordset 对象的属性，并在数据绑定前设置参数值。 Microsoft 数据报表设计器 (Micromft Data Report designer)是 Visual Bmic6.0 提供的新的报表设计器，和 Visual Basic 中已有提供 数据源的对象 (如数据环境设计器 )一起使用，通过鼠标的拖放操作，可以方便的创建复杂的报表。 DataReport 设计器创建的报表可以直接打印，也可以将报表导出到 HTML 或文本文件中。 数据库最主要的功能是存储数据和提供信息。数据报表的作用就是将数据从数据库中检索到的数据，以用户自定义的格式打印出来或是显示在计算机屏幕上。使用报表可以解决数据库打印格式的特殊要求，也nts 13 可以解决大量重复性的劳动。在具体的数据库应用程序中，报表可以解决各种各样的实际问题。例如：当建成一个完整的数据库系统后，用户可以通过 SQL 语句，或事先 定义好的查询来检索数据库中的信息。 通过比较可以发现： ADO（ ActiveX Data Object， ActiveX 数据对象）是微软提出的新标准，它使得客户端应用程序能够通过任何 OLEDB 提供者来访问和操作数据库服务器中的数据，而不必进行 ODBC 配置。 ADO 有两个主要优点：其一是易于使用、速度快、内存支出少和磁盘遗迹小。其二是“远程数据访问”，能够通过一个来回的传输将数据从服务器移动到客户端应用程序或 Web 中，然后在客户端对数据进行操作，最后将更新数据返回服务器。 由于 ADO 操作数据库有着其他方法操作数 据库无法比拟的优点，所以本毕业设计选择使用 ADO 操作数据库。 nts 14 第 3 章 系统分析与设计 3-1 需求分析： 为了更好地适应工作人员对合同统计系统的需求，缓解手工管理存在的弊端，开发合同统计系统。合同统计系统向用户提供的服务将在传统的“录入 -修改 -删除 -查找”基础上，进一步提供全方位的信息服务。它具有以下几个特点： (1)可以存储所有合同的资料，具有安全、高效的特性； (2)只需 1 名合同信息录入人员即可操作本合同统计系统，可以节省大量的人力和物力。 (3)可以通过查询系统迅速查到所需要的信息。 在对合同统计系统的流程进行认真系统的分析后，我认为本系统用户的需求可以分为 3 个方面： 第 1 方面 是 用户登录管理。只有有权限的用户才能进入本系统，没有权限的用户或非法用户不能进入本系统，从而有效地保证系统的安全。 第 2 方面 是 合同信息的查找。能够对合同的具体信息进行查找。可以提供按时间范围查找、按所属部门查找、按合同编号查找、按客户名称查找、按合同类别查找、按模糊条件查找。 第3 方面 也是合同统计系统的核心工作，即 合同基本信息录入。能够对合同的基本信息进入录入，包括合同的编号、合同的类别、合同名称、合同部门、所属部门、合 同开始日期、合同结束日期、合同额等。 3-2.模块设计： 根据需求分析的结果，我将本系统主要弄分为 6 个子模块：用户登录、图书管理、图书查询、借阅查询、借阅管理、基础维护。 nts 15 系统各模块的主要功能如下： (1) 用户登录管理模块。本模块的主要功能是对系统的操作进行限制；只有有权限的用户才能进入本系统，没有权限的用户或非法用户不能进入本系统，从而有效地保证系统的安全。 (2) 合同基本信息录入模块。本模块的主要功能是能够对合同的基本信息进入录入，包括合同的编号、合同的类别、合同名称、合同部门、所属部门、合同开始 日期、合同结束日期、合同额等。 (3) 用户密码修改模块。本模块的主功能是为了保证软件的安全，用户需要定期修改密码。用户在登录后要能对自己的密码进行修改。 (4)合同统计模块。本模块的主要功能是首先是通过本模块可以浏览到数据库内所有合同的具体信息，还能添加、删除、修改、保存合同信息。同时，作为操作本软件的主要平台，通过它能够访问其它的模块，如用户修改模块、收款模块等。 (5)收款模块。本模块的主要功能是对合同的收款的情况信息进行管理，包括对收款信息的录入、删除、修改、保存等。 nts 16 第 4 章 合同 统计系统的实现 4-1 软件流程图 用户密码修改模块 合同统计模块（主窗体） 合同信息录入模块 合同统计模块 收款模块 基础维护模块 用户登录模块 nts 17 4-2 分析与创建数据库 4-2-1 新建数据库及字段 运行 Microsoft 公司的 Office2000 办公软件中的 Access 数据库软件。 1点击菜单“文件”，在出现的菜单项中选择“新建”菜单项。 2然后点击“空数据库”，在弹出的“文件新建数据库”对话框中键入数据库的名称，本软件中应写入： database.mdb。 3这时系统将会自动进入详细的数据库设计窗体。我们选择“使用设计器”创建表。 4在弹出的“表 1”设计窗体中，依次写入各个字段名以及他们相对应的数据类型和说明事项。在本数据库中他们依次是： 字段名称 数据类型 字段大小 作用 Dbname 文本 20 用户名 Dbpassword 文本 50 密码 Dbbranch 文本 50 部门 权限 文本 50 权限 5设计好字段名后，关闭并保存表为“ login，即“用户登录信息”表 。 6双击“ login”表，然后在弹出的数据录入窗体中录入数据，并保存。 因为软件中需要三个数据库表，所以还要在数据库中新建一个“基本资料”表、“收 款信息”表。下面就用表格的形式分别列出这二个表的字段名称和数据类型。 基本资料表 nts 18 字段名称 数据类型 字段大小 作用 合同编号 文本 50 合同编号 客户名称 文本 50 客户名称 合同类别 文本 50 合同类别 所属部门 文本 50 所属部门 合同开始日期 日期 /时间 合同开始日期 合同额 货币 合同额 已收款 货币 已收款 成本 货币 成本 已付成本 货币 已付成本 应付税金 货币 应付税金 已付税金 货币 已付税金 未收余额 货币 未收余额 未付成本 货币 未付成本 未付税金 货币 未付税金 项目毛利 货币 项目毛利 可分配毛利 货币 可分配毛利 收款计划 货币 收款计划 合同结束日期 日期 /时间 合同结束日期 收款信息表 nts 19 字段名称 数据类型 字段大小 作用 收款 id 文本 50 收款 id 合同编号 文本 50 合同编号 客户名称 文本 50 客户名称 合同类别 文本 50 合同类别 所属部门 文本 50 所属部门 合同期 日期 /时间 合同期 收款时间 日期 /时间 收款时间 下一期收款时间 日期 /时间 下一 期收款时间 合同额 货币 合同额 本期收款 货币 本期收款 成本 货币 成本 本期付成本 货币 本期付成本 应付税金 货币 应付税金 本期付税金 货币 本期付税金 未收余额 货币 未收余额 未付成本 货币 未付成本 未付税金 货币 未付税金 项目毛利 货币 项目毛利 可分配毛利 货币 可分配毛利 收款计划 货币 收款计划 收款人 文本 50 收款人 nts 20 4-3 系统各模块的设计与实现 4-3-1 用户登录管理模块的设计 1. 用户登录管理模块的主要功能是对系统的操 作进行限制；只有有权限的用户才能进入本系统，没有权限的用户或非法用户不能进入本系统，从而有效地保证系统的安全。 2.界面设计： 新建一个窗体，然后在上面加上各种必须的控件，运行图如下所示： 2.本模块的核心代码及解释： (1)系统显示时自动在用户名的下拉列表里列出所有目前数据库里用户的用户名，供工作人员选择，即代码如下： Private Sub Form_Load() 连接 Dim ADORecordset As New ADODB.Recordset mycon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= nts 21 _ & App.Path & database.mdb;Persist Security Info=False 打开表 With ADORecordset .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open login, mycon, , , adCmdTable End With 向用户名中填加记录 If Not (ADORecordset.BOF = True And ADORecordset.EOF = True) Then Do Until ADORecordset.EOF = True cobName.AddItem IIf(IsNull(ADORecordSet.Fields(Name).Value), _ , ADORecordSet.Fields(Name).Value) cobName.AddItem IIf(IsNull(ADORecordset.Fields(DBName).Value), _ , ADORecordset.Fields(DBName).Value) ADORecordset.MoveNext nts 22 Loop End If cobName.Text = cobName.List(0) ADORecordset.Close txtName.Enabled = False End Sub (2)用户选择用户名并输入密码后，按“确定”按钮触发的事件代码如下： Private Sub cmdOk_Click() Dim ADOmrc As ADODB.Recordset strtxtSQL = select * from login where DBpassword = & Trim(txtPassword.Text) & and DBName= & Trim(cobName.Text) & Set ADOmrc = ExecuteSQL(strtxtSQL) If ADOmrc.EOF = True Then MsgBox 密码错误！ , vbExclamation + vbOKOnly, 警告 txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) Exit Sub Else nts 23 用户权限 = IIf(IsNull(ADOmrc.Fields(权限 ).Value), _ , ADOmrc.Fields(权限).Value) 所属部门 = IIf(IsNull(ADOmrc.Fields(DBBranch).Value), _ , ADOmrc.Fields(DBBranch).Value) End If Set ADOmrc = Nothing Unload Me Load 合同统计系统 合同统计系统 .Show vbModal End Sub 4-3-2 合同基本信息录入模块设计 1. 合同基本信息录入模块的主要功能是能够对合同的基本信息进入录入，包括合同的编号、合同的类别、合同名称、合同部门、所属部门、合同开始日期、合同结束日期、合同额等。 从严格意义上来说本模块是合同统计模块中的一个小模块，这实现合同统计模块中的合同信息录入的功能。 2.窗体界面的设计 : 新建一个窗体，然后 在上面加上各种必须的控件，运行图如下所示： nts 24 3.核心代码及解释如下： 在输入正确的合同信息后，按“确定”按钮触发的事件代码如下所示： Private Sub comOK_Click() Dim strtxtSQL As String If txtID.Text = Or txtName.Text = Then MsgBox 合同编号不能为空 txtID.SetFocus nts 25 Exit Sub End If 计算已收款 If Val(txtPactMoney.Text) Text2.Text Then MsgBox 两次输入的新密码不正确，请重新输入。 Exit Sub End If Dim ADORecordset As New ADODB.Recordset strtxtSQL = select * from Login where DBName = & cobName.Text & Set ADORecordset = ExecuteSQL(strtxtSQL) If Not (ADORecordset.BOF = True And ADORecordset.EOF = True) Then Do Until ADORecordset.EOF = True strSQL = update login set DBName = & cobName.Text _ & ,DBPassword = & Text1.Text _ nts 31 & ,DBBranch = & cobBranch.Text _ & ,权限 = & 权限 & where DBName= & cobName.Text & ADORecordset.MoveNext Loop Else strSQL = Insert into login (DBName,DBPassword,DBBranch,权限 ) Values( & cobName.Text & , & Text1.Text & , & cobBranch.Text & , & 权限 & ) End If Set ADOCommand.ActiveConnection = mycon ADOCommand.CommandText = strSQL ADOCommand.Execute Set ADOCommand = Nothing Set ADORecordset = Nothing Unload Me End Sub 4-3-4 合同统计模块的设计 1.本模块的主要功能是首先是通过本模块可以浏览到数据库内所有合同 的具体信息，还能添加、删除、修改、保存合同信息。同时，作为操作本软件的主要平台，通过它能够访问其它的模块，如用户修改模块、收款模块等。 nts 32 2.窗体设计： 新建一个窗体，然后在上面加上各种必须的控件，运行图如下所示： 3.核心代码及解释如下： (1)响应“新增基本资料”按钮的单击事件，触发的事件代码如下： Private Sub ComNew_Click() fomBasic.txtID.Text = fomBasic.txtName.Text = fomBasic.txtSort.Text = fomBasic.txtBranch.Text = fomBasic.DTPicker1 = Date fomBasic.txtPactMoney.Text = 0 nts 33 fomBasic.txtEndMoney.Text = 0 fomBasic.txtCost.Text = 0 fomBasic.txtEndCost.Text = 0 fomBasic.txtTax.Text = 0 fomBasic.txtEndTax.Text = 0 fomBasic.txtNotMoney.Text = 0 fomBasic.txtNotCost.Text = 0 fomBasic.txtGrossProfit.Text = 0 fomBasic.txtAssignGrossPprofit.Text = 0 fomBasic.txtProject.Text = With BasicDataType .strID = .strName = .strSort = .strBranch = .dateDTPicker = Date .dateDTPicker1 = Date .strPactMoney = .strEndMoney = .strCost = .strEndCost = .strTax = .strEndTax = nts 34 .strNotMoney = .strNotCost = .strGrossProfit = .strAssignGrossPprofit = .strProject = End With fomBasic.Show vbModal End Sub (2)响应“修改基本资料”按钮的单击事件，触发的事件代码如下： Private Sub comEdit_Click() Dim ADORecordset As New ADODB.Recordset If ctList1.ListCount = 0 Then Exit Sub fomBasic.txtID.Text = ctList1.CellText(ctList1.ListIndex, 2) BasicDataType.strID = ctList1.CellText(ctList1.ListIndex, 2) 合同编号 fomBasic.txtName.Text = ctList1.CellText(ctList1.ListIndex, 3) BasicDataType.strName = ctList1.CellText(ctList1.ListIndex, 3) 客户名称 nts 35 fomBasic.txtSort.Text = ctList1.CellText(ctList1.ListIndex, 4) BasicDataType.strSort = ctList1.CellText(ctList1.ListIndex, 4) 合同类别 fomBasic.txtBranch.Text = ctList1.CellText(ctList1.ListIndex, 5) BasicDataType.strBranch = ctList1.CellText(ctList1.ListIndex, 5) 所属部门 fomBasic.DTPicker1 = ctList1.CellText(ctList1.ListIndex, 6) BasicDataType.dateDTPicker = ctList1.CellText(ctList1.ListIndex, 6) 合同期 fomBasic.DTPicker2 = ctList1.CellText(ctList1.ListIndex, 7) BasicDataType.dateDTPicker1 = ctList1.CellText(ctList1.ListIndex, 7) 合同期 fomBasic.txtPactMoney.Text = ctList1.CellText(ctList1.ListIndex, 8) BasicDataType.strPactMoney = ctList1.CellText(ctList1.ListIndex, 8) 合同额 fomBasic.txtEndMoney.Text = ctList1.CellText(ctList1.ListIndex, 9) nts 36 BasicDataType.strEndMoney = ctList1.CellText(ctList1.ListIndex, 9) 已收款 fomBasic.txtCost.Text = ctList1.CellText(ctList1.ListIndex, 10) BasicDataType.strCost = ctList1.CellText(ctList1.ListIndex, 10) 成本 fomBasic.txtEndCost.Text = ctList1.CellText(ctList1.ListIndex, 11) BasicDataType.strEndCost = ctList1.CellText(ctList1.ListIndex, 11) 已付成本 fomBasic.txtTax.Text = ctList1.CellText(ctList1.ListIndex, 12) BasicDataType.strTax = ctList1.CellText(ctList1.ListIndex, 12) 应付税金 fomBasic.txtEndTax.Text = ctList1.CellText(ctList1.ListIndex, 13) BasicDataType.strEndTax = ctList1.CellText(ctList1.ListIndex, 13) 已付税金 fomBasic.txtNotMoney.Text = ctList1.CellText(ctList1.ListIndex, 14) BasicDataType.strNotMoney = ctList1.CellText(ctList1.ListIndex, nts 37 14) 未收余额 fomBasic.txtNotCost.Text = ctList1.CellText(ctList1.ListIndex, 15) BasicDataType.strNotCost = ctList1.CellText(ctList1.ListIndex, 15) 未付成本 fomBasic.txtNotTax = ctList1.CellText(ctList1.ListIndex, 16) BasicDataType.strNotTax = ctList1.CellText(ctList1.ListIndex, 16) 未付税金 fomBasic.txtGrossProfit.Text = ctList1.CellText(ctList1.ListIndex, 17) BasicDataType.strGrossProfit = ctList1.CellText(ctList1.ListIndex, 17) 项目毛利 fomBasic.txtAssignGrossPprofit.Text = ctList1.CellText(ctList1.ListIndex, 18) BasicDataType.strAssignGrossPprofit = ctList1.CellText(ctList1.ListIndex, 18) 可分配毛利 fomBasic.txtProject.Text = ctList1.CellText(ctList1.ListIndex, 19) BasicDataType.strProject = ctList1.CellText(ctList1.ListIndex, 19) nts 38 收款计划 mycon.Close mycon.ConnectionString = ConnString mycon.Open strtxtSQL = DELETE * from 基本资料 where 合同编号 = & ctList1.CellText(ctList1.ListIndex, 2) & Set ADORecordset = ExecuteSQL(strtxtSQL) mycon.Close Set ADORecordset = Nothing ctList1.ClearList fomBasic.Show vbModal End Sub (3) 响应“删除基本资料”按钮的单击事件，触发的事件代码如下： Private Sub comDel_Click() Dim ADORecordset As New ADODB.Recordset If ctList1.ListIndex 0 Then .ListIndex = 0 Else .ListIndex = -1 End If End With Set ADORecordset = Nothing strTextSQL = UPDATE 基本资料 set 已收款 & Val(txtEndMoney.Text) + Val(BasicDataType.strEndMoney) _ nts 43 & , 已 付 成 本 = & Val(txtEndCost.Text) + Val(BasicDataType.strEndCost) _ & , 应 付 税 金 = & Val(txtTax.Text) _ & , 已 付 税 金 = & Val(txtEndTax.Text) + Val(BasicDataType.strEndTax) _ & , 未 收 余 额 = & txtNotMoney.Text _ & , 未 付 成 本 = & txtNotCost.Text _ & , 未 付 税 金 = & txtNotTax.Text _ & , 项 目 毛 利 = & txtAssignGrossPprofit.Text _ & , 可 分 配 毛 利 = & txtAssignGrossPprofit.Text _ & , 收 款 计 划 = & txtProject.Text _ & WHERE 合同编号 = & txtID.Text & Set ADORecordset = ExecuteSQL(strtxtSQL) Set ADORecordset = Nothing mycon.Close Set mycon = Nothing nts 44 SSTab1.Tab = 1 End Sub 4-3-6 合同信息查找模块的设计 1.本模块的主要功能就是对合同的具体信息进行查找。可以 提供按时间范围查找、按所属部门查找、按合同编号查找、按客户名称查找、按合同类别查找、
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
|
2:不支持迅雷下载,请使用浏览器下载
3:不支持QQ浏览器下载,请用其他浏览器
4:下载后的文档和图纸-无水印
5:文档经过压缩，下载后原文更清晰
|
川公网安备: 51019002004831号