毕业设计（论文）VB6.0加油站客户管理系统.doc

《毕业设计（论文）VB6.0加油站客户管理系统.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）VB6.0加油站客户管理系统.doc（44页珍藏版）》请在三一办公上搜索。

1、目 录摘 要1第1章 绪论21.1选题背景21.2课题主要研究的内容：21.3课题研究的意义21.4课题研究的现状：21.5课题难点和需要解决的关键问题：3第2章 开发工具简介42.1开发环境42.2Visual Basic 6.0简介42.3Microsoft Access简介4第3章 加油站客户管理系统的设计63.1方案论证63.2设计过程63.3 设计过程论述93.4结论和总结13第4章 部分程序功能的讲解144.1登陆界面144.2 系统操作144.3 客户信息管理154.4 油价管理174.5 加油信息管理184.6 加油信息统计204.7 关于20结束语21附录22参考文献41致

2、谢42摘 要长久以来，加油站的客户信息管理都是依赖加油站工作人员手工进行的，面对如此众多的客户信息，其工作量可想而知。不仅仅浪费了大量的人力物力，而且由于人工管理存在着大量的不可预见的因素，造成了加油站对客户信息管理的某些不规范，使得加油站客户信息管理陷入管理繁琐，信息混乱的地步。为有效降低运营成本，杜绝管理漏洞，针对现在加油站客户信息管理的弊端，根据加油站客户信息管理的基本流程，使加油站有一套完善的管理系统是非常必要的。从而使其加油站的客户量日渐增加。客户量的上升，不仅带动了销售，也从另一个侧面反映出，在加油站客户信息管理信息系统的协助下，加油站正在以其专业的服务精神、严谨的管理风格逐步赢得

3、客户的信赖，从而在市场竞争中确立战略优势。而加油站客户信息管理系统的开发使其实现了与客户相关的各种信息的系统化、规范化和自动化。通过对客户信息管理、油价管理、加油和、系统查询四个模块基本功能的实现，对客户的各种信息进行增加、删除、查找、修改等操作，完成对客户的信息管理。这些功能基本可以满足一般加油站对客户管理的需求，使企业节省人力物力，减轻劳动强度；降低成本，节省开支；提高了管理水平，增强了企业在同行业中的竞争力；同时提高了客户信息处理的及时性和准确性。 该系统采用VB6.0进行开发、设计，后台采用access提供强有力的支持。系统的实施将为企业获得更多的客户，留住更好的客户，创造更大的客户价

4、值，留给客户永久的信誉度，建立一对一市场营销，从而为企业带来更丰厚的利润和持续发展的竞争优势。关键词：客户信息管理，vb6.0，数据库第1章 绪论1.1选题背景现在的社会日新月异，发展的非常快。加油站的发展也是非常的快了，而且每年都有不同的要求。加油站的信息量也非常的大，数据可能经常性的发生更换，原来手工的管理模式就体现出不为合适了。而且手工的数据是存放在多处的，没有使用统一管理的模式，数据整理非常的麻烦，统计也困难,很多的情况下，工作人员都是在重复一些相同的工作。做一些相似的报表，这样不但降低了工作效率，而且非常的容易出错。在这种条件下，使用计算机管理就体现出非常的适合了。只要你准确的录入记

5、录，统计，报表输出的结果就能快速、准确显示出来，变的一点问题都不会出现的。1.2课题主要研究的内容：客户信息作为加油站信息管理中最主要的管理对象，客户信息管理系统就成了加油站信息化管理系统中不可缺少的部分，它的内容对于加油站的管理者说都至关重要。但一直以来人们使用传统人工的方式进行客户数据的档案管理，这种管理方式存在着许多缺点,如:效率低,成本高，容易出错，格式不规范，计算统计时间长，不容易进行统计和分析。随着科学技术的不断提高,计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对客户信息档案进行管理，具有手

