Delphi超市管理系统

第1章概述1。11.1。1自从我国成功加入WTO机制也正在发生着巨大的变化，超市要想在激烈的市场竞争环境下生存下来，就必需有效地利用人才和时间以及信息,使它们相结合而产生优势，并进行有效的超.因此，借助现代化的信息技术和管理的理论,建立超市的信息管理系统已经迫在眉睫。本系统依据商品管理的业务的范围和工作的特点,给系统设计了包括商品经营管理、人员管理、商情信息管理等，能够及时、准确地反映超市经济活动状态，成为超市内各级管理人员的有力工具.这样能够大大的减轻超市工作人员的工作量,并且全面的提升超市仓库管理的管理效率和服务质量，它操作很便利，并且功能齐全，给用户节省了不少的宝贵时间，将使超市的管理水平和业务水平跃上新的台阶。1。1.2[1］前些年，企业的进货管理主要都是采纳手工管理，而这几年,随着我国社会主义市场经济体制的巩固和进展，在商业的流通领域产生了一个空前的进展阶段，使得手工的管理已经不能够满足企业进展的需要了。而由于每日的销售量的增加,导致进货的次数变得频繁。而进货次数的增加，就不免在业务上、财务上会出现大量的问题，进而会造成库存数目的混乱，并最后导致管理混乱,形成一个恶性的循环。所以为了规范企业的内部管理，并提升企业的业务管理水平，而让企业更好地服务于顾客，人们开头想用计算机来代替手工操作管理业务.[1］这次系统的开发，主要包括基础信息管理、采购信息管理和系统辅助管理三大模块。基础信息管理主要是对系统中要用到一些基础信息进行维护和管理；采购信息管理主要是对采购业务进行管理；系统辅助管理主要有系统数据备份和用户账号管理两大功能.本信息管理系统的使用，使得企业的组织结构更加的简化，,这样,就节省了这些部门的设备和人工费用的支出。从而使企业获得更大的经济效益.11。21。2.1对待技术的可行性：开发连锁超市信息管理系统（基于Delphi员都能够熟悉的运用Delphi等编程语言.目前的技术人员已经把握了这些编程语言。所以,本次系统的开发在技术上是可行的.对待时间的可行性:开发的时间大概需要四个月左右.前三个月，主要用于系统的分析、设计、实现，而后面的时间则主要用于调试工作.基础，所以在开发资金方面也是可行的。1。2.2［2]由于管理它是一个动态的经过，所以在它的运行经过中还需要实行多种措施。在管理中获得的经济效益是一种综合的效益，而要对它来进行直接的定量的［2][3］分析是格外困难的，对待一般的新系统,它们带来的经济效益是明显的，而信息管理系统最主要的表现就是削减了企业的管理费用和人力资源的开支.对待其它的一些繁琐事物将都经过系统来加以分析和解决,这样就不仅节省了大量的时间，而且还为企业的各项决策提供了可信的数据材料，必将为企业带来巨大的经济效益。[3］1.31.3。1系统进行详细的研究和开发。基础信息管理系统的主要组成模块包括：登录模块、基础信息设置模块、采并进行了测试工作，最后结果显示是可行的。由于传统的基础信息管理是使用的各类表单来记录的数据，到最后还需要盘点或者统计，这样是格外耗费时间和人力的。而采纳基础信息管理系统对货物的进出的情况进行管理，则能够格外便利

［4].这个系统主要实现了基础信息管理的自动化，其中主要包括商品的添加、删除、查询和修改的操作，以及厂商和职员的相关信息的管理，例如：对待厂商的信息管理、职员所属部门的管理.这个系统使用了SQLServer2000作为后台的数据库来管理系统，并2且在前端使用了ADO组件来访问实际的数据库内容。1.3。2,本系统开发的意义以及系统开发的基础.第二章开发技术分析与研究，包括系统开发模式分析，开发工具Delphi概述,Delphi中常用组件的属性及事件,数据库组件的用法,ADO组件的用法等。第三章系统的概要设计及分析,包括系统功能模块设计,系统流程分析。基础数据模块设计,采购信息管理模块设计，系统辅助管理模块设计。第五章系统的测试，包括系统的运行流程，系统各个窗体的详细测试。3第2章开发技术分析与研究开发模式的分析目前，用于信息管理系统的开发工具有许多，如开发本系统所用到的Delphi,此外，还有诸如VB、VC、ASP。net等等，而使用Delphi开发信息管理系统的优点就是，它的界面很简单实现，语法结构也较简单,而它的缺点就是不能很好的实这些都是由语言自身的特点来决定的。B/SC/S模式。B/SBrower/Server的缩写，客户机上只要安装一个浏览器（BrowseNetscapeWebServer同数据库进行数据交互；C/S是Client/ServerSQLServer。客户端需要安装专用的客户端软件。[5]C/S架构的优点主要是：第一、其应用服务器运行数据的负荷比较轻。第二、C/S架构软件的缺点是：其维护的C/S结构的软件，需要对不同的操作系统开发不同版本的软件，而由于产品的更新换代速度格外快，带来很大的更新工作要做.所以,它的代价是很高的，相对很低的效率使得其已经不适应工作的.架构模式更是剧烈的C/SB/S其维护和升级方式比较简单，第二、它的成本降低了，使得选择变得更多一些。[5]C/S模式的系统，本系统使用了Delphi7。0的许多面对对象的组件,比如：ADODataSet组件、ADOtable组件等，系统中还有SQL命令语句的应用、跨表的查询、分组的统计以及分组筛选等关键技术。还有诸如建立主副明细表等等相关技术。[6]使系统的功能完善，这就是设计软件系统的核心思想。[6]［7]用户在进入系统之前都要进行权限的检测,而在执行各大模块的相关功能时的联系的。［7]4Delphi7。0BorlandDelphi7。0是一种可视化的软件开发工具为我们提供了一种便利、快捷的Windows应用程序开发工具，它使用了MicrosoftWindows图形用户界面的许多先进特性和设计思想。Delphi被称为是第四代的编DelphiVC相比，功能更强大、更有用。能够说Delphi同时兼备了VC功能强大的特点和VB简单Delphi一直都是程序员最喜爱的编程工具.Delphi它具有以下的特点,它是基于窗体的和采纳了面对对象的方式，其拥有高速的编译器，并且还有强大的数据库支持，它与Windows平台编程紧密的结合,还有成熟的组件技术。然Pascal语言的基础之上进展起来的，它简单易学［。语言中，提供了多种开发工具,其中包括集成环境、图像编辑，还有各种开发数据库的应用程序，比如：DeskTopDatabaseExpert等。并且除此之外，Delphi还允许用户挂接其它的应用程序开发工具，比如:Borland公司的资源ResourseWorkshop等.Delphi有许多的优势,格外是它在数据库方面的特长,它不仅适宜客户机/服务器模式，它还支持多层数据结构模式,它拥有高效率的数据库管理系统以及新一代的先进的数据库引擎，它还具有最新的数据分析手段，并且其还提供了大量的企业组件供开发者使用。2。3DelphiDelphi中每个组件都有自己的属性、事件和方式，而可视组件存在着一些共2-1所示。属性设置说明描述了组件的各边与父窗口边框的位置。参数有属性设置说明描述了组件的各边与父窗口边框的位置。参数有akLeft,akTop，Anchors akBottomakRightTrue后，分别说明组件的不变BorderWidth 适用于窗口组件，定义窗口组件的宽度BoundsRect 适用于所有组件，定义组件的边框矩形,只用于运行时5Caption 适用于大部分组件,说明组件的标题Constraints 适用于所有组件，确定组件转变大小时的最大尺寸和最小尺寸ColorEnableFontName

