文化用品批发管理系统的设计与开发毕业论文.doc

《文化用品批发管理系统的设计与开发毕业论文.doc》由会员分享，可在线阅读，更多相关《文化用品批发管理系统的设计与开发毕业论文.doc（43页珍藏版）》请在三一办公上搜索。

1、文化用品批发管理系统的设计与开发【摘要】 该系统能够对现今经营文化用品的企业的商品采购、库存盘点和商品销售进行计算机的全面管理，特别是对那些使用人工进行操作的中小型企业有不可取代的作用。本系统主要分为五大功能模块：用户管理，基础信息管理，采购管理，销售管理和仓库管理。此系统能够大量的节省人力资源，更好的增加公司的产值，使得公司能够在当今的社会竞争中有更大的生存能力。采购、销售管理是本系统的重要环节，包含了产品的采购以及文化用品的销售，包含对商品信息、进货单、退货单和库存进行操作。各种单据的汇总使其可以方便的对文化用品销售信息进行查询，为管理员查询提供了方便快捷的操作界面。系统使用Delphi

2、7.0和SQL Server2000数据库为开发平台,界面友好，使用方便，是小型企业批发管理的必备工具。 【关键词】 文化用品管理系统，SQL Server 2000数据库设计，Delphi 7.0程序设计，毕业论文 Stationery Wholesale Management System Design and Development【Abstract】 The system can operate on the current business stationery goods procurement, inventory, computer inventory and merchand

3、ise sales for the overall management, especially for those using manually operated small and medium enterprises have an irreplaceable role.The system consists of five modules: user management, basic information management, purchasing management, sales management and warehouse management. This system

4、 can save a lot of human resources, better to increase the companys output, allows the company to compete in todays society have a greater ability to survive.Procurement, sales management is an important part of the system, including product procurement and sales of stationery, including commodity i

5、nformation, form, the return of single-and inventory operations. Summary of the various documents so that it can easily query on stationery sales information for the administrator for providing a convenient interface.System using Delphi 7.0 and SQL Server2000 database development platform, user-frie

6、ndly, easy to use, is the wholesale and small business management tool.【Key Words】 Stationery Management System, SQL Server 2000 database design, Delphi 7.0 programming, Thesis 目录第1章 绪论11.1研究的目的和意义11.1.1国内外研究现状11.1.2本课题的发展趋势21.2研究的基本内容31.2.1基本框架31.2.2研究的重点及要解决的关键问题3第2章 系统总体设计52.1系统功能52.1.1系统功能模块划分52

7、.1.2系统流程图62.2系统开发使用的技术62.2.1 Delphi 7.0简介和优势62.2.2 SQL Server2000简介和优势7第3章 数据库设计83.1数据库结构设计83.1.1系统的实体关系模型83.1.2数据库中表的设计93.1.3表之间的关系设计113.2数据模块设计123.2.1数据库连接设置13第4章 功能模块设计144.1登录模块设计144.1.1登录模块的窗体设计144.1.2登录模块代码设计144.2主窗体设计154.2.1主窗体界面设计164.2.2主窗体代码设计164.3 用户权限模块设计174.3.1用户权限模块界面设计174.3.2用户权限模块代码设计1

8、84.4 基础信息管理模块设计204.4.1基础信息管理模块界面设计204.4.2基础信息管理模块代码设计214.5 采购、销售模块设计244.5.1采购、销售模块界面设计244.5.2采购、销售模块代码设计254.6 仓库管理模块设计284.6.1仓库管理模块界面设计284.6.2仓库管理模块代码设计29第5章 系统测试315.1系统功能测试315.2改进意见34结论35参考文献36致谢38图目录图2.1系统功能模块图5图2.2文化用品批发管理系统流程图6图3.1 表间关系图12图3.2 数据模块图12图3.3 数据库连接图13图4.1登陆窗体布局图14图4.2 主窗体界面16图4.2 用户

9、管理界面17图4.3 密码修改界面18图4.4 往来单位管理界面20图4.5 仓库档案管理界面21图4.6 商品档案管理界面21图4.7 采购入库界面24图4.8 采购入库单汇总界面25图4.9 库存查询界面28图4.10 采购入库商品汇总界面28图4.10 商品分析界面29图5.1 权限提示界面31图5.2 商品信息编辑界面32图5.3 商品提示界面32图5.4 删除提示界面32图5.5 数字提醒界面33图5.6 小数点提醒界面33图5.7 库存查询界面33表目录表3.1 用户表9表3.2商品档案表9表3.3单位档案10表3.4仓库档案表10表3.5单位性质表10表3.6联系人表10表3.7

