供电公司同业对标指标管理系统的设计

摘要

本文通过了解供电公司的管理现状以及同业对标工作的发展趋势。建立先进的同业对标指标信息管理平台，快速、准确地收集各部门同业对标指标数据，将供电公司同业对标工作全面信息化。采用最新的信息技术和科学的统计方法进行指标分析，为供电公司实现对同业对标指标的量化分析和指标的科学化管理进行新的探索。从而实现“用指标评价企业，用业绩考核企业”的目标。

系统开发语言选用Visual Basic 6.0；数据库选用SQL sever 2005。以供电公司为主要对象，针对供电企业的同业对标指标管理的具体需求，我们进行了系统的分析、研究和实践工作，使系统主要实现一下功能：实现对供电公司同业对标指标的管理，如各指标数据的录入、查询、修改等；设置指标的计算方法。进而对指标及报表数据进行计算并用不同的算法展现，如展现指标的平均值、中位数、去年同期值、指标的增长特征等；对指标报表进行灵活的查询分析，如时间序列分析等；设置指标的上下界。对超过界限的指标进行预警；进行严密的权限控制机制。包括实现用户、角色、权限、日志等的管理功能。

论文从同业对标系统的背景和现状分析入手，明确了课题的研究意义；文中对系统所设计的技术进行了简单介绍，包括Visual Basic 6.0和SQL sever 2005。随后对系统进行了需求分析，对需求的获取模式和分析方法以及系统的功能性和非功能性需求进行了描述，并对系统的总体架构进行了设计，讲解了系统的模块划分和各模块的主要功能、数据库的设计等；然后逐步描述了各部分的实现，详细说明了系统表现层和业务层实现中的关键问题；最后对项目进行了总结。

该系统的初步的应用结果表明，系统功能较为完善，能够较好地满足应用需求，对为优化企业管理和工作流程、提升企业管理水平有一定的促进作用。

关键词：供电公司；同业对标；管理系统；

ABSTRACT

In this paper by understanding the Power company's management status and development trend of the industry standard work.Make an advanced benchmarking target information management platform,collect the benchmarking index data of departments fast and accurate,and Supply the company with a comprehensive information technology industry benchmarking https://www.360docs.net/doc/948816877.html,ing the latest IT and scientific statistical methods, were analyzed with quantitative analysis of the industry standard indicators and indicators of scientific management, the power company to achieve new exploration. So that "the evaluation of enterprise indicators, performance evaluation of enterprises".

System development language used Visual Basic 6.0,database selected SQL sever 2005. The power company for power supply enterprises with the industry standard index management needs, we conducted a systematic analysis, research and practice, so that the main achievement of the functions: the power company with the industry standard indicators management, such as indicators of data entry, query, modify, etc.; the calculation of the set indicators. Indicators and report data thus show the calculation and use a different algorithm, such as to show the average of the indicators, the median value of the same period last year, indicators of growth characteristics; indicators statements flexible query and analysis, such as time series analysis; set the upper and lower bounds of the index. Early warning indicators over the boundaries; strict access control mechanisms. Including users, roles, permissions, log management functions.

The analysis of papers from the same industry background and status of the standard system to clear the significance of research projects; a brief introduction to system design technologies, including Visual Basic 6.0 and SQL sever 2005.Then the system needs analysis, demand access mode and methods of analysis and system functional and non functional requirements are described, and overall system architecture has been designed to explain the modular division of the system and each module the main feature, database design, etc.; and then a step-by-step description of the implementation of the various parts of the detailed description of the key issues in the system, the presentation layer and business layer; a summary of the project.

The system application results show that the system function better, and better able to meet the application requirements, and optimize business management and workflow, and improve enterprise management level role.

Key words：Power companies; Benchmarking; management system;

目录

摘要.....................................................................................I ABSTRACT ...........................................................................................II 第一章前言 (1)

1.1系统的开发背景 (1)

1.2 国内外的研究现状 (2)

1.3 本文的主要工作 (2)

1.4 本文的组织结构..... (3)

第二章开发环境和工具 (4)

2.1Visual Basic 6.0简介 (4)

2.1.1 Visual Basic 6.0的语言特性 (4)

2.1.2 Visual Basic 6.0的配置要求 (4)