6、工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、寿命长、成本低等。这些优点能够极大地提高加油站客户信息管理的效率。因此，开发出这套系统成为很有必要的事情。而且只要软件的设计合理，可以为加油站提供合理的管理模式、降底运营成本。1.3课题研究的意义通过本系统软件，能帮助工作人员利用计算机，快速方便的对加油站的客户信息和客户加油信息进行管理、输入、输出、查找的所需操作，使散乱的客店档案能够具体化，直观化、合理化。 本软件适用于一般的加油站，对客户信息和客户加油的信息可以随时输入、输出、查找、修改、汇总。1.4课题研究的现状：1.4.1系统开发采用的特点（1）随着计算机技术的发展

7、和普及，各行各业的管理机构需要由计算机处理大量的信息。选择一个优秀的面向对象的管理系统作为开发平台，将给日后的信息处理带来极大的方便。客户信息的管理工作是企事业单位不可缺少一部分，也是企业管理的重要组成部分。它的内容对于企业的管理者来说都至关重要，所以客户信息管理系统应该能够为企业管理者提供完整,正确和灵活的客户信息和快捷的查询手段。（2）Visual Basic是为面向对象应用程序开发而设计的功能强大的编程工具。利用Visual Basic设计程序，不但可以设计出非常丰富的用户接口，而且几乎不需要编写多少程序，就能开发出功能非常强大的应用程序。这也就是选用Visual Basic来开发加油站

8、客户信息管理系统的所在。1.4.2系统开发必要性本系统是为了更好的管理加油站庞大的数据而开发的。它能够给加油站的工作人员减轻很多的负担，能够把繁琐的工作简单化。现在，在国外大多数的加油站都有着自己的客户信息管理系统，使得在管理方面非常方便，以至于一个大型加油站只有少数的工作人员。即减少了开资，又充分利用了资源。正是因为这些优点，所以开发出一套加油站客户信息管理系统也是非常有必要的。1.5课题难点和需要解决的关键问题：用Visual Basic开发的加油站客户信息管理系统需要与Access数据库相连接。因此，它们之间的兼容性最为关键。如果处理好两个软件之类的数据关联将成为这次开发的难点。管理系统

9、的调试运行的稳定性也将成为此次系统开发的难点。所以要保证数据库和系统能够可靠的连接。系统为数据提供自动更新功能，并实现数据的更新，删除功能。要求数据库之间建立关系，并确定关键词等关键环节。开发一个优良的系统，必须需要前期的策划和大量的投入。因此，需要投入非常大的精力和工作量来搜集必要的数据和信息。第2章 开发工具简介2.1开发环境配置：CPU TYPE:PENTIUM CPU CLOCK:800MHz内存:396M 硬盘:120G操作系统:Microsoft Windows XP2.2Visual Basic 6.0简介Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化

10、高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形接口丰富的应用软件系统。2.3Microsoft Access简介Microsoft Access使您容易得到所需

11、信息，并提供强大工具，可以帮助您组织和共享您的数据库，以便您和您的工作组能做出更好的决策。快速找到可靠答案，通过Intranet共享信息，建立更快更有效的商业解决方案。 2.3.1 Microsoft Access具有以下特点更易建立强大的商业解决方案，更快找到答案使Web协作成为可能，用Access 2000中的新工具提高生产力。使数据对任何协作者都可直接利用。更新销售数据或快速查看顾客细节信息。定制您自己的图形格式，以便准确地显示您所需的信息。使用内置Microsoft SQL Server 集成来创建可以随您的商务升级的数据库。 在Web上管理和共享信息将您的数据来源与交互式Web页面无

12、缝集成，使创建和共享Microsoft Access数据库比以前更容易。使用Web技术快速获取信息，并把它按您的特殊用途裁剪。加入Office 2000 Web组件以便在Web浏览器中可视化分析数据。 在浏览器窗口查看，编辑，和分析数据新的，交互式的Data Access Pages是为Web设计Access表。它们能使任何职员在浏览器内轻易地打开，查看，和更新动态数据。用交互式图表举例说明Data Access Page，然后邮寄或作为E-mail的附件发出。您和您的合作者就永远拥有最新信息-在办公室或任何地方.把交互式报告加入到Intranet中把多个表格链接成单个的，相关的视图被称为Gr

