毕业设计（论文）-Delphi7.0电脑培训管理信息系统（附源程序）.doc

摘要随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现管理企业势在必行, 计算机作为知识经济时代的产物,已被广泛应用于社会各个行业和领域. 对电脑培训学校而言，全面开发和应用计算机管理信息系统就是近期不能回避的问题。该软件针对电脑培训学校，以解决业务管理为核心，帮助这些学校建立明晰的作业流程和审核机制，增强学校成本分析能力。该系统还能帮助培训学校为学生提供及时、准确和全面的服务，最大限度地实现资源的合理利用，以期达到效率最高化，利润最大化。电脑培训学校需要储存并管理着大量的学员及学校所提供的学员信息、教材和教务信息，要处理大量的输入，修改，查询信息，该软件能解决该问题，并能清晰的显示出所有的信息，并提供管理者权限，供不同管理员查询。根据数据管理的不同主题的需要，分成四大子系统：招生管理系统、教务管理系统、教材管理系统、数据管理系统。该软件运用Delphi7.0为开发工具，以方便实用的Access为数据库平台，Socket实现系统的分布式应用，在使用过程中，用户可以使用Bland公司提供的Socket Server作为后台支持程序，来提供分布式访问。该软件在开发时较好的考虑了网络流量问题，在数据提交处理过程中运用本地数据库作为临时表存数据，然后一次性提交数据，这样减少了数据传转的次数，提高了网络传输的效率。该软件有较高的性能与友好的用户界面，相信用户对此会相当满意。关键字:管理系统；数据流程 ；数据字典全套源程序代码，联系153893706AbstractFly technically along with the calculator to develop soon, the calculator is in business enterprise manage applied universality, make use of the calculator realization management business enterprise power at go necessarily, the calculator be knowledge-based economy for ages of outcome, have already is been apply in the social each profession and realms extensively. Train the school but speech to the computer, overall development and application calculator management the problem that the information system is in the near future and cant get around. That software aims at the computer training school, taking solving the business management as the core, helping these schools to build up the clear in meaning homework process and examine the mechanism, the school cost analysis ability. That system can still help to train the school to pursue studies to living to provide in time, accurate and overall service, carry out the reasonable exploitation of the resources with maximum limit, attain the efficiency with the period tallest turn, the profits maximize.The computer training school need to be store and manage different from the educational administration information, to handle a great deal of importation, modification, search the information, that software can resolve that problem, and can display all information clearly, and provide the governor with the legal power, provide managing persons search of student information, teaching material that a great deal of student and schools provide. According to the demand of different topic that data manage, be divided into the four greatest sub- systems:Solicit students to manage the system, the educational administration management system, the teaching material management system, data management system.In order to develop the tool, that software usage Delphi7.0 take convenient practical Access as the database terrace, the Socket carries out the distribute type application of the system, in use process, the customer can use the Socket Server that company of Bland provide to be used as the backstage support procedure, provide the distribute type interview. That software while develop compare the good consideration the network discharge problem, make use of the native database to be used as the temporary form to save the data in data hand over handle process, then a sex hand over the data, the number of times that reduced the data to spread to turn thus, raised the efficiency that network deliver.That software contain higher function and the customer interface of the amities, believing the customer to will be satisfied with very to this.Key words: management system； the data process； data dictionary目 录1 绪论11.1 问题的提出11.2 用户需求分析21.3 编程语言的选择21.4 数据库的选择32 系统分析与设计42.1系统目标设计42.2系统的需求42.3开发设计思想42.4系统的功能分析52.5系统特征52.6目标系统要求62.7系统的性能62.8功能模块设计63 数据库设计103.1 数据库基础103.2 数据库系统设计与范式设计113.3 数据库需求分析133.4 数据字典分析134系统功能实现174.1 招生管理子系统编码设计174.1.1 用户登录界面编码设计174.1.2登记新学员编码设计204.1.3科目信息查询编码设计224.1.4发布公告编码设计244.2 数据管理子系统编码设计254.3 服务器系统编码设计275 系统测试295.1 测试目的295.2 测试方法295.3 测试用例296 总结及体会31致谢32参考文献331 绪论1.1 问题的提出在现代的现实生活中，随着计算机应用的普及和发展，各行各业都利用计算机实现了办公自动化和自动控制，各种应用软件更是层出不穷，给我们的现实生活带来了许多方便。电脑培训管理信息系统是一个实现电脑学校管理全过程的一个数据库应用系统。功能完善的电脑培训管理管理系统共有四个主要部分组成：招生管理系统、教务管理系统、教材管理系统、数据管理系统。这些系统有各自的强大的功能，它们又紧密的联系相互控制，形成一个完整的系统。该系统结构严谨，功能强大，使电脑培训学校管理工作进一步科学化、系统化、规范化，体现了此系统的功能。对于普通用户来说，他们采用计算机完成的工作往往是确定的。一般情况下，都能够在市场上获取，但对于某些特定的用户，诸如，某些酒店、医院等单位，则需要一些符合他们自己特定情况、特定运行环境的数据库软件，这些在商店是无法购买到的。他们只能找相应的软件公司去开发他们所需要的特定的系统，开发这些系统时，需要特定的数据（如他们自己公司的一些管理模式、一些条件的限制因素、他们公司的管理体制、部门结构等）。只有这样才能真正地提高他们的工作效率。对于这些用户来说，他们所需要的数据库管理软件能够处理繁杂的、精细的数据，并且能不受空间的限制，使处在各个部门、各个地域的用户都能同时访问数据库，达到共享数据库的目的。这就要求在交换数据中要确保数据的安全性和一致性，所以需要一个特定的网络系统来保证。在电脑培训管理信息系统中，极为重要的一部分就是学员信息的管理，它是电脑培训管理信息系统的核心，它的正确与效率直接关系到整个培训信息系统的成败，同时它也是整个培训系统招生业务中最重复、繁琐的部分。由于学员的基本情况各不相同，而且每个学员所报的科目也各异，学员报名也是很分散的，这给培训学校的招生工作带来了很多的麻烦，手工记录学员的信息以及收费情况不仅错误率高、而且不易对数据进行维护查询，这也在很大程度上限止了电脑培训学校的发展。本论文研究的问题来自于对电脑培训学校管理业务的分析，建立一种电脑培训学校管理的算法模型来解决复杂的电脑学校招生、教务数据的管理与维护等问题。1.2 用户需求分析 在当今信息交流发达的时代，各个行业都在加快自身的建设，希望赶在时代的前面，在同行业竞争中立于不败之地。传统的培训学校用的是把学员信息、学员交费信息与教材信息用手工记载，不仅不利于管理，而且出错率高，办公效率低，错误率高。这不仅不利于电脑培训学校的发展，而且也影响电脑培训学校的形象。随着现代科技的迅猛发展，计算机软件在各方面的应用日趋成熟。人们对应用软件，尤其是数据库管理软件的需求量日趋增加，功能要求越来越高。员工希望软件整体和传统的收费，领书没有大的区别，能够容易的操作，希望整体的工作流程没有大的改动，并且没有太多操作限制。并且可以实现快速学员登记、收费，快速查询等功能。他们希望在用计算机进行业务操作的时候，能够和传统的书写登记同样的顺序，且可以进行选择的选取数值，例如学历类型，可以在软件界面提供常规的选择，从而加快学员登记过程，提高工作效率。对于各种信息的查询和管理等都有一定的业务要求，整体要和传统的业务规则没有区别，且要比传统的工作更能快速高效工作。1.3 编程语言的选择本系统采用的开发工具是功能强大的DELPHI 7.0，DELPHI是BORLAND公司推出的快速应用程序开发工具。它具有功能强大，易于学习和使用，编程效率高以及易于调试等特点。它将可视化应用研究程序开发环境IDE，面向对象程序设计语言OBJECT PACAL，快速编译器和数据库编程工具完美地结合在一起，使用它可以更直观，更快速地开发出高质量的应用程序。DELPHI是BORLAND公司推出的可视化开发工具，它拥有世界上最快的编译器，并提供了一个完全可视化的开发环境，它以直观的界面，简洁的语言，强大的功能和开放的系统为特色，具有丰富的组件集，强大的代码自动生成功能和丰富的数据库管理工具等。DELPHI的不断扩展与完善，以其优良稳定的性能，强大的数据库支持，更快的开发速度以及全面支持公布式应用等特点成为万众瞩目的焦点。1.4 数据库的选择本系统采用的数据库是Acess数据库。Access是Office办公套件中一个极为重要的组成部分。刚开始时微软公司是将Access单独作为一个产品进行销售的，后来微软发现如果将Access捆绑在OFFICE中一起发售，将带来更加可观的利润，于是第一次将Access捆绑到OFFICE97中，成为OFFICE套件中的一个重要成员。现在它已经成为Office办公套件中不可缺少的部件了。自从1992年开始销售以来，Access 已经卖出了超过6000万份，现在它已经成为世界上最流行的桌面数据库管理系统。后来微软公司通过大量地改进，将Access的新版本功能变得更加强大。不管是处理公司的客户订单数据；管理自己的个人通讯录；还是大量科研数据的记录和处理，人们都可以利用它来解决大量数据的管理工作。2系统分析与设计2.1 系统目标设计系统开发的总体任务是实现电脑培训管理信息系统的系统化、规范化和自动化，从而达到提高培训学校的办公效率的目的。2.2系统的需求电脑培训管理信息系统负责招生、教务与教材的业务处理，储存并管理着大量的学员、教务与教材信息。对于各种信息，要进行大量的输入，修改，查询信息，该软件能解决该问题，并能清晰的显示出所有的信息，并提供管理者权限，供不同管理员查询。第一，是管理体制的合理化。应用计算机管理后，可以获得准确的学员信息，对及时查询与更新信息提供方便。第二，是管理工作的标准化，在信息收集制度化，信息形式标准化，信息传递规范化，信息内容系统化的基础上，使管理工作逐步走上程序化，标准化的轨道。第三，管理效果的最优化。应用计算机后，可以更多地定量地分析管理问题，减少管理决策中的主观随意性，使决策更加精确有效。第四，基础数据的科学化。应用计算机管理后，由于计算机能存贮大量的数据，而且数据只要一次存入，便可多次重复使用，所以管理数据达到完整，统一，原始记录能保证及时，准确。最后，应用计算机管理后，许多重复性的工作，都可由计算机去执行，从而使管理人员从事务性工作解脱出来，真正变为从事一些信息的分析，判断，决策等创造性的工作。计算机用于管理，促进了管理水平的提高。2.3 开发设计思想电脑培训学校需要处理大量的学员信息，不断添加新学员信息。面对各种不同种类的信息，需要合理的数据结构来保存数据信息，需要有效的程序结构支持各种数据操作的执行。该软件用于学员信息表（stuinfor），可以清晰的显示，管理大量的信息。电脑培训管理信息系统的特点是数据流量不大，但是处理麻烦，分散。由于学员信息的管理，科目信息的管理，教材信息的管理，节次信息的管理的关联信息多，查询和统计的方式各不相同。 在管理的过程中经常会出现信息的重复传递。 因此在管理上实现起来有一定的困难。在本系统的设计过程中，为了克服这些困难，满足计算机管理的需要，我们采取了下面的一些原则。删除不必要的管理冗余，实现管理规范化、科学化。程序代码标准化，软件统一化，确保软件的可维护性和实用性。界面尽量简单化，做到实用、方便，尽量满足学校中不同部门员工的需要。2.4 系统的功能分析本系统主要完成以下功能：1招生管理子系统（1）该子系统可以登记新学员，发布招生处的公告，修改学员基本信息，查询学员、教材、科目等信息。（2）该子系统可完成学员交费，用户密码管理等功能。2教务管理子系统（1）科目的管理：科目信息的添加，修改，删除，查询。（2）节次的管理：节次信息的添加，修改，删除，查询。（3）所用教材的管理：开设科目所用教务信息的添加，修改，删除，查询。3教材管理子系统（1）教材管理：各类学员所用教材、教师用书信息的添加，修改，删除，查询，对预订教材的管理，教材的入库等的管理。（2）教材领取：学员领取教材、教师领取教科书后对库存信息的更新。（3）教材查询：进货，销售信息的查询。2.5 系统特征1全面完整性系统是用户日常工作的信息化管理平台。可减少大量的重复录入工作。2易用性界面友好简洁。3灵活性独有二次开发平台功能，可方便地由用户自由进行数据和界面更改，使软件完全贴切于用户的需要。强大的查询功能，可灵活设置任意多条件进行组合查询。4开放性提供功能强大的数据接口，可方便的引入各类Office文档，并增加文档安全性。5安全性一流的数据库加密技术。2.6 目标系统要求目标系统应该达到以下要求： 1时间经济性。优化逻辑设计与物理设计，使系统运行效率高，反映速度快。2可靠性。能连续准确的处理业务，有较强的容错能力。3可理解性。用户容易理解和使用该系统。4可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。5可用性。目标系统功能齐全，能够完全满足业务需求。6安全保密性。保证系统的物理安全、数据存储和存取的安全与保密、数据传输的安全与保密，做好使用人员的授权管理。2.7 系统的性能数据采集率：90%动态信息及时率：90%静态信息全面率：90%信息准确率：90%2.8 功能模块设计在系统功能分析的基础上，考虑DELPHI7.0程序编制的特点，得到如图21所示的系统功能模块图。招生管理系统教材管理系统数据管理系统教务管理系统电脑培训管理信息系统图2-1 电脑培训管理信息系统招生管理子系统如图2-2所示：信息输入信息查询系统设置信息维护招生管理子系统登记新学员发布公告学员信息维护更改密码收费信息维护学员信息查询教材信息查询科目信息查询背景图片设置科目文件更新科目信息图2-2 电脑培训管理信息系统教材管理子系统如图2-3所示：教材信息输入信息输入信息查询信息维护教材管理子系统登记领书信息教材信息维护教材信息维护预订信息维护库存信息查询领书信息查询背景图片更改密码预订信息输入系统设置图2-3 电脑培训管理信息系统教务管理子系统如图2-4所示：信息输入信息查询系统设置信息维护教务管理子系统科目信息输入教材信息输入科目信息维护教材信息维护节次信息维护科目信息查询教材信息查询节次信息查询背景图片更改密码节次信息输入图2-4 电脑培训管理信息系统数据管理子系统如图2-5所示：用户管理系统设置数据维护数据管理子系统登记新用户更改用户信息科目信息维护教材信息维护节次信息维护学员信息查询背景图片更改密码领书信息查询图2-5 电脑培训管理信息系统3 数据库设计3.1 数据库基础一个成功的信息管理系统，是建立在许多条件之上的，而数据库是其中一个非常重要的条件和关键技术。信息管理系统所涉及的数据库设计分五个步骤：数据库需求分析、概念设计、逻辑设计、物理设计与加载测试。（1）数据库需求分析的任务是将业务管理单证流化为数据流，划分主题之间的边界，绘制出DFD图，并完成相应的数据字典。（2）概念设计的任务是从DFD出发，绘制出本主题的实体关系图，并列出各个实体与关系的纲要表。（3）逻辑设计的任务是从E-R图与对应的纲要表出发，确定各个实体及关系的表名属性。（4）物理设计的任务是确定所有属性的类型、宽度与取值范围，设计出基本表的主键，将所有的表名与字段名英文化（现在很多软件能支持中文字段，如MS SQL Server，我就是用的中文字段名），实现物理建库，完成数据库物理设计字典。（5）加载测试工作贯穿于程序测试工作的全过程，整个录入、修改、查询、处理工作均可视为对数据库的加载测试工作。要设计出一个好的信息管理系统数据库，除满足系统所要求的功能外，还必须遵守下列原则： (1)基本表的个数越少越好。 (2)主键的个数越少越好。键是表间连接的工具，主键越少，表间的连接就越简单。 (3)字段的个数越少越好。 (4)所有基本表的设计均应尽量符合第三范式。数据库的设计中，如何处理多对多的关系和如何设计主键，是两个有着较大难度、需要重点考虑的问题。下面我们着重从ACCESS应用、数据库设计范式和查询优化等方面来分析本课题的系统关键技术和实现难点并加以解决。3.2 数据库系统设计与范式设计信息系统的主要任务是通过大量的数据获得管理所需要的信息，这就必须存储和管理大量的数据。因此建立一个良好的数据组织结构和数据库，使整个系统都可以迅速、方便、准确地调用和管理所需的数据，是衡量信息系统开发工作好坏的主要指标之一。1数据库系统设计数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部门的存档数据和数据需求，分析各个数据之间的关系，按照DBMS提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型。数据库设计的步骤是：数据库结构定义：目前的数据库管理系统（DBMS）有的是支持联机事务处理CLTP（负责对事务数据进行采集、处理、存储）的操作型DBMS，有的可支持数据仓库、有联机分析处理CLAP（指为支持决策的制定对数据的一种加工操作）功能的大型DBMS，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的DBMS，进行数据库结构定义。数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时数据表。存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。数据字典设计：用数据字典描述数据库的设计，便于维护和修改。2数据库设计范式分析建立起一个良好的数据指标体系，是建立数据结构和数据库的最重要的一环。一个良好的数据指标体系是建立DB的必要条件，但不是充分条件。我们完全可以认为所建指标体系中的一个指标类就是关系数据库中的一个基本表，而这个指标类下面的一个个具体指标就是这个基本表中的一个字段。但如果直接按照这种方式建库显然还不能算最佳。对于指标体系中数据的结构在建库前还必须进行规范化的重新组织。 3数据组织的规范化形式 在数据的规范化表达中，一般将一组相互关联的数据称为一个关系(relation)，而在这个关系下的每个数据指标项则被称为数据元素(data element)，这种关系落实到具体数据库上就是基本表，而数据元素就是基本表中的一个字段(field)。规范化表达还规定在每一个基本表中必须定义一个数据元素为关键字(key)，它可以唯一地标识出该表中其它相关的数据元素。在规范化理论中表是二维的，它有如下四个性质：(1)在表中的任意一列上，数据项应属于同一个属性(如图中每一列都存放着不同合同记录的同一属性数据)。 (2)表中所有行都是不相同的，不允许有重复组项出现(如图中每一行都是一个不同的合同记录)。(3)在表中，行的顺序无关紧要(如图中每行存的都是合同记录，至于先放哪一个合同都没关系)。 (4)在表中，列的顺序无关紧要，但不能重复(如图中合同号和合同名谁先谁后都没关系，但二者不可重复或同名)。在对表的形式进行了规范化定义后，数据结构还有五种规范化定义，定名为规范化模式，称为范式。在这五种范式中，一般只用前三种，对于常用系统就足够了。而且这五种范式是“向上兼容”的，即满足第五范式的数据结构自动满足一、二、三、四范式，满足第四范式的数据结构自动满足第一、二、三范式，依此类推。第一范式(first normal form，简称1st NF)就是指在同一表中没有重复项出现，如果有则应将重复项去掉。这个去掉重复项的过程就称之为规范化处理。在本文所讨论的开发方法里，1st NF实际上是没有什么意义的。因为我们按规范化建立的指标体系和表的过程都自动保证了所有表都满足1st NF。 第二范式(second normal form，简称 2nd NF)是指每个表必须有一个(而且仅一个)数据元素为主关键字(primary key)，其它数据元素与主关键字一一对应。例如，如果我们将合同号定义为主关键字(其它数据元素中的记录数据都有可能重名，故不能作为主关键字)，故只要知道了一个合同记录的合同号，就可以唯一地在同一行中找到该合同的任何一项具体信息。通常我们称这种关系为函数依赖(functional depEndence)关系。即表中其它数据元素都依赖于主关键字，或称该数据元素唯一地被主关键字所标识。第三范式(third normal form，简称 3rd NF)就是指表中的所有数据元素不但要能够唯一地被主关键字所标识，而且它们之间还必须相互独立，不存在其它的函数关系。也就是说对于一个满足了 2nd NF的数据结构来说，表中有可能存在某些数据元素依赖于其它非关键宇数据元素的现象，必须加以消除。为防止数据库出现更新异常、插入异常、删除异常、数据冗余太大等现象，关系型数据库要尽量按关系规范化要求进行数据库设计。3.3 数据库需求分析收费单，领书单在仔细调查电脑培训信息管理系统过程的基础上，得到本系统所处理的数据流程如图3-1所示。领书单合格信息登记表，收费信息学生专用教材不合格信息表学员登记信息新学员招生管理子系统数 据管理中心教材管理子系统领书信息图3-1 数据流程图3.4 数据字典分析本软件的数据库共有8张数据表，它们分别是：信息表：Userlist员信息表：Stuinfor收费信息表：Price教材信息表：Textbook科目信息表：Subjects节次信息表：Sectors领书信息表：Getbook公告信息表：Gonggao表3-1 用户信息表：Userlist字段编号字段名类型宽度说明1编号数字数字2用户名文本20任意3密码文本10任意4姓名文本16任意5所属部门文本10选择部门6登记日期日期当天日期表3-2 学员信息表：Stuinfor字段编号字段名类型宽度说明1学号文本10数字2姓名文本16任意3性别文本2男或女4出生日期日期任意5最高学历文本4选择学历6联系地址文本26任意7移动电话文本11数字字符8QQ号文本9数字字符9固定电话文本12数字字符10入学日期日期当天日期11爱好文本60任意12科目代号文本5选择科目表3-3 收费信息表：Price字段编号字段名类型宽度说明1收费单号文本16数字字符2学号编号文本20自动填写3科目代号文本5自动填写4收费日期日期当天日期5收费老师文本16选择部门6备注日期50任意表3-4 教材信息表：Textbook字段编号字段名类型宽度说明1编号数字16自动编号2科目代号文本5数字字符3教材代号文本10数字字符4教材名称文本30任意5作者文本16任意6出版社文本40任意7版次数字任意8单价数字任意9库存数量数字任意表3-5 科目信息表：Textbook字段编号字段名类型宽度说明1科目代号文本5数字字符2科目名称文本40任意3总课时数数字任意4科目简介文本200任意5收费标准数字任意表3-6 节次信息表：Textbook字段编号字段名类型宽度说明1科目代号文本5数字字符2节次代号文本5任意3主要内容文本200任意4重点难点文本100任意5作业题文本50任意表3-7 领书信息表：Textbook字段编号字段名类型宽度说明1领书单号文本10数字字符2收费单号文本10数字字符3教材编号文本10数字字符4类型文本100教师学生5领书日期日期任意6领书人文本16自动填写7管理员文本16自动填写表3-8 公告信息表：Textbook字段编号字段名类型宽度说明1编号数字自动编号2公告内容文本250任意3发布人文本16自动填写4发布部门文本16自动填写5发布日期日期当天日期4系统功能实现4.1 招生管理子系统编码设计4.1.1 用户登录界面编码设计用户登录界面，用户可以通过该模块实现系统登录，还可以通过“登录设置”来设置服务器所在端的IP地址或者服务器机器名以及访问时的端口号。界面如图4-1所示：图4-1 电脑培训管理信息系统 “确定”具体代码如下：vartip,depd:string;begin /frmmain.conn.Connected:=false; frmdbm.CDSlogin.Close; frmmain.conn.Connected:=true; /frmdbm.CDSlogin.Params.Clear; tip:=服务器未启动,或配置出错!; frmdbm.CDSlogin.Params0.Value:=lebname.Text; frmdbm.CDSlogin.Params1.Value:=lebpwd.Text; frmdbm.CDSlogin.Params2.Value:=CMBdep.Text; try frmdbm.CDSlogin.Open; except MessageDlg(tip, mtInformation,mbOk, 0); application.Terminate; end; if frmdbm.CDSlogin.RecordCount0 then begin saveini; depd:=frmdbm.CDSlogin.fieldbyname(所属部门).Value; if depd=招生处 then begin application.CreateForm(tfrmzhaosheng,frmzhaosheng); frmzhaosheng.show; lebpwd.Clear; frmmain.teachname:=.CDSlogin.fieldbyname(姓名).Value; frmmain.tdep:= CDSlogin.fieldbyname(所属部门).Value; frmmain.stb.Panels0.Text:=当前用户: + teachname; frmmain.stb.Panels1.Text:=所属部门: +frmmain.tdep; frmmain.user:=lebname.Text; frmdbm.CDSlogin.Close; frmlogin.close; frmlogin:=nil; end else if depd=教务处 then begin application.CreateForm(tfrmjiaowu,frmjiaowu); frmjiaowu.show; lebpwd.Clear; frmmain.teachname:= CDSlogin.fieldbyname(姓名).Value; frmmain.tdep:=CDSlogin.fieldbyname(所属部门).Value; frmmain.stb.Panels0.Text:= 当前用户: + teachname; frmmain.stb.Panels1.Text:=所属部门: +frmmain.tdep; frmmain.user:=lebname.Text; frmdbm.CDSlogin.Close; lebpwd.Clear; frmlogin.close; end else if depd=数据管理中心 then begin application.CreateForm(tfrmdatamanage,frmdatamanage); frmdatamanage.show; lebpwd.Clear; frmmain.teachname:= CDSlogin.fieldbyname(姓名).Value; frmmain.tdep:= CDSlogin.fieldbyname(所属部门).Value; frmmain.stb.Panels0.Text:=当前用户: +.teachname; frmmain.stb.Panels1.Text:=所属部门: +frmmain.tdep; frmmain.user:=lebname.Text; frmdbm.CDSlogin.Close; lebpwd.Clear; frmlogin.close; frmlogin:=nil; end end else begin showmessage(你的用户名或密码或所属部门不正确!) end; 4.1.2登记新学员编码设计登记新学员，可以通过该模块进行添加新学员，收取学费。该模块实现原理是：当该模块加载时，实现学号的自动编号，从而避勉了学号输入重复的困挠；输入学员基本信息后，还需选择学员所报读的科目，科目的基本信息会显示在“报考科目信息栏中”，这样也方便用户了解科目信息。界面如图：4-2图4-2 电脑培训管理信息系统 “保存”具体代码如下: tstuinfor.Active:=true; if trim(Lbename.Text)= then begin showmessage(请输入新学员的姓名!); abort; end; tstuinfor.InsertRecord(lbestuno.Text,trim(LBEname.text),cmbsex.text, dtpbir.date,cmbedu.text,trim(LBEaddr.text),trim(memp.text),trim(meqq.text), trim(metel.text),now,trim(mhobby.text),mesubno.text); tmaxno.Active:=true; tmaxno.Locate(项目名称,学号,); tmaxno.Edit; max:=tmaxno.FieldByName(最大编号).Value; tmaxno.FieldByName(最大编号).Value:=inttostr(max+1); tmaxno.Post; bitbtn4.Enabled:=false; bitbtn2.Enabled:=true; bitbtn1.Enabled:=true; bitbtn3.Enabled:=true;“提交数据”具体代码如下: /更新最大编号 tmaxno.Active:=true; tmaxno.Locate(项目名称,学号,); frmdbm.CDSmaxno.Open; frmdbm.CDSmaxno.Locate(项目名称,学号,); frmdbm.CDSmaxno.Edit; frmdbm.CDSmaxno.FieldByName(最大编号).Value:= FieldByName(最大编号).Value; frmdbm.CDSmaxno.ApplyUpdates(0); /提交数据到服务器端 tstuinfor.Active:=true; frmdbm.CDSstuinfor.Open; frmdbm.CDSstuinfor.Last; tstuinfor.First; /写入服务器端数据库 while not tstuinfor.Eof do beginfrmdbm.CDSstuinfor.AppendRecord(tstuinfor.Fields0.value,tstuinfor.Fields1.value, tstuinfor.Fields2.value,tstuinfor.Fields3.value,tstuinfor.Fields4.value, tstuinfor.Fields5.value,tstuinfor.Fields6.value,tstuinfor.Fields7.value,tstuinfor.Fields8.value,tstuinfor.Fields9.value,tstuinfor.Fields10.value, tstuinfor.Fields11.value); tstuinfor.Next; frmdbm.CDSstuinfor.ApplyUpdates(0); end; frmdbm.CDSstuinfor.ApplyUpdates(0); try tstuinfor.Delete; tstuinfor.Close; tstuinfor.SQL.Clear; tstuinfor.SQL.Add(delete * from stuinfor); tstuinfor.ExecSQL; finally tstuinfor.Close; tstuinfor.SQL.Clear; tstuinfor.SQL.Add(selete * from s