2.2 SQL sever 2005简介 (5)

2.2.1 SQL sever 2005数据库特点 (5)

2.2.2 SQL sever 2005的配置要求 (6)

第三章系统分析 (7)

3.1 系统需求分析 (7)

3.1.1 系统需求 (7)

3.1.2 需求分析 (7)

3.2 可行性分析 (7)

3.2.1 经济可行性分析 (7)

3.2.2 技术可行性分析 (8)

3.3系统功能流程图 (8)

第四章系统设计 (9)

4.1 系统功能分析 (9)

4.1.1系统实现的功能 (9)

4.1.2 系统的功能模块 (9)

4.2 数据库设计 (10)

4.2.1 数据库的创建 (10)

4.2.2 数据表的创建及表的物理结构 (11)

4.2.3 创建ODBC数据源 (12)

第五章系统的实现 (13)

5.1 创建工程-供电公司同业对标指标管理系统 (13)

5.2 系统的主体窗口 (13)

5.2.1 主体窗口的设计过程 (13)

5.2.2 主体窗口菜单的设计 (14)

5.3 公共模块的创建 (15)

5.4 系统用户管理模块 (16)

5.4.1 用户登录窗体的创建 (16)

5.4.2 用户注册窗体的创建 (17)

5.4.3 用户密码修改窗体的创建 (17)

5.5 系统的指标管理模块 (18)

5.5.1 指标录入窗体的创建 (18)

5.5.2 指标查询窗体的创建 (19)

5.5.3 指标修改窗体的创建 (20)

5.6 指标的算法展现模块 (20)

5.7 报表分析模块的创建 (21)

5.7.1 Data Report的设计步骤 (21)

5.7.2 数据报表的实现 (21)

5.7.3 数据环境设计器的设计 (23)

5.7.4 Data Report的设计 (23)

5.8 帮助模块的创建 (24)

第六章系统的编译 (26)

结论 (27)

参考文献 (28)

致谢 (29)

附录..................................................... . ...... ...... .. (30)

第一章前言

1.1系统的开发背景

1997年美国的一项研究表明，1996在年世界500强企业中有接近90%的企业在日常管理活动中用到了标杆管理，其中包括Kodak，AT＆T，IBM，Ford，Xerox 。目前，伴随着中国的经济增长和竞争的增强，同业对标已经成为了许多大中型企业提高自身竞争力的重要管理活动之一，许多房地产公司，包括如万向集团，宝钢等，都开展了标杆管理活动。同时，由于国家不断深入电力体制改革，经济建设飞速发展，电网企业在经济高效、安全稳定、发展速度等方面提出了更高的要求。由于电力市场发展不断加快，以及国家启动了特高压输电网络的建设，各供电企业将面临着低成本高容量传输、高安全高质量的电力供应的新挑战，因此供电企业一定要即适应外部市场环境，同时又要优化企业内部管理流程，提高生产效率。为此，国家电网公司引入同业对标概念，提出以先进的同业对标管理，建立科学先进的电力公司同业对标评价体系，实现以指标评价企业，促进电力企业管理水平的提高。但是，目前由于基于同业对标管理的电力企业对标工作才刚起步，指标体系不是十分健全，在发展过程中难免存在着不少问题，例如：对标工作仅停留在数字分析的初始阶段，数字背后的真正原因却没有发掘出来；没有建立一个对标的组织机构来对对标工作作整体规划；因此，在同业对标管理的许多问题上我们仍处于探索阶段，如何制定出一套符合我国电力系统特点的优秀同业对标系统成为我国同业对标工作能否成功的关键。于此同时，山东电力集团的领导对同业对标工作也寄予厚望，提出了很高的要求。供电企业能否深入、扎实的开展创一流的同业对标工作将决定它们能否在激烈的市场竞争中生存、发展下去。同时，同业对标也将成为公司增强实力、强化管理、加快发展的重要措施。确立坚持“三抓一创”原则，以同业对标为总揽各项工作的主线，以同业对标为“总纲”来提升管理和效益。“正视激烈竞争的电力市场，立足实际，不盲目攀比，求真务实，力求实效”。根据“国家电网公司创一流同业对标管理办法”和“山东电力集团公司创一流同业对标工作实施意见”的精神，结合企业管理和发展需求在遵循公司实际工作的情况下，提出开发建设供电公司“同业对标管理系统”。即：遵照同业对标管理的理念，根据国家电网公司和山东电力集团公司对于创一流同业对标有关精神和要求，结合供电公司生产经营的实际流程和需求，采用现代计算机和数据库技术，建立覆盖供电公司生产经营管理全过程的指标管理平台，并在此平台上实现指标收集、指标发布、指标对比、指标考核、指标评估、结果分析、指标改进、以及指标实时预警等功能。同时，全面有机的结合企业内部的同业对标与绩效评价工作，通过对月度、季度和年度指标的统计、分类和分析，准确反映出公司业绩考核体系的执行情况，从而实现“用指标评价企业，用业绩考核企业”的目标。