13、ouped Data Access Page。用这种方法，可以创建分层结构，将记录从一般类别到具体细节分类。例如，按区字段分析雇员销售情况。首先把目光集中在一个地区所有的销售上。然后，把目光关注到该地区销售几种纺织品的结果和基本输入输出上。您可以交互式地查看，过滤，分类所有的信息-在同一页面内。 把动态数据拖到网页上很容易把字段列表的内容拖动，加入到Data Access Page中。表格字段直接连结到数据库，所以信息总是最新的。 使工作方式流程化好的信息有助于做出英明的决策和提高生产力。Microsoft Access使信息更容易获得和使用。快速分析细节内容并找出重要联系。利用新工具来定制窗

14、体和报表。把数字转化成答案-赶快。 利用改进接口的优点 Access数据库窗口使数据库组件操作更容易。使用垂直Objects工具条在窗体，表格，和报表之间切换。把数据库对象组织成组，并对常用的内容创建快捷方式。 在数据表视图中浏览相关记录 Access在一个窗口中可使您以图中图方式查看所有相关数据-不必进行查询。实时查看表格间的联系以便快速做出相应决策。显示深层信息，以使记录之间关系可视化。而您只需用鼠标选取您感兴趣的记录。 对所选记录作特殊的格式化在字段内容的基础上改变它们的版面，使用户能够做到例如立即在表格或报表内发现高销售的消费者或低库存项目。根据您定义的数值或习惯标准设置字体，风格，颜

15、色，和标题。窗体扩展功能允许您在一张窗体上简单地选择一个字段，并改变它的背景颜色，大小，和边界。不必切换到设计视图就可以立即看到这一结果。 与SQL Server无缝集成Microsoft Access包含了内置的Microsoft SQL Server，这使它能够对熟悉的Access环境进行高端管理。需要时可以利用可调整大小的SQL Server技术创建企业级数据库。这样，使用一个可按需调整大小的数据库，系统就可以随业务扩展了。随业务扩展数据库通过在Access 内创建SQL Server数据库，来扩展您在客户/服务器世界的技能。新的Access 数据库项目允许Access 用户用熟悉的Ac

16、cess接口创建真正的客户/服务器应用程序。 第3章 加油站客户管理系统的设计3.1方案论证加油站客户管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本系统主要完成对加油站客户管理和加油信息的管理，包括数据库中表的添加、修改、删除等。系统还可以完成对各类信息的浏览、查询、添加、删除、修改、报表等功能。系统的核心是数据库中各个表联系，每一个表的修改都将联动的影响其它的表，当完成对数据的操作时系统会自动地完成数据库的修改。查询功能也是

17、系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能，并具备报表打印功能。经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口,这能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。在操作系统方面，虽然现在Linux的发展速度非常的快，但是对于大多数的使用者来说，操作显然没有微软的WI

18、NDOWS那么的流行和傻瓜化。而且现在计算机的运算速度已经不能和以前相提并论了，而且硬件的价格也一天天的在下降了，所以也不用为了节省整体的造价而改用硬件要求很低的DOS系统了。所以我们决定该加油站客户管理系统将运行在普遍使用的WINDOWS操作系统上来协助管理人员轻松地进行与数据库的连接和管理。在这么多的访问接口里面微软对于ADO非常的推崇，并且下一代的数据访问技术也将是采取这样的思路，而且本身来说ADO模型简单，但是功能强大，使实现人员无须关心一些底层的操作，而把更多的经历放在业务逻辑的设计上面。综上所述，我们选择了Visual Basic+ADO+ACCESS来开发整个系统。3.2设计过程

19、3.2.1 实现功能（1） 能够浏览客户的所有信息（2） 能够对客户的基本信息进行管理（3） 客户加油信息数据的数据库建立和管理（4） 能够通过客户的单位名称信息找到其对应的车辆加油的相关信息（5） 通过一条信息找到与之匹配的信息(例如：查询同一单位的所有加油信息)（6） 管理人员能对已有单位的客户的信息进行管理（7） 多用户数据安全管理，保证各部门的数据安全、完整，对每个使用本系统用户进行权限的设置（8） 简易操作，不需要非常专业的计算机操作人员。（9） 加油信息的添加、删除和修改,包括加油的型号、单价、数量、单次加油金额（10） 加油信息查询，查询条件为单位名称、车牌号等信息的综合查询。为

