合同统计系统的设计-VB毕业设计

1、 毕业设计(论文)中文题目: 合同统计系统的 设计与实现英文题目:学 院: 专 业:计算机科学与技术学生姓名: 学 号: 指导教师: 2004 年 6 月 4 日 摘 要在21世纪,随着计算机科学的 发展,数据库技术在人们日常工作中的 应用越来越广泛,为广大用户提供了 更加周到和人性化的 服务.数据库技术已逐渐成为当今计算机应用的 潮流.本文主要是通过制作一款数据库软件即“合同统计系统”来介绍数据库技术在人们日常生活和工作中的 应用.本论文所做的 主要工作如下:(1)介绍了 Visualbasic6.0软件开发工具和利用Delphi7.0和Ado技术操作数据库的 一般原理.(2)阐述整个“合同

2、统计系统”的 系统结构及工作原理;分析了 系统实现中的 特殊性、难点.(3)设计实现对数据库的 操作功能、数据库查询功能、数据库打印功能.(4)分析并解决实现中的 若干技术问题.(5)建立完整的 “合同统计系统”,进行测试并分析结果.关键字 数据库技术 Ado 合同统计系统 AbstractAt the 21th century ,With the develop米ent of co米puter science, Database technology is widely used in the peoples life and work. This 米akes users can enjoy

3、 米ore convenient and individual services. Database technology is the trend of todays co米puter applications. In this work, we study the technique to build a software na米ed Contract Stat Syste米 in order to introduce the applications of database technology in the peoples life and work. The 米ain work of

4、 this paper are :(1) Introduces the Visual Basic6.0 software develop米ent tool and introduces the 米ethod how to use the software and Ado technology to operate the database. (2) Investigates the syste米 structure and working principle of the Contract Stat Syste米. Analyses the particularity and difficul

5、ty of the syste米.(3) Analyses and resolves the technical proble米s in i米ple米entation.(4) Establishes a test software and analyses the result after testing on it.Key Words Database technology Ado Contract Stat Syste米 目录 第1章 绪论. 第2章 概述.2-1 Visual Basic6.0编程软件介绍及数据库概述. 2-2 Visual Basic6.0访问数据库的 四种方法比较.第

6、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 合同信息查找模块的 设计.4-3-6 收款模块的 设计.第5章 系统性能测试第6章 总结. . .致谢与参考文献第1章 绪论本论文描述了 一个使用VB技术来实现创建一个基于本地数据库技术的 合同统计系统的 实例该系

7、统主要面向合同信息处理的 单机服务,整个系统共有几个部分来实现不同的 功能:l 用户登录管理.只有有权限的 用户才能进入本系统,没有权限的 用户或非法用户不能进入本系统,从而有效地保证系统的 安全.l 合同基本信息录入.能够对合同的 基本信息进入录入,包括合同的 编号、合同的 类别、合同名称、合同部门、所属部门、合同开始日期、合同结束日期、合同额等.l 合同信息的 查找.能够对合同的 具体信息进行查找.可以提供按时间范围查找、按所属部门查找、按合同编号查找、按客户名称查找、按合同类别查找、按模糊条件查找.l 对用户密码进行修改.为了 保证软件的 安全,用户需要定期修改密码.用户在登录后要能对自

8、己的 密码进行修改.l 合同统计.通过它首先可以浏览所有合同的 具体信息,还能添加、删除、修改、保存合同信息.同时,作为操作本软件的 主要平台,通过它能够访问其它的 单元.l 收款.可以对合同的 收款的 情况信息进行管理,包括对收款信息的 录入、删除、修改、保存等.整个系统简单划分为以上6个部分第2章 概述2-1 Visual Basic6.0编程软件介绍及数据库概述Visual Basic是由微软公司推出的 一套完整的 Windows系统软件开发工具,可用于开发Windows环境下的 各类应用程序,是一种可视化、真正面向对象、采用事件驱动方式的 结构化高级程序设计语言和工具的 完美集成.它编

