《文化用品批发管理系统的设计与开发.doc》由会员分享，可在线阅读，更多相关《文化用品批发管理系统的设计与开发.doc（45页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流文化用品批发管理系统的设计与开发.精品文档.毕业设计（论文）题 目 文化用品批发管理系统的设计与开发 毕业设计（论文）原创性声明和使用授权说明原创性声明本人郑重承诺：所呈交的毕业设计（论文），是我个人在指导教师的指导下进行的研究工作及取得的成果。尽我所知，除文中特别加以标注和致谢的地方外，不包含其他人或组织已经发表或公布过的研究成果，也不包含我为获得 及其它教育机构的学位或学历而使用过的材料。对本研究提供过帮助和做出过贡献的个人或集体，均已在文中作了明确的说明并表示了谢意。作 者 签 名： 日 期： 指导教师签名： 日期： 使用授权说明本人完
2、全了解 大学关于收集、保存、使用毕业设计（论文）的规定，即：按照学校要求提交毕业设计（论文）的印刷本和电子版本；学校有权保存毕业设计（论文）的印刷本和电子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论文；在不以赢利为目的前提下，学校可以公布论文的部分或全部内容。作者签名： 日 期： 学位论文原创性声明本人郑重声明：所呈交的论文是本人在导师的指导下独立进行研究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。本人完全意识到本声明的法律后果由本
3、人承担。作者签名： 日期： 年 月 日学位论文版权使用授权书本学位论文作者完全了解学校有关保留、使用学位论文的规定，同意学校保留并向国家有关部门或机构送交论文的复印件和电子版，允许论文被查阅和借阅。本人授权 大学可以将本学位论文的全部或部分内容编入有关数据库进行检索，可以采用影印、缩印或扫描等复制手段保存和汇编本学位论文。涉密论文按学校规定处理。作者签名：日期： 年 月 日导师签名： 日期： 年 月 日指导教师评阅书指导教师评价：一、撰写（设计）过程1、学生在论文（设计）过程中的治学态度、工作精神 优 良 中 及格 不及格2、学生掌握专业知识、技能的扎实程度 优 良 中 及格 不及格3、学生综
4、合运用所学知识和专业技能分析和解决问题的能力 优 良 中 及格 不及格4、研究方法的科学性；技术线路的可行性；设计方案的合理性 优 良 中 及格 不及格5、完成毕业论文（设计）期间的出勤情况 优 良 中 及格 不及格二、论文（设计）质量1、论文（设计）的整体结构是否符合撰写规范？ 优 良 中 及格 不及格2、是否完成指定的论文（设计）任务（包括装订及附件）？ 优 良 中 及格 不及格三、论文（设计）水平1、论文（设计）的理论意义或对解决实际问题的指导意义 优 良 中 及格 不及格2、论文的观念是否有新意？设计是否有创意？ 优 良 中 及格 不及格3、论文（设计说明书）所体现的整体水平 优 良
5、中 及格 不及格建议成绩： 优 良 中 及格 不及格（在所选等级前的内画“”）指导教师： （签名） 单位： （盖章）年 月 日评阅教师评阅书评阅教师评价：一、论文（设计）质量1、论文（设计）的整体结构是否符合撰写规范？ 优 良 中 及格 不及格2、是否完成指定的论文（设计）任务（包括装订及附件）？ 优 良 中 及格 不及格二、论文（设计）水平1、论文（设计）的理论意义或对解决实际问题的指导意义 优 良 中 及格 不及格2、论文的观念是否有新意？设计是否有创意？ 优 良 中 及格 不及格3、论文（设计说明书）所体现的整体水平 优 良 中 及格 不及格建议成绩： 优 良 中 及格 不及格（在所选等
6、级前的内画“”）评阅教师： （签名） 单位： （盖章）年 月 日教研室（或答辩小组）及教学系意见教研室（或答辩小组）评价：一、答辩过程1、毕业论文（设计）的基本要点和见解的叙述情况 优 良 中 及格 不及格2、对答辩问题的反应、理解、表达情况 优 良 中 及格 不及格3、学生答辩过程中的精神状态 优 良 中 及格 不及格二、论文（设计）质量1、论文（设计）的整体结构是否符合撰写规范？ 优 良 中 及格 不及格2、是否完成指定的论文（设计）任务（包括装订及附件）？ 优 良 中 及格 不及格三、论文（设计）水平1、论文（设计）的理论意义或对解决实际问题的指导意义 优 良 中 及格 不及格2、论文的
7、观念是否有新意？设计是否有创意？ 优 良 中 及格 不及格3、论文（设计说明书）所体现的整体水平 优 良 中 及格 不及格评定成绩： 优 良 中 及格 不及格（在所选等级前的内画“”）教研室主任（或答辩小组组长）： （签名）年 月 日教学系意见：系主任： （签名）年 月 日文化用品批发管理系统的设计与开发【摘要】 该系统能够对现今经营文化用品的企业的商品采购、库存盘点和商品销售进行计算机的全面管理，特别是对那些使用人工进行操作的中小型企业有不可取代的作用。本系统主要分为五大功能模块：用户管理，基础信息管理，采购管理，销售管理和仓库管理。此系统能够大量的节省人力资源，更好的增加公司的产值，使得公
8、司能够在当今的社会竞争中有更大的生存能力。采购、销售管理是本系统的重要环节，包含了产品的采购以及文化用品的销售，包含对商品信息、进货单、退货单和库存进行操作。各种单据的汇总使其可以方便的对文化用品销售信息进行查询，为管理员查询提供了方便快捷的操作界面。系统使用Delphi 7.0和SQL Server2000数据库为开发平台,界面友好，使用方便，是小型企业批发管理的必备工具。 【关键词】 文化用品管理系统，SQL Server 2000数据库设计，Delphi 7.0程序设计，毕业论文 Stationery Wholesale Management System Design and Deve
9、lopment【Abstract】 The system can operate on the current business stationery goods procurement, inventory, computer inventory and merchandise sales for the overall management, especially for those using manually operated small and medium enterprises have an irreplaceable role.The system consists of f
10、ive modules: user management, basic information management, purchasing management, sales management and warehouse management. This system 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.Procu
11、rement, sales management is an important part of the system, including product procurement and sales of stationery, including commodity information, form, the return of single-and inventory operations. Summary of the various documents so that it can easily query on stationery sales information for t
12、he administrator for providing a convenient interface.System using Delphi 7.0 and SQL Server2000 database development platform, user-friendly, easy to use, is the wholesale and small business management tool.【Key Words】 Stationery Management System, SQL Server 2000 database design, Delphi 7.0 progra
13、mming, 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.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
14、章 功能模块设计144.1登录模块设计144.1.1登录模块的窗体设计144.1.2登录模块代码设计144.2主窗体设计154.2.1主窗体界面设计164.2.2主窗体代码设计164.3 用户权限模块设计174.3.1用户权限模块界面设计174.3.2用户权限模块代码设计184.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章 系统测试3
15、15.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 用户管理界面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 商品信息编辑界
16、面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业务单据主表11表3.8业务单据明细表11第1章 绪论1.1研究的目的和意义20世纪80年代后，因批发市场比较适合我国现阶段的生产方式，得到了快速的发展与壮大，也因此在我国的经济生活中发挥了重要的作用1。中国批发业虽然有多年的发展历史，但总体来说中国批发业经营方式落后，服务质量不高，这些严重制约着批发业的成长。随着中国加入世
17、界贸易组织，中国经济的快速发展，众多企业越来越意识到计算机技术、网络技术对企业发展的巨大推动作用。通过建立简单、易查和全面的批发管理系统，可以帮助用户规范内部管理、堵塞经营漏洞、降低营运成本、提升决策能力、获取最大效益。本系统用集中的数据库将几乎是所有与批发管理相关的数据（如供应商、客户、各类文化用品信息、各类单据、仓库管理、采购管理、销售管理）统一管理起来，形成集中的数据源。再通过设计友好且易用的界面、强有力的报表生成工具和信息的共享，使文化用品批发企业能够大大减少了以往入货、出货、存货流程繁琐、杂乱的弊端，可以减少入库管理、出库管理及库存管理中的漏洞，以及节约不少管理开支，增加企业收入。1
18、.1.1国内外研究现状自1982年我国企业引进第一套企业信息化软件开始，管理软件在我国已成星星之火可以燎原之势。大中小型企业纷纷欲引进各种管理软件，使企业实现信息化管理。相关调查预测显示，到2010年，我国批发行业整体IT市场将达到120亿元，2006年至2009年的复合年平均增长率将达到17.02。显然，尽管中国批发行业还处在成长期，但中国批发行业未来的成长离不开信息化的投入，尤其是近年来相关企业疯狂扩张、并购重组的推动，开始系统的更新和升级。我国批发业目前的信息化进展还不是十分理想，最大特点就是发展水平的参差不齐，既有还处于刚刚起步的企业,也有已经开始现代物流、数据分析、客户关系管理等高级
19、应用的企业，即使在同一企业内部不同部门间的应用水平也是不同的。国内批发业应用软件虽然达到了“管得明白”的层次，但管得还很粗放，缺乏将销售数据提炼出来应用于经营决策的“商业智能”3。企业拥有者习惯用眼前的投资回报来衡量IT投资的优劣，“买一套软件能增加多少销售额、降低多少成本？4”如果看不出明显的回报，他就不会追加投资。受资金实力的影响，大多数商品批发企业软件系统的投资额在1-3万元，算上相关硬件的投资， 没有5万人民币的投资根本下不来。资金的问题无疑限制了部分商品批发企业的信息化决心。而国外企业会花不少的资金为自身企业量身打造软件，提高管理效率。1.1.2本课题的发展趋势对于文化用品企业来说，
20、不断增长的库存量严重占用了企业的资金，已经成为企业发展的沉重负担。如果能实现如沃尔玛企业那样的“零库存”样式，那么批发管理系统的精简很多，更有效率。“零库存”的含义是以仓库储存形式的某种或某些物品的储存数量为“零”的一个概念,即不保持为库存5。传统的库存管理希望解决的基本问题是何时订货和订多少货，以达到“保障供应而储备量最小”的目标；而现代库存控制的任务是通过适量的库存达到合理的供应，实现总成本最低的目标6。因此，这就需要批发管理系统确定“在哪里存货、存什么货、货物种类及仓库如何搭配”等问题，以实现降低成本的大目标。在技术应用方面，批发管理系统在未来会于网络更加紧密，这就对开发批发管理系统带来
21、了巨大的挑战。一般在行业应用程序中出现的许多处理并非都能够即时执行。例如，验证信用卡在某些时候就需要十秒钟的时间。您在本地商店排队的时候，十秒钟过得很快；但在电子商务领域，十秒钟却非常漫长。如果您的 Web 站点或其他应用程序闲置这么长时间等待对客户的信用卡进行验证，那么您处理大量并发用户的能力将大大降低7。在开发批发管理系统的网络功能时，会越来越多地使用异步处理。它的主要优点包括：前端处理（通常是您的Web 页）响应更快，客户会认为这是一个运行速度较快的系统；提供了用来提出负载平衡请求的简单方式；提供了容错能力；支持断续连接的系统。在如今社会里，你的系统稳定、速度快，客户对你的产品就更满意。
22、1.2研究的基本内容该批发管理系统所实现的主要功能是采购、库存、销售三部分，大量重复烦琐工作均由系统自动完成，操作过程简化，大大降低使用人员的工作量。只需简单地录入进货、销售、收款、付款等单据，而系统就自动帮您统计、分析、分类、汇总各类单据信息生成相应的报表。此外，还可随时查询和分析进货、销售、库存、应收、应付、成本、利润等信息，以及随时与每一位供应商和客户进行清晰、快速地往来对帐，让您能及时、清晰地掌握企业每天的经营状况。1.2.1基本框架文化用品批发管理系统设计为五大功能模块：权限分配、基础信息管理、采购、销售、库存。系统菜单对应五个模块。权限分配主要在系统设置菜单里：用户管理页面只有系统
23、管理员才能打开；密码修改，任何用户都可修改自己的密码。基础信息管理菜单：3个子菜单，往来单位管理、商品信息管理、库存档案管理。采购管理菜单：3个子菜单，采购入库、采购退货、汇总查询（主要是采购入库单汇总、采购退货单汇总）。销售管理菜单：3个子菜单，销售出库、销售退货、汇总查询（主要是销售出库单汇总、销售退货单汇总）。库存管理：3个子菜单，库存查询、报表打印、分类汇总。1.2.2研究的重点及要解决的关键问题重点：(1)了解文化用品批发企业对系统的需求；(2)基础信息管理、仓库管理、销售管理等模块的开发；(3)在统计报表中实现各种统计和打印；(4)在系统设置模块中实现用户管理、用户口令修改；(5)
24、系统各个按钮功能的实现方法。难点：(1)数据库的设计； (2)客户资料的采集； (3)各个功能模块的代码编写；(4)功能与界面的结合；(5)系统的后期测试与调试。解决的关键问题：(1)数据的生成打印问题。把一些汇总的单据内容合理地打印出来，需要用到其它的delphi控件，可以用数据报表功能解决。而数据报表作为企事业单位上报和下达的重要信息载体，随着信息化建设的不断推进，在实际的工作中得到了前所未有的应用8。(2)Delphi编辑工具在处理窗体继承时有时会出现找不到窗体基类或者数据集所连接的数据库连接组件自动断开。解决方案：在设计使用窗体继承这一方法时，先打开数据库连接组件所在的数据库模块，再将
25、窗体基类打开，最后再打开要设计的窗体就不会出现任何问题了9。(3)软件测试是软件质量保证的重要手段10。第2章 系统总体设计2.1系统功能文化用品批发管理软件主要帮助企业实现文化用品的批发管理。第一，对客户、供应商的往来管理以及用户管理。这些管理主要包括商品信息管理、商品入库、商品定价、商品销售、库存查询、入库退货、销售退货等；客户、供应商往来管理主要包括对客户、供应商的信息和联系人管理。用户管理主要实现用户的增加、修改、删除。此外，在各个模块中需要实现相应的打印功能。第二，对采购或销售进行管理。用户既可以进行采购或销售操作，把采购或销售信息存入数据库，也可以通过汇总表查看所有采购或销售信息。
26、第三，对库存进行管理。这个管理主要包括库存查询、商品进出信息汇总和商品利润分析。2.1.1系统功能模块划分根据上面的分析，本系统的功能模块图如图2.1所示：图2.1系统功能模块图2.1.2系统流程图本系统除了对用户管理模块进行了用户权限的设置，其它模块并没有限制，你可以进入自己所想要进行操作的模块中进行操作。如图2.2所示：图2.2文化用品批发管理系统流程图2.2系统开发使用的技术本系统开发工具的开发工具是Delphi 7.0和SQL Server 2000数据库。2.2.1 Delphi 7.0简介和优势Delphi是Borland公司推出的一个基于Windows的、以Object Pasc
27、al语言为核心的、快速开发应用程序的可视化平台，是当今最流行的Windows软件开发工具之一11。Delphi提供了灵活的可视化设计工具，将可视化界面与面向对象技术完美、紧密地结合起来，并封装了Windows编程的复杂性。它的优势之一是开发数据库应用程序。在这方面，它不仅提供了大量的数据库组件，并配有数据库引擎BDE，能通过SQL Links和ODBC等访问多种数据库，同时提供了强大的开发网络数据库的能力12。2.2.2 SQL Server2000简介和优势SQL Server 2000 是Microsoft 公司推出的SQL Server 数据库管理系统。相较于以前的版本，用户自定义函数是
28、SQL Server 2000 新增的数据库对象，是SQL Server 的一大改进13。SQL Server2000具有以下几个优点：（1）上手容易学习SQL Server是掌握其他平台及大型数据，如Oracle,Sybase,DB/2的基础14。因为这些大型数据库对于设备、平台、人员知识的要求往往较高，而并不是每个人都具备这样的条件，且有机会去接触它们。但有了SQL Server的基础，再去学习和使用它们就容易多了。（2）兼容性好SQL Server 2000 除了具有扩展性，可靠性以外，还具有可以迅速开发新的因特网系统的功能。尤其是它可以直接存贮 XML 数据，可以将搜索结果以 XML格
29、式输出等特点，有利于构建了异构系统的互操作性，奠定了面向互联网的企业应用和服务的基石15。第3章 数据库设计3.1数据库结构设计数据库分析是整个数据库应用系统开发过程中的一个重要环节，它具体可分为两个部分：一是概念模型的分析，即E-R图的分析。二是逻辑模型的分析，即表与字段的分析。由于在数据库设计时要同时考虑多方面的问题，比如表间的关系、关键字、各个表应有哪些信息组成等，因此数据库设计的工作是比较复杂的，也是比较重要的。在设计数据库时要了解它的使用环境，充分了解用户的需求，清楚地掌握数据库系统的特点。经过综合的评价和分析后设计出的数据库应满足以下要求：(1) 数据库信息要能充分体现出用户使用系
30、统的需求。 (2) 能够支持用户对数据进行的所有处理。(3) 能够容易被数据库管理系统运行维护。(4) 数据一致性、完整性好，无更新异常。3.1.1系统的实体关系模型E-R模型的组成元素有：实体、属性、联系。E-R模型用E-R图表示。实体是用户工作环境中所涉及的事务，属性是对实体特征的描述。(1) 模型中的实体相当于实体集、一个表，而不是单个实体或表中的一行。实体用矩形框表示，实体名称标注在矩形框内。用菱形表示实体间的联系，菱形框内写上联系名，用无向边把菱形分别与有关实体相连接，在无向边旁标上联系的类型。(2) 属性是实体的性质。用椭圆框表示，与实体之间用一条线相连表的主码是关键属性，关键属性
31、项加下划线。(3) 各子系统模块中主键相同的字段之间存在着相互关联的关系。(4) 在程序中实现对它们的完整性和一致性控制。3.1.2数据库中表的设计按照系统的功能分析和E-R图，设计出数据库中的表。数据库命名为PFGLXT，在这个数据库管理系统中要建立8个表，分别是用户表、商品档案表、单位档案、仓库档案表、单位性质表、联系人表、业务单据主表和业务单据明细表。(1)用户表用户表记录了用户的账号和密码，结构如下：表3.1 用户表序号字段名称数据类型大小默认值可否为空主健说明1IDINT4无否是用户编号2USERNAMEVARCHAR50无否否用户名3PASSWORDVARCHAR50无否否密码4F
32、LGBIT11否否删除的标志5ISMANAGEBIT10否否是否管理员(2)商品档案表商品档案表记录了商品的各种信息，结构如下：表3.2商品档案表序号字段名称数据类型大小默认值可否为空主健说明1商品编号INT4无否是商品编号2商品名称VARCHAR255无否否商品名称3规格型号VARCHAR255无否否商品规格4单位VARCHAR255无否否商品的单位5预设进价MONEY8无否否价格6预设售价MONEY8无否否价格7拼音编码VARCHAR255无是否商品的拼音8备注VARCHAR4000无是否无9FLGBIT11否否删除的标志(3)单位档案单位档案记录了与企业有业务联系的单位的信息，结构如下：
33、表3.3单位档案序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是单位编号2单位名称VARCHAR300无否否单位名称3单位地址VARCHAR300无是否地址4拼音简码VARCHAR300无是否单位拼音5邮编VARCHAR50无是否邮编6单位性质INT4无否否单位的类型7备注VARCHAR5000无是否无8FLGBIT11否否删除的标志 (4) 仓库档案表仓库档案表记录了存放文化用品的仓库信息，结构如下：表3.4仓库档案表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是仓库编号2仓库名称VARCHAR255无否否仓库名称3负责人VARCHAR50无否否仓库负责
34、人4备注VARCHAR4000无是否无5FLGBIT11否否删除的标志(5)单位性质表单位性质表记录了某个单位属于供应商还是属于客户，或者是其它，结构如下：表3.5单位性质表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是单位性质号2单位性质VARCHAR255无是否单位性质名(6)联系人表联系人表记录了各个单位的主要联系人的信息，结构如下：表3.6联系人表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是编号2单位编号INT4无否否所属的单位3联系人VARCHAR300无否否人名4固定电话VARCHAR100无是否电话号码5移动电话VARCHAR100无是否
35、手机号6备注VARCHAR5000无是否无7FLGBIT11否否删除的标志(7)业务单据主表业务单据主表记录了各种单据的主要信息，如采购入库单、销售出库单等，结构如下：表3.7业务单据主表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是主表编号2单号VARCHAR50无否否单号3单位编号INT4无否否哪些单位4经办人VARCHAR50无否否经办人5备注VARCHAR4000无是否无6仓库编号INT4无否否仓库7发生日期DATETIME8无是否业务发生的时间8系统日期DATETIME8无否否存单的时间9定单类型INT4无否否属于采购或销售单等 10FLGBIT11否否删除的标志
36、(8)业务单据明细表业务单据明细表记录了各种单据的详细信息，如商品的采购价、采购数量等，结构如下：表3.8业务单据明细表序号字段名称数据类型大小默认值可否为空主健说明1编号INT4无否是明细单编号2订单编号VARCHAR50无否否主单编号3商品编号INT4无否否商品4单价MONEY8无否否商品单价5数量INT4无否否商品数量6备注VARCHAR4000无是否无7FLGBIT11否否删除的标志3.1.3表之间的关系设计数据库中最基本的表是用户表、商品档案表、单位档案和仓库档案表。用户表：包括用户名、密码、是否是管理员。商品档案表：包括了商品的基本信息。单位档案表：存放供应商、客户的基本信息。仓库
37、档案表：仓库名、仓库负责人之累的信息。这四张表间没有直接联系。业务单据主表存入了用户表的用户编号、单位档案表的单位编号、仓库档案表的仓库编号。业务单据明细表存入了业务单据主表的单号、商品档案表的商品编号。如图所示：图3.1 表间关系图3.2数据模块设计这个模块主要是连接程序和数据库。DataModu页面只要放一个ADOConnection控件。ADOConnection控件的作用是连接数据库。如图所示。图3.2 数据模块图3.2.1数据库连接设置系统连接数据库，如图3.3所示：图3.3 数据库连接图第4章 功能模块设计4.1登录模块设计为了保护本系统数据，本系统实行管理员使用用户名及密码登录系
38、统，并且设置一个超级管理员，不可被删除。启动系统后，会出现一个系统登陆框，要求你输入用户名，并正确的填入该用户名的密码。用户名可直接下拉找到，或自己输入。如果用户名或密码输入错误，则系统会提示你“用户名称或用户密码不正确，请重试”。4.1.1登录模块的窗体设计 图4.1登陆窗体布局图4.1.2登录模块代码设计程序开启时需要自动添加用户名的下拉框内容，登录系统时要验证用户名、密码是否正确。用户名、密码存储在用户表中，字段名为UserName和PassWord。检验通过后，程序进入主窗体。登录模块的主要程序代码如下：procedure TFrmLogin.FormShow(Sender: TObj
39、ect); /程序开启时自动添加用户名的下拉框内容var i:Integer;begin inherited; ADOMaster.Active := False; ADOMaster.CommandText := Select * From 用户表 Where Flg = 1; ADOMaster.Active := True; if ADOMaster.IsEmpty then Exit; for i:=0 to ADOMaster.RecordCount -1 do /查找出的用户名导入下拉框 begin ComboBox1.Items.Add(ADOMaster.FieldByName
40、(UserName).AsString); ADOMaster.Next; end;end;procedure TFrmLogin.SpeedButton1Click(Sender: TObject); /确定 按钮begin inherited; FisLogin := 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.FieldByName(ID).AsString;