10、业务单据主表11表3.8业务单据明细表11第1章 绪论1.1研究的目的和意义20世纪80年代后，因批发市场比较适合我国现阶段的生产方式，得到了快速的发展与壮大，也因此在我国的经济生活中发挥了重要的作用1。中国批发业虽然有多年的发展历史，但总体来说中国批发业经营方式落后，服务质量不高，这些严重制约着批发业的成长。随着中国加入世界贸易组织，中国经济的快速发展，众多企业越来越意识到计算机技术、网络技术对企业发展的巨大推动作用。通过建立简单、易查和全面的批发管理系统，可以帮助用户规范内部管理、堵塞经营漏洞、降低营运成本、提升决策能力、获取最大效益。本系统用集中的数据库将几乎是所有与批发管理相关的数据（

11、如供应商、客户、各类文化用品信息、各类单据、仓库管理、采购管理、销售管理）统一管理起来，形成集中的数据源。再通过设计友好且易用的界面、强有力的报表生成工具和信息的共享，使文化用品批发企业能够大大减少了以往入货、出货、存货流程繁琐、杂乱的弊端，可以减少入库管理、出库管理及库存管理中的漏洞，以及节约不少管理开支，增加企业收入。1.1.1国内外研究现状自1982年我国企业引进第一套企业信息化软件开始，管理软件在我国已成星星之火可以燎原之势。大中小型企业纷纷欲引进各种管理软件，使企业实现信息化管理。相关调查预测显示，到2010年，我国批发行业整体IT市场将达到120亿元，2006年至2009年的复合年

12、平均增长率将达到17.02。显然，尽管中国批发行业还处在成长期，但中国批发行业未来的成长离不开信息化的投入，尤其是近年来相关企业疯狂扩张、并购重组的推动，开始系统的更新和升级。我国批发业目前的信息化进展还不是十分理想，最大特点就是发展水平的参差不齐，既有还处于刚刚起步的企业,也有已经开始现代物流、数据分析、客户关系管理等高级应用的企业，即使在同一企业内部不同部门间的应用水平也是不同的。国内批发业应用软件虽然达到了“管得明白”的层次，但管得还很粗放，缺乏将销售数据提炼出来应用于经营决策的“商业智能”3。企业拥有者习惯用眼前的投资回报来衡量IT投资的优劣，“买一套软件能增加多少销售额、降低多少成本

13、？4”如果看不出明显的回报，他就不会追加投资。受资金实力的影响，大多数商品批发企业软件系统的投资额在1-3万元，算上相关硬件的投资， 没有5万人民币的投资根本下不来。资金的问题无疑限制了部分商品批发企业的信息化决心。而国外企业会花不少的资金为自身企业量身打造软件，提高管理效率。1.1.2本课题的发展趋势对于文化用品企业来说，不断增长的库存量严重占用了企业的资金，已经成为企业发展的沉重负担。如果能实现如沃尔玛企业那样的“零库存”样式，那么批发管理系统的精简很多，更有效率。“零库存”的含义是以仓库储存形式的某种或某些物品的储存数量为“零”的一个概念,即不保持为库存5。传统的库存管理希望解决的基本问

14、题是何时订货和订多少货，以达到“保障供应而储备量最小”的目标；而现代库存控制的任务是通过适量的库存达到合理的供应，实现总成本最低的目标6。因此，这就需要批发管理系统确定“在哪里存货、存什么货、货物种类及仓库如何搭配”等问题，以实现降低成本的大目标。在技术应用方面，批发管理系统在未来会于网络更加紧密，这就对开发批发管理系统带来了巨大的挑战。一般在行业应用程序中出现的许多处理并非都能够即时执行。例如，验证信用卡在某些时候就需要十秒钟的时间。您在本地商店排队的时候，十秒钟过得很快；但在电子商务领域，十秒钟却非常漫长。如果您的 Web 站点或其他应用程序闲置这么长时间等待对客户的信用卡进行验证，那么您