1.2国内外的研究现状

相同行业之间的标杆管理即为同业对标，标杆管理于20实际70年代末80年代初提出，其英文译为Benchmarking，也可以翻译成基准管理、参照管理、典范借鉴或定标比超等。标杆管理的首先开展是在美国施乐公司。施乐公司将同业对标管理定义为“一个将产品、服务和实践与最强大的竞争对手或是行业领导者相比较的持续流程”。同业对标与战略联盟、企业再造一起被称作20实际90年代三大管理方法。在1976年以后，如佳能、NEC等公司开始挑战施乐公司在全球复印机市场的垄断地位，它们的产品售价仅为施乐产品的成本价，开发一款新产品所需用的开发周期与人员仅为施乐公司的50%，施乐公司的市场占有率从82%直线下降到35%。面对这种情况，施乐公司为了重新夺回市场发起了向日本企业学习的运动，通过开展广泛、深入的标杆管理。全方位的比较分析，很快的施乐公司就弄清了这些公司的运作机制，找出了与对手的差距，全面调整经营战略、改进业务流程，重新回到了在全球复印机市场的霸主地位。于是施乐公司开始在公司管理的许多方面应用标杆管理方法，如在交付速度上比恩公司比施乐快3倍的问题上，施乐公司一次为标杆，同时逐一选择考察了14家经营同类产品的公司，终于出了问题的症结，并果断采取了相应措施，减少了10%的仓储成本，年节省数千万美元低值品费用。于是同业对标在西方企业中迅速被学习借鉴，标杆管理成为了优化企业实践，提高企业经营管理水平和市场竞争力的最佳指导。随着中国经济的迅速增长和竞争的日益加剧，为提高自身的竞争力越来越多的企业开始实行标杆管理，我们电力公司大部分的也建立了它们的同业对标管理系统，但是它们的系统的功能模块划分和实现的功能业务却不尽相同。国家电网公司有一套主要功能为负责排序统计和上报各省各公司的对标数据，将生成的指标结果排序后下发到下级各省公司的同业对标系统。山东电力集团公司也开发了一套负责填报下级地市公司指标数据，以及生成指标上报文件的指标报表的管理系统。但是这两套系统仅仅是大大提高了统计指标结果数据的效率，而在和具体业务结合紧密的的地市级供电企业，应该有一套既能够能够收集指标数据，而且还能够对指标进行综合分析评价，以及对指标进行持续的闭环改进的系统。经过多次调研我们发现，国内对也同业对标的研究还是更多的在于同业对标理论方面的研究，而缺少实际的系统开发。而这正是本文的主要目的。

1.3本文的主要工作

熟悉指标报表内容的开发技术。分析企业发展战略，配合企业发展战略进行指标体系的建立，设计实现一个完善的供电公司同业对标指标管理系统。主要设计内容如下：

●实现对供电公司同业对标指标的管理，如各指标数据的录入、查询、修改等。

●设置指标的计算方法。进而对指标及报表数据进行计算并用不同的算法展现，

如展现指标的平均值、中位数、去年同期值、指标的增长特征等。

●对指标报表进行灵活的查询分析，如时间序列分析等。

●设置指标的上下界。对超过界限的指标进行预警。

●进行严密的权限控制机制。包括实现用户、角色、权限、日志等的管理功能。

经过分析我们开发语言选用Visual Basic 6.0；数据库选用SQL sever 2005。1.4本文的组织结构

第一章是前言，主要介绍系统的开发背景、国内外研究现状和本文的主要工作。

