软件工程任务书

《软件工程任务书》由会员分享，可在线阅读，更多相关《软件工程任务书（47页珍藏版）》请在装配图网上搜索。

1、课程设计任务书及成绩评定一、 课程设计的目的和任务系统的开发和应用目的是使售票活动能够在多个不同的地点（除火车站外）进行并且能够使旅客通过系统查询到自己所需要的出行信息。该系统的中心功能是列车和售票信息的查询功能和售票功能。这是两个功能在实现上十分的类似，售票需要首先先通过查询的方式得到满足要求的车票，然后再进行售票。所以售票功能可以看成是列车和售票信息查询功能的延伸。除了中心功能外，该系统还有关于增减列车，增减售票员，向数据库中添加车票等等。这些功能都是为了实现售票功能而做的准备。这样整个系统才能够更加完善，在系统需要修改的时候，才能更加的方便。系统的用户可以分为旅客、网点售票员、车站售票员

2、，系统管理员这四类。由于他们权限的不同，系统所赋予他们的功能也是不同的。旅客在该系统中所应用的功能是对列车和售票信息的查询。网点售票员在系统中所应用的主要功能是售票，车站售票员在系统中所应用的主要功能除了售票外还有退票，而系统的管理员所应用的功能则是对系统的列车信息，车票信息和售票员信息进行管理。指导教师签字： 日期： 指导教师评语成绩： 指导教师签字： 日期： 课程设计所需软件、硬件等一硬件：1.PC机二软件：1.Windows xp 操作系统2.Delphi7环境3.Sql server 2005课程设计进度计划起至日期工作内容备注2011.5.1-2011.5.152011.5.16-2

3、011.6.12011.6.2-2011.6.30 nm收集资料编写代码运行、调试参考文献、资料索引序号文献、资料名称编著者出版单位1Delphi应用程序设计 李目海 电子科技大学出版社2Delphi程序设计实用教程 叶核亚 电子工业出版社3Delphi 2005程序设计教程 刘瑞新编著 机械工业出版社4 数据库系统概论 王珊，萨师煊 高等教育出版社5 软件工程 张海藩. 人民邮电出版社6 SQL Server数据库技术及应用项目教程刘芳. 清华大学出版社7 应用软工程原理 刘玉然8 实用软件工程（第2版） 赵池龙 杨林 孙伟 电子工业出版社目 录目 录4第一章 概述51.1系统要求51.2系

4、统的功能描述5第二章 需求分析72.1需求概述72.2功能需求72.2.1列车信息及售票信息查询72.2.2获得售票权限72.2.3登录系统82.2.4火车票的销售及退票82.2.5列车及车票的管理82.2.6售票员的管理9第三章 系统需求分析103.1业务需求103.1.1业务组织103.1.2业务定义113.1.3业务流程133.2功能需求153.2.1功能组成153.2.2功能逻辑163.3数据需求183.3.1数据关系183.3.2数据定义193.3.3系统的数据库设计203.3.4数据字典22第四章 详细设计244.1 数据库详细设计244.1.1 数据库环境配置244.1.2 表设

5、计及其关系设置284.2 界面设计294.2.1欢迎界面294.2.2 首页294.2.3用户模块30第五章 系统代码实现33第六章 系统测试456.1登陆界面456.2进入用户模块466.3 系统测试情况46第七章 总结47第一章 概述1.1系统要求现今的社会发展迅速，火车成为了人们在交通方面不可缺少的交通工具，乘坐火车出行的人越来越多，所以铁路的客运量也在迅速的增长着。同时，时间代表的是生命。为了给人们带来方便快捷的交通环境，铁路系统采取提高列车的速度，增加客运列车等等从而来满足大量的旅客的乘车需求。但是，现在人多车多的情况下，如果再像是从前一样，在一个单一的地点售票，必然满足不了现在的形