适用于所有组件，确定组件的功能是否被禁用适用于所有组件，确定组件内字体CaptionPopupMenu 适用于所有组件，定义当用户在组件上单击鼠标右键时的弹出菜单Visible 适用于所有组件,确定组件是否可见可视组件的通用事件如表2—2所示.2-2通用事件属性OnChangeOnClick

设置说明适用于多数组件,在对象或其内数据发生变化时，如编辑框中的文本发生转变时适用于多数组件，此事件发生在用户鼠标左键单击组件时OnDblClick 适用于多数组件，此事件发生在用户鼠标双击组件时OnEnterOnExit

适用于所有组件，此事件发生在当此组件失去焦点时2。4Delphi使用可视化的控件创建数据库应用程序，数据库控件都具备肯定的属性，程序设计人员在设计经过中设置控件的多种属性，也能够在程序运行经过中经经过序来设置部件的各种属性。2。4。1ADOADO控件又称ADO组件，最常用的ADO对象是连接(Connectio、命令（Command）和数据集（RecordSet）对象，这些对象被相应的封装成为对应的控ADO控件面板上，ADO2-1所示。2-1ADODelphiADO7个主要组件,它们分别是:ADOConnection组件来连接ADO数据存储。经过设置组件的属性，使得单个ADOConnection组件所提供的连接能够被多个 ADO命令或数据集所共享。6ADOConnection组件能够控制记录枷锁、记录指针类型、隔离级别和连接超时等。该组件在它所连接的数据库中提供事务管理和恢复原数据等操作。ADOdataSetADOdataSet组件时最常用的ADO数据集组件。ADOdataSetADO数据源中找到结果集的功能。结果集能够SQL语句从一个或多个数据表得到.在使用之ConnectionString属性写入相关连接字符,也能够在连接属性中指定经过ADOConnection组件已经建.ADOdataSetCommandText属性找到所需的数据集，能够指SQL语句（Select查询语句。ADOdataSetSQL语句的数据操纵语言的功能,由于它不能返回结果集。ADOtable组件：ADOtable组件主要是用于操作和提取单个基表的数据，ADOConnection连接到数据库..SelectADO数据源的数据表中读取数InsertDeleteUpdateAlterTableCreateTable等操作。要使用ADOStoredProc组件.一个存储经过是一组SQL命令语句的集合,作为源数据的一部分存储在数据库中，依据服务器上与数据库相关的任务指示执行,并把执行结果返回给客户端。（6)ADOCommand组件：ADOCommandADO命令对象。利用ADOCommand空间能够经过ADOADOCommand组件执Parameters属性中指定，命令经过调用Execute方式执行有关命令。ADOCommand组件使用组件对象去连接一个数据源（经过它的连接属性或者直接连接到数据源,ConnectionString属性中被指定。ADOCommandSQL命令或者执行一个不返回结果集的ADOCommandExecute方式可能返回一个结果集。为ADO数据集组件.（7）RDSConnection组件:RDSConnection组件是连接一个进程或一台计算机传递到另一个进程或计算机的数据集合。。2TdataSourceTDBGridTdataSourceTDBGrid7TDBGrid控件的主要作用是经过TdataSource控件连接数据集(如TADOQuer，以各种方式显示数据库中的数据，并提供客户端浏览的界面.TdataSource控件时不行视的，是联系数据感应控件（TDBGrid）和数据集2-2所示。TdataSource2—2数据访问控件板及TdataSourceState属性值能够确定与一个数据源控件相连的数据集控件的当前状态.数据集控件的当前状态表明了对数据集的相应操作.利用数据源控件能够更好的协调各个数据感应控件，保持和数据集的全都，TdataSource编写代码很少。使用时设置好DataSet属性之后,即能够将TdataSourceDataSource属性值。TDBGrid控件是显示和编辑数据库中表的重要控件，它是在数据库应用程序中使用最多最为灵活的一个控件,利用该控件能够设计一个灵活的用户界面.2。4。3TClientDataSetTDataSetProvider对数据库的操作封装成类后，使用TClientDataSetTDataSetProvider控件来显示数据的查询结果就很便利。控件能够建立客户端的应用程序，且数据执行效率较高，TClientDataSet控件不能和数据库自动连接，程序中必需指定TClientDataSet控,TClientDataSetIAppServer接口TClientDataSet控件时一般使用控件的属性较多,而该控件的事件很少应用。TDataSetProvider控件基于数据集为应用程序中的其他控件提供数据，并将对.TDataSetProvider控件通TClientDataSet控件提供数据,能够是应用程序的一部分，也能够被放置在多层数据库应用服务器上,以充做远程数据库服务器和客户端数据集的中介.本章小结C/S架构，并对开发Delphi进行了深入的研究。8ADO询、修改和删除记录语句等等。而对Delphi中的数据库组件的使用,也需要认识把握.,熟悉运用这些学问,有利于系统的设计与开发。9第3章系统概要设计及分析系统功能模块设计基础信息管理系统的主要组成模块包括:登录模块、基础信息设置模块、采购信息设置模块和系统辅助管理模块四大模块。超市管理信息系统3-1所示.超市管理信息系统基采系础购统数信辅据息助设管管置理理商厂职进厂系用品商员货单统户基基基价录数账本本本格入据号信信信控备管息息息制份理1。基础信息管理

3—1系统功能模块图品根本信息、厂商根本信息和职员根本信息。根本信息管理要实现以下的功能:编号和商品重量等。编号、厂商名称，厂商地址、联系方式等。添加、删除、查询和修改职员基础信息,包括职员的编号、名称、所在部门、10联系方式等.采购信息管理控制、询价以及厂单的录入。采购信息管理要实现的功能有：厂单信息录入，对采购的商品信息进行录入操作.系统辅助管理系统辅助管理主要有系统数据备份和用户账号管理两大主要功能。3。2第一、用户启动系统，系统首先将进行初始化。第二、系统将激活登陆口令界面，供用户进行登录验证。第三、验证成功后,用户便进入系统，依据管理的需要，超市管理信息系统有系统管理员和一般用户两种登录账号,不同的登录账号具有不同的操作权限，系统将经过事件驱动机制来激活相应的功能模块，并且执行其相应的功能。3-2所示启动程序启动程序重新登录验证失败用户登录一般用户用户权限息、厂商信息和职员信息查询商品价格信息查询单据信息进行销售排行统计修改自己的账号系统管理员能够进行基础数据、采购信删除和查询操作管理所有用户账号系统数据备份3-2系统流程图113.3本章小结处理流程做了一些分析。对待系统的功能模块设计，依照需求分析，将系统分为四大主要模块：分别是登录模块、基础信息设置模块、采购信息设置模块和系统辅助管理模块四大模块.并且对每个模块的内部做了详细的设计，每个模块包含那些子模块，都进行了分析。12第4章系统的详细设计与实现4。1数据库设计包括超市管理信息系统数据库的创建、数据库逻辑结构的设计。。1数据库能够在企业管理器中直接创建,也能够在查询分析器中经过输入代码来创建，在查询分析器中输入以下代码：CREATEDATABASETradeMGON（NAME=TradeMG, //设置数据库名称//以下设置数据数据文件的路径、大小FILENAME=’C：\ProgramFiles\MicrosoftSQLServer\MSSQL\data\TradeMG.MDF'，SIZE=10MB，MAXSIZE=50MB，FILEGROWTH=10MB)以下设置数据库日志文件的路径、大小LOGON(NAME=TradeMG_LOG,SQLServer\MSSQL\data\TradeMG_LOG.LDF’，SIZE=10MB,MAXSIZE=50MB,FILEGROWTH=5MB)4。1。213置和外键的设置等。本系统包含9张表：商品信息表（COMINFO、商品销售价格控制表SALEPRIC、商品进货价格控制表（PURPRICE、厂商信息表(CORPINFO客单信息明细表CUSTLISTINF、厂单信息主表CORPLIS、厂单信息明细表（CORPLISTINFO)、职员信息表（OPERINFO）和用户账号表(USERTABLE）.COMINFO,4-1所示。4—1表COMINFO编号字段名称数据类型说明1COMIDVarchar(10)商品编号，关键字2COMNAMEVarchar(20)商品名称3UNITVarchar(6）商品单位4WEIGHTFloat商品重量5CORPIDVarchar(3）厂商编号6REMARKVarchar(255)备注SALEPRICE，对商品的销售价格进行设置。结构4-2所示.123字段名称COMID123字段名称COMIDOUTPRICEMAXOUTPRICEMIN数据类型FloatFloat说明最大销售价格最小销售价格商品进货价格控制表PURPRICE，是对商品的进货价格及其允许的利润率进行设置,结构如表4-3所示。1234字段名称1234字段名称COMIDINPRICERATEMAXRATEMIN数据类型FloatFloatFloat说明进货价格最大利润率最小利润率(4）厂商信息表CORPINFO，记录商品所对应厂商的根本信息，结构如表4-4所示。4—4表CORPINFO编号字段名称数据类型说明1CORPIDVarchar（3）厂商编号，关键字2CORPNAMEVarchar(30）厂商名称3LINKMANVarchar（10)联系人4LINKPHONEVarchar(12)联系电话5ADDRESSVarchar(50）地址6FAXVarchar（12)传真14销售信息表CUSTLISTINFO4—5所示。4—5表CUSTLISTINFO编号字段名称数据类型说明1RECORDNOInt记录号，关键字2COMIDVarchar（10）商品编号3COMNUMInt商品数量4MONEYFloat金额5OPERATORVarchar(10)经手人6DATEDatetime销售日期主要内容有两项：厂单主信息和厂单明细信息。厂单主信息是指厂单信息主表所4-6所示。4-6CORPLIST编号字段名称数据类型说明1CORPLISTIDVarchar(12）厂单编号，关键字2CORPLISTDATEDatetime进货日期3OPERATORVarchar(10)经手人4CORPIDVarchar(3）厂商编号5GIVEDATEDatetime支付日期厂单信息明细表CORPLISTINFO，主要纪录厂单明细信息，结构如表4-7所示。4-7CORPLISTINFO编号字段名称数据类型说明1RECORDNOInt记录号，关键字2CORPLISTIDVarchar（12）厂单编号3COMIDVarchar(10）商品编号4COMNUMInt商品数量5MONEYFloat金额6COMTIMESVarchar（5）商品进货批次号所示。1234字段名称1234字段名称OPERIDOPERNAMEDEPARTMENTLINKPHONE数据类型Varchar（5)Varchar(10）Varchar(12)说明职员姓名所在部门联系电话（9)用户账号表USERTABLE，主要是对不同级别账号进行设置，结构如表4-9所示。154—9表USERTABLE编号字段名称数据类型说明1USERNAMEVarchar（20）用户名2USERPWDVarchar（20）用户密码3USERLEVELVarchar（15）用户级别系统工程框架的创建主界面和工程项目的属性设置等.4。2.1数据库连接类能够经过拖放控件直接实现,Fil→Ne→DataModule［9],4—1所示。4—1Trade_DataModTrade_DataMod4—10所示。4—10数据库连接类使用的控件及其属性设置对象Adocon(ADOConnection控件)控件）Dsp1（DataSetProvider控件）Adoq1（ADOQuery控件)Adoq2(ADOQuery控件)

属性ConnectionStringConnectionDataSetConnectionConnection

属性值)AdoconAdoq1Adoconadocon4。2.216后面加上对应数据表名,_unitcominfo_unit.例化，使用完后要将实例释放。。3新建窗体Firstfrm作为启动画面，启动画面中控件的设置如表4-11所示。对象属性属性取值NameFirstfrmForm对象属性属性取值NameFirstfrmFormBorderStylebsNoneLabel1Caption超市信息管理系统Label2Caption正在启动系统，请稍候……Label3CaptionPicture（选取预备好的图片)Image1AlignalClientOnCreate:Label3.Caption:=今日是'+datetost（no；打开“Projec”菜单，选择“ViewSource项,在“Applicatio。Initializ添加以下内容：Firstfrm:=tFirstfrm.Create(application);//动态创建启动画面Firstfrm.Show;//显示启动画面Firstfrm.Update；//更新启动画面显示sleep（2000）;//windowsuseswindows接着在“Application。RunFirstfrm.Hide//隐藏启动画面Firstfrm.Free;//释放启动画面4。2.4新建窗体Loginfrm作为登录窗体的界面,用户经过在登录窗体中输入准确的用户名和密码后即可进入系统.4-2所示。174—2登录窗体布局效果图登录窗体调用了Tusertableuses语句中添加Tusertableusertable_unitprivate下声明该窗体所调用类的实例名：Private登录窗体中主要实现对登录用户账号的验证，该操作能够经过“确定”按钮OnClick事件来实现，代码如下：procedureTLoginfrm。Button1Click(Sender：TObject);varb1：bool;beginuser1:=Tusertable。create;try//推断用户名是否存在b1：=user。（exceptLoginfrm.Hide;。Show；exit;end;if b1=false beginapplicatio。MessageBox（对不起，没有这个用户名，,mb_ok)；exit;endelsebegin18if user1。GetUserPwd（edit1.Text）=edit2。Text beginuserlevel：user1。GetUserLevel(edit1。Text);if user1.GetUserLevel(edit1.Text)=’系统管理员' beginLoginfrm.Hide；mainfrm.Show；endelsebeginLoginfrm.Hide;mainfrm.N1。Enabled：=false;mainfrm。N12。Enabled:=false；mainfrm.N4.Enabled:=false;mainfrm.N21.Enabled：=false；mainfrm.Show;end;endelsebeginapplicatio。MessageBox（’,mb_ok);edit2.SetFocus；end;end;end；登录系统时既要检查用户名是否存在，还要验证密码是否准确,并取得用户的权限供后面窗体调用。4.2.5连接数据库并创建用户表运行系统时能够经过该用户界面连接到相应的数据库,并对用户数据表进行创建和4-3所示。194-3数据库连接窗体数据库连接窗体主要是连接数据库并在指定数据库里创建表。这里设计了用TradeTabl。txt（创建数据表的脚本文件执行该文件的代码即可创建并初始化用户数据表。要读取文本文件的内容,函数代码如下：functionGetTextFromFile(AFile:String;varReturnString:string）:boolean;varFileStream:TFileStream；beginifnotfileexists（AFile)thenexit;FileStream：TFileStream。Create（AFile,fmOpenRead);tryifFileStream.Size0thenbeginSetLengt（ReturnStrin，FileStrea。Size；。Size);result：=true；end；finallyFree;end；end;读出脚本语句后，程序需要连接数据库，并在指定的数据库中执行脚本以创"按钮中实现，实现代码如下:20procedureTdatabaselink.Button1Click(Sende：varstrCreateDB：string;beginuser1:=Tusertable.create;trycreate(extractfiledir(applicationExeName）+’\setup.ini’)；setupfil。Writestrin（；setupfile.Writestring('system'，’USERPWD'，edit2.Text）;setupfile.Wri。text；setupfile.Writestrin（4。text；strCreateDB）thenbegin //执行创建数据表的经过user。end；。userlevel：='系统管理员';mainfrm.Show；。Close；exceptapplication.MessageBox(数据库连接失败,,end;end；当数据库连接窗体打开后首先查看当前名目下是否有保存参数设置的INI文件存在,假若有直接取得参数设置而不需用户进行参数设置,其实现方式是在连接OnCreate事件中输入以下代码:procedureTdatabaselink.FormCreate（Sender：TObject）;beginedit1.Text:=setupfile.Readstrin（’system’,’USER_NAME，；edit2.Text:=setupfile。Readstring（'system',’USER_PWD'，'’)edit3.Text：=setupfile.Readstring（'system'，'servername',’')edit4.Text：=setupfile.Readstring（’system','database','')end;214。2.6第一次运行系统需要成功连接数据库后再进入系统主界面。以后每次运行时,只需要在登录窗体中输入准确的用户名和密码后就能够进入系统主界面。经过系统主界面用户能够切换到各个子模块中进行详细的操作。mainfrm4—4所示。4—4系统主界面窗体布局窗体中使用的主要控件及其属性设置如表4—12所示.4-12窗体mainfrm对象 属性 属性值Label1Mainmenu1Image1