第二章是开发工具和环境，主要介绍了开发系统选用的Visual Basic 6.0与SQL sever 2005。

第三章通过调研，提出系统的需求分析。

第四章介绍系统的设计工作，以及系统数据库的设计准备工作。

第五章为本文的重点部分，在本章中介绍系统各个模块的设计实现。

第六章简单介绍系统的编译，生成可执行文件。

第二章开发环境和工具

2.1 Visual Basic 6.0 简介

Visual Basic 6.0是由微软公司开发的一种包含协助开发环境的事件驱动编程语言。Visual Basic 6.0采用可视化的集成开发环境和面向对象的程序设计思想，具有简单易学、软件费用支出低、功能强大、见效快等特点。

2.1.1 Visual Basic 6.0的语言特性

VB的中心思想就是便于程序员使用。因此，VB引入了GUI系统，使用这个系统可以十分容易的建立一些简单的应用程序，同时又可以用它对一些复杂的程序进行开发。VB是一种面向对象的“可视化”的编成软件，VB的程序很大一部分是它提供的各种控件的有机组合，程序开发者可以对这些组件的属性和方法进行选择，并且由于许多组件的一些属性和方法已经默认定义在了组件内，所以程序开发者完成一个简单的程序所需要写的代码将变得很少。很多时候，只是一个词或者一句话就可以实现一个功能。虽然VB程序的性能问题在过去的版本中一直被大家所诟病，但是随着VB的不断更新和计算机计算速度的增加，有关VB程序性能问题的争论也已经越来越少。

VB可以通过拖放的形式来实现一个程序窗体控件的改变或增加。在VB主界面的控件工具箱内摆满了可供使用者使用的各种控件（比如按钮或者文本框)。我们可以单独设置每一个控件的事件和属性。同时在控件创建的时候VB会提供它默认的事件和属性，使用者也可以按自己的要求进行更改。很多的属性值也不是固定不变的，在程序运行时候它们会随着用户的动作和修改而改动，这样就形成了一个动态的程序。

VB的程序与Windows操作系统十分相像，包含一个或多个窗体，或者一个主窗体和多个子窗体。有些功能性的对话框窗口（比如仅有关闭按钮的窗体）可以用来实现弹出功能供用户选择是否实现某项功能。

VB程序对大小写不敏感，这和很多语言都不一样。但是VB程序能将关键词自动转换到到标准大小写状态，在默认情况对大小写敏感的只有字符串的比较，但是，使用者可以选择关闭这个功能。

VB使可以大量的兼容许多第三方控件。同时，VB为这些控件提供了建立使用和重用的方法，但是由于存在语言问题，很难由一个应用程序创建另外一个。

2.1.2Visual Basic 6.0的配置要求

Visual Basic 6.0配置的相关基本要求（最低配置要求）如下：

●操作系统：Microsoft Windows NT 3.51或Microsoft Windows95,或两者的更新版本。

Microsoft Internet Explorer 4.01或更新的版本（4.01版的Service Pack 1或对DHTML应用程序开发者的更高版本，以及对这些应用程序的最终用户的4.x版本）。

●处理器：Pentium （R）90MHz或更高的微处理器。

●内存：对于Windows 95需要24MB的内存，对于Windows NT则需要32MB的内存。一个CD-ROM驱动器。

●磁盘空间要求：

标准版本：典型安装48MB,完全安装80MB。

专业版：典型安装48MB.完全安装80MB。

企业版：典型安装128MB,完全安装147MB。

附加部件（如果需要）:MSDN〔用于文档）:67MB,Internet Explorer4.x:大约66MB。

2.2 SQL sever 2005 简介

SQL sever 2005是一个关系数据库管理系统。我们用于该同业对标指标管理系统的数据库开发部分。

2.2.1 SQL Server 2005数据库特点

（1）SQL Server提供了可以使系统管理、操作更为方便直观的丰富的图形管理工具。SQL Server Management Studio是一个基于GUI的集成管理工具，利用它可以实现SQL Server服务器的配置、数据库和数据库对象的管理、数据的备份与恢复、任务和管理警报的调度、实现数据的复制和转换等操作。此外，SQL Server为简化用户操作，增强系统的易用性还提供了SQL查询分析器、SQL事件探查器、SQL Server 服务管理器和多种操作向导等图形界面管理工具。