20、增加各单位之间的数据保密性，不允许模糊查询，查询结果以图表形式列出（11） 加油信息的统计，按照单位名称、车牌号、月份分别进行统计 按用户输入的单位名称，统计本单位的加油信息，并排序 按输入的单位名称和车牌号，统计该车的加油信息（12） 用户管理：设置三个级别用户：经理、管理员和客户，经理有权限使用所有的功能；管理员除了不能使用用户管理和油价管理外，其它都能使用；普通用户只能使用查询功能，用户使用本系统之前必须先通过身份认证（用户级别、用户名和密码，密码输入有次数限制，连续三次输入错误密码则锁定该用户）3.2.2功能与模块设计包括加油站客户的客户信息管理系统、油价管理系统、加油信息管理系统、加

21、油信息统计系统等，四个方面都是必须要满足:（1） 基本情况录入：输入本系统所需的基本数据。输入客户的基本情况，采用客户编号来区分客户。（2） 客户基本信息变动情况。（3） 加油信息查询：提供查询本单位的基本情况功能。系统启动画面权限认证画面加油站客户信息管理系统主画面加油信息统计加油信息管理油价管理客户信息管理系统管理图3.1程序结构框图3.2.3数据库设计创建“加油站客户管理系统”数据库系统中需要使用的数据表。表3.1数据表加油站客户管理系统登陆表车辆表加油信息表客户信息表油价表（1） 登陆用于存放用户名、密码和权限信息的数据表。表3.2登陆信息表（2） 车辆表用于存放车辆信息的数据表表3.

22、3车辆信息表（3） 加油信息表用于存放加油信息的数据表表3.4加油信息表（4） 客户信息表用于存放客户信息的数据表表3.5客户信息表（5） 油价表用于存放油品价格信息的数据表表3.6油价信息表3.3 设计过程论述执行流程图与解说3.3.1登陆流程图登陆主界面验证账号 N Y 验证密码N Y进入主界面 图3.2登陆流程图设计说明:进入主接口后,提示输入用户名和密码,在输入之后按确定进入,验证用户名和密码,实现流程:(1) 检测数据库中有无管理员的账号。如果有,则等待用户输入用户名和密码,否则按程序本身自动执行插入命令,新建一个管理员用户,并等待用户输入.(2)验证用户名和密码是否正确,错误次数不

23、能超过三次,超过三次则退出系统登陆接口(3)当验证通过后,检测该登陆用户的管理权限,并设置变量传值给主窗体.3.3.2主接口操作图主界面加油信息管理油价管理客户信息管理系统操作加油查询加油油价查询车辆管理油价管理客户信息查询客户信息管理修改密码增加学生用户管理加油信息统计统计图3.3系统结构框图设计说明:此窗体为主窗体操作接口,为配合数据执行模式,采用VB的下拉式菜单,使众多功能都能整齐而有序的排列.实现功能:(1)获得登陆接口传递的权限信息,设置用户是否可以使用(用户管理，客户信息管理，油价管理，车辆管理,保存,修改,删除)这些操作.(2)登陆后进入加油站管理主接口,设置等待操作状态3.3.

24、3所有客户与增加客户数据图增加客户所有客户数据初始化数据初始化读取数据字段读取数据行数初始化表格显示数据等待输入数据图3.4所有客户流程图 图3.5增加客户流程图注：数据初始化是对程序中所使用的表格进行颜色和表格间距的处理，并绑定资料源为进行到下一步操作做准备实现功能:(1)执行客户信息表的全查询,获得所有字段名称,通过字段名称来分配数据列表的列数.(2)执行数据初始化,因使用的图表控件附带下拉列表框,日期选择框等功能,可以很方便的进行实时操作,所以资料的初始化是针对数据来确定哪一列的宽度与文本框的属性.(3)给图表控件的第一列赋值,赋值对象是客户信息表的各字段名称.(4)统计所有表内信息,得

