毕业论文-VB6.0加油站客户管理系统.doc

- 1 - 目 录 摘 要 .1 第 1 章 绪论 2 1.1 选题背景 2 1.2 课题主要研究的内容： 2 1.3 课题研究的意义 2 1.4 课题研究的现状： 2 1.5 课题难点和需要解决的关键问题： 3 第 2 章 开发工具简介 4 2.1 开发环境 4 2.2 VISUAL BASIC 6.0 简介.4 2.3 MICROSOFT ACCESS简介 .4 第 3 章 加油站客户管理系统的设计 6 3.1 方案论证 6 3.2 设计过程.6 3.3 设计过程论述 9 3.4 结论和总结 .13 第 4 章 部分程序功能的讲解 .14 4.1 登陆界面 .14 4.2 系统操作 .14 - 2 - 4.3 客户信息管理 .15 4.4 油价管理 .17 4.5 加油信息管理 .18 4.6 加油信息统计 .20 4.7 关于 .20 结束语 21 附录 22 参考文献 41 致 谢 42 - 1 - 摘 要 长久以来，加油站的客户信息管理都是依赖加油站工作人员手工进行的，面对如此众多的 客户信息，其工作量可想而知。不仅仅浪费了大量的人力物力，而且由于人工管理存在着大量 的不可预见的因素，造成了加油站对客户信息管理的某些不规范，使得加油站客户信息管理陷 入管理繁琐，信息混乱的地步。为有效降低运营成本，杜绝管理漏洞，针对现在加油站客户信 息管理的弊端，根据加油站客户信息管理的基本流程，使加油站有一套完善的管理系统是非常 必要的。从而使其加油站的客户量日渐增加。客户量的上升，不仅带动了销售，也从另一个侧 面反映出，在加油站客户信息管理信息系统的协助下，加油站正在以其专业的服务精神、严谨 的管理风格逐步赢得客户的信赖，从而在市场竞争中确立战略优势。 而加油站客户信息管理系统的开发使其实现了与客户相关的各种信息的系统化、规范化和 自动化。通过对客户信息管理、油价管理、加油和、系统查询四个模块基本功能的实现，对客 户的各种信息进行增加、删除、查找、修改等操作，完成对客户的信息管理。这些功能基本可 以满足一般加油站对客户管理的需求，使企业节省人力物力，减轻劳动强度；降低成本，节省 开支；提高了管理水平，增强了企业在同行业中的竞争力；同时提高了客户信息处理的及时性 和准确性。 该系统采用 VB6.0 进行开发、设计，后台采用 access 提供强有力的支持。系统的实施将 为企业获得更多的客户，留住更好的客户，创造更大的客户价值，留给客户永久的信誉度，建 立一对一市场营销，从而为企业带来更丰厚的利润和持续发展的竞争优势。 关键词：客户信息管理，vb6.0，数据库 - 2 - 第 1 章 绪论 1.1 选题背景 现在的社会日新月异，发展的非常快。加油站的发展也是非常的快了，而且每年都有不同 的要求。加油站的信息量也非常的大，数据可能经常性的发生更换，原来手工的管理模式就体 现出不为合适了。而且手工的数据是存放在多处的，没有使用统一管理的模式，数据整理非常 的麻烦，统计也困难,很多的情况下，工作人员都是在重复一些相同的工作。做一些相似的报表， 这样不但降低了工作效率，而且非常的容易出错。在这种条件下，使用计算机管理就体现出非 常的适合了。只要你准确的录入记录，统计，报表输出的结果就能快速、准确显示出来，变的 一点问题都不会出现的。 1.2 课题主要研究的内容： 客户信息作为加油站信息管理中最主要的管理对象，客户信息管理系统就成了加油站信息 化管理系统中不可缺少的部分，它的内容对于加油站的管理者说都至关重要。但一直以来人们 使用传统人工的方式进行客户数据的档案管理，这种管理方式存在着许多缺点,如:效率低,成本 高，容易出错，格式不规范，计算统计时间长，不容易进行统计和分析。 随着科学技术的不断提高,计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进 入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对 客户信息档案进行管理，具有手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性 高、存储量大、寿命长、成本低等。这些优点能够极大地提高加油站客户信息管理的效率。因 此，开发出这套系统成为很有必要的事情。而且只要软件的设计合理，可以为加油站提供合理 的管理模式、降底运营成本。 1.3 课题研究的意义 通过本系统软件，能帮助工作人员利用计算机，快速方便的对加油站的客户信息和客户加 油信息进行管理、输入、输出、查找的所需操作，使散乱的客店档案能够具体化，直观化、合 理化。 本软件适用于一般的加油站，对客户信息和客户加油的信息可以随时输入、输出、查找、 修改、汇总。 1.4 课题研究的现状： 1.4.1 系统开发采用的特点 （1）随着计算机技术的发展和普及，各行各业的管理机构需要由计算机处理大量的信息。 选择一个优秀的面向对象的管理系统作为开发平台，将给日后的信息处理带来极大的方便。客 户信息的管理工作是企事业单位不可缺少一部分，也是企业管理的重要组成部分。它的内容对 于企业的管理者来说都至关重要，所以客户信息管理系统应该能够为企业管理者提供完整,正确 和灵活的客户信息和快捷的查询手段。 （2）Visual Basic 是为面向对象应用程序开发而设计的功能强大的编程工具。利用 Visual Basic 设计程序，不但可以设计出非常丰富的用户接口，而且几乎不需要编写多少程序， 就能开发出功能非常强大的应用程序。这也就是选用 Visual Basic 来开发加油站客户信息管理 - 3 - 系统的所在。 1.4.2 系统开发必要性 本系统是为了更好的管理加油站庞大的数据而开发的。它能够给加油站的工作人员减轻很 多的负担，能够把繁琐的工作简单化。现在，在国外大多数的加油站都有着自己的客户信息管 理系统，使得在管理方面非常方便，以至于一个大型加油站只有少数的工作人员。即减少了开 资，又充分利用了资源。正是因为这些优点，所以开发出一套加油站客户信息管理系统也是非 常有必要的。 1.5 课题难点和需要解决的关键问题： 用 Visual Basic 开发的加油站客户信息管理系统需要与 Access 数据库相连接。因此，它 们之间的兼容性最为关键。如果处理好两个软件之类的数据关联将成为这次开发的难点。管理 系统的调试运行的稳定性也将成为此次系统开发的难点。所以要保证数据库和系统能够可靠的 连接。系统为数据提供自动更新功能，并实现数据的更新，删除功能。要求数据库之间建立关 系，并确定关键词等关键环节。开发一个优良的系统，必须需要前期的策划和大量的投入。因 此，需要投入非常大的精力和工作量来搜集必要的数据和信息。 - 4 - 第 2 章 开发工具简介 2.1 开发环境 配置：CPU TYPE:PENTIUM CPU CLOCK:800MHz 内存:396M 硬盘:120G 操作系统:Microsoft Windows XP 2.2 Visual Basic 6.0 简介 Visual Basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可 用于开发 Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与 Windows 的专业开发工具 SDK 相媲美，而且程序开发人员不必具有 C/C+编程基础。在 Visual Basic 环 境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用 Windows 内部的应用程序 接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放 式数据访问(ODBC)等技术，可以高效、快速地开发出 Windows 环境下功能强大、图形接口丰富 的应用软件系统。 2.3 Microsoft Access 简介 Microsoft Access 使您容易得到所需信息，并提供强大工具，可以帮助您组织和共享您的 数据库，以便您和您的工作组能做出更好的决策。快速找到可靠答案，通过 Intranet 共享信息， 建立更快更有效的商业解决方案。 2.3.1 Microsoft Access 具有以下特点 更易建立强大的商业解决方案，更快找到答案 使 Web 协作成为可能，用 Access 2000 中的新工具提高生产力。使数据对任何协作者都可 直接利用。更新销售数据或快速查看顾客细节信息。定制您自己的图形格式，以便准确地显示 您所需的信息。使用内置 Microsoft SQL Server 集成来创建可以随您的商务升级的数据库。 在 Web 上管理和共享信息 将您的数据来源与交互式 Web 页面无缝集成，使创建和共享 Microsoft Access 数据库比以 前更容易。使用 Web 技术快速获取信息，并把它按您的特殊用途裁剪。加入 Office 2000 Web 组件以便在 Web 浏览器中可视化分析数据。 在浏览器窗口查看，编辑，和分析数据 新的，交互式的 Data Access Pages 是为 Web 设计 Access 表。它们能使任何职员在浏览器 内轻易地打开，查看，和更新动态数据。用交互式图表举例说明 Data Access Page，然后邮寄 或作为 E-mail 的附件发出。您和您的合作者就永远拥有最新信息-在办公室或任何地方. 把交互式报告加入到 Intranet 中 把多个表格链接成单个的，相关的视图被称为 Grouped Data Access Page。用这种方法， 可以创建分层结构，将记录从一般类别到具体细节分类。例如，按区字段分析雇员销售情况。 - 5 - 首先把目光集中在一个地区所有的销售上。然后，把目光关注到该地区销售几种纺织品的结果 和基本输入输出上。您可以交互式地查看，过滤，分类所有的信息-在同一页面内。 把动态数据拖到网页上 很容易把字段列表的内容拖动，加入到 Data Access Page 中。表格字段直接连结到数据库， 所以信息总是最新的。 使工作方式流程化 好的信息有助于做出英明的决策和提高生产力。Microsoft Access 使信息更容易获得和使 用。快速分析细节内容并找出重要联系。利用新工具来定制窗体和报表。把数字转化成答案- 赶快。 利用改进接口的优点 Access 数据库窗口使数据库组件操作更容易。使用垂直 Objects 工具条在窗体，表格，和 报表之间切换。把数据库对象组织成组，并对常用的内容创建快捷方式。 在数据表视图中浏览相关记录 Access 在一个窗口中可使您以图中图方式查看所有相关数据-不必进行查询。实时查看表 格间的联系以便快速做出相应决策。显示深层信息，以使记录之间关系可视化。而您只需用鼠 标选取您感兴趣的记录。 对所选记录作特殊的格式化 在字段内容的基础上改变它们的版面，使用户能够做到例如立即在表格或报表内发现高 销售的消费者或低库存项目。根据您定义的数值或习惯标准设置字体，风格，颜色，和标题。 窗体扩展功能允许您在一张窗体上简单地选择一个字段，并改变它的背景颜色，大小， 和边界。不必切换到设计视图就可以立即看到这一结果。 与 SQL Server 无缝集成 Microsoft Access 包含了内置的 Microsoft SQL Server，这使它能够对熟悉的 Access 环 境进行高端管理。需要时可以利用可调整大小的 SQL Server 技术创建企业级数据库。这样，使 用一个可按需调整大小的数据库，系统就可以随业务扩展了。 随业务扩展数据库 通过在 Access 内创建 SQL Server 数据库，来扩展您在客户/服务器世界的技能。新的 Access 数据库项目允许 Access 用户用熟悉的 Access 接口创建真正的客户/服务器应用程序。 - 6 - 第 3 章 加油站客户管理系统的设计 3.1 方案论证 加油站客户管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维 护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全 性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 本系统主要完成对加油站客户管理和加油信息的管理，包括数据库中表的添加、修改、删 除等。系统还可以完成对各类信息的浏览、查询、添加、删除、修改、报表等功能。 系统的核心是数据库中各个表联系，每一个表的修改都将联动的影响其它的表，当完成对 数据的操作时系统会自动地完成数据库的修改。查询功能也是系统的核心之一，在系统中即有 单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态 生成的条件查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功 能，并具备报表打印功能。 经过分析,我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具,利用其提供的各种面向对 象的开发工具,尤其是数据窗口,这能方便而简洁操纵数据库的智能化对象,首先在短时间内建立 系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行 系统。 在操作系统方面，虽然现在 Linux 的发展速度非常的快，但是对于大多数的使用者来说， 操作显然没有微软的 WINDOWS 那么的流行和傻瓜化。而且现在计算机的运算速度已经不能和以 前相提并论了，而且硬件的价格也一天天的在下降了，所以也不用为了节省整体的造价而改用 硬件要求很低的 DOS 系统了。所以我们决定该加油站客户管理系统将运行在普遍使用的 WINDOWS 操作系统上来协助管理人员轻松地进行与数据库的连接和管理。 在这么多的访问接口里面微软对于 ADO 非常的推崇，并且下一代的数据访问技术也将是采 取这样的思路，而且本身来说 ADO 模型简单，但是功能强大，使实现人员无须关心一些底层的 操作，而把更多的经历放在业务逻辑的设计上面。 综上所述，我们选择了 Visual Basic + ADO + ACCESS 来开发整个系统。 3.2 设计过程 3.2.1 实现功能 （1） 能够浏览客户的所有信息 （2） 能够对客户的基本信息进行管理 （3） 客户加油信息数据的数据库建立和管理 （4） 能够通过客户的单位名称信息找到其对应的车辆加油的相关信息 （5） 通过一条信息找到与之匹配的信息 (例如：查询同一单位的所有加油信息) （6） 管理人员能对已有单位的客户的信息进行管理 （7） 多用户数据安全管理，保证各部门的数据安全、完整，对每个使用本系统用户进行 权限的设置 - 7 - （8） 简易操作，不需要非常专业的计算机操作人员。 （9） 加油信息的添加、删除和修改,包括加油的型号、单价、数量、单次加油金额 （10）加油信息查询，查询条件为单位名称、车牌号等信息的综合查询。为增加各单位之 间的数据保密性，不允许模糊查询，查询结果以图表形式列出 （11）加油信息的统计，按照单位名称、车牌号、月份分别进行统计 按用户输入的单位名称，统计本单位的加油信息，并排序 按输入的单位名称和车牌号，统计该车的加油信息 （12）用户管理：设置三个级别用户：经理、管理员和客户，经理有权限使用所有的功能； 管理员除了不能使用用户管理和油价管理外，其它都能使用；普通用户只能使用查询功能，用 户使用本系统之前必须先通过身份认证（用户级别、用户名和密码，密码输入有次数限制，连 续三次输入错误密码则锁定该用户） 3.2.2 功能与模块设计 包括加油站客户的客户信息管理系统、油价管理系统、加油信息管理系统、加油信息统计 系统等，四个方面都是必须要满足: （1）基本情况录入：输入本系统所需的基本数据。输入客户的基本情况，采用客户编号 来区分客户。 （2）客户基本信息变动情况。 （3）加油信息查询：提供查询本单位的基本情况功能。 图 3.1 程序结构框图 3.2.3 数据库设计 创建“加油站客户管理系统”数据库系统中需要使用的数据表。 系统启动画面 权限认证画面 加油站客户信息管理系统主画面 系统管理客户信息管理油价管理加油信息管理加油信息统计 - 8 - 表 3.1 数据表 加油站客户管理系统 登陆表 车辆表 加油信息表 客户信息表 油价表 （1） 登陆 用于存放用户名、密码和权限信息的数据表。 表 3.2 登陆信息表 （2） 车辆表 用于存放车辆信息的数据表 表 3.3 车辆信息表 （3） 加油信息表 用于存放加油信息的数据表 表 3.4 加油信息表 （4） 客户信息表 用于存放客户信息的数据表 - 9 - 表 3.5 客户信息表 （5） 油价表 用于存放油品价格信息的数据表 表 3.6 油价信息表 3.3 设计过程论述 执行流程图与解说 3.3.1 登陆流程图 N Y N Y 图 3.2 登陆流程图 设计说明:进入主接口后,提示输入用户名和密码,在输入之后按确定进入,验证用户名和密 登陆主界面 验证账号 验证密码 进入主界面 - 10 - 码,实现流程: (1) 检测数据库中有无管理员的账号。如果有,则等待用户输入用户名和密码,否则按程序 本身自动执行插入命令,新建一个管理员用户,并等待用户输入. (2)验证用户名和密码是否正确,错误次数不能超过三次,超过三次则退出系统登陆接口 (3)当验证通过后,检测该登陆用户的管理权限,并设置变量传值给主窗体. 3.3.2 主接口操作图 图 3.3 系统结构框图 设计说明:此窗体为主窗体操作接口,为配合数据执行模式,采用 VB 的下拉式菜单,使众多功 能都能整齐而有序的排列. 实现功能: (1)获得登陆接口传递的权限信息,设置用户是否可以使用(用户管理，客户信息管理，油价 管理，车辆管理,保存,修改,删除)这些操作. (2)登陆后进入加油站管理主接口,设置等待操作状态 3.3.3 所有客户与增加客户数据图 主界面 系统操作客户信息管理油价管理加油信息管理加油信息统计 用 户 管 理 修 改 密 码 增 加 学 生 客 户 信 息 管 理 客 户 信 息 查 询 油 价 管 理 车 辆 管 理 统 计 加 油 油 价 查 询 加 油 查 询 - 11 - 图 3.4 所有客户流程图 图 3.5 增加客户流程图 注：数据初始化是对程序中所使用的表格进行颜色和表格间距的处理，并绑定资料源为进 行到下一步操作做准备 实现功能: (1)执行客户信息表的全查询,获得所有字段名称,通过字段名称来分配数据列表的列数. (2)执行数据初始化,因使用的图表控件附带下拉列表框,日期选择框等功能,可以很方便的 进行实时操作,所以资料的初始化是针对数据来确定哪一列的宽度与文本框的属性. (3)给图表控件的第一列赋值,赋值对象是客户信息表的各字段名称. (4)统计所有表内信息,得出行数，把所有数据显示在表格内 (5).开始根据分页内容给图表控件赋值,同时设置状态,即不可保存,可修改,可删除.(因为 在查询资料的同时无需执行保存数据,而可以进行数据的修改和删除) 3.3.4 油价管理数据处理图 图 3.6 所有型号油价流程图 图 3.7 增加油型号流程图 所有客户 数据初始化 读取数据行数 显示数据 增加客户 数据初始化 读取数据字段 初始化表格 等待输入数据 所有油价表 数据初始化 读取数据行数 显示数据 增加油型号 数据初始化 读取数据字段 初始化表格 等待输入数据 - 12 - 3.3.5 资料保存流程图 N N Y 图 3.8 资料保存流程图 （1）在点击上列按钮后,系统属于可保存状态,不可修改状态,不可删除状态. （2）点击保存功能实现: 验证输入对象:即是保存客户信息的内容还是加油信息的内容,判断表格中是否为空,为空提 示并退出操作 验证用户输入的数据中是否有必填的字段未填的,如果有,提示并退出操作,等待用户补齐 以上顺利完成,对每行进行组织语句(插入语句),然后执行该语句,语句成功提示并退出操作,否 则通过防错提示并退出操作 3.3.6 车辆管理 执行保存 保存状态 载入表名 客户信息加油信息 数据完整性 是否有重复 插入资料 退出 - 13 - 图 3.9 车辆管理流程图 注：增加：刷新表格数据，调整到等待输入状态 保存：执行增加操作后，并输入了必要的数据后执行，保存用户输入的数据 修改：对原有数据进行修改，车辆编号为唯一值不可修改 删除：删除表格中所选目标行 退出：退出课程管理接口，返回到主接口视图 3.3.7 查询 实现功能: 支持客户信息,加油信息的所有查询,需要用户自己组织语句,加大了查询的范围,任何该表 的参数都可以查询到. 3.4 结论和总结 确定了本系统的实用价值后，选用了目前最常用也最简便的 access 数据库作为后台，鉴于 ADO 在很多程序里的广泛应用，使用 ADO 来连接数据库将是最为适用的，并且在定义了 ADO 的连 接模块后，对于将来的升级也会很方便，只要修改一下连接源，就可以轻松的更换后台， access 适用于单机版，当想转换为网络版的 SQL 数据库时，就很容易做到 为了减少系统的数据资源，选用了目前最方便的将数据交给后台处理的方法，即使用 SQL 的语句将数据库交给 ACCESS 后台，由后台来处理，这样系统的执行会加快，也使用程序本身变 得简单 本程序使用了新型控件 flexcell，此控件的双色表格与单元格的特殊赋值功能不但能带给 用户最好的视觉感受，同时在操作时大大减少了手动输入操作，因此也为非计算机人员的可操 作性带来很大的方便。 编写了菜单程序：增强了非计算机人员的可操作性，使整个窗体布局更加直观化。 支持全方位查询，可以通过计算机人员的自写语句实现定位查询，只要语句正确，都能找 到所要找的记录。 使用了透明 API 函数，在调用用户管理与客户管理等窗体的时候，对该窗体进行透明化处 理。 车辆管理 增加保存修改删除退出 - 14 - 第 4 章 部分程序功能的讲解 4.1 登陆界面 图 4.1 登陆对话框 在这里我设置了三种类型的权限：第一种为经理(超级管理员)；第二种为管理员；第三种 为客户。 在此我设置了错误陷阱，当输入的用户名和密码是错误的时候，将会出现用户名和密码错 误的提示。当输入的是正确的用户名和密码时，将会进入系统主接口。并在窗体下面的状态区 里显示出当前的日期、欢迎词、当前操作的用户和它的权限。 图 4.2 系统主界面 4.2 系统操作 4.2.1 用户管理 - 15 - 图 4.3 用户管理界面 在这里我们可以修改用用户的信息，可以添加、保存、修改和删除用户的信息。但超级用 户的信息不能修改。 当我们以超级管理员的身份登陆时，可以对所有用户进行以添加、保存、修改。当我们以 管理员用户身份登陆时，只能对自身和客户信息进行以添加、保存、修改。当以客户身份登陆 时，他只能对自身的信息进行以修改和保存。 4.2.2 修改密码 图 4.4 修改密码界面 在这里我们可以快捷的修改自身的密码。当修改时必须先输入当前正在使用户的密码，然 后再输入想要更改后的新密码，点击“确定” ，修改成功。在下次进入系统时将会启用新的密码。 4.3 客户信息管理 4.3.1 客户信息管理 - 16 - 图 4.5 客户信息管理界面 在这里我们可以对客户的基本信息进行添加、保存、充值、修改、删除和退出操作。 具体操作时，用户的编号是自动生成的，不需要手动添加，为管理人员方便了不少，也节 省了时间。单位名称为关键词，为必须输入的信息，不能为空。因为它是最重要的关键词段， 将来在查询时会用到。我将来以后的章节里讲解。在这里我也加入了错误陷阱，并而输入的信 息为文本。负责人也为关键词段，也不能为空，并且同样设置了错误陷阱。地址和联系方式同 理，输入的信息也一样为文本的形式。而传真号码、邮箱地址和邮编为可填选项。既用户添不 添加信息都可以。预存款余额为必填字段，必须有内容，为数字类型。当第一次添加客户必需 添加，具体添加方法为点击“充值” 。其为客户加油时预存的现金，它的单位为(人民币/元)， 它在加油和统计时会用到。所以，非常的重要。 当用户需要修改信息时，直接在客户信息管理接口里修改，当修改完毕后，点击保存， 信息将更新为新的内容。 4.3.2 用户信息查询 - 17 - 图 4.6 用户信息查询界面 在这里我们可以查询到已有客户有基本信息，以方式及时和客户保持联系。 在这里我只设为精确查询。因为考虑到用户信息的保密性，所以只设置了精确查询，以防 有其它人去查询该单位的数据。 4.4 油价管理 4.4.1 油价管理 图 4.7 油价管理界面 在此可以对油品的种类、油品型号和油品价格进进行设置。单位为(元/升)。在这里只有权 限为经理和超级管理员的用户才可以设置。这样对加油的管理起到了规范的作用。 修改方法同理 4.4.2 油价查询 - 18 - 图 4.8 油价信息查询界面 在这里可以对油品的种类。油品型号和价格进行查询，这样设计可以对当前的信息一目了 然，达到方便的作用。 4.5 加油信息管理 4.5.1 车辆管理 图 4.9 车辆管理界面 在这里可以对客户单位的车辆进行登记和管理。在已经的客户信息里添加车辆，记录车牌 号，以车号为准，根据已经存的信息进行对号加油。 - 19 - 4.5.2 加油 图 4.10 加油界面 在这里进行加没的信息添加，对应车辆，对应单位，然后输入要加入多少油，就会显示出 需要多少钱，然后选择月份，点保存。以方便日后统计。 4.5.3 加油查询 图 4.11 油价信息查询界面 - 20 - 在这里可以对加过油的车辆和单位进行信息查询。在这里也被设定为精确查询，也是考虑 到用户信息的安全性。 4.6 加油信息统计 图 4.12 加油信息统计界面 在这里可以对已经有客户的加油量进行统计，可以按月份统计也可以按年统计。在下拉列 表框里选择已有单位的名称和车辆等要查信息，然后点统计，将会生成新表，显示加油的信息， 并在最后有小计，以方便观看一共加了多少油，还剩余多少钱。 4.7 关于 图 4.7 系统关于界面 关于本系统的名称和版本 - 21 - 结束语 加油站客户信息管理系统基本符合中小型加油站的需求。能够完成对客户信息和加油信息 的管理和操作。系统设计完成后总结出一些本系统的优点和缺点。本信息管理系统的优点是： 对客户的信息可以规范统一管理；查询信息方便，一目了然；操作简便；信息内容丰富等。尤 其是在信息安全性和数据统计方面进行了人性化的设计。例如，其一、客户在查询信息时必须 使用精确查询，这样可以使它人很难能够查询到客户自己的信息，而查询的内容必须是客户自 己设立的，这样就增强了信息的安全性。其二、对客户已有的信息进行统计，使其可以进行按 月统计和按年统计，使客户更为方便的了解到自己的信息，做到心中有数，在统计后还能够显 示出自己预存款的余额，这样可以使自己的帐目很清楚，以免繁琐的计算而出现错误的可能性 大大减小，在查询统计后，如需要留有存根还可以打印出来，方便保留数据，以备后用。本信 息管理系统有也一些不足之处。如界面设计过于单调，应该加入一些按键图标，使其更生动； 必须让具有一定计算机操作基础的人员使用，以免操作错误；设计代码有些复杂等不足之处。 有待于本人加强。因此，我要在以后的工作学习不断的完善自我，丰富自己的专业知识，使本 系统功能更加完善。 - 22 - 附录 连接数据库的模块代码 Public cnn As New ADODB.Connection 新建一个资料源 Public qy1 As New ADODB.Recordset 数据一个记录集 Public qy2 As New ADODB.Recordset 数据一个记录集 Sub Main() tkOpenAccessDB App.Path “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ “ & _ tkUserID, _ tkPassword Exit Sub tkFinish: MsgBox Err.Description End End Sub 主窗体接口与代码 图 5.1 系统主窗体 Private Sub MDIForm_Load() StatusBar1.SimpleText = “ 今天是“ & Year(Date) & “年“ & Month(Date) & “月“ & Day(Date) & “日 , 欢迎您使用加油站客户信息管理系统 !“ & “ 当前操作者:“ & user111 & “ 权限:“ & sup End Sub - 24 - Private Sub mdipass_Click() If mdi = False Then MsgBox “请关闭打开的窗口！“, vbInformation, “不允许当前操作！“ Else Unload Me Form11.Show End If End Sub Private Sub relog_Click() If mdi = False Then MsgBox “请关闭打开的窗口！“, vbInformation, “不允许当前操作！“ Else Unload Me Form1.Show End If End Sub Private Sub sturea_Click() If mdi = False Then MsgBox “请关闭打开的窗口！“, vbInformation, “不允许当前操作！“ Else Unload Me Form4.Show End If End Sub Private Sub stureg_Click() If mdi = False Then MsgBox “请关闭打开的窗口！“, vbInformation, “不允许当前操作！“ Else If chair = True Or workman = True Then unload Me Form3.Show Else MsgBox “你是客户,没有使用此功能的权限!“ End If - 25 - End If End Sub Private Sub stuxuan_Click() If mdi = False Then MsgBox “请关闭打开的窗口！“, vbInformation, “不允许当前操作！“ Else unload Me If chair = False And workman = False Then MsgBox “你没有管理此功能的权限!“ Else Form8.Show End If End If End Sub Private Sub user_Click() If chair = False And workman = False Then MsgBox “你没有管理此功能的权限!“ Exit Sub End 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 If End Sub Private Sub xuankecha_Click() If mdi = False Then - 26 - MsgBox “请关闭打开的窗口！“, vbInformation, “不允许当前操作！“ Else Unload Me Form9.Show End If End Sub Private Sub zhuxiu_Click() If mdi = False Then MsgBox “请关闭打开的窗口！“, vbInformation, “不允许当前操作！“ Else Unload Me If chair = True Then Form5.Show Else MsgBox “你没有管理此功能的权限!“ End If End If End Sub 客户信息管理接口与代码 图 5.2 客户信息管理 - 27 - Dim girdsav2 As Boolean Dim gridedi2 As Boolean Dim griddel2 As Boolean Private Sub Form_Load() On Error GoTo finish Grid1.SetRegisterInformation “CNwinndy“, “WvyY-nonvk-unty-Zbl_e-hms“ 进行注册 With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .Cols = 12 .DefaultFont.Name = “Tahoma“ .DefaultFont.Size = 8 .BackColorFixed = RGB(90, 158, 214) .BackColorFixedSel = RGB(110, 180, 230) .BackColorBkg = RGB(90, 158, 214) .BackColorScrollBar = RGB(231, 235, 247) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(239, 243, 255) .GridColor = RGB(148, 190, 231) .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .GridColor = RGB(148, 190, 231) .DefaultFont.Name = “Tahoma“ .DefaultFont.Size = 8 .Column(0).Width = 0 .Column(1).Width = 30 - 28 - .Column(2).Width = 100 .Column(3).Width = 50 .Column(4).Width = 100 .Column(5).Width = 100 .Column(6).Width = 100 .Column(7).Width = 80 .Column(8).Width = 80 .Column(9).Width = 80 End With Call callmain Grid1.Column(1).Locked = True Grid1.Column(9).Locked = True gridsav2 = False gridedi2 = True griddel2 = True mdi = False Exit Sub finish: MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) mdi = True End Sub Private Sub XPButton1_Click() On Error GoTo finish Grid1.Column(9).Locked = False Set mdbrs = mdbconn.Execute(“select * from 客户信息“) Grid1.Rows = 1 Grid1.Rows = 2 Grid1.Column(1).Locked = True Grid1.Cell(1, 2).SetFocus gridsav2 = True gridedi2 = False - 29 - griddel2 = False Exit Sub finish: MsgBox Err.Description End Sub Private Sub XPButton2_Click() On Error GoTo finish If gridsav2 = False Then MsgBox “不支持保存操作！“, vbInformation, “当前不支持“ Exit Sub End If Dim s6, s7, s8 As String If Grid1.Cell(1, 2).Text = “ Then MsgBox “单位名称不可以是空格！“, vbInformation, “错误提示“ Exit Sub End If If Grid1.Cell(1, 3).Text = “ Then MsgBox “负责人不可以是空格！“, vbInformation, “错误提示“ Exit Sub End If If Grid1.Cell(1, 4).Text = “ Then MsgBox “请填写单位地址！“, vbInformation, “错误提示“ Exit Sub End If If Grid1.Cell(1, 5).Text = “ Then MsgBox “请填写联系方式！“, vbInformation, “错误提示“ Exit Sub End If If Grid1.Cell(1, 6).Text = “ Then s6 = “-“ Else s6 = Grid1.Cell(1, 6).Text End If If Grid1.Cell(1, 7).Text = “ Then - 30 - s7 = “-“ Else s7 = Grid1.Cell(1, 7).Text End If If Grid1.Cell(1, 8).Text = “ Then s8 = “-“ Else s8 = Grid1.Cell(1, 8).Text End If Set mdbrs = mdbconn.Execute(“select * from 客户信息 where 单位名称=“ & Grid1.Cell(1, 2). Text & “) If mdbrs.EOF = True Then Set mdbrs = mdbconn.Execute(“insert into 客户信息(单位名称,负责人,地址,联系方式,传真 号码,邮件地址,邮编,预存款余额) values(“ & Grid1.Cell(1, 2).Text & “,“ & Grid1.Cell(1, 3).Text & “,“ & Grid1.Cell(1, 4).Text & “,“ & Grid1.Cell(1, 5).Text & “,“ & s6 & “,“ & s7 & “,“ & s8 & “,val(“ & Grid1.Cell(1, 9).Text & “)“) MsgBox “提交成功！“, vbInformation, “ Call callmain Else MsgBox “该单位己存在！“, vbInformation, “不可重名“ Exit Sub End If Grid1.Column(9).Locked = True Exit Sub finish: MsgBox Err.Description End Sub Private Sub XPButton3_Click() On Error GoTo finish Dim s6, s7, s8 As String If gridedi2 = False Then MsgBox “当前修改操作不被允许!“, vbInformation, “非使用对象“ Exit Sub End If - 31 - For i = 1 To Grid1.Rows - 1 If Grid1.Cell(i, 6).Text = “ Then s6 = “-“ Else s6 = Grid1.Cell(i, 6).Text End If If Grid1.Cell(i, 7).Text = “ Then s7 = “-“ Else s7 = Grid1.Cell(i, 7).Text End If If Grid1.Cell(i, 8).Text = “ Then s8 = “-“ Else s8 = Grid1.Cell(i, 8).Text End If Set mdbrs = mdbconn.Execute(“update 客户信息 set 单位名称=“ & Grid1.Cell(i, 2). Text & “,负责人=“ & Grid1.Cell(i, 3).Text & “,地址=“ & Grid1.Cell(i, 4).Text & “,联系方式=“ & Grid1.Cell(i, 5).Text & “,传真号码=“ & s6 & “,邮件地址=“ & s7 & “,邮编=“ & s8 & “,预存款余 额=val(“ & Grid1.Cell(i, 9).Text & “) where 客户编号=val(“ & Grid1.Cell(i, 1).Text & “)“) Next MsgBox “修改的数据己经完成“, vbInformation, “完成操作“ Call callmain Exit Sub finish: MsgBox Err.Description End Sub Private Sub XPButton4_Click() On Error GoTo finish If griddel2 = False Then MsgBox “当前删除操作不被允许!“, vbInformation, “非使用对象“ Exit Sub End If If hang = 0 Then - 32 - MsgBox “没有选择客户或者没有客户可以删除!“, vbInformation, “非使用对象“ Exit Sub End If Set mdbrs = mdbconn.Execute(“delete from 客户信息 where 客户编号=val(“ & Grid1.Cell(hang, 1).Text & “)“) MsgBox “目标己删除,请刷新数据!“, vbInformation, “删除成功“ Call callmain Exit Sub finish: MsgBox Err.Description End Sub Private Sub XPButton5_Click() Unload Me End Sub Private Sub callmain() On Error GoTo finish gridsav2 = False gridedi2 = True griddel2 = True Set mdbrs = mdbconn.Execute(“select * from 客户信息“) Grid1.Rows = 1 i = 9 Grid1.Cols = i + 1 For i =