CaptionItemsPictureAlign

超市信息管理系统（属性值见后各功能菜单)（选取预备好的图片）alClientmainmenu1控件就能够进行菜单的编辑.4—13所示。4-13超市信息管理系统菜单设置CaptionName根本数据设置…商品根本信息N1N7…厂商根本信息N9…职员根本信息N10采购信息管理…进货价格控制N2N23…厂单信息录入N1222销售信息管理销售报价单单据信息变更信息统计查询商品信息查询单据信息查询系统辅助管理系统数据备份用户账号添加用户账号维护…注销本系统…退出系统

N3N13N14N4N16N5N17N18N8N6N20N21N11N15N224。3息界面实现4.3.1商品根本信息界面shangpinfrm作为商品根本信息界面,4-5所示.4-5商品根本信息界面布局商品根本信息界面主要是对商品的根本信息进行维护管理，包括添加、删除、23TcominfoTcorpinfocominfo_unitcorpinfo_unit。同时要声明这两个类的实例：Privatecominfo:Tcominfo;当窗体被调用时，需要进行一些初始化操作，实现代码如下:procedureTshangpinfrm.FormActivate(Sender：TObject)；begincominfo:=Tcominfo。create;corpinfo：=Tcorpinfo.createcombobox1。Items:=corpinfo.GetCorpIdLis（；Shang_ClientDataSet.Data：=cominfo.ComAllRecs（）;end；。2corpfrm4-6所示.4—6厂商根本信息界面布局查询和修改功能，厂商根本信息界面调用Tcorpinfo类，因此需要在uses语句里加Tcorpinfocorpinfo_unit。同时要声明这个类的实例:Privatecorpinfo:Tcorpinfo;的实例，实现代码如下：procedureTcorpfr。FormCreat（Sender:TObjec；24begincorpinfo：=Tcorpinfo.create;Corp_ClientDataSet。Data:=corpinfo.CorpRecs();end;4。3。3operfrm4-7所示。4-7职员根本信息界面布局职员根本信息界面主要是对职员的根本信息进行维护管理，包括添加、删除和修改功能,职员根本信息界面调用Toperinfo类，因此需要在uses语句里加上operinfo_unit.同时要声明这个类的实例:Privateoperinfo:Toperinfo;OnActivate事件代码如下：procedureToperfrm。FormActivate(SenderTObject）;varlist1：TStrings；i：integer;begin //将类实例化operinfo：=Toperinfo.create//TreeView1的根节点rootnode1:=TreeView1.Items[；rootnode2:=TreeView1.Items[1];rootnode3:=TreeView。。Items[3]；//返回销售部的人员信息，并将其添加到销售部的节点下list1：=operinf。fori:=0tolist1。Count-1 do25begin。Items。AddChild（rootnode1，list1［i］end;返回采购部的人员信息,并将其添加到采购部的节点下list1:=operinfo。GetOperList2();fori:=0tolist1。Count-1 begin。AddChild(rootnode2，list1［i］end；返回计财部的人员信息,并将其添加到计财部的节点下list1：=operinfo.GetOperList3();fori：=0tolist1.Count—1 beginrootnode：=TreeView1。Items.AddChild（rootnode3，list1[i])；end； //返回管理部的人员信息，并将其添加到管理部的节点下list1：=operinf。GetOperList4（；fori