25、出行数，把所有数据显示在表格内(5).开始根据分页内容给图表控件赋值,同时设置状态,即不可保存,可修改,可删除.(因为在查询资料的同时无需执行保存数据,而可以进行数据的修改和删除)3.3.4油价管理数据处理图增加油型号所有油价表数据初始化数据初始化读取数据字段读取数据行数初始化表格显示数据等待输入数据图3.6所有型号油价流程图 图3.7增加油型号流程图3.3.5 资料保存流程图执行保存保存状态 N载入表名加油信息客户信息数据完整性 N 是否有重复 Y插入资料退出图3.8资料保存流程图（1）在点击上列按钮后,系统属于可保存状态,不可修改状态,不可删除状态.（2）点击保存功能实现:验证输入对象:即

26、是保存客户信息的内容还是加油信息的内容,判断表格中是否为空,为空提示并退出操作验证用户输入的数据中是否有必填的字段未填的,如果有,提示并退出操作,等待用户补齐以上顺利完成,对每行进行组织语句(插入语句),然后执行该语句,语句成功提示并退出操作,否则通过防错提示并退出操作3.3.6 车辆管理车辆管理退出删除修改保存增加图3.9车辆管理流程图注：增加：刷新表格数据，调整到等待输入状态 保存：执行增加操作后，并输入了必要的数据后执行，保存用户输入的数据 修改：对原有数据进行修改，车辆编号为唯一值不可修改 删除：删除表格中所选目标行 退出：退出课程管理接口，返回到主接口视图3.3.7查询实现功能:支持

27、客户信息,加油信息的所有查询,需要用户自己组织语句,加大了查询的范围,任何该表的参数都可以查询到.3.4结论和总结确定了本系统的实用价值后，选用了目前最常用也最简便的access数据库作为后台，鉴于ADO在很多程序里的广泛应用，使用ADO来连接数据库将是最为适用的，并且在定义了ADO的连接模块后，对于将来的升级也会很方便，只要修改一下连接源，就可以轻松的更换后台，access适用于单机版，当想转换为网络版的SQL数据库时，就很容易做到为了减少系统的数据资源，选用了目前最方便的将数据交给后台处理的方法，即使用SQL的语句将数据库交给ACCESS后台，由后台来处理，这样系统的执行会加快，也使用程序

28、本身变得简单本程序使用了新型控件flexcell，此控件的双色表格与单元格的特殊赋值功能不但能带给用户最好的视觉感受，同时在操作时大大减少了手动输入操作，因此也为非计算机人员的可操作性带来很大的方便。编写了菜单程序：增强了非计算机人员的可操作性，使整个窗体布局更加直观化。支持全方位查询，可以通过计算机人员的自写语句实现定位查询，只要语句正确，都能找到所要找的记录。使用了透明API函数，在调用用户管理与客户管理等窗体的时候，对该窗体进行透明化处理。第4章 部分程序功能的讲解4.1登陆界面图4.1登陆对话框在这里我设置了三种类型的权限：第一种为经理(超级管理员)；第二种为管理员；第三种为客户。在此

29、我设置了错误陷阱，当输入的用户名和密码是错误的时候，将会出现用户名和密码错误的提示。当输入的是正确的用户名和密码时，将会进入系统主接口。并在窗体下面的状态区里显示出当前的日期、欢迎词、当前操作的用户和它的权限。图4.2系统主界面4.2 系统操作4.2.1 用户管理图4.3 用户管理界面在这里我们可以修改用用户的信息，可以添加、保存、修改和删除用户的信息。但超级用户的信息不能修改。当我们以超级管理员的身份登陆时，可以对所有用户进行以添加、保存、修改。当我们以管理员用户身份登陆时，只能对自身和客户信息进行以添加、保存、修改。当以客户身份登陆时，他只能对自身的信息进行以修改和保存。4.2.2 修改密