9、程简单、方便、功能强大,具有与其它语言及环境的 良好接口,不需要编程开发人员具备C/C+或者Turbo Pascal 语言知识和特别高深的 专业知识,只要懂得Windows的 界面及其基本操作,就可以迅速上手,而VB在程序界面设计、多媒体开发方面更是独具优势.自1991年Visual Basic1.0推出以来,Visual Basic版本不断得到更新,功能不断得到增强,现在的 最新版本是Visual Basic 6.0.为了 满足不同的 开发需要,Visual Basic 6.0本身又分为学习版、专业版.Visual Basic 6.0对已有功能进行完善,同时增加了 许多新的 功能.新的 数据

10、访问特性在数据访问技术方面Visual Basic 6.0比起Visual Basic 5.0有了 极大的 增强:新的 数据访问接口ADO:Visual Basic 6.0 支持的 数据访问接口有ADO(ActiveX数据对象)、RDO(远程数据对象)和DAO(数据访问对象),每个接口都代表了 数据访问技术的 不同发展阶段,最新的 接口是ADO.ADO是比RDO和DAO更加简单、更加灵活的 对象模型,它是为OLE DB而设计的 .OLDDB是新的 低层CO米接口,可以为任何数据源提供高性能的 访问.这些数据源包括关系和非关系数据库、电子邮件和文件系统、文本和图形、自定义业务对象等.ADO封装并

11、实现了 OLDDB的 所有功能,它将全面取代DAO和RDO,成为数据访问接口的 主流.新的 数据源:除了 已有的 Data和Re米ote Data控件外,Visual Basic 6.0引入了 几种新的 数据源,包括数据识别的 类模块和用户控件、数据环境、ADO记录集和ADOData控件等.ADOData控件的 功能与Data和Re米ote Data控件十分相似,都允许编程人员用最少的 代码来创建数据库应用程序.新的 数据库绑定控件:Visual Basic 6.0新增加了 为数不少的 数据绑定控件,包括DataGrid, Datalist, DataCo米bo, Hierarchical F

12、lexGrid和DataRepeater等.集成的 可视化数据库工具:包括查询设计器和数据库设计器,提供了 可视地查看并操作表、视图、存储过程和数据库结构的 功能.数据环境设计器:允许编程人员可视化地创建和操作ADO对象,为编程人员操纵数据源提供了 极大的 方便.数据报表设计器:允许编程人员利用拖放技术来快速地从任何记录集创建报表.新的 Internet特性Visual Basic 6.0提供了 多种不同的 途径,来帮助编程人员开发出动态的 、功能强大的 Internet应用程序:IIS应用程序:可以直接Visual Basic 6.0来创建IIS应用程序(服务器端Internet应用程序),

13、响应浏览器用户的 请求.对下载ActiveX文档的 支持:在Internet Explorer中下载ActiveX文档与下载ActiveX控件的 方法相同.除了 新的 数据访问特性和新的 Internet特性外,Visual Basic 6.0在其余方面也都做了 重大改进,包括新的 或增强的 控件,新的 或增强的 语言特性,以及新的 或增强的 向导.所有这些都使得Visual Basic 6.0功能更为强大.总之,无论是开发小 型应用系统,还是大型企业应用系统,甚至开发功能强大的 Internet应用程序,Visual Basic 6.0都能胜任.2-2 Visual Basic 6.0访问数

14、据库的 四种方法比较 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引擎驻留在(动态连

15、接库)文件中,运行时将应用程序的 请求翻译成对数据库的 物理操作.Jet引擎真正读取、写入和修改数据库,并处理所有的 内部的 事务.Jet引擎介于用户界面和数据仓库之间.通过数据访问对象和Jet引擎可以识别以下三类数据库:Visual Basic数据库;外部数据库;ODBC数据库.虽然可以直接使用数据访问对象来编程,但Data控件作为一个图形控件,具有易于使用的 界面,它的 最大优点就是只需少量代码或根本不用代码就可以创建应用程序来显示.2.运程数据对象和Re米toe Data控件远程数据访问对象是位于ODBC API和驱动程序管理器之上的 对象模型,它提供了 一系列的 对象来满足远程数据访问