15、处理大量并发用户的能力将大大降低7。在开发批发管理系统的网络功能时，会越来越多地使用异步处理。它的主要优点包括：前端处理（通常是您的Web 页）响应更快，客户会认为这是一个运行速度较快的系统；提供了用来提出负载平衡请求的简单方式；提供了容错能力；支持断续连接的系统。在如今社会里，你的系统稳定、速度快，客户对你的产品就更满意。1.2研究的基本内容该批发管理系统所实现的主要功能是采购、库存、销售三部分，大量重复烦琐工作均由系统自动完成，操作过程简化，大大降低使用人员的工作量。只需简单地录入进货、销售、收款、付款等单据，而系统就自动帮您统计、分析、分类、汇总各类单据信息生成相应的报表。此外，还可随时

16、查询和分析进货、销售、库存、应收、应付、成本、利润等信息，以及随时与每一位供应商和客户进行清晰、快速地往来对帐，让您能及时、清晰地掌握企业每天的经营状况。1.2.1基本框架文化用品批发管理系统设计为五大功能模块：权限分配、基础信息管理、采购、销售、库存。系统菜单对应五个模块。权限分配主要在系统设置菜单里：用户管理页面只有系统管理员才能打开；密码修改，任何用户都可修改自己的密码。基础信息管理菜单：3个子菜单，往来单位管理、商品信息管理、库存档案管理。采购管理菜单：3个子菜单，采购入库、采购退货、汇总查询（主要是采购入库单汇总、采购退货单汇总）。销售管理菜单：3个子菜单，销售出库、销售退货、汇总查

17、询（主要是销售出库单汇总、销售退货单汇总）。库存管理：3个子菜单，库存查询、报表打印、分类汇总。1.2.2研究的重点及要解决的关键问题重点：(1)了解文化用品批发企业对系统的需求；(2)基础信息管理、仓库管理、销售管理等模块的开发；(3)在统计报表中实现各种统计和打印；(4)在系统设置模块中实现用户管理、用户口令修改；(5)系统各个按钮功能的实现方法。难点：(1)数据库的设计； (2)客户资料的采集； (3)各个功能模块的代码编写；(4)功能与界面的结合；(5)系统的后期测试与调试。解决的关键问题：(1)数据的生成打印问题。把一些汇总的单据内容合理地打印出来，需要用到其它的delphi控件，可

18、以用数据报表功能解决。而数据报表作为企事业单位上报和下达的重要信息载体，随着信息化建设的不断推进，在实际的工作中得到了前所未有的应用8。(2)Delphi编辑工具在处理窗体继承时有时会出现找不到窗体基类或者数据集所连接的数据库连接组件自动断开。解决方案：在设计使用窗体继承这一方法时，先打开数据库连接组件所在的数据库模块，再将窗体基类打开，最后再打开要设计的窗体就不会出现任何问题了9。(3)软件测试是软件质量保证的重要手段10。第2章 系统总体设计2.1系统功能文化用品批发管理软件主要帮助企业实现文化用品的批发管理。第一，对客户、供应商的往来管理以及用户管理。这些管理主要包括商品信息管理、商品入

19、库、商品定价、商品销售、库存查询、入库退货、销售退货等；客户、供应商往来管理主要包括对客户、供应商的信息和联系人管理。用户管理主要实现用户的增加、修改、删除。此外，在各个模块中需要实现相应的打印功能。第二，对采购或销售进行管理。用户既可以进行采购或销售操作，把采购或销售信息存入数据库，也可以通过汇总表查看所有采购或销售信息。第三，对库存进行管理。这个管理主要包括库存查询、商品进出信息汇总和商品利润分析。2.1.1系统功能模块划分根据上面的分析，本系统的功能模块图如图2.1所示：图2.1系统功能模块图2.1.2系统流程图本系统除了对用户管理模块进行了用户权限的设置，其它模块并没有限制，你可以进入

20、自己所想要进行操作的模块中进行操作。如图2.2所示：图2.2文化用品批发管理系统流程图2.2系统开发使用的技术本系统开发工具的开发工具是Delphi 7.0和SQL Server 2000数据库。2.2.1 Delphi 7.0简介和优势Delphi是Borland公司推出的一个基于Windows的、以Object Pascal语言为核心的、快速开发应用程序的可视化平台，是当今最流行的Windows软件开发工具之一11。Delphi提供了灵活的可视化设计工具，将可视化界面与面向对象技术完美、紧密地结合起来，并封装了Windows编程的复杂性。它的优势之一是开发数据库应用程序。在这方面，它不仅提

