毕业设计（论文）-计算机控制系统的设计与研究.doc

河北工程学院毕业设计（论文）第1章 绪 论随着计算机科学与自动化水平的不断提高，在各种应用领域都大量采用计算机控制系统。计算机控制系统的应用使得科学研究、工农业生产、工艺实践的效率大大提高，同时也大幅度提高了产品成果的质量。计算机控制系统从结构上讲都是类同的，它包括计算机组成的控制器和被控对象。在大型管理系统中，采用大中型机；在一般控制系统中采用微型机而功能较专的控制系统中采用单片机。由于大量控制系统的任务较专业化，故大量采用单片机，又由于单片机的功能和处理能力等方面的限制，往往又需要把采集或初步处理过的数据送到上位机处理，因此单片机与微机的联合处理系统在现代化的进程中有着极其重要的和广泛的应用。无论在工业、农业、交通运输业、航空航天、化学、建筑、军工等领域，都有自动控制系统所起的作用。自动控制技术的应用使各种被控对象产生明显令人惊慕的结果：有效减轻工人的劳动强度，改进了产品质量，提高生产效率，改善工作环境，减少了能量的损耗，增加了资源材料的利用率。特别是20世纪80年代以来，控制理论进一步发展和计算机在控制系统中的应用，使自动控制取得了辉煌成果。无论是宇宙飞船、恒星系统、通信、智能机器人还是工业上的量子化工业过程控制都反映了自动控制的关键作用。本系统即是针对嵌入式地磅控制系统编制的上位机的自动化控制软件，主要实现电站地磅储煤管理、统计的自动化。本系统是在张鹏老师的指导下，由信电学院2001级 何树磊完成，由于时间仓促，且水平有限，在设计过程中难免存在不妥之处，望各位老师、同学批评指正。第2章系统分析第2.1节 需求分析随着国民经济和消费水平的不断提高和电子信息化的不断发展，人们对电的需求与日俱增。对于一个火力发电站，从某种意义上讲人们对电的需求就是电站对煤的需求。然而一个中型发电站对煤的日需求量就以十万吨计，如何有效管理煤的进货渠道和统计储量情况，地磅就成了对火力发电站储煤管理的焦点。随着计算机科学与自动化水平的不断提高，实现计算机电站地磅控制系统已非难事，也确实可行，而且已经出现了不少嵌入式地磅控制系统，实现了单片机对地磅自动化控制，然而针对电站地磅储煤控制的上位机控制系统仍然为数不多，有较好的开发前景。同时计算机电站地磅控制系统可有效减轻工人的劳动强度，提高生产效率，改善工作环境，对电站的生产管理起到积极的作用。本系统采用dilphi7.0、sql server 2000、以及其它的辅助软件html helpworkshop等设计完成，经过设计组指导老师和同学们的调研和分析认为是可行的。第2.2节开发工具简介2.2.1 delphi简介delphi是borland公司推出的microsoft windows和windows nt下的快速应用程序开发（rad）工具，它是目前创建windows应用程序最强大的开发工具，它具有c+的强大功能和visual basic的易用性，友好的开发环境还能够让用户更快、更准确地编写代码。delphi是建立在object pascal语言基础之上的，它兼有visual basic的易用性和c+的强大功能。delphi是第一个综合了可视化开发环境、编译后的可执行代码、优化的源代码编译器、面向对象的程序设计和强大的数据库引擎的windows开发工具。delphi在数据库编程方面具有强大的功能，支持从access到sql server多种数据库类型，提供了单层到多层体系结构数据库编程、数据库分布式编程、数据库的internet编程等功能。 delphi实际上是pascal语言的一种版本，但它与传统的pascal语言有天壤之别。一个delphi程序首先是应用程序框架，而这一框架正是应用程序的“骨架”。在骨架上即使没有附着任何东西，仍可以严格地按照设计运行。您的工作只是在“骨架”中加入您的程序。缺省的应用程序是一个空白的窗体(form)，您可以运行它，结果得到一个空白的窗口。这个窗口具有windows窗口的全部性质：可以被放大缩小、移动、最大最小化等，但您却没有编写一行程序。在空白窗口的背后，应用程序的框架正在等待用户的输入。由于您并未告诉它接收到用户输入后作何反应，窗口除了响应windows的基本操作(移动、缩放等)外，它只是接受用户的输入，然后再忽略，程序员所需做的就是添加程序代码。因此，可以说应用程序框架通过提供所有应用程序共有的东西，为用户应用程序的开发打下了良好的基础。2.2.2 delphi的数据库特性delphi在window3.1以上版本的系统环境下运行，目前具有两个版本：delphi的标准版本和客户/服务器版本。delphi可以访问多种数据库管理系统的数据库，凭借窗体(forms)和报表(reports)，bde(borland database engine)可以访问诸如paradox、dbase、本地interbase 服务器的数据库，也可以访问远程数据库服务器上的数据库(如oracle、sybase、informix等客户/服务器数据库中的数据库)，或任何经odbc(open database connecticity) 可访问的数据库管理系统中的数据库。 跟其他的应用程序一样，delphi提供了许多部件以方便地创建数据库应用程序。数据库对象的数据成员既可在设计阶段设置，也可在运行阶段通过程序代码进行设置。delphi的部件板上提供了两页数据库应用程序开发中所要使用的部件： (1) 数据访问页（data access page）上的部件用于直接访问数据库中的数据库表。 (2) 数据控制页（data control page）上的部件用来与用户交互，显示、修改数据库中的数据。数据库应用程序首先是利用delphi提供的数据库部件与bde、ado建立联系，然后再通过bde、ado与数据库联系。同时，支持sql编程也是delphi的一个重要特征，这也是体现delphi作为一个强大的数据库应用开发工具的一个重要标志。sql语言作为关系数据库管理系统中的一种通用的结构查询语言，已经被众多的数据库管理系统所采用，如oracle、sybase、informix等数据库管理系统，它们都支持sql 语言。delphi与使用sql语言的数据库管理系统兼容，在使用delphi开发数据库应用程序时，我们可以使用sql语言编程，进行数据库操作。delphi全新的可视化编程环境，为我们提供了一种方便、快捷的windows应用程序开发工具。它使用了microsoft windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(object-oriented language)、当今世界上最快的编辑器、最为领先的数据库技术。对于广大的程序开发人员来讲，使用delphi开发应用软件，无疑会大大地提高编程效率，而且随着应用的深入，您将会发现编程不再是枯燥无味的工作delphi的每一个设计细节，都将带给您一份欣喜。2.2.3 delphi串口通信delphi 是新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度快等特点，delphi系列开发工具在国际各媒体上曾获得过三十多项大奖，是全球公认的快速应用开发工具技术的先驱者，他越来越在构架企业信息系统方面发挥着重要作用。delphi串口通信主要有三种解决方案，以实现接收和发送数据的功能。(1) 使用activex控件或其它第三方组件由于delphi中没有串口控件可用，所以首先需要把activex控件mscomm加到元件选项板上。这是一个非常好的控件它不仅能对串口进行操作，而且还可以对modem进行控制。通过设置页可选定进行数据传输的通信端口和端口的波特率、奇偶校验、数据位和停止位，通信时每传输一个字符都将触发响应事件，在通信页“传输显示”位置可看到当前正在进行传输的数据。同时当出现回车换行符时将整行内容显示在memdisplay新的一行中，而全部接收的内容还将存在一个文件中。当然还有许多串口控制的activex控件，有控件用是方便，但是是否说没有控件就不能用delphi本身解决问题呢。那么就请来看一下下面的解决方案：(2) 使用行间汇编对于硬件的控制，汇编语言是最方便的了，而delphi中又允许使用行间汇编那么来看一下怎样使用行间汇编接收下位机传来的数据，根据实际情况中双方通信可能是约定传送字符的个数，也可能约定的是规定好的起始字符和结束字符，或是多种条件同时约定待各种条件全部满足时才表示完成一次成功的接收否则如有一个条件未满足都表示接收失败需要重新传送。这些约定在使用了行间汇编的delphi程序中都可实现。(3) 用delphi调用可执行应用程序采用其它编程技术编制的串口通信程序在完成数据传输后将数据保存到磁盘上，然后用delphi对数据内容进行处理。通过在delphi中与其他编程技术协同工作也不失为一种解决问题的好方法。2.2.4 sql server 2000简介microsoft sql server 2000 在microsoft sql server 7.0 的基础上新增加了许多功能使用户能，更方便快捷地管理数据库开发应用程序microsoft sql server 2000 使用了工业界最先进的数据库构架它与microsoft windowsdna 2000 平台紧密集成具有完全的web 功能通过对高端硬件平台以及最新网络和存储技术的支持可以为最大的web站点和企业级的应用提供可扩展性和高可靠性使用户能够在internet 商业领域快速创建应用从而减少了建立电子商务应用商业智能数据仓库和商业线路应用所需的时间此外microsoft sql server 2000提供了重要的安全性方面的增强保护防火墙内和防火墙外的数据microsoftsqlserver 2000支持强有力的灵活的基于角色的安全拥有安全审计工具并提供高级的文件加密和网络加密功能microsoft sql server 2000 在数据库服务器自动调整和自动管理技术方面在数据库领域中处于领先地位使客户可以集中精力处理商业战略上的问题而不是去细微调整数据库服务器的各项参数。sql server 2000是一个丰富且功能强大的数据库管理系统 。除此之外，其用户界面友好并且直观、使初学者不受编写代码之苦就能够学习工具的功能。其工具界面与标准windows界面非常类似，具有状态栏、图标、树状视图控件、单选按钮等。这些熟悉的界面使以前即使从没有见到过这些应用程序的人也能够很快地了解一些基本的功能。2.2.5 使用企业管理器研究数据库对象 企业管理器是microsoft管理控制台(mmc，microsoft management conso1e)的一个插件，插件是运行在mmc中的部件，它们不能独立运行，而必须包含在mmc中。不同的插件用于添加额外的管理应用程序。例如，mmc不仅支持sql server 2000，而且也支持internet information server(iis)和microsoft transaction sverver(mts)，以及其他大量的应用程序插件。mmc组成一个庞大的window网络服务器管理工具。 sql server企业管理器是主要的数据库管理、创建和维护控制程序。它提供mmc形式的界面，企业管理器中的图形用户界面工具允许备份数据库、执行调度任务、创建和管理用户帐户、绘制数据库关系图。 sql server企业管理器提供一个树状视图控件，展开后可以显示安装在 sql server 2000运行实例下的数据库。你可以直观地看到数据库及数据库中的对象，包括表、存储过程、用户等。只是简单地点击几下鼠标，就能够深入到每个数据库中的具体对象，并读取详细信息，例如 可以读取表权限、编写存储过程脚本程序、删除或重命名视图。企业管理器中的对象树如图11所示。图11企业管理器的对象树 企业管理器使你能够快速而容易地了解sql server 2000实例活动及其中对象，你能够毫不费力地执行调度任务和其他数据库管理功能，包括(但不限于)管理服务器安全登录、导入和导出数据、配置数据库复制。2.2.6 了解查询分析器 使用查询分析器能够直接针对一个数据库输入介transact-sql语句。允许你在表上执行select语句、存储过程或通过transact-sql创建视图。 但是，这并不是查询分析器所提供的所有功能。还可以以义本或表格方式查看所执行查询的运行结果。用表格方式时，可以将结果保存到以逗号分隔的列表中，如果需要导出结果，并将这些数据导入到excel一类的统计包中来建立曲线图时，这一功能就非常重要。 查询分析器能够为transact-sql语句创建执行计划这意味着我们能够分析正在执行的劣质全询，可以优化查询中过分消耗资源的部分，而又不影响查询结果。执行计划提供sql server 2000怎样使用表和索引检索查询结果信息。结果可用3种方式显示： 图形、文本或简明文本格式。2.2.7 html help workshop简介 从windows 3.0 到 windows95，系统使用的帮助文件一直是 .hlp 格式，在安装 windows98 以后，我们发现系统中增加了一种 .chm 格式的帮助文件，与 .hlp 文件相比 .chm 文件有很大的改变，功能更加强大，支持的媒体文件更多，使用更便捷。.chm 文件可用来制作软件说明书、产品介绍、学习教程、电子图书、报刊的电子版本、个人资料的整理等等。chm 文件是微软 1998 年推出的基于 html 文件特性的帮助文件系统，以替代早先的 winhelp 帮助系统，在 windows98 中把 chm 类型文件称作“已编译的 html 帮助文件”。被internet explorer 支持的 javascript、vbscript、activex、java applet、flash、html 图像文件（gif、jpeg、png）、音频视频文件（au、midi、wav、avi）等等，chm 同样支持，并可以通过 url 地址与因特网联系在一起。制作 chm 文件的最佳工具是微软的 html help workshop, 相对来讲制作 chm 文件比较简单，大量的工作实际上是在前期制作 html 文件上，你在 chm 文件中所看到和听到的，与你在浏览器中的结果是一样的。你可以专门为制作 chm 文件而编制 html，也可以直接利用现成的小型个人主页快速做成 chm 文件以便向外发放，所不同的是，在个人网站上每个 html 文件之间必须由超级链接相连，而用来制作 chm 文件的 html 文件组里，允许有独立的 html 文件，用户可以通过导航嵌窗来实现对其访问。html help workshop中几个有用的概念：（1）项目文件project - .hhp文件：包含创建 chm 文件所需的 html 文件信息、目录表文件信息、索引文件信息、窗口属性、搜索、书签定义等内容。一个chm文件对应有一个项目文件。（2）目录表文件contents - .hhc文件：包含目录表中每个标题与 html 文件的关联关系。目录表就好像是一本书的目录。该文件不是必需的，如果创建的 chm 文件没有导航嵌窗，就可以不创建 .hhc 文件，这样一来 html 中的跳转就要借助其内部的超级链接了。（3）索引文件index - .hhk文件：一些专业书籍在其后面一般有个索引表，利用已经排序的字母、单词、词组来帮助读者快速定位到需要的一个或几个位置。在chm 中也可以使用索引。索引文件中就包含每个关键词（keyword）与 html 文件的对应关系。与目录文件中的标题不同的是，一个关键词可以对应多个 html 文件。索引文件也不是必需的，如果你的 chm 文件的信息不是太复杂，不创建也行。（4）搜索：要在 chm 文件中能使用全文搜索功能，只要在创建 chm 文件时打开一个开关就行了，这样只要在搜索框中输入要搜索的内容，chm 就会把全部包含该内容的 html 文件列出来，并把搜索内容高亮显示。但是如果使用搜索功能，chm 文件会稍大一点。（5）书签：在我们阅读图书时，有时会在一些地方放个书签，以便下次能快速找到作标记的地方，在 chm 中同样允许你在感兴趣的地方作标记。（6）窗口属性：是指 chm 文件的介面窗口。你可以自由定义窗口位置、大小、按钮、导航嵌窗、显示模式等。目录、索引、搜索和书签是 chm 文件左边导航嵌窗中的四个导航选项，任何一个都可以随意打开或关闭，当四个功能全部关闭时，导航嵌窗将自动消失。因为html help workshop 对chm 的控制非常灵活，所以你可以制作出功能强大的 chm 文件，也可以制作出非常简单的 chm 文件。另外在制作中我们需要指明的是 html 文件，而图形、视频、声音等文件不需要指明位置，html help workshop 会根据 html 文件中的链接找到它们。第3章 系统开发设计第3.1节总体结构设计本系统的总体结构见图31：自动过衡用户管理汇总统计合同设置县别货点主界面车牌号帮助初始化上报统计图31 (主功能模块图)第3.2节数据库结构设计后台数据库总体结构(见图32)用户表过衡表车牌表合同表县别表database单位表货点表图32(数据库总体结构)第4章 系统设计介绍第4.1节 系统结构介绍本系统采用的是 microsoft sql server2000作为执两用中数据库服务器。具体说明如下:4.1.1 用户表见表414.1.2 过衡表见表424.1.3单位表见表434.1.4 单位表见表444.1.5 合同表见表454.1.6 县别表见表464.1.7 货点表见表474.1.8 车牌表见表48第4.2节 系统功能结构图系统主要功能模块的划分见图41主界面管理员功能模块司磅员功能模块用户管理汇总统计合同设置县别货点车牌号初始化上报统计自动过衡用户管理断开数据库服务器帮助注销公有功能模块退出连接数据库服务器图41 （系统功能结构图）第5章 系统操作说明5.1 连接服务器、登录当启动系统后进入如下画面时(图51) 点击回车或按连接数据库服务器键。图51（主界面）点击回车或按连接数据库服务器键后，进入连接数据库服务器对话框(如图52)如图52连接由于本系统采用的是动态连接数据库技术，用户只需在图52的对话框中输入数据库服务器的名称及所用数据库和连接数据库服务器所需的用户名称及密码，然后敲回车键，系统自动组织连接数据库的参数并查找相应的数据库用品进行连接，如正确无误点击回车或按登录键则出现登录系统界面(如图53) 图53（登录）从选择框中选择自己的用户名称（或按键选择或直接输入），用户口令，然后敲回车键，系统自动查询数据库并与数据库中存储的用户信息进行比较，如存在用户信息且密码正确无误则，则进入系统。5.2 用户设置从快捷栏中选择用户设置按钮，单击进入；（如图54）图54（用户设置）（1） 增加用户：单击添加按钮，在用户名称栏中输入用户名称，在用户口令中输入用户密码，单击确定按钮。（2） 删除用户：单击删除按钮，系统提示确认，如果确要删除，单击确定，即可删除。否则单击取消；（3） 修改口令：单击编辑按钮，用户把密码修改后单击确定即可。5.3 自动过衡从快捷栏中选择自动过衡按钮，单击进入（如图55）图55（自动过衡）(1） 称毛重当显示重量的框中不为0时，且发出提示信号音，稳定灯显示为绿时，在票号栏中输入调运单票号，票号为7位，在车牌号栏中输入小于15 位车牌号，在货点编号中选择货点编号，系统自动进行转换，输入合同编号（四位数）时售煤单位由系统自动输入，在扣其它栏中输入要扣的重量数为千分数，输入进场证，单击保存毛重记录在下表中显示。称毛重工作完成。(2）称皮重按称皮重按钮，在右上角出现称皮重的票号栏，在其中输入需要称皮重的票号，系统自动调出该记录，当显示重量的框中不为0时，且稳定灯显示为绿发出信号音时，单击保存皮重即可保存皮重。(3）计算净重及打印单击计算净重按钮求得净重。单击打印按钮打印出票据，打印工作完成；5.4 合同设置 从快捷栏中选择合同设置按钮，单击进入如下界面；（如图56）图56（合同设置）5.4.1单位设置（1） 增加：单击添加按钮，在单位编号栏中输入单位编号，在单位名称栏中输入单位名称后，单击确定按钮。（2） 删除：单击删除按钮，系统提示确认，如果确要删除，单击确定，即可删除，否则单击取消；(3） 修改：单击编辑按钮，用户把单位名称修改后单击确定即可；5.4.1合同设置（1） 增加：单击添加钮，在合同编号栏中输入合同编号，在合同名称中输入合同名称。（2） 删除：单击删除按钮，系统提示确认，如果确要删除，单击确定，否则单击取消；即可删除。（3） 修改：单击编辑按钮，用户把合同名称修改后单击确定即可。5.5 县别/货点设置从快捷栏中选择县别货点设置按钮单击进入如下界面；(如图57) 图57县别货点设置5.6.1县别设置（1） 增加：单击添加按钮，在县别编号栏中输入县别编号，在县别名称栏中输入售煤单位名称后，单击确定按钮。（2） 删除：单击删除按钮，系统提示确认，如果确要删除，单击确定，即可删除，否则单击取消；(3） 修改：单击编辑按钮，用户把县别名称修改后单击确定即可；5.6.2 货点(1） 增加：单击添加按钮，在货点编号栏中输入货点编号，在货点名称栏中输入货点名称，在扣水栏中输入扣水数，在扣石栏中输入扣石数,单击确定按钮。(2） 删除：单击删除按钮，系统提示确认，如果确要删除，单击确定，即可删除。否则单击取消；(3） 修改：单击编辑按钮，用户把货点名称，扣水数，扣石数修改后单击确定即可保存记录。5.7 车牌号设置从快捷栏中选择车牌号设置按钮，单击进入输入界面(如图5.8) 图58(车牌号设置)（1） 增加：单击添加按钮，系统自动增加对应售煤单位的编号， 在车牌号中输入的车牌号，单击确定按钮。（2） 删除：单击删除按钮，系统提示确认，如果确要删除，单击确定，即可删除。否则单击取消； （3） 修改：单击编辑按钮，用户把售煤单位车牌号修改后单击确定即可；5.8 上报统计进入方法：从快捷按钮中选择上报统计按钮单击，进入上报统计界面；(如图5.9) 图59上报统计使用方法：单击选择存储路径，选择所要保存数据的路径，选择路径后，单击开始按钮，系统自动开始导出excel报表。5.10 注销用户当交接班时，当前用户需要注销，方法是：退出自动过衡界面，然后按注销键。5.11 退出退出系统单击退出按钮，系统自动退出系统。第6章 典型技术的实现第6.1节 数据库连接技术本系统采用的数据库访问机制是ado，ado 支持用于建立基于客户端/服务器和 web 的应用程序的主要功能。其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。ado 同时具有远程数据服务 (rds) 功能，通过 rds 可以在一次往返过程中实现将数据从服务器移动到客户端应用程序或 web 页、在客户端对数据进行处理然后将更新结果返回服务器的操作。ado定义了delphi系统与各种类型数据库的接口，如oracle、sql server、sybase、access、dbase、paradox、interbase等。它可以支持很多数据库类型，这样就可以避免为每种数据库开发一种数据库连接组件，只需要用一种公用的连接组件就可以连接不同的数据库。本系统就是采用一个公用的连接组件adoconnection实现与数据库的连接，为了更加方便灵活还采用动态连接窗体，即在进入程序后根据用户输入的信息连接到指定的数据库服务器。第6.2节 串口通信技术 本系统就是采用mscomm控件进行串口的数据传输的，采用的串口设置为端口号：com1； 波特率：2400； 数据位：8； 校验：n； 停止位：1。开 始串口有数据中断temp=0; /临时变量初始化(data-temp)10该数据在界面上显示读取串口数据data串口通信流程如图61 no yes no yes yes 图61(串口通信流程图)结束语本系统是为电站地磅开发的，集多功能为一体的单机版自动化储煤管理系统，在开发过程中，为了提高用户使用软件的热情，并刺激他们的积极性，本着美观、适用、方便用户的原则，尽最大努力争取作到操作简便，界面友好。但是，其中仍有一些不足之处，这要靠以后的新版本中逐一解决了。致 谢在系统的研制过程中，得到许多人员的极大支持和帮助，在此一并表示衷心的感谢和敬意。参考文献1 张海连、马琳、郑城荣、邢海峰等 delphi 7组件应用实例 电子工业出版社 北京：2003. 72 朱琪、杨正华 delphi 游戏编程导学 清华大学出版社 北京： 2004. 93 赵兰涛、苏彦华等 delphi 串口通信技术与工程实践 人民邮电出版社北京: 2004. 64 microsoftprogramming a microsoft sql server 2000 database北京希望电子出版社北京: 2000.125 dave perkovich, mcdba sql server 2000 all-in-one exam guide, mcgraw-hill companies, 2001附录1程序关键代码：1、连接数据库服务器部分unit login;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, buttons;type tloginfrm = class(tform) groupbox1: tgroupbox; username: tedit; database: tedit; server: tedit; password: tedit; bitbtn2: tbitbtn; bitbtn1: tbitbtn; label4: tlabel; label3: tlabel; label2: tlabel; label1: tlabel; procedure bitbtn1click(sender: tobject); procedure bitbtn2click(sender: tobject); private private declarations public public declarations end;var loginfrm: tloginfrm;implementation uses adolink, main,logon,userset,warehouse,statistics,report,init, contract,car,balance;$r *.dfmprocedure tloginfrm.bitbtn1click(sender: tobject);begin adolinkfrm.adoconnection1.close ; /关闭ado连接 try adolinkfrm.adoconnection1.connectionstring:=provider=sqloledb.1;+password=+password.text+;+persistsecurityinfo=false;+datasource=+server.text+;+userid=+username.text+;+initial catalog=+ database.text; adolinkfrm.adoconnection1.connected:=true; /置连接状态为真 if adolinkfrm.adoconnection1.connected=true then close; adolinkfrm.adoconnection1.open; /打开连接 mainfrm.bitbtn1.caption:=登录#13过衡系统; mainfrm.bitbtn1.enabled:=true; mainfrm.bitbtn2.enabled:=false; mainfrm.bitbtn3.enabled:=false; mainfrm.bitbtn4.enabled:=false; mainfrm.bitbtn5.enabled:=false; mainfrm.bitbtn6.enabled:=false; mainfrm.bitbtn7.enabled:=false; mainfrm.bitbtn8.enabled:=false; mainfrm.bitbtn9.enabled:=false; mainfrm.bitbtn10.enabled:=false; mainfrm.bitbtn11.enabled:=true; mainfrm.bitbtn12.enabled:=true; mainfrm.bitbtn13.enabled:=false; mainfrm.bitbtn14.enabled:=true; mainfrm.bitbtn15.enabled:=true; mainfrm.bitbtn16.enabled:=true; except on excep:exception do /抛出异常 begin adolinkfrm.adoconnection1.connectionstring:=; application.messagebox(数据库服务器不存在或用户名、密码错误,警告,mb_ok+48); end; end;end;procedure tloginfrm.bitbtn2click(sender: tobject);beginclose;end;end.2、用户管理部分unit userset;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, db, adodb, stdctrls, buttons, extctrls, dbctrls, grids, dbgrids, mask;type tusersetfrm = class(tform) groupbox2: tgroupbox; dbgrid1: tdbgrid; datasource1: tdatasource; adoquery1: tadoquery; bitbtn2: tbitbtn; bitbtn3: tbitbtn; bitbtn4: tbitbtn; bitbtn1: tbitbtn; dbedit1: tdbedit; label1: tlabel; procedure formshow(sender: tobject); procedure bitbtn2click(sender: tobject); procedure bitbtn3click(sender: tobject); procedure bitbtn4click(sender: tobject); procedure bitbtn1click(sender: tobject); private private declarations public public declarations end;var usersetfrm: tusersetfrm;implementation uses adolink,logon,pswd,userdel,userinsert;$r *.dfmprocedure tusersetfrm.formshow(sender: tobject);begin if trimright(logonfrm.combobox1.text)=admin then begin with adoquery1 do begin close; sql.clear; sql.add(select * from 用户表 ); open; end; bitbtn2.enabled:=true; bitbtn3.enabled:=true; bitbtn4.enabled:=true; end else begin with adoquery1 do begin close; sql.clear; sql.add(select * from 用户表 where 用户名=+logonfrm.combobox1.text+); open; end; bitbtn2.enabled:=false; bitbtn3.enabled:=false; bitbtn4.enabled:=true; end;end;procedure tusersetfrm.bitbtn2click(sender: tobject);begin label1.caption:=insert; adoquery1.insert; userinsertfrm.showmodal;end;procedure tusersetfrm.bitbtn3click(sender: tobject);begin if trim(dbedit1.text)=admin then application.messagebox(不能删除系统管理员！,警告,mb_ok+48) else userdelfrm.showmodal; end;procedure tusersetfrm.bitbtn4click(sender: tobject);begin label1.caption:=edit; application.messagebox(只能更改用户密码！,提示,mb_ok+64); adoquery1.edit; userinsertfrm.showmodal;end;procedure tusersetfrm.bitbtn1click(sender: tobject);begin close;end;end.3、自动过衡部分unit balance; /自动过衡interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, buttons, grids, dbgrids, extctrls, mask, dbctrls, db, adodb, olectrls, mscommlib_tlb,mmsystem;type tbalancefrm = class(tform) groupbox1: tgroupbox; groupbox3: tgroupbox; dbgrid2: tdbgrid; dbedit3: tdbedit; dbedit4: tdbedit; dbedit5: tdbedit; dbedit8: tdbedit; dbedit10: tdbedit; dbedit11: tdbedit; dbedit12: tdbedit; dbedit15: tdbedit; dbedit16: tdbedit; shpserial: tshape; label1: tlabel; adotable1: tadotable; datasource1: tdatasource; datasource2: tdatasource; label2: tlabel; label3: tlabel; label4: tlabel; label5: tlabel; label6: tlabel; label7: tlabel; label8: tlabel; label9: tlabel; label10: tlabel; label11: tlabel; label12: tlabel; label13: tlabel; label14: tlabel; label15: tlabel; label16: tlabel; mscomm: tmscomm; mmreceive: tedit; panel1: tpanel; datasource4: tdatasource; dbedit1: tdbedit; dbedit2: tdbedit; dbedit17: tdbedit; datasource3: tdatasource; adoquery1: tadoquery; panel2: tpanel; panel3: tpanel; panel4: tpanel; groupbox4: tgroupbox; dbgrid1: tdbgrid; adoquery2: tadoquery; dbedit6: tdbedit; dbedit19: tdbedit; groupbox2: tgroupbox; bitbtn1: tbitbtn; bitbtn3: tbitbtn; bitbtn4: tbitbtn; bitbtn5: tbitbtn; bitbtn2: tbitbtn; dbedit9: tdbedit; label17: tlabel; bitbtn6: tbitbtn; edit2: tedit; adoquery4: tadoquery; dbedit13: tdbedit; dbedit14: tdbedit; datasource5: tdatasource;