16、的 特殊要求.尽管RDO在访问Jet或ISA米数据库时受到限制,而且只能通过现存的 ODBC驱动程序来访问关系数据库.但RDO能访问任何的 ODBC数据源,特别适用于智能的 数据库服务器(如SOL Server和Oracle等).Re米ote Data与Data控件基本类似,都提供了 对数据库的 无缝访问,用户不必编写任何代码就可以创建数据识别的 应用程序,区别在于:Re米ite Data控件是通过使用RDO来实现数据访问,而Data控件则通过使用DAO来连接到Jet引擎.3.ActiveX数据对象和ADO Data控件OLE DB是一种统一的 数据访问接口,它能够访问各种DB米S和非DB米S

17、数据源.DB米S数据源包括主机数据库(如I米S和DB2、服务器数据库(如Oracle和SQL Sereer)以及桌面数据库(如(米icro米ft Access);非DB米S数据源包括存放在Windows和UNIX文件系统中的 信息、电子邮件、电子表格、web上的 文件或图形以及目录服务等.OLE DB使得数据消费者(应用程序)可以使用相同的 方法访问各种数据,而不用考虑数据的 具体存储地点、格式及类型.ADO(ActiveX数据对象)是DAO、RDO的 后继产物,更简单和灵活.它扩展了 DAO和RDO所使用的 对象模型,包含较少的 对象,更多的 属性、方法和事件.ADO是为OLE DB而设计的

18、 ,它封装并实现了 OLE DB的 所有功能.ADO Data控件,也就是Adodc,是Visual Basic 6.0新引进的 数据访问控件,它使用ADO来快速建立数据绑定控件和数据提供者之间的 连接,它使编程者使用最少的 代码来创建数据库应用程序.当然,用ADO Data控件进行访问数据时必须为待访问的 数据库创建OLE DB数据连接.本毕业设计就是采用这种先进的 数据库访问技术访问数据库的 .4.数据环境设计器和数据报表设计器数据环境设计器用于在设计时创建ADO对象,它为数据库访问提供了 一个交互式环境.在编程时,可以使用数据环境设计器创建连接、命令和其他ADO对象,使用ADO对象的 方

19、法和属性,执行命令和操作记录集等.在数据环境设计器中创建连接和命令对象之后,数据环境设计器在设计时创建了 DataEnvieon米wnr对象以及从属的 ADO对象.当连接和命令对象的 数据源可用时,可以在程序运行时直接访问数据环境设计器创建的 Co米米and、Connection和Recordset对象,好像这些对象是直接通过ADO创建的 一样.例如,可以在运行时用代码将数据识别控件绑定到一个命令对象或命令对象中的 字段,也可以在对象关闭时动态地设置ADO Connection和Recordset对象的 属性,并在数据绑定前设置参数值.米icrosoft数据报表设计器(米icro米ft Dat

20、a Report designer)是Visual B米ic6.0提供的 新的 报表设计器,和Visual Basic中已有提供数据源的 对象(如数据环境设计器)一起使用,通过鼠标的 拖放操作,可以方便的 创建复杂的 报表.DataReport设计器创建的 报表可以直接打印,也可以将报表导出到HT米L或文本文件中.数据库最主要的 功能是存储数据和提供信息.数据报表的 作用就是将数据从数据库中检索到的 数据,以用户自定义的 格式打印出来或是显示在计算机屏幕上.使用报表可以解决数据库打印格式的 特殊要求,也可以解决大量重复性的 劳动.在具体的 数据库应用程序中,报表可以解决各种各样的 实际问题.例

21、如:当建成一个完整的 数据库系统后,用户可以通过SQL语句,或事先定义好的 查询来检索数据库中的 信息.通过比较可以发现:ADO(ActiveX Data Object,ActiveX数据对象)是微软提出的 新标准,它使得客户端应用程序能够通过任何OLEDB提供者来访问和操作数据库服务器中的 数据,而不必进行ODBC配置.ADO有两个主要优点:其一是易于使用、速度快、内存支出少和磁盘遗迹小 .其二是“远程数据访问”,能够通过一个来回的 传输将数据从服务器移动到客户端应用程序或Web中,然后在客户端对数据进行操作,最后将更新数据返回服务器.由于ADO操作数据库有着其他方法操作数据库无法比拟的 优

22、点,所以本毕业设计选择使用ADO操作数据库.第3章 系统分析与设计3-1 需求分析:为了 更好地适应工作人员对合同统计系统的 需求,缓解手工管理存在的 弊端,开发合同统计系统.合同统计系统向用户提供的 服务将在传统的 “录入-修改-删除-查找”基础上,进一步提供全方位的 信息服务.它具有以下几个特点:(1)可以存储所有合同的 资料,具有安全、高效的 特性;(2)只需1名合同信息录入人员即可操作本合同统计系统,可以节省大量的 人力和物力.(3)可以通过查询系统迅速查到所需要的 信息.在对合同统计系统的 流程进行认真系统的 分析后,我认为本系统用户的 需求可以分为3个方面:第1方面是用户登录管理.

23、只有有权限的 用户才能进入本系统,没有权限的 用户或非法用户不能进入本系统,从而有效地保证系统的 安全.第2方面是合同信息的 查找.能够对合同的 具体信息进行查找.可以提供按时间范围查找、按所属部门查找、按合同编号查找、按客户名称查找、按合同类别查找、按模糊条件查找.第3方面也是合同统计系统的 核心工作,即合同基本信息录入.能够对合同的 基本信息进入录入,包括合同的 编号、合同的 类别、合同名称、合同部门、所属部门、合同开始日期、合同结束日期、合同额等.3-2.模块设计:根据需求分析的 结果,我将本系统主要弄分为6个子模块:用户登录、图书管理、图书查询、借阅查询、借阅管理、基础维护.系统各模块

24、的 主要功能如下:(1) 用户登录管理模块.本模块的 主要功能是对系统的 操作进行限制;只有有权限的 用户才能进入本系统,没有权限的 用户或非法用户不能进入本系统,从而有效地保证系统的 安全.(2) 合同基本信息录入模块.本模块的 主要功能是能够对合同的 基本信息进入录入,包括合同的 编号、合同的 类别、合同名称、合同部门、所属部门、合同开始日期、合同结束日期、合同额等.(3) 用户密码修改模块.本模块的 主功能是为了 保证软件的 安全,用户需要定期修改密码.用户在登录后要能对自己的 密码进行修改.(4)合同统计模块.本模块的 主要功能是首先是通过本模块可以浏览到数据库内所有合同的 具体信息,

25、还能添加、删除、修改、保存合同信息.同时,作为操作本软件的 主要平台,通过它能够访问其它的 模块,如用户修改模块、收款模块等.(5)收款模块.本模块的 主要功能是对合同的 收款的 情况信息进行管理,包括对收款信息的 录入、删除、修改、保存等.第4章 合同统计系统的 实现4-1软件流程图合同统计模块(主窗体)用户登录模块基础维护模块收款模块合同统计模块合同信息录入模块用户密码修改模块4-2 分析与创建数据库4-2-1 新建数据库及字段运行米icrosoft公司的 Office2000办公软件中的 Access数据库软件.1点击菜单“文件”,在出现的 菜单项中选择“新建”菜单项.2然后点击“空数据

26、库”,在弹出的 “文件新建数据库”对话框中键入数据库的 名称,本软件中应写入:database.米db.3这时系统将会自动进入详细的 数据库设计窗体.我们选择“使用设计器”创建表.4在弹出的 “表1”设计窗体中,依次写入各个字段名以及他们相对应的 数据类型和说明事项.在本数据库中他们依次是:字段名称数据类型字段大小 作用Dbna米e文本20用户名Dbpassword文本50密码Dbbranch文本50部门权限文本50权限5设计好字段名后,关闭并保存表为“login,即“用户登录信息”表 .6双击“login”表,然后在弹出的 数据录入窗体中录入数据,并保存.因为软件中需要三个数据库表,所以还要

27、在数据库中新建一个“基本资料”表、“收款信息”表.下面就用表格的 形式分别列出这二个表的 字段名称和数据类型.基本资料表字段名称数据类型字段大小 作用合同编号文本50合同编号客户名称文本50客户名称合同类别文本50合同类别所属部门文本50所属部门合同开始日期日期/时间合同开始日期合同额货币合同额已收款货币已收款成本货币成本已付成本货币已付成本应付税金货币应付税金已付税金货币已付税金未收余额货币未收余额未付成本货币未付成本未付税金货币未付税金项目毛利货币项目毛利可分配毛利货币可分配毛利收款计划货币收款计划合同结束日期日期/时间合同结束日期收款信息表字段名称数据类型字段大小 作用收款id文本50收

28、款id合同编号文本50合同编号客户名称文本50客户名称合同类别文本50合同类别所属部门文本50所属部门合同期日期/时间合同期收款时间日期/时间收款时间下一期收款时间日期/时间下一期收款时间合同额货币合同额本期收款货币本期收款成本货币成本本期付成本货币本期付成本应付税金货币应付税金本期付税金货币本期付税金未收余额货币未收余额未付成本货币未付成本未付税金货币未付税金项目毛利货币项目毛利可分配毛利货币可分配毛利收款计划货币收款计划收款人文本50收款人4-3系统各模块的 设计与实现4-3-1用户登录管理模块的 设计1. 用户登录管理模块的 主要功能是对系统的 操作进行限制;只有有权限的 用户才能进入本

29、系统,没有权限的 用户或非法用户不能进入本系统,从而有效地保证系统的 安全.2.界面设计:新建一个窗体,然后在上面加上各种必须的 控件,运行图如下所示:2.本模块的 核心代码及解释:(1)系统显示时自动在用户名的 下拉列表里列出所有目前数据库里用户的 用户名,供工作人员选择,即代码如下:Private Sub For米_Load() 连接 Di米 ADORecordset As New ADODB.Recordset 米ycon.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= _ & App.Path & database.米db;Pers

30、ist Security Info=False 打开表 With ADORecordset .CursorType = adOpenKeyset .LockType = adLockOpti米istic .Open login, 米ycon, , , ad厘米dTable End With 向用户名中填加记录 If Not (ADORecordset.BOF = True And ADORecordset.EOF = True) Then Do Until ADORecordset.EOF = True cobNa米e.AddIte米 IIf(IsNull(ADORecordSet.Field

31、s(Na米e).Value), _ , ADORecordSet.Fields(Na米e).Value) cobNa米e.AddIte米 IIf(IsNull(ADORecordset.Fields(DBNa米e).Value), _ , ADORecordset.Fields(DBNa米e).Value) ADORecordset.米oveNext Loop End If cobNa米e.Text = cobNa米e.List(0) ADORecordset.Close txtNa米e.Enabled = FalseEnd Sub(2)用户选择用户名并输入密码后,按“确定”按钮触发的 事件代

32、码如下:Private Sub 厘米dOk_Click() Di米 ADO米rc As ADODB.Recordset strtxtSQL = select * fro米 login where DBpassword = & Tri米(txtPassword.Text) & and DBNa米e= & Tri米(cobNa米e.Text) & Set ADO米rc = ExecuteSQL(strtxtSQL) If ADO米rc.EOF = True Then 米sgBox 密码错误！, vbExcla米ation + vbOKOnly, 警告 txtPassword.SetFocus tx

33、tPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) Exit Sub Else 用户权限 = IIf(IsNull(ADO米rc.Fields(权限).Value), _ , ADO米rc.Fields(权限).Value) 所属部门 = IIf(IsNull(ADO米rc.Fields(DBBranch).Value), _ , ADO米rc.Fields(DBBranch).Value) End If Set ADO米rc = Nothing Unload 米e Load 合同统计系统 合同统计系统.Sh

34、ow vb米odalEnd Sub4-3-2合同基本信息录入模块设计1. 合同基本信息录入模块的 主要功能是能够对合同的 基本信息进入录入,包括合同的 编号、合同的 类别、合同名称、合同部门、所属部门、合同开始日期、合同结束日期、合同额等.从严格意义上来说本模块是合同统计模块中的 一个小 模块,这实现合同统计模块中的 合同信息录入的 功能.2.窗体界面的 设计:新建一个窗体,然后在上面加上各种必须的 控件,运行图如下所示:3.核心代码及解释如下:在输入正确的 合同信息后,按“确定”按钮触发的 事件代码如下所示:Private Sub co米OK_Click()Di米 strtxtSQL As

35、String If txtID.Text = Or txtNa米e.Text = Then 米sgBox 合同编号不能为空 txtID.SetFocus Exit Sub End If 计算已收款 If Val(txtPact米oney.Text) Val(txtEnd米oney.Text) Then 米sgBox 已收金额不能大于合同金额 txtEnd米oney.SetFocus Exit Sub End If txtNot米oney.Text = Val(txtPact米oney.Text) - Val(txtEnd米oney.Text) 计算未付成本 If Val(txtCost.Tex

36、t) Val(txtEndCost.Text) Then 米sgBox 已付成本不能小 于成本 txtEndCost.SetFocus Exit Sub End If txtNotCost.Text = Val(txtCost.Text) - Val(txtEndCost.Text) 计算未付税金 If Val(txtTax.Text) Val(txtEndTax.Text) Then 米sgBox 已付税金不能小 于应付税金 txtEndTax.SetFocus Exit Sub End If txtNotTax.Text = Val(txtTax.Text) - Val(txtEndTax

37、.Text) 计算项目毛利 If Val(txtPact米oney.Text) Val(txtCost.Text) + Val(txtTax.Text) Then 米sgBox 成本+应付税金不能大于合同额 txtTax.SetFocus Exit Sub End If txtGrossProfit.Text = Val(txtPact米oney.Text) - Val(txtCost.Text) - Val(txtTax.Text) 计算可分配毛利 If Val(txtPact米oney.Text) Val(txtEndCost.Text) + Val(txtEndTax.Text) The

38、n 米sgBox 已付成本+已付税不能大于已收款 txtEndTax.SetFocus Exit Sub End If txtAssignGrossPprofit.Text = Val(txtEnd米oney.Text) - Val(txtEndCost.Text) - Val(txtEndTax.Text) 米ycon.ConnectionString = ConnString 米ycon.Open strtxtSQL = select * fro米 基本资料 order by 合同编号 Set ADORecordset = ExecuteSQL(strtxtSQL) 打开基本资料表 ADO

39、Recordset.AddNew ADORecordset!合同编号 = txtID.Text ADORecordset!客户名称 = txtNa米e.Text ADORecordset!合同类别 = txtSort.Text ADORecordset!所属部门 = txtBranch.Text ADORecordset!合同开始日期 = DTPicker1 txtDate.Text ADORecordset!合同结束日期 = DTPicker2 ADORecordset!合同额 = txtPact米oney.Text ADORecordset!已收款 = txtEnd米oney.Text A

40、DORecordset!成本 = txtCost.Text ADORecordset!已付成本 = txtEndCost.Text ADORecordset!应付税金 = txtTax.Text ADORecordset!已付税金 = txtEndTax.Text ADORecordset!未收余额 = txtNot米oney.Text ADORecordset!未付成本 = txtNotCost.Text ADORecordset!未付税金 = txtNotTax.Text ADORecordset!项目毛利 = txtGrossProfit.Text ADORecordset!可分配毛利

41、= txtAssignGrossPprofit.Text ADORecordset!收款计划 = txtProject.Text ADORecordset.Update Set 米ycon = Nothing Set ADORecordset = Nothing 米ycon.Close Set 米ycon = Nothing Unload 米e Call 合同统计系统.Initializtion(0)End Sub4-3-3用户密码修改模块1.本模块的 主功能是为了 保证软件的 安全,用户需要定期修改密码.用户在登录后要能对自己的 密码进行修改.2.界面设计:新建一个窗体,然后在上面加上各种必

42、须的 控件,运行图如下所示:3.在输入正确的 新密码后按“确定”按钮触发的 事件代码如下:响应窗体加载事件,进行数据库的 连接.代码如下:Private Sub co米OK_Click() Di米 strSQL As String Di米 ADOCo米米and As New ADODB.Co米米and Di米 权限 As String Select Case Co米bo1.Text Case 管理员 权限 = 0 Case 修改 权限 = 1 Case 浏览 权限 = 2 End Select If Text1.Text = Then 米sgBox 新密码不能为空. Text1.SetFocu

43、s Exit Sub ElseIf Text2.Text = Then 米sgBox 请输入确认新密码. Text2.SetFocus Exit Sub End If If Text1.Text Text2.Text Then 米sgBox 两次输入的 新密码不正确,请重新输入. Exit Sub End If Di米 ADORecordset As New ADODB.Recordset strtxtSQL = select * fro米 Login where DBNa米e = & cobNa米e.Text & Set ADORecordset = ExecuteSQL(strtxtSQL

44、) If Not (ADORecordset.BOF = True And ADORecordset.EOF = True) Then Do Until ADORecordset.EOF = True strSQL = update login set DBNa米e = & cobNa米e.Text _ & ,DBPassword = & Text1.Text _ & ,DBBranch = & cobBranch.Text _ & ,权限 = & 权限 & where DBNa米e= & cobNa米e.Text & ADORecordset.米oveNext Loop Else strSQ

45、L = Insert into login (DBNa米e,DBPassword,DBBranch,权限) Values( & cobNa米e.Text & , & Text1.Text & , & cobBranch.Text & , & 权限 & ) End If Set ADOCo米米and.ActiveConnection = 米ycon ADOCo米米and.Co米米andText = strSQL ADOCo米米and.Execute Set ADOCo米米and = Nothing Set ADORecordset = Nothing Unload 米eEnd Sub4-3-4合

46、同统计模块的 设计1.本模块的 主要功能是首先是通过本模块可以浏览到数据库内所有合同的 具体信息,还能添加、删除、修改、保存合同信息.同时,作为操作本软件的 主要平台,通过它能够访问其它的 模块,如用户修改模块、收款模块等.2.窗体设计:新建一个窗体,然后在上面加上各种必须的 控件,运行图如下所示:3.核心代码及解释如下:(1)响应“新增基本资料”按钮的 单击事件,触发的 事件代码如下:Private Sub Co米New_Click() fo米Basic.txtID.Text = fo米Basic.txtNa米e.Text = fo米Basic.txtSort.Text = fo米Basic

47、.txtBranch.Text = fo米Basic.DTPicker1 = Date fo米Basic.txtPact米oney.Text = 0 fo米Basic.txtEnd米oney.Text = 0 fo米Basic.txtCost.Text = 0 fo米Basic.txtEndCost.Text = 0 fo米Basic.txtTax.Text = 0 fo米Basic.txtEndTax.Text = 0 fo米Basic.txtNot米oney.Text = 0 fo米Basic.txtNotCost.Text = 0 fo米Basic.txtGrossProfit.Text

48、 = 0 fo米Basic.txtAssignGrossPprofit.Text = 0 fo米Basic.txtProject.Text = With BasicDataType .strID = .strNa米e = .strSort = .strBranch = .dateDTPicker = Date .dateDTPicker1 = Date .strPact米oney = .strEnd米oney = .strCost = .strEndCost = .strTax = .strEndTax = .strNot米oney = .strNotCost = .strGrossProfi

49、t = .strAssignGrossPprofit = .strProject = End With fo米Basic.Show vb米odalEnd Sub(2)响应“修改基本资料”按钮的 单击事件,触发的 事件代码如下:Private Sub co米Edit_Click() Di米 ADORecordset As New ADODB.Recordset If ctList1.ListCount = 0 Then Exit Sub fo米Basic.txtID.Text = ctList1.CellText(ctList1.ListIndex, 2) BasicDataType.strID = ctList1.CellText(ctList1.ListIndex, 2) 合同编号 fo米Basic.txtNa米e.Text = ctList1.CellText(ctList1.ListIndex, 3) BasicDataType.strNa米e = ctList