21、供了大量的数据库组件，并配有数据库引擎BDE，能通过SQL Links和ODBC等访问多种数据库，同时提供了强大的开发网络数据库的能力12。2.2.2 SQL Server2000简介和优势SQL Server 2000 是Microsoft 公司推出的SQL Server 数据库管理系统。相较于以前的版本，用户自定义函数是SQL Server 2000 新增的数据库对象，是SQL Server 的一大改进13。SQL Server2000具有以下几个优点：（1）上手容易学习SQL Server是掌握其他平台及大型数据，如Oracle,Sybase,DB/2的基础14。因为这些大型数据库对于设

22、备、平台、人员知识的要求往往较高，而并不是每个人都具备这样的条件，且有机会去接触它们。但有了SQL Server的基础，再去学习和使用它们就容易多了。（2）兼容性好SQL Server 2000 除了具有扩展性，可靠性以外，还具有可以迅速开发新的因特网系统的功能。尤其是它可以直接存贮 XML 数据，可以将搜索结果以 XML格式输出等特点，有利于构建了异构系统的互操作性，奠定了面向互联网的企业应用和服务的基石15。第3章 数据库设计3.1数据库结构设计数据库分析是整个数据库应用系统开发过程中的一个重要环节，它具体可分为两个部分：一是概念模型的分析，即E-R图的分析。二是逻辑模型的分析，即表与字段

23、的分析。由于在数据库设计时要同时考虑多方面的问题，比如表间的关系、关键字、各个表应有哪些信息组成等，因此数据库设计的工作是比较复杂的，也是比较重要的。在设计数据库时要了解它的使用环境，充分了解用户的需求，清楚地掌握数据库系统的特点。经过综合的评价和分析后设计出的数据库应满足以下要求：(1) 数据库信息要能充分体现出用户使用系统的需求。 (2) 能够支持用户对数据进行的所有处理。(3) 能够容易被数据库管理系统运行维护。(4) 数据一致性、完整性好，无更新异常。3.1.1系统的实体关系模型E-R模型的组成元素有：实体、属性、联系。E-R模型用E-R图表示。实体是用户工作环境中所涉及的事务，属性是

24、对实体特征的描述。(1) 模型中的实体相当于实体集、一个表，而不是单个实体或表中的一行。实体用矩形框表示，实体名称标注在矩形框内。用菱形表示实体间的联系，菱形框内写上联系名，用无向边把菱形分别与有关实体相连接，在无向边旁标上联系的类型。(2) 属性是实体的性质。用椭圆框表示，与实体之间用一条线相连表的主码是关键属性，关键属性项加下划线。(3) 各子系统模块中主键相同的字段之间存在着相互关联的关系。(4) 在程序中实现对它们的完整性和一致性控制。3.1.2数据库中表的设计按照系统的功能分析和E-R图，设计出数据库中的表。数据库命名为PFGLXT，在这个数据库管理系统中要建立8个表，分别是用户表、

25、商品档案表、单位档案、仓库档案表、单位性质表、联系人表、业务单据主表和业务单据明细表。(1)用户表用户表记录了用户的账号和密码，结构如下：表3.1 用户表序号字段名称数据类型大小默认值可否为空主健说明1IDINT4无否是用户编号2USERNAMEVARCHAR50无否否用户名3PASSWORDVARCHAR50无否否密码4FLGBIT11否否删除的标志5ISMANAGEBIT10否否是否管理员(2)商品档案表商品档案表记录了商品的各种信息，结构如下：表3.2商品档案表序号字段名称数据类型大小默认值可否为空主健说明1商品编号INT4无否是商品编号2商品名称VARCHAR255无否否商品名称3规格

26、型号VARCHAR255无否否商品规格4单位VARCHAR255无否否商品的单位5预设进价MONEY8无否否价格6预设售价MONEY8无否否价格7拼音编码VARCHAR255无是否商品的拼音8备注VARCHAR4000无是否无9FLGBIT11否否删除的标志(3)单位档案单位档案记录了与企业有业务联系的单位的信息，结构如下：表3.3单位档案序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是单位编号2单位名称VARCHAR300无否否单位名称3单位地址VARCHAR300无是否地址4拼音简码VARCHAR300无是否单位拼音5邮编VARCHAR50无是否邮编6单位性质INT4无否