6、势。所以就需要售票能够在不同的地点进行，同时旅客也应该能够在购买车票之前知道自己所需要的列车是否有票的信息。如此的情况之下，售票系统的需要自然是相当必要的。售票系统的出现能够在很大的程度上解决单一地点售票所带来的种种不便，并且能够给想要出行的旅客带来足够的相关信息，使旅客们不必非要到车站的售票处，甚至不用出门就能够知道是否有合适自己出行的车票。对于售票处的地点也从原来的单一地点（车站）变成了多个地点，可以在市内的多个地点（宾馆、酒店、娱乐场所等等）。这样给将要出行的旅客带来了更进一步的方便。使旅客无论是在金钱还是在时间方面都能够得到充分的节省。火车站市场的管理和规范问题，是困扰我们多年的一个老

7、问题，也是政府管理中的一个难点，订票是客运业务中的一个最基本的业务，表面上看，它只是火车站业务的一个简单的部分，但是它涉及到管理与客户服务等多方面，因此，过去传统的售票方式已经不能满足现代客运业务流量剧增的客观要求，这就要求一种全新的订票方式网上订票，来缓解订票高峰时期的客运压力，并为用户提供方便快捷的订票服务。本次设计便是利用开发工具java和SQL Server 2008数据库共同开发的一个火车站网上订票系统，它能方便快捷地运用在火车站订票业务的营运之中。1.2系统的功能描述本系统的应用主要是针对一个始发站的。系统实现了作为一个始发站售票活动相关的基本功能。具体的功能描述如下：1) 旅客查

8、询列车及售票信息。旅客可以通过自己的需求来查询是否有满足自己要求的列车。2)火车票的销售。售票员通过旅客提供的信息查询到满足旅客要求的列车并将该车的车票出售给旅客。3)退票。售票员将未过期的车票退掉。4)增加一列新的列车。本系统的管理员向系统中添加一列新的列车的全部信息。5)删除列车。系统的管理员将系统中一列列车的信息全部删除。6)火车票的填充。系统的管理员向数据库里添加火车票 。7)火车票的删除。系统的管理员将过期的火车票删除。8) 增加一名新的售票员。系统的管理员向系统中加入一个新的具有售票和退票权限的售票员。9)删除售票员。系统的管理员将系统中的某个车站售票员或者是网点的售票员删除。这样

9、意味这回收了他们的售票权限。10) 网点售票员的注册。网点售票员在通过车站方面的审查后，需要在系统上注册。11)修改密码。售票员在具有售票权限后可以进入系统修改自己登录系统的密码。12)用户登录系统。第二章 需求分析2.1需求概述火车站售票系统是一个融合火车票的销售、退票、列车管理、车票管理、售票员管理，列车信息及售票信息查询为一身的综合系统。该系统的一切售票相关的活动都是针对于从大连站始发的列车。通过该系统可以使售票相关的活动在可以访问Internet的任何地点进行。解决了单一售票地点所带了的种种不便。该系统的用户有四类，他们分别是一般用户（旅客）、车站售票员、网点售票员，管理员。在功能方面

10、可分为以下六个部分：1) 列车信息及售票处信息查询。2) 获得售票权限。3) 登录系统。4) 火车票的销售及退票。5) 列车及车票的管理。6) 售票员的管理。2.2功能需求2.2.1列车信息及售票信息查询此功能是任何能够访问到系统的用户都拥有的功能。一般旅客用户在购买出行的火车票前，可以登录系统，通过方便自己的查询方式，来查询到满足自己要求的列车,并可以确定出自己需要的某个日期是否有票可以出售。这里提供给用户的查询方式有两种，一通过车次的查询。二通过目的站的查询。通过车次查询，旅客已经确定了自己想要乘坐的列车的车次，便可以直接的来查询该车次的列车的具体售票情况。通过目的站的查询，旅客如果不知道