（2）SQL Server为了达到最优性能，减轻管理员工作引入了动态自动管理和优化功能。该功能的引入使数据库管理员即使不做任何设置，SQL Server也能够在运行过程中根据环境配置和用户访问情况动态自动配置。

（3）SQL Server 提供充分的Internet技术支持。Internet网络现如今已经与我们的生活获取信息的重要渠道。SQL Server保留了前期版本中的“Web助手”，同时增加了支持HTTP和XML技术，这使得SQL Server在数据挖掘和分析服务领域的应用得到扩展。

（4）SQL Server 提供的编程接口工具十分丰富，包括如Transact-SQL、嵌入式SQL（ESQL）等开发工具，这使用户可以更加灵活开发SQL Server数据库应用程序。此外，SQL Server 2005还支持通过OLEDB、ODBC、ADO等接口访问SQL Server 数据库。

（5）SQL Server 的伸缩性和可靠性十分优秀。这使得SQL Server 2005既能在Windows桌面操作系统下流畅运行，同时在在服务器操作系统（包括如Windows NT 和Windows 2000）、单CPU计算机、对称多处理系统下SQL Server也能够不负众望。

所以SQL Server不仅能够满足桌面应用，同时也可满足对于像大型企业分布式应用等不同层次用户的要求。

2.2.2 SQL sever 2005的配置要求

SQL sever 2005的配置相关要求如下：

●支持的操作系统：Windows 2000 Service Pack 4;Windows Server 2003 Service

Pack 1;Windows XP Service Pack。

●具有Intel Pentium III 600 MHz（或同等性能的处理器）或更高处理器（建议使

用 1 GHz 或更高的处理器）的计算机。

●最低192 MB 的RAM（建议使用512 MB 或更高的RAM）。

●525 MB 的可用磁盘空间。

第三章系统分析

本设计系统要求一个功能比较完善的供电公司同业对标指标管理系统。配合企业发展战略进行供电公司同业对标指标体系的建立，具有很强的实用性。

3.1 系统及需求分析

3.1.1 系统需求

经过调研，我们得到该系统需要实现以下功能：

*具有良好地人机界面；

*数据录入、修改方便，支持多条件修改，数据稳定性好；

*数据查询方便，同时支持多条件查询；

*支持多种数据处理方式，且数据的计算都有计算机完成，尽量减少人工干预； *系统的用户较多，要求有良好的权限管理；

3.1.2 需求分析

这是一个飞速发展的时代，科学技术日新月异。目前，计算机技术在我们的日常生活中也已经占据着越来越大的比例。它能够代替人做各种重复、繁琐的劳动，并且拥有操作简单、可信度好、不易出错等优点，大大减少了不必要的人力消耗，提高个人的工作效率。供电公司同业对标指标管理是每个供电公司开展对标管理所必须面临的问题。所以，如何开发一个界面友好、应用简单、数据安全性好、容易操作的管理系统就成为非常重要的技术问题。

供电公司同业对标指标管理系统是通过了解供电公司的管理现状以及同业对标工作的发展趋势。建立先进的同业对标指标信息管理平台，快速、准确地收集各部门同业对标指标数据，将供电公司同业对标工作全面信息化。采用最新的信息技术和科学的统计方法进行指标分析，为供电公司实现对同业对标指标的量化分析和指标的科学化管理进行新的探索。

3.2 可行性分析

同业对标被称为“现代三大管理方法之一”，特别对于供电公司对标工作的开展已经是刻不容缓。供电公司同业对标指标管理系统的应用对象单一，且涉及内容并不复杂，数据内容简单。适合采用数据库系统。在技术难度方面，由于有指导老师的指导和相关参考文献，并且Visual Basic 6.0 与SQL sever 2005都具有简单易学的特点，并且参照其他管理系统的设计，因此完全可以实现。

3.2.1 经济可行性分析

21世纪是信息时代，社会飞速发展。同业对标从20实际70年代末80年代初诞

生以来，经过多年的完善现在已经成为各大公司管理系统中必不可少的一部分。对于供电公司开展同业对标工作也已经成为公司管理的重要组成部分。并且随着社会发展，数据库管理系统已经成为人们管理庞大信息数据必不可少的工具。在当今信息时代，国防建设和国民经济、社会发展都离不开管理系统，管理系统也无处不在。