27、否单位的类型7备注VARCHAR5000无是否无8FLGBIT11否否删除的标志 (4) 仓库档案表仓库档案表记录了存放文化用品的仓库信息，结构如下：表3.4仓库档案表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是仓库编号2仓库名称VARCHAR255无否否仓库名称3负责人VARCHAR50无否否仓库负责人4备注VARCHAR4000无是否无5FLGBIT11否否删除的标志(5)单位性质表单位性质表记录了某个单位属于供应商还是属于客户，或者是其它，结构如下：表3.5单位性质表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是单位性质号2单位性质VARCHAR

28、255无是否单位性质名(6)联系人表联系人表记录了各个单位的主要联系人的信息，结构如下：表3.6联系人表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是编号2单位编号INT4无否否所属的单位3联系人VARCHAR300无否否人名4固定电话VARCHAR100无是否电话号码5移动电话VARCHAR100无是否手机号6备注VARCHAR5000无是否无7FLGBIT11否否删除的标志(7)业务单据主表业务单据主表记录了各种单据的主要信息，如采购入库单、销售出库单等，结构如下：表3.7业务单据主表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是主表编号2单号VAR

29、CHAR50无否否单号3单位编号INT4无否否哪些单位4经办人VARCHAR50无否否经办人5备注VARCHAR4000无是否无6仓库编号INT4无否否仓库7发生日期DATETIME8无是否业务发生的时间8系统日期DATETIME8无否否存单的时间9定单类型INT4无否否属于采购或销售单等 10FLGBIT11否否删除的标志(8)业务单据明细表业务单据明细表记录了各种单据的详细信息，如商品的采购价、采购数量等，结构如下：表3.8业务单据明细表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是明细单编号2订单编号VARCHAR50无否否主单编号3商品编号INT4无否否商品4单价M

30、ONEY8无否否商品单价5数量INT4无否否商品数量6备注VARCHAR4000无是否无7FLGBIT11否否删除的标志3.1.3表之间的关系设计数据库中最基本的表是用户表、商品档案表、单位档案和仓库档案表。用户表：包括用户名、密码、是否是管理员。商品档案表：包括了商品的基本信息。单位档案表：存放供应商、客户的基本信息。仓库档案表：仓库名、仓库负责人之累的信息。这四张表间没有直接联系。业务单据主表存入了用户表的用户编号、单位档案表的单位编号、仓库档案表的仓库编号。业务单据明细表存入了业务单据主表的单号、商品档案表的商品编号。如图所示：图3.1 表间关系图3.2数据模块设计这个模块主要是连接程序

31、和数据库。DataModu页面只要放一个ADOConnection控件。ADOConnection控件的作用是连接数据库。如图所示。图3.2 数据模块图3.2.1数据库连接设置系统连接数据库，如图3.3所示：图3.3 数据库连接图第4章 功能模块设计4.1登录模块设计为了保护本系统数据，本系统实行管理员使用用户名及密码登录系统，并且设置一个超级管理员，不可被删除。启动系统后，会出现一个系统登陆框，要求你输入用户名，并正确的填入该用户名的密码。用户名可直接下拉找到，或自己输入。如果用户名或密码输入错误，则系统会提示你“用户名称或用户密码不正确，请重试”。4.1.1登录模块的窗体设计 图4.1登陆

32、窗体布局图4.1.2登录模块代码设计程序开启时需要自动添加用户名的下拉框内容，登录系统时要验证用户名、密码是否正确。用户名、密码存储在用户表中，字段名为UserName和PassWord。检验通过后，程序进入主窗体。登录模块的主要程序代码如下：procedure TFrmLogin.FormShow(Sender: TObject); /程序开启时自动添加用户名的下拉框内容var i:Integer;begin inherited; ADOMaster.Active := False; ADOMaster.CommandText := Select * From 用户表 Where Flg =

33、 1; ADOMaster.Active := True; if ADOMaster.IsEmpty then Exit; for i:=0 to ADOMaster.RecordCount -1 do /查找出的用户名导入下拉框 begin ComboBox1.Items.Add(ADOMaster.FieldByName(UserName).AsString); ADOMaster.Next; end;end;procedure TFrmLogin.SpeedButton1Click(Sender: TObject); /确定 按钮begin inherited; FisLogin :=

34、False; ADOMaster.Active := False; ADOMaster.CommandText := Select * From 用户表 Where UserName = +ComboBox1.Text+ and PassWord = +Edit1.Text+; ADOMaster.Active := True; if not ADOMaster.IsEmpty then /用户名、密码正确的情况 begin LoginName := ADOMaster.FieldByName(UserName).AsString; LoginID := ADOMaster.FieldByNa