11、自己乘坐的列车的车次，只是知道想要去哪里，这时候就需要通过目的站来查询满足要求的列车及售票的情况。2.2.2获得售票权限售票权限的获得是指系统的两种具有售票权限的用户（包括车站售票员和网点售票员）获得到售票权限。车站售票员获得售票权限，车站售票员的售票权限是由系统管理员进行添加的。系统的管理员向系统中添加了某个车站售票员的信息后，该车站售票员就可以通过自己的工号和密码来登录系统，并进行售票及权限容许下的其他工作。网点售票员，网点售票员是通过在网络中注册自己的信息，来获得售票的权限的，注册成功后，获得到售票的权限及其他网点售票员的其他权限。2.2.3登录系统登录系统包括一般用户、车站售票员、网点

12、售票员及系统管理员登录。一般用户通过流览器访问该系统的网址，登录到系统的首页并在页面的提示下做自己权限内的查询。车站售票员在登录系统后，在首页上选择自己的登录类型并将自己的工号和密码输入登录系统。登录后，系统会显示出车站售票员所具有的操作权限。网点售票员登录系统后，在首页上选择自己的登录类型并将自己的工号和密码输入登录系统。登录后，系统会显示出网点售票员所具有的操作权限。系统管理员在登录系统后，在首页上选择自己的登录类型并将自己的工号和密码输入来登录系统。登录系统后，系统会显示出系统管理员所具有的操作权限。2.2.4火车票的销售及退票火车票的销售是针对于系统的车站售票员和网点售票员的。在登录属

13、于自己的工作平台后，通过旅客提出的乘车要求来查询满足要求的列车，查询包括两种，一是车次查询，二是目的站查询。并将该车的车票出售。退票是车站售票员才有的权限。退票是指已售出的火车票在列车开出之前将票退回到数据库中，退出的车票还能继续出售。2.2.5列车及车票的管理列车及车票的管理包括增加列车信息、删除列车信息、火车票的填充，火车票的删除。增加列车，系统管理员将一列新的列车的全部信息输入到系统的数据库中，外界便可以通过系统来查询它的所有信息，售票员可以出售该列车的车票。删除列车，系统管理员将一列新的列车的全部信息从系统的数据库中删除，外界将无法通过系统来查询它的所有信息，售票员不能够再出售该列车的

14、车票。火车票的填充是系统管理员向系统的数据库中添加新的车票。新的车票添加到数据库中后，售票员可以出售这些新添入的车票。需要添加该列车的车票。火车票的删除是系统管理员将过期的车票或者是系统中已经不存在的列车的车票删除。比如当日已经发出的列车的车票车站已经停运的列车的车票都属于过期的车票。这样的车票不能再出售，所以要从系统的数据库中将它们删除。2.2.6售票员的管理售票员的管理包括增加售票员，网点售票员的注册，删除车站售票员，删除网点售票员，售票员修改自己的登录密码。增加车站售票员是系统管理员权限内的操作。系统管理员向系统的数据库中输入某个新的车站售票员的信息后，该售票员将在系统中具有一个车站售票

15、员所具有的所有权限内的操作。网点售票员注册是一个未在系统中注册的网点售票员向系统的数据库中输入自己的信息的过程。网点售票员将自己的信息填写，如注册的页面通过验证后，保存在系统的数据库中，注册过的网点售票员将能够具有一个网点售票员所具有权限。删除售票员是系统管理员权限内的操作。系统管理员从系统的数据库中将某个车站售票员的全部信息从系统的数据库中删除。该车站售票员将不再具有一个车站售票员的权限。售票员修改自己的登录密码是指系统中的售票员能够修改自己登录系统时的密码。第三章 系统需求分析3.1业务需求3.1.1业务组织系统结构图；图3.1 铁道部门的组织结构3.1.2业务定义数据库连接用户登录员工售

16、票子系统售票系统系统用户管理员子系统 售票员 客 户 部门主管 系统管理员图3.2 系统总体用例图图3.3 管理员子系统用例图信息查询使用数据库打印车票车票销售使用数据库车票退订售票员图3.4 售票员工子系统用例图日常管理打印报表车厢管理查询统计国际业务图3.5 部门主管用例图系统权限本系统只针对内部员工开放，同时普通员工可以进行信息查询，密码的找回及车票的销售与退订，不具备对数据的修改、添加权。管理员不仅对员工子系统具有访问权，而且可以查询统计信息。信息的查询由于客户在购买火车票并不一定知道具体的车次信息，所以查询分为按班次、目的地查询，而管理员则可以查询销售的数据统计。火车票的销售与退订当