软件产业也是一个新兴产业，尽管起步晚，但是发展迅速，已经成为增长最快的产业，是具有高投入、高产出、无污染、低能耗的绿色产业。供电公司同业对标指标管理系统是一个基于供电公司同业对标指标数据库的一个管理系统，对已经使用的类似的系统进调查分析、类比，本课题具有的特点：开发工作量小，可以有两个人合作开发或一个人独立开发，开发周期短，有熟练的开发人员一个月就可以完成系统的开发与测试。

3.2.2 技术可行性分析

从技术方面来说，Visual Basic6.0是一个面向对象的快速应用开发工具，是数据库最优秀的开发工具之一。Visual Basic6.0完全支持面向对象的开发，它拥有多种数据库接口，可以非常方便地连接的各种数据源，通过Visual Basic 6.0的数据库控件即可轻松地查询和更新后台数据库中的数据。

Visual Basic6.0基于组件的开发增强了面向对象的技术，他提供一个更有效的管理、封装、重用和扩展企业规则和处理的高层途径。在数据操作方面，选择灵活、易用的SQL server 2005数据源。

3.3 系统功能流程图

本系统的功能流程如图3.1所示：

图3.1系统功能流程图

第四章系统设计

4.1 系统功能分析

4.1.1系统实现的功能

供电公司同业对标指标管理系统的设计功能是为了实现对供电公司同业对标指标数据的管理功能。从而实现“用指标评价企业，用业绩考核企业”的目标。

系统的功能分析是在系统开发的基础上完成的。本设计中的供电公司同业对标指标管理系统实现的主要功能如下：

<1>实现对供电公司同业对标指标的管理，如各指标数据的录入、查询、修改等。

<2>设置指标的计算方法。进而对指标及报表数据进行计算并用不同的算法展现，如展现指标的平均值、中位数、去年同期值、指标的增长特征等。

<3>对指标报表进行灵活的查询分析，如时间序列分析等。

<4>设置指标的上下界。对超过界限的指标进行预警。

<5>进行严密的权限控制机制。包括实现用户、角色、权限、日志等的管理功等。

4.1.2 系统的功能模块

根据系统系统的功能分析得到系统应该具有的功能模块图：

图4.1 系统具有的功能模块图

4.2 数据库设计

本系统的数据库开发部分选用SQL sever 2005数据库，要求建立供电公司同业对标指标数据库（这里用GDGS表示），由于同业对标指标分为安全管理、资产经营、营销服务、电网运行、人力资源五个方面。实际的系统设计需要对这五方面分别设计，但由于这几个方面在系统实现时方法相同，本系统的设计有代表性的选取电网运营方面建立名为电网运营指标和电网运营指标信息的表的两个表。用户登录与添加、修改用户与密码的表为users。

4.2.1 数据库的创建

创建数据库需要用到SQL sever 2005 的Microsoft SQL Sever Management Studio，打来运行Microsoft SQL Sever Management Studio进入如下图所示界面：

图4.2 Microsoft SQL Sever Management Studio运行界面

在数据库文件夹图标右键选择新建数据库，数据库名为GDGS。

4.2.2 数据表的创建及表的物理结构

在对象对象资源管理器中打开新建的数据库，如下图：

图4.3 对象资源管理器

在表文件夹处右键新建数据表用户信息表（users）表的物理结构如表4.1

列名数据类型允许空

用户名Varchar（50）否

密码Varchar（50）是

表4.1 用户信息表的物理结构（users）

在建立用户信息表是需要在数据表中输入一条系统的初始登录信息，在本系统的设计中初始用户信息为：用户名“jdevils”；密码“jing205318”。

在同业对标指标数据表的设计中由于指标分为五个方面，但这五个方面建立的表的结构都是相同的。都分别需要建立一个指标信息表和一个指标的数据管理表。其表的物理结构如下表4.2和4.3所示。

列名数据类型允许空

指标名称Nvarchar（50）是

报送周期Char（10）是

表4.2 指标信息表的物理结构

列名数据类型允许空

指标名称Nvarchar（50）是

指标单位Char（10）是

报送时间Datatime是

报送周期Char（10）是