35、me(ID).AsString; isManage:= ADOMaster.FieldByName(isManage).AsBoolean; FisLogin := True; ModalResult := mrOk; end else begin ComboBox1.Text:=; Edit1.Text:=; if ShowMessageBox(用户名或密码出错，请重试！,系统提示) mrOk then Exit; end;end;4.2主窗体设计登录进入系统后，首先会看到一个主窗口，它分为以下几部分：顶部是系统的菜单栏，每个菜单对应了不同的操作功能。管理员登陆到主窗体后，可以根据需要选择他

36、所想要的进行操作的模块，进行相应的操作。4.2.1主窗体界面设计图4.2 主窗体界面4.2.2主窗体代码设计系统主窗口需要为用户提供使用各种功能的途径，因此，这部分的代码主要是根据用户的选择调用各个功能模块。在窗口中调用各个功能模块的方法主要是通过主菜单的各个菜单处理过程中编写相应的代码完成的。主要程序代码如下：procedure TFrmMain.N3Click(Sender: TObject);begin inherited; TFrmPassWordEdit.ShowEditPassWord; /更改密码end;procedure TFrmMain.N2Click(Sender: TOb

37、ject);begin inherited; if Login.isManage = True then TFrmUser.ShowUserManage /用户管理 else begin ShowMessageBox(只有超级管理员用户才能进入此页！,系统提示); Exit; end;end;procedure TFrmMain.N6Click(Sender: TObject);begin inherited; Close; /退出end;procedure TFrmMain.N14Click(Sender: TObject);begin inherited; TFrmWare_View.Sh

38、owWare_View_BuyIn; /采购入库商品汇总表end;procedure TFrmMain.N23Click(Sender: TObject);begin inherited; TFrmWare_View.ShowWare_View_BuyTT; /采购退货商品汇总表end;4.3 用户权限模块设计这个模块主要是用户的设置，密码的修改。用户管理页面只有超级管理员登录才能打开，其它用户不能用。密码修改只能修改自己的。4.3.1用户权限模块界面设计图4.2 用户管理界面图4.3 密码修改界面4.3.2用户权限模块代码设计用户权限模块主要是在系统设置的菜单下。这个模块和登陆有关，主要编辑

39、数据库中的用户表。用户管理界面设计：设置用户权限，只有超级管理员可以进入这个界面，进行增删改用户操作；增加用户，默认密码为空；修改用户，只能修改用户的名称；删除用户，直接从数据库中删除用户信息。代码如下：procedure TFrmUser.SpeedButton1Click(Sender: TObject); /添加 按钮begin inherited; FrmUserEdit := TFrmUserEdit.Create(Self); if FrmUserEdit.ShowModal = mrOK then /返回“确定”，则把新用户加入数据库 begin ADOMaster.Append

40、; ADOMaster.FieldByName(UserName).AsString := FrmUserEdit.Edit1.Text; ADOMaster.FieldByName(PassWord).AsString := ; ADOMaster.Post; end; FrmUserEdit.Free;end;procedure TFrmUser.SpeedButton2Click(Sender: TObject); /修改 按钮begin inherited; if ADOMaster.FieldByName(isManage).AsBoolean then /如果是超级管理员，不可被修

41、改 begin Application.MessageBox(系统用户不能修改！, 系统提示, MB_OKCANCEL + MB_ICONINFORMATION); Exit; end; FrmUserEdit := TFrmUserEdit.Create(Self); FrmUserEdit.Edit1.Text := ADOMaster.FieldByName(UserName).AsString; if FrmUserEdit.ShowModal = mrOK then /确定修改，则把修改后的内容改入数据库 begin ADOMaster.Edit; ADOMaster.FieldBy

42、Name(UserName).AsString := FrmUserEdit.Edit1.Text; ADOMaster.Post; end; FrmUserEdit.Free;end;procedure TFrmUser.SpeedButton3Click(Sender: TObject); /删除 按钮begin inherited; if ADOMaster.FieldByName(isManage).AsBoolean then /超级管理员不可被删 begin Application.MessageBox(系统用户不能删除！, 系统提示, MB_OKCANCEL + MB_ICONINFORMATION); Exit; end; if Application.MessageBox(是否要删除此记录！, 系统提示, MB_OKCANCEL + MB_ICONINFORMATION) = IDOK the