17、客户选定好车票时，前台售票员出售车票，并把车票信息录入数据库。当由于特殊原因需要退票时，售票员可以按照公司规定为客户退订车票，并把退订的车票信息录入后台数据库。信息的修改当列车信息发生改变或班次停开、增加时，管理员可以及时的在数据库录入，以便能及时放映到售票前台系统。营业统计给高层提供及时的车票销售，班次满客率等信息，为高层及时作出适当的调整。密码的找回及修改当员工或管理员忘记密码时，可以通过自己先前设计的密码问题找回密码，或当密码泄密时及时修改登录密码。3.1.3业务流程系统流程图如下查询程序订票程序退票程序火车站网上订票系统系统数据库事务相应信息操作反馈图3.6顶层系统流程输入所需车次的重

18、要信息查询程序系统数据库符合用户需求的车次信息事务图3.7车次信息查询系统流程图查询程序系统数据库符合用户需求的订票信息事务输入查询条件图3.8订单信息查询系统流程图售票程序系统数据库操作反馈事务输入售票信息图3.8订票系统流程图退票程序系统数据库操作反馈事务输入退票信息图3.9退票系统流程图3.2功能需求3.2.1功能组成系统从用户出发，建立如下功能模块。火车票售票系统管理员子系统售票员子系统车票销售营运统计列车信息修改班次满客率员工添加信息查询火车票退定按班次查询按目的地查询添加新班次删除取消班次修改班次信息按日统计销售收入按季度统计销售收入按年统计销售收入图3.9 系统功能模块图3.2.

19、2功能逻辑售票系统的数据流程总图如下客户P1车票信息查询数据车票费用售票员车次数据表车次，座位数据P2分类处理票价车票销售数据图3.10 售票数据流程图客户查询数据售票员退票规定车票数据，退票原因P1分类处理应退票价不能退的车票销售记录图3.11 退票数据流程图部门主管查询数据系统管理员数据库要查询数据P1分类处理报表数据不能查询的数据信息高层管理分析后的报表数据图3.12 信息查询数据流程图3.3数据需求3.3.1数据关系系统E-R图图3.13 系统E-R图3.3.2数据定义数据存储描述表3.1 数据存储描述数据存储名称含义说明数据存储组成员工员工的主要信息员工ID，员工名，出生日期，密码，

20、密码问题，问题答案，入厂日期，地址车次列车车次的基本信息列车车次，列车类型，始发站，始发时间，终点站，到达时间，里程，票价售票客户所购买车票的相关信息列车车次，列车类型，座位类型，所售票量退票客户所退车票信息退票车次，退票原因，所退票价数据流描述表3.2 数据流描述数据流编号数据流名称含义说明数据流来源数据流去向D2-1信息卡客户购买车票所提供的信息信息客户要求模块P2、1售票员处理P2、2D2-2车次单更具客户要求查询的相关信息查询处理模块P2、1客户选择处理模块P2、3D2-3购票单客户最终选择的相关信息处理逻辑描述表3.3 P1处理逻辑描述处理逻辑编号P1处理逻辑名称退票处理含义说明客户

21、退票时的操作输入的数据流所退票的处理系统根据退票信息增加退票记录输出的数据流退票单3.3.3系统的数据库设计表3.4 车站售票员信息字段名称字段大小数据类型默认值必须字段允许空Key中文含义Gid10char是否是员工号name10char是否员工姓名sex5char是否员工性别password20char是否登录密码表3.5网点售票员信息表字段名称字段大小数据类型默认值必须字段允许空Key中文含义gid10char是否是员工号name10char是否员工的姓名sex5char是否员工的性别cardid20char是否身份证号码tel20char是否联系电话suoshucom30char是否所