指标大小Float是

表4.3 指标数据管理表的物理结构

在系统的实际运行中需要用到的表如下图4.4，在本设计中只选取users、电网运行指标和电网运行指标信息三个表。

图4.4 系统实际需用的数据表

4.2.3 创建ODBC数据源

本系统的设计需要通过ODBC数据源来实现程序对数据库的访问。本设计在Windows 7操作系统下需要电脑中打开“控制面板”将图标的查看方式改为大图标即可看到“ODBC”选项，打开ODBC数据源，如图4.4所示，在对话框中创建文件DSN。本设计中需要创建的文件DSN名为gdgs.dsn，登入方式选择“使用用户输入登入ID和密码的SQL Sever验证”，登入ID为sa，密码为sa，默认连接的数据库为GDGS。

图4.4 ODBC数据源管理器

第五章系统的实现

前面使用SQL Sever 2005建立好数据库后，有关数据库的后台工作已经完成。下面需要使用Visual Basic 6.0 来实现供电公司同业对标指标管理系统各个模块的构建。

5.1创建工程-供电公司同业对标指标管理系统

启动Visual Basic 6.0，在如图5.1所示的工程模版中选择标准EXE，系统会生成一个Form窗体，并在右侧的工程资源管理器中将这个工程命名为“供电公司同业对标指标管理系统”。

图5.1 新建工程

5.2 系统的主体窗口

系统登入需要进入如图5.2所示的系统主体界面，系统所有功能都需要通过主体窗口上的菜单来打开实现。

5.2.1主体窗口的设计过程

在工程资源管理器中新建一个Form窗体，保存名称为“系统界面”。需要添加的控件有1个Lable控件和1个Picture控件。窗体菜单使用菜单编辑器来完成。

图5.2 系统的主体窗口

5.2.2 主体窗口菜单的设计

主窗口菜单的设计可以通过Visual Basic 6.0提供的菜单编辑器来完成。使用菜单

编辑器可以十分容易的完成菜单的设计工作，如图5.3所示。

图5.3 利用菜单编辑器设计主窗体菜单

5.3 公用模块的创建

在系统设计中需要用到一些在本系统中常用的自定义过程、自定义函数和全局变量/常量等。在Visual Basic 6.0中可以通过建立一个公用模块来对这些自定义过程、自定义函数和全局变量/常量等进行声明。在项目资源管理器中新建一个Module，保存为Module1.bas。

在公用模块中对以下3个函数进行声明：

<1>添加自定义函数ExecuteSQL（用于执行各种SQL语句）

Public Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset

Dim cnn As ADODB.Connection

Dim rst As ADODB.Recordset

Dim sTokens() As String

sTokens = Split(sql)

Set cnn = New ADODB.Connection

cnn.Open ConnectString

If InStr("INSERT,DELETE,UPDATE ", UCase$(sTokens(0))) Then

cnn.Execute sql

MsgString = sTokens(0) & "query successful "

Else

Set rst = New ADODB.Recordset

rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic

Set ExecuteSQL = rst

MsgString = "查询到" & rst.RecordCount & "条纪录"

End If

ExecuteSQL_Exit:

Set rst = Nothing

Exit Function

Set cnn = Nothing

ExecuteSQL_Error:

MsgString = "查询错误: " & Err.Description

Resume ExecuteSQL_Exit

End Function

<2>在ExecuteSQL函数中使用到了Connect String函数，该函数用于连接数据库，代码如下：

Public Function ConnectString() As String

ConnectString = "FileDSN=gdgs.dsn;UID=sa;PWD=sa"

End Function

<3>定义Testtxt函数（用于检查文本框内容是否为空）

Public Function Testtxt(txt As String) As Boolean

If Trim(txt) = "" Then

Testtxt = False

Else

Testtxt = True

End If

End Function

5.4 系统用户管理模块

系统的用户管理模块主要功能：

·用户登录

·用户注册

·修改密码

5.4.1 用户登录窗体的创建

系统启动以后，首先会进入如图5.4所示的用户登录窗体，用户需要输入用户名与密码。然后登录。如果用户3次输入都不正确，将自动退出系统。

图5.4 用户登录窗体

用户登录窗体中放置了三个Lable控件来标示窗体信息；两个TextBox控件来输