30、码图4.4 修改密码界面在这里我们可以快捷的修改自身的密码。当修改时必须先输入当前正在使用户的密码，然后再输入想要更改后的新密码，点击“确定”，修改成功。在下次进入系统时将会启用新的密码。4.3 客户信息管理4.3.1 客户信息管理图4.5客户信息管理界面在这里我们可以对客户的基本信息进行添加、保存、充值、修改、删除和退出操作。具体操作时，用户的编号是自动生成的，不需要手动添加，为管理人员方便了不少，也节省了时间。单位名称为关键词，为必须输入的信息，不能为空。因为它是最重要的关键词段，将来在查询时会用到。我将来以后的章节里讲解。在这里我也加入了错误陷阱，并而输入的信息为文本。负责人也为关键词段

31、，也不能为空，并且同样设置了错误陷阱。地址和联系方式同理，输入的信息也一样为文本的形式。而传真号码、邮箱地址和邮编为可填选项。既用户添不添加信息都可以。预存款余额为必填字段，必须有内容，为数字类型。当第一次添加客户必需添加，具体添加方法为点击“充值”。其为客户加油时预存的现金，它的单位为(人民币/元)，它在加油和统计时会用到。所以，非常的重要。 当用户需要修改信息时，直接在客户信息管理接口里修改，当修改完毕后，点击保存，信息将更新为新的内容。4.3.2 用户信息查询图4.6用户信息查询界面在这里我们可以查询到已有客户有基本信息，以方式及时和客户保持联系。在这里我只设为精确查询。因为考虑到用户信

32、息的保密性，所以只设置了精确查询，以防有其它人去查询该单位的数据。4.4 油价管理4.4.1 油价管理图4.7 油价管理界面在此可以对油品的种类、油品型号和油品价格进进行设置。单位为(元/升)。在这里只有权限为经理和超级管理员的用户才可以设置。这样对加油的管理起到了规范的作用。修改方法同理4.4.2 油价查询图4.8 油价信息查询界面在这里可以对油品的种类。油品型号和价格进行查询，这样设计可以对当前的信息一目了然，达到方便的作用。4.5 加油信息管理4.5.1 车辆管理图4.9 车辆管理界面在这里可以对客户单位的车辆进行登记和管理。在已经的客户信息里添加车辆，记录车牌号，以车号为准，根据已经存

33、的信息进行对号加油。4.5.2 加油图4.10 加油界面在这里进行加没的信息添加，对应车辆，对应单位，然后输入要加入多少油，就会显示出需要多少钱，然后选择月份，点保存。以方便日后统计。4.5.3 加油查询图4.11 油价信息查询界面在这里可以对加过油的车辆和单位进行信息查询。在这里也被设定为精确查询，也是考虑到用户信息的安全性。4.6 加油信息统计图4.12 加油信息统计界面在这里可以对已经有客户的加油量进行统计，可以按月份统计也可以按年统计。在下拉列表框里选择已有单位的名称和车辆等要查信息，然后点统计，将会生成新表，显示加油的信息，并在最后有小计，以方便观看一共加了多少油，还剩余多少钱。4.

34、7 关于图4.7 系统关于界面关于本系统的名称和版本结束语加油站客户信息管理系统基本符合中小型加油站的需求。能够完成对客户信息和加油信息的管理和操作。系统设计完成后总结出一些本系统的优点和缺点。本信息管理系统的优点是：对客户的信息可以规范统一管理；查询信息方便，一目了然；操作简便；信息内容丰富等。尤其是在信息安全性和数据统计方面进行了人性化的设计。例如，其一、客户在查询信息时必须使用精确查询，这样可以使它人很难能够查询到客户自己的信息，而查询的内容必须是客户自己设立的，这样就增强了信息的安全性。其二、对客户已有的信息进行统计，使其可以进行按月统计和按年统计，使客户更为方便的了解到自己的信息，做