22、属的单位password20char是否员工登录的密码表3.6系统管理员信息表字段名称字段大小数据类型默认值必须字段允许空Key中文含义gid10char是否是员工号name10char是否员工姓名sex5char是否员工性别password20char是否登录密码表3.7列车总信息表字段名称字段大小数据类型默认值必须字段允许空Key中文含义checi20varchar是否否车次daozhantime20varchar是否到站时间leibie20varchar是否类别kongtiao20varchar是否是否有空调tujingzhan230varchar是否途经到站zhongdianzhan2

23、0varchar是否终点站shifazhan20varchar是否始发站fachetime20varchar是否始发车时间yzshu100int是否硬座总数rzshu100int是否软座总数ywshu100int是否硬卧总数rwshu100int是否软卧总数表3.8车票信息表字段名称字段大小数据类型默认值必须字段允许空Key中文含义bid255bigint是否是车票的编号checi20char是否车票所属车次fachedate20char是否发车日期shifazhan20char是否始发站chexiangnum20int是否车厢号码cheweinum20int是否车位号码leibie20cha

24、r是否类别dengji20char是否等级表3.9单列车信息表字段名称字段大小数据类型默认值必须字段允许空Key中文含义checi20char是否车次tjdaozhan20char是否是途经站leibie20char是否类别zdianzhan20char是否终点站tjfachetime20char是否途经发车时间tjdztime20char是否途经到站时间fachetime20char是否始发车时间zdtime20char是否终点时间yzprice20char是否硬座的价格rzprice20char是否软座的价格ywprice20char是否硬卧的价格rwprice20char是否软卧的价格l

25、icheng100bigint是否总里程3.3.4数据字典表3.10数据字典名称：车站售票员表别名：shoupiaoyuan种类：表基于：车站售票员表描述：记录车站售票员的信息。定义：车站售票员=工号+姓名+性别+登录密码 名称：网点售票员表别名：wshoupiaoyuan种类：表基于：网点售票员表描述：记录网点售票员的信息。定义：网点售票员=工号+姓名+性别+身份证号+电话+所属单位+登录密码名称：系统管理员表别名：guanliyuan种类：表基于：系统管理员表描述：记录系统管理员的信息。定义：系统管理员=工号+姓名+性别+登录密码名称：火车总表别名：trainall种类：表基于：火车总表表

26、描述：记录列车的常规信息，这些信息相对来说是静态的，不随时间而改变。定义：管理员=车次+终到时间+类别+空调+途经站+终点站+始发站+发车时间+硬座总数+软座总数+硬卧总数+软卧总数 名称：车票表别名：chepiao种类：表基于：车票表描述：记录车票的信息。定义：车票=车票编号+车次+发车日期+始发站+车厢号+车位号+类别+等级名称：单车信息表别名：train+checi种类：表基于：单车信息表描述：记录某一列列车的经停站及到各个经停站的票价信息。定义：单车信息=车次+经停站+类别+终点站+途经发车时间+途径到站时间+发车时间+终到时间+硬座价格+软座价格+硬卧价格+软卧价格+里程第四章 详细

27、设计4.1 数据库详细设计4.1.1 数据库环境配置系统数据库设计环境配置说明连接数据库的主要代码：Class.forName(“sun.jdbc.odbc.JdbcOdbcDriver”); Connection con;con=DriverManager.getConnection(“jdbc:odbc:MyDataSource”,“sa”,“”)； 此处默认数据库用户名为“sa”,密码为空，并采用MyDataSource为连接JDBC连接到ODBC数据源的名称。在进行ODBC的创建时，需达到与上述信息的一致。数据库环境配置安装SQL Server 2005。安装过程如下。选择“我接受许可

28、条款的条件“，单击” 下一步“。截图一创建sql server 2005数据库DSN。打开“控制面板/管理工具“，单击”ODBC数据源“图标，打开“ODBC数据源管理器”，如下图所示。截图二单击“系统DSN”选项卡，打开系统数据源页面。单击”添加“按钮，打开”创建新数据源“对话框，如下图所示。截图三在驱动程序列表中，选择SQL SERVER,然后单击“完成“按钮，打开”创建数据源向导“窗口。输入数据源名称、说明和服务器，如下图所示。截图四单击“下一步“按钮，选择”使用用户输入登陆ID和密码的SQL SERVER验证“，然后手动输入登陆ID和密码。截图五单击“下一步“按钮，打开设置数据库选项对话

29、框，如下图所示。截图六单击“下一步“按钮，进入数据源向导的下一个窗口。截图七单击“测试数据源“按钮，可以检查数据源配置是否成功。4.1.2 表设计及其关系设置 图20 系统 PDM关系图4.2 界面设计4.2.1欢迎界面系统进入等待页面所用控件：Image1:image；/加载等待页面4.2.2 首页管理员和售票员通过此页面进入系统登录页面所用控件： Label1: TLabel;/火车票销售系统 Label2: TLabel;/管理员ID Label3: TLabel;/管理员密码 Edit1: TEdit;/输入管理员ID Edit2: TEdit;/输入管理员密码 Label6: TLa

30、bel;/密码提示 Label8: TLabel;/管理员登陆 Image1: TImage;/欢迎画面加载 Button1: TButton;/登陆 Label4: TLabel;/员工登陆 DataSource1: TDataSource;/ ADOConnection1: TADOConnection/; ADOTable1: TADOTable;/ Edit3: TEdit;/输入员工ID Label5: TLabel;/员工ID Label7: TLabel;/员工密码 Edit4: TEdit;/输入员工密码 Label9: TLabel;/密码提示 Button2: TButto

31、n;/登陆 Button3: TButton;/取消 Button4: TButton;/取消 DataSource2: TDataSource;/数据库及 ADOConnection2: TADOConnection;/数据库连接 ADOTable2:TADOTable;截图八4.2.3用户模块用户模块主页面所用控件： DataSource1: TDataSource; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Label1: TLabel; La

32、bel2: TLabel; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Button1: TButton; Edit5: TEdit; DBGrid1: TDBGrid; ADOConnection1: TADOConnection; ADOTable1: TADOTable; GroupBox1: TGroupBox; GroupBox2: TGroupBox; GroupBox3: TGroupBox; Label5: TLabel; Label6: TLabel; Label7: TLabel; Edit6: TEd

33、it; Edit7: TEdit; Edit8: TEdit; Label8: TLabel; Label9: TLabel; Label10: TLabel; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Label11: TLabel; Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Label12: TLabel; Label13: TLabel; Button2: TButton; Button3: TButton; Button5: TButton; GroupBox4: TGroupBox; DBG

34、rid2: TDBGrid; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Label17: TLabel; DBGrid3: TDBGrid; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; ADOQuery1: TADOQuery; DataSource2: TDataSource; ADOConnection2:

35、TADOConnection; ADOTable2: TADOTable; ADOQuery2: TADOQuery; Button16: TButton; Button17: TButton; Button18: TButton; DataSource3: TDataSource; DataSource4: TDataSource; DataSource5: TDataSource; DataSource6: TDataSource; ADOConnection3: TADOConnection; ADOConnection4: TADOConnection; ADOConnection5:

36、 TADOConnection; ADOConnection6: TADOConnection; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; Button4: TButton; ADOConnection7: TADOConnection; DataSource7: TDataSource; ADOTable8: TADOTable; Button19: TButton; Edit4: TEdit; Button20:

37、TButton;Edit15: TEdit;第五章 系统代码实现1.登录模块代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, DB, ADODB;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Label6: TLab

38、el; Label8: TLabel; Image1: TImage; Button1: TButton; Label4: TLabel; DataSource1: TDataSource; ADOConnection1: TADOConnection; ADOTable1: TADOTable; Edit3: TEdit; Label5: TLabel; Label7: TLabel; Edit4: TEdit; Label9: TLabel; Button2: TButton; Button3: TButton; Button4: TButton; DataSource2: TDataSo

39、urce; ADOConnection2: TADOConnection; ADOTable2: TADOTable; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm

40、1;implementationuses Unit3;$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);begin if(edit1.Text=)or(edit2.Text=) then begin showmessage(ID或密码不能为空!);end;if adotable1.Locate(ID;password,vararrayof(edit1.Text,edit2.Text),)thenbeginApplication.CreateForm(TForm3,Form3); Form3.ShowModal; Form3.Free;

41、endelseshowmessage(ID或密码错误)end;procedure TForm1.Button3Click(Sender: TObject);beginclose;end;procedure TForm1.Button2Click(Sender: TObject);begin if(edit3.Text=)or(edit4.Text=) then begin showmessage(ID或密码不能为空!);end;if adotable2.Locate(ID;密码,vararrayof(edit3.Text,edit4.Text),)thenbeginApplication.Cr

42、eateForm(TForm3,Form3); Form3.ShowModal; Form3.Free;endelseshowmessage(ID或密码错误)end;procedure TForm1.Button4Click(Sender: TObject);beginclose;end;end.2.用户模块代码：unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, TabNotBk, DB, DBClient,

43、 StdCtrls, ADODB, Grids, DBGrids;type TForm3 = class(TForm) DataSource1: TDataSource; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Button1: TButton; Edit5: TEdit

44、; DBGrid1: TDBGrid; ADOConnection1: TADOConnection; ADOTable1: TADOTable; GroupBox1: TGroupBox; GroupBox2: TGroupBox; GroupBox3: TGroupBox; Label5: TLabel; Label6: TLabel; Label7: TLabel; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Label8: TLabel; Label9: TLabel; Label10: TLabel; Edit9: TEdit; Edit10:

45、 TEdit; Edit11: TEdit; Label11: TLabel; Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Label12: TLabel; Label13: TLabel; Button2: TButton; Button3: TButton; Button5: TButton; GroupBox4: TGroupBox; DBGrid2: TDBGrid; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButt

46、on; Button11: TButton; Label17: TLabel; DBGrid3: TDBGrid; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; ADOQuery1: TADOQuery; DataSource2: TDataSource; ADOConnection2: TADOConnection; ADOTable2: TADOTable; ADOQuery2: TADOQuery; Button16: TButton; Button17: TButton; Butt

47、on18: TButton; DataSource3: TDataSource; DataSource4: TDataSource; DataSource5: TDataSource; DataSource6: TDataSource; ADOConnection3: TADOConnection; ADOConnection4: TADOConnection; ADOConnection5: TADOConnection; ADOConnection6: TADOConnection; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5

48、: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; Button4: TButton; ADOConnection7: TADOConnection; DataSource7: TDataSource; ADOTable8: TADOTable; Button19: TButton; Edit4: TEdit; Button20: TButton; Edit15: TEdit; procedure Button1Click(Sender: TObject); procedure Button16Click(Sender: TObje

49、ct); procedure Button17Click(Sender: TObject); procedure Button18Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button9Click(Sender: TObject); proced

50、ure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private Private

51、 declarations public Public declarations end;var Form3: TForm3;implementation$R *.dfmprocedure TForm3.Button1Click(Sender: TObject);begin if edit3.Text then with adoquery1 do beginClose;adoquery1.sql.Clear;adoquery1.sql.Add(select* from 列车售票 where checi=:a);parameters.ParamByName(a).Value:=trim(form

52、3.edit3.Text); open; if adoquery1.RecordCount0 then datasource1.DataSet:=adoquery1 else begin application.MessageBox(不存在，请重新输入！,提示,64); end; edit5.Text:=(adoquery1.FieldValuesshengyupiaoshu); end;end;procedure TForm3.Button16Click(Sender: TObject);begin if edit1.Text then with adoquery2 do beginClose;sql.Clear;sql.Add(select* from 列车信息 where start=:b and zhongdianzhan=:c);parameters.ParamByName(b).Value:=trim(form3.edit1.Text); parameters.ParamByName(c).Value:=trim(form3.edit2.Text); open; if adoquery2.RecordCount0 then datasource2.DataSet:=adoquery2 else begin applicat