35、到心中有数，在统计后还能够显示出自己预存款的余额，这样可以使自己的帐目很清楚，以免繁琐的计算而出现错误的可能性大大减小，在查询统计后，如需要留有存根还可以打印出来，方便保留数据，以备后用。本信息管理系统有也一些不足之处。如界面设计过于单调，应该加入一些按键图标，使其更生动；必须让具有一定计算机操作基础的人员使用，以免操作错误；设计代码有些复杂等不足之处。有待于本人加强。因此，我要在以后的工作学习不断的完善自我，丰富自己的专业知识，使本系统功能更加完善。附录连接数据库的模块代码Public cnn As New ADODB.Connection 新建一个资料源Public qy1 As New

36、ADODB.Recordset 数据一个记录集Public qy2 As New ADODB.Recordset 数据一个记录集Sub Main()tkOpenAccessDB App.Path & base.mdb 连接数据库If qy1.State = adStateOpen Then 表状态qy1.CloseEnd Ifqy1.Open select * from 登陆, cnn, adOpenStatic, adLockReadOnly, adCmdText 查询表内是否有数据If qy1.RecordCount = 0 ThenSet qy1 = cnn.Execute(insert

37、 into 登陆 values(admin,admin,超级管理员) 表内无数据执行此语句新建用户End IfForm3.ShowEnd SubPrivate Sub tkOpenAccessDB( _ tkFileName As String, _ Optional tkUserID As String, _ Optional tkPassword As String _ ) 连接数据库参数 On Error GoTo tkFinish cnn.Open Provider=Microsoft.Jet.OLEDB.4.0; & _ Data Source= & tkFileName & ; &

38、 _ Mode=Share Deny None; & _ Extended Properties=; & _ Jet OLEDB:System database=; & _ Jet OLEDB:Registry Path=; & _ Jet OLEDB:Database Password=; & _ Jet OLEDB:Engine Type=5; & _ Jet OLEDB:Database Locking Mode=1; & _ Jet OLEDB:Global Partial Bulk Ops=2; & _ Jet OLEDB:Global Bulk Transactions=1; &

39、_ Jet OLEDB:New Database Password=; & _ Jet OLEDB:Create System Database=False; & _ Jet OLEDB:Encrypt Database=False; & _ Jet OLEDB:Dont Copy Locale on Compact=False; & _ Jet OLEDB:Compact Without Replica Repair=False; & _ Jet OLEDB:SFP=False; & _ tkUserID, _ tkPassword Exit SubtkFinish: MsgBox Err.

40、Description End End Sub主窗体接口与代码图5.1系统主窗体Private Sub MDIForm_Load()StatusBar1.SimpleText = 今天是 & Year(Date) & 年 & Month(Date) & 月 & Day(Date) & 日 , 欢迎您使用加油站客户信息管理系统 ! & 当前操作者: & user111 & 权限: & supEnd SubPrivate Sub mdipass_Click()If mdi = False ThenMsgBox 请关闭打开的窗口！, vbInformation, 不允许当前操作！ElseUnload

41、 MeForm11.ShowEnd IfEnd SubPrivate Sub relog_Click()If mdi = False ThenMsgBox 请关闭打开的窗口！, vbInformation, 不允许当前操作！ElseUnload MeForm1.ShowEnd IfEnd SubPrivate Sub sturea_Click()If mdi = False ThenMsgBox 请关闭打开的窗口！, vbInformation, 不允许当前操作！ElseUnload MeForm4.ShowEnd IfEnd SubPrivate Sub stureg_Click()If m

42、di = False ThenMsgBox 请关闭打开的窗口！, vbInformation, 不允许当前操作！ElseIf chair = True Or workman = True Thenunload MeForm3.ShowElseMsgBox 你是客户,没有使用此功能的权限!End IfEnd IfEnd SubPrivate Sub stuxuan_Click()If mdi = False ThenMsgBox 请关闭打开的窗口！, vbInformation, 不允许当前操作！Elseunload MeIf chair = False And workman = False

43、ThenMsgBox 你没有管理此功能的权限!ElseForm8.ShowEnd IfEnd IfEnd SubPrivate Sub user_Click()If chair = False And workman = False Then MsgBox 你没有管理此功能的权限! Exit SubEnd If If mdi = True And chair = True Then Form2.Show Else If mdi = True And workman = True Then Form12.Show Else MsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！ End If End IfEnd SubPrivate Sub x