火车售票系统研究与设计毕业论文.doc

火车售票系统研究与设计毕业论文火车售票系统研究与设计毕业论文 目录 引 言1 1 Delphi 语言概述2 1 1 Delphi 简介2 1 2 数据库系统简介2 1 3 本应用软件的基本介绍3 2 本应用程序的构成和开发步骤4 2 1 可行性研究4 2 1 1 经济可行性4 2 1 2 时间可行性4 2 1 3 技术可行性4 2 1 4 社会可行性5 2 2 数据库的建立和连接5 2 3 系统的总体设计5 2 4 系统的详细设计7 3 本程序的技术实现及具体功能13 3 1 车票信息查询的实现及功能13 3 2 售票系统主界面的设计与实现14 结 论21 致 谢22 参 考 文 献23 引引 言言 随着 Internet 和 Intranet 技术的发展 人们对网络 信息的需求越来越大 对网络数据库的交互和查询速度等 性能的要求也越来越高 未来火车站的发展趋势是完全自 动化的售票信息查询 网络订票 智能化订票 而且随着计 算机的普及 信息处理量的逐渐扩大 手工处理方式已经 远远不能满足人们管理活动的需要 各种工作都逐渐由手 工转为自动化 将使许多复杂 繁琐 且需要很多人力的 工作变得简单 火车站售票管理是本系统的根本任务 通过实现票务 信息的计算机管理 以提高工作效率 实现计算机管理的 最佳技术就是数据库技术 我们可以利用数据库将整个火 车站的票务情况存入计算机 再配置上功能丰富的用户接 口 以满足用户需求 一个火车站售票信息管理系统应达 到的目标是提供及时 广泛的信息服务 加快信息检索的 效率 实况灵活的查询 减轻管理人员制作报表和统计分 析的负担 且系统规模不太大但又要保证支持日常工作的 要求 以便系统应易于扩充 方便日后统一联网与管理 提高管理水平 根据以上的设计目标和要求 本设计用 Delphi 编程语言结 合微软的 Access 数据库进行开发 火车售票系统用计算机管理火车站票务信息的一种计算机应用 技术的创新 在计算机还未普及之前售票业务都是由工作人员人工完 成的 查询方式来操作的 现在一般的车站售票业务都采用计算机智 能化管理 采用计算机作为工具的实用的计算机订单管理程序来帮助 前台管理员进行更有效的车票业务查询 出售管理工作 火车票出售 管理系统是典型的信息管理系统 MIS 其开发主要包括后台数据库 的建立和维护以及前端应用程序的开发两个方面 对于前者要求建 立起数据一致性和完整性强 数据安全性好的库 而对于后者则要 求应用程序功能完备 易使用等特点 经过分析 我们使用 Delphi 编程语言开发工具 利用其提供 的各种面向对象的开发工具 尤其是数据窗口这一能方便而简洁操纵 数据库的智能化对象 首先在短时间内建立系统应用原型 然后 对初 始原型系统进行需求迭代 不断修正和改进 直到形成用户满意的可 行系统 因为本人能力有限 加上时间紧迫 所以设计出来的本系统可 能功能比较简单 另外本系统是单机版 不能实现网络互联操作 这 些都有待于我在以后的工作学习中进一步改进 1 Delphi 语言概述语言概述 1 1 Delphi 简介 Delphi 是 Inprise 公司出品的一个优秀的可视化程序开 发工具软件 它短小精悍 但功能却可以与庞大的 visual c 媲美 它易学易用 如同 VB 因而被称为 第四代编 程语言 从 1995 年推出 Delphi1 0 至今已经经历了 7 个版本 Delphi7 0 运行在 win9x 或 winme win2000 winxp windowsNT 等操作系统下 是一 个 32 位的应用程序开发工具 这里把 VB 比作是傻瓜相 机 Delphi 是带有自动功能的专业相机 前些年 软件界 流行一句话叫 真正的程序员用 VC 聪明的程序员用 Delphi 也有的把 Delphi 称作 VB 杀手 1 2数据库系统简介数据库系统简介 数据库系统是一个实际可运行的存储 维护和应用系 统提供数据的软件系统 是存储介质 处理对象和管理系 统的集合体 它通常由软件 数据库和数据管理员组成 其软件主要包括操作系统 各种宿主语言 实用程序以及 数据库管理系统 数据库是依照某种数据模型组织起来并 存放二级存储器中的数据集合 这些数据为多个应用服务 独立于具体的应用程序 数据库由数据库管理系统统一管 理 数据的插入 修改和检索均要通过数据库管理系统进 行 数据库管理系统是一种系统软件 它的主要功能是维 护数据库并有效地访问数据库中任意部分数据 对数据库 的维护包括保持数据的完整性 一致性和安全性 数据管 理员负责创建 监控和维护整个数据库 使数据能被任何 有权使用的人有效使用 数据库管理员一般是由业务水平 较高 资历较深的人员担任 数据库系统的个体含义是指一个具体的数据库管理系 统软件和用它建立起来的数据库 它的学科含义是指研究 开发 建立 维护和应用数据库系统所涉及的理论 方法 技术所构成的学科 在这一含义下 数据库系统是软件研 究领域的一个重要分支 常称为数据库领域 数据库研究跨越于计算机应用 系统软件和理论三个 领域 其中应用促进新系统的研制开发 新系统带来新的 理论研究 而理论研究又对前两个领域起着指导作用 数 据库系统的出现是计算机应用的一个里程碑 它使得计算 机应用从以科学计算为主转向以数据处理为主 并从而使 计算机得以在各行各业乃至家庭普遍使用 在它之前的文 件系统虽然也能处理持久数据 但是文件系统不提供对任 意部分数据的快速访问 而这对数据量不断增大的应用来 说是至关重要的 为了实现对任意部分数据的快速访问 就要研究许多优化技术 这些优化技术往往很复杂 是普 通用户难以实现的 所以就由系统软件 数据库管理系统 来完成 而提供给用户的是简单易用的数据库语言 由于 对数据库的操作都由数据库管理系统完成 所以数据库就 可以独立于具体的应用程序而存在 从而数据库又可以为 多个用户所共享 因此 数据的独立性和共享性是数据库 系统的重要特征 数据共享节省了大量人力物力 为数据 库系统的广泛应用奠定了基础 数据库系统的出现使得普 通用户能够方便地将日常数据存入计算机并在需要的时候 快速访问它们 从而使的计算机走出科研机构进入各行各 业 进入家庭 1 3本应用软件的基本介绍本应用软件的基本介绍 本应用软件先是打开一个启动窗口 就可以进入应用 程序的主窗口了 主界面是一个图型界面窗口 整个平台 显示采用图标方式 可以非常方便的进行车票查询 订票 退 票 操作员管理以及车票管理 通过各种条件查询出车票销售 的基本信息 以及打印出查询出的基本信息 总之一切车 票出售 现存基本信息都会显示在系统平台上 可方便选择 大大提高了管理人员的工作效率 2本应用程序的构成和开发步骤本应用程序的构成和开发步骤 下面从软件工程的角度介绍本程序的基本开发步骤 Delphi 应用程序一般包含以下三个基本部分 一 应用程序运行的接口 负责系统整体环境的设置 运行状态的监视 应用程序的启动等 二 应用程序的主体 主要完成用户的业务逻辑功能 如通过输入车次或车站名同时配合日期座位类型查 询剩余的车票数量 定票 在查询的基础上 定票 可预定 3 天的车票 车票整理 一天过去后 可以删除今天的余 票记录 并增加第四天的车票 主演 导演信息的录入 用 户管理 出借天数等信息 三 应用程序的辅助部分 协助程序主体完成的一些工 作 下面从软件工程的角度描述本程序的开发生命周期 开 发过程和组织过程 2 1 可行性研究可行性研究 任何一个系统或一项工程 在建立之前 必须首选进 行可行性分析 可行性分析包括两层含义 一是可能性 二是必要性 可能性指开发信息系统的条件是否具备 必 要性是指客观上是否真正需要 通过可行性研究 可避免 盲目投资 减少政治性要的损失 下面从四方面来讨论 2 1 1经济可行性经济可行性 主要是只指算一个新的系统开发所需要的投资费用和 运算费用 并与估计的新系统收益进行比较 看是否有利 本系统所需的软硬件成本比较低 投资小 具有一定的通 过性 因此 在经济上是可行的 2 1 2时间可行性时间可行性 主要包括系统在目前环境下能否正常运行 运行后所 引起的各方面 以及这些变化对社会或人的因素所产生的 影响 本系统对人事的管理比较全面 可长期使用 2 1 3技术可行性技术可行性 利用现有的设备 软件及技术人员 新系统的目标能 否达到 这也是可行性研究中需要考虑的一个问题 关系 型数据库的高速发展使管理信息系统具备了良好的开发环 境 本系统使用的 Delphi 普及性好 操作简单 用户可以 很快掌握使用方法 因此 在技术上是完全可行的 2 1 4社会可行性社会可行性 人类社会文明的发展已进入信息化的高速发展时期 传 统的手工方式支持下的管理模式 已经不能满足各方面的 需要 开发本系统的目标不仅是提高工作效率 减轻劳动 强度 而且减少出错率 具有很好的社会意义 2 2 数据库的建立和连接数据库的建立和连接 这个程序采用的数据库是 Microsoft Access2000 Delphi 作为数据库的前台开发工具 必须与后 台数据库进行连接 这样才能控制和进行操作数据库 数 据库的连接方式有两种 ODBC 和 ADO ODBC 是数据库的通用接口 其缺点是效率低 专用 接口调用直接速度快 但是通用性差 如果用 ODBC 连接 数据库一般要两个步骤 1 要创建数据源 2 创建描述文件 数据库的建立则时在 access2000 中建立的 在这里你可以 设置数据库的密码 对数据库进行保护 在创建数据源时 可以通过 BDE administrator 进行创建 也可以通过系统控 制面板中的 ODBC 数据源进行建立 而描述文件则可以在 Delphi 的主程序中用 Database Profile 中进行建立 之后进 行数据库的连接 接下来的工作是建表 同样建表的过程 也不是唯一的 但是最终实现的结果是唯一的 你可以通 过 Access 进行建表 也可以通过在 DELPHI6 0 主程序中 建表 也可以通过 powerdesigner 进行可视化的建立 不过 用这种方法 在导入的时候要把数据库要先断开 否则数 据库的数据容易丢失 建表的过程注意规范化命名规则 如表的字段名等等 同时也要注意表的字段长度和可否为 空 因为以后要设计到主键 外键的问题 如果字段名不 同 同一字段长度不同则主键和外键将会连接不上 可见 建表时应做好全局的打算 我在程序开发的初期 同样犯 了这个错误 导致数据库出错 有时还要向表中新加入字 段 导致数据窗口不好用的连锁反映 2 3 系统的总体设计系统的总体设计 这个管理系统从 4 月 1 日开始着手设计开发 经过一段 时间的分析 并根据对当地火车站售票管理系统的具体要 求及需要本软件实现的功能 将本软件分为 5 个大的模块 分别是 第一部分 查询 通过输入车次或车站名同时配合 日期座位类型查 第二部分 定票 在查询的基础上 定票 可预定 3 天的 车票 第三部分 退票 第四部分 操作员管理 第五部分 车票整理 一天过去后 可以删除今天的余 票记录 并增加第四天的车票 程序流程图如下 程序登陆 主界面 查询订票退票操作 员管 理 车票 管理 退 出 2 4 系统的详细设计系统的详细设计 进入 Access 后要做的第一件事就是建立一个数据库 Access 提供了 6 种用构造数据库系统的对象 根据本课题 的需要 在这里选择一个空的数据库 命名建立了一个数 据库名称为 bysj 火车售票管理系统 并在此数据库下 创建了四个表 用于存放原始数据 它只是存放数据 对 其中数据的修改要通过对应的窗体来完成 创建各表的具 体结构如下 1 车次信息表车次信息表 2 车票查询信息表车票查询信息表 3 退票信息表退票信息表 4 用户信息表用户信息表 3 本程序的技术实现及具体功能本程序的技术实现及具体功能 3 1车票信息查询的实现及功能车票信息查询的实现及功能 界面设计界面设计 代码设计代码设计 unit piao pas interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls DBCtrls type TForm2 class TForm Button1 TButton Label1 TLabel Label2 TLabel Label3 TLabel riqi TLabel Label4 TLabel xiang TLabel hao TLabel Label5 TLabel Label6 TLabel Label7 TLabel leixing TLabel Label8 TLabel Label9 TLabel zhanm TLabel no TLabel etime TLabel jiage TLabel procedure Button1Click Sender TObject private Private declarations public Public declarations end var Form2 TForm2 implementation uses train main R dfm procedure TForm2 Button1Click Sender TObject begin form2 Close end end 3 2售票系统主界面的设计与实现售票系统主界面的设计与实现 界面设计界面设计 代码设计代码设计 unit train main interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs Menus ComCtrls ToolWin StdCtrls Buttons DB ADODB ExtCtrls Grids DBGrids DBCtrls Mask ActnList DBActns type Tmain class TForm MainMenu1 TMainMenu N1 TMenuItem N5 TMenuItem N6 TMenuItem N2 TMenuItem N7 TMenuItem N8 TMenuItem N9 TMenuItem N3 TMenuItem N10 TMenuItem N11 TMenuItem N12 TMenuItem N4 TMenuItem ToolBar1 TToolBar BitBtn1 TBitBtn ToolButton1 TToolButton BitBtn2 TBitBtn BitBtn3 TBitBtn BitBtn4 TBitBtn ToolButton2 TToolButton ToolButton3 TToolButton ToolBar2 TToolBar BitBtn5 TBitBtn BitBtn6 TBitBtn BitBtn7 TBitBtn BitBtn8 TBitBtn BitBtn9 TBitBtn ToolButton4 TToolButton ToolButton5 TToolButton ToolButton6 TToolButton ToolButton7 TToolButton login TPanel DataSource1 TDataSource ADOConnection1 TADOConnection Label1 TLabel Label2 TLabel id TEdit pwd TEdit Button1 TButton Button2 TButton ADOQuery1 TADOQuery select TPageControl TabSheet1 TTabSheet TabSheet2 TTabSheet Panel1 TPanel Label3 TLabel Label4 TLabel Label5 TLabel Label6 TLabel Edit1 TEdit Edit2 TEdit ComboBox1 TComboBox ComboBox2 TComboBox Button3 TButton DBGrid1 TDBGrid GroupBox1 TGroupBox Label7 TLabel Label8 TLabel Label9 TLabel Label10 TLabel Label11 TLabel Label12 TLabel Label13 TLabel Label14 TLabel train no TComboBox zhanm TComboBox reach time TDBEdit amount TDBEdit price TDBEdit emit time TDBEdit r leixing TComboBox r riqi TComboBox buy TButton ToolBar3 TToolBar GroupBox2 TGroupBox tui TDBGrid DataSource2 TDataSource ActionList1 TActionList DataSetDelete1 TDataSetDelete Button4 TButton Button5 TButton tuipiao TPanel Label15 TLabel Label16 TLabel Label18 TLabel Label19 TLabel Label20 TLabel Label21 TLabel Label17 TLabel Label22 TLabel Edit3 TEdit Edit4 TEdit ComboBox3 TComboBox ComboBox4 TComboBox Edit6 TEdit Edit5 TEdit Button6 TButton Button7 TButton Edit7 TEdit ADOQuery2 TADOQuery Action1 TAction DataSetPrior1 TDataSetPrior DataSetNext1 TDataSetNext DataSetDelete2 TDataSetDelete DataSetEdit1 TDataSetEdit DataSetPost1 TDataSetPost DataSetCancel1 TDataSetCancel DataSetInsert1 TDataSetInsert DataSource3 TDataSource man TPanel Label23 TLabel Panel3 TPanel Label24 TLabel Label25 TLabel Label26 TLabel Label27 TLabel Label28 TLabel Label29 TLabel Label30 TLabel DBEdit1 TDBEdit DBEdit2 TDBEdit DBEdit4 TDBEdit DBMemo1 TDBMemo Button8 TButton Button9 TButton Button10 TButton Button11 TButton Button12 TButton Button13 TButton Panel4 TPanel DBGrid2 TDBGrid sex TDBComboBox DBComboBox1 TDBComboBox N13 TMenuItem procedure Button2Click Sender TObject procedure Button1Click Sender TObject procedure FormCreate Sender TObject procedure N5Click Sender TObject procedure BitBtn2Click Sender TObject procedure Button3Click Sender TObject procedure train noChange Sender TObject procedure zhanmChange Sender TObject procedure r riqiChange Sender TObject procedure r leixingChange Sender TObject procedure buyClick Sender TObject procedure N7Click Sender TObject procedure N8Click Sender TObject procedure Button5Click Sender TObject procedure N6Click Sender TObject procedure BitBtn4Click Sender TObject procedure Button6Click Sender TObject procedure Button7Click Sender TObject procedure N9Click Sender TObject procedure BitBtn9Click Sender TObject procedure Button4Click Sender TObject procedure BitBtn7Click Sender TObject private Private declarations public Public declarations end var main Tmain implementation uses piao pas var log boolean false leixing riqi string Distance integer R dfm procedure Tmain Button2Click Sender TObject begin main Close end procedure Tmain Button1Click Sender TObject var userid userpwd string Adoquery2 TADOQuery begin userid id Text userpwd pwd Text if userid and userpwd then begin Adoquery2 TADOQuery Create nil Adoquery2 Connection ADOConnection1 Adoquery2 SQL Clear Adoquery2 SQL Add select id pwd name deng from user0 where id userid Adoquery2 Open if userid Adoquery2 FieldByName id AsString and userpwd Adoq uery2 FieldByName pwd AsString then begin toolbar1 Visible true login Hide log true N5 Caption 注销注销 if Adoquery2 FieldValues deng 管理员管理员 then begin toolbar2 Visible true N3 Visible true end main Caption 火车售票系统火车售票系统 欢迎你欢迎你 Adoquery2 FieldByName name AsString end else showmessage 你的输入不正确 请确认以后再输入你的输入不正确 请确认以后再输入 end else showmessage 请输入操作员请输入操作员 ID 和密码 谢谢 和密码 谢谢 Adoquery2 Close id Text pwd Text end procedure Tmain FormCreate Sender TObject begin toolbar2 Visible false toolbar1 Visible false end procedure Tmain N5Click Sender TObject begin if log then begin if MessageDlg 确定要注销吗 确定要注销吗 mtInformation mbYes mbNo 0 mryes then begin id Clear pwd Clear login Show log false N3 Visible false toolbar2 Visible false toolbar1 Visible false man Hide select Hide tuipiao Hide end end else showmessage 请在下面登陆筐中输入操作员请在下面登陆筐中输入操作员 ID 和密码 和密码 end procedure Tmain BitBtn2Click Sender TObject begin tuipiao Hide man Hide select Show combobox2 Clear combobox2 Items Add datetostr date combobox2 Items Add datetostr date 1 combobox2 Items Add datetostr date 2 combobox2 ItemIndex 0 r riqi Clear r riqi Items Add datetostr date r riqi Items Add datetostr date 1 r riqi Items Add datetostr date 2 end procedure Tmain Button3Click Sender TObject var sq string begin if edit1 Text then begin if edit2 Text then begin showmessage 请输入车次 车站名请输入车次 车站名 sq end else sq and train node zhanm edit2 Text end else if edit2 Text then sq and train node train no edit1 Text else sq and train node train no edit1 Text and train node zhanm edit2 Text leixing inttostr ComboBox1 ItemIndex 7 r leixing ItemIndex strtoint leixing 7 riqi inttostr ComboBox2 ItemIndex r riqi ItemIndex strtoint riqi with Adoquery1 do begin SQL Clear SQL Add select from train node checi where train node train no checi train no sq Open end if sq then GroupBox1 Show else GroupBox1 Hide if Adoquery1 RecordCount 0 then begin if edit1 Text then begin train no Items Clear while not Adoquery1 Eof do begin train no Items Add Adoquery1 FieldValues train node train no Adoquery1 Next end Adoquery1 First zhanm Text edit2 Text train no ItemIndex 0 Distance Adoquery1 RecNo 1 end if edit2 Text then begin zhanm Items Clear while not Adoquery1 Eof do begin zhanm Items Add Adoquery1 FieldValues zhanm Adoquery1 Next end Adoquery1 First train no Text edit1 Text zhanm ItemIndex 0 Distance Adoquery1 RecNo 1 end amount DataField amount riqi leixing price DataField price leixing end else begin GroupBox1 Hide showmessage 对不起 目前此列车还未开通 请选乘就近的火对不起 目前此列车还未开通 请选乘就近的火 车站车站 Edit1 Text Edit2 Text end GroupBox2 Hide end procedure Tmain train noChange Sender TObject begin Adoquery1 MoveBy train no ItemIndex Distance Distance train no ItemIndex end procedure Tmain zhanmChange Sender TObject begin Adoquery1 MoveBy zhanm ItemIndex Distance Distance zhanm ItemIndex end procedure Tmain r riqiChange Sender TObject begin riqi inttostr r riqi ItemIndex amount DataField amount riqi leixing price DataField price leixing end procedure Tmain r leixingChange Sender TObject begin leixing inttostr r leixing ItemIndex 7 amount DataField amount riqi leixing price DataField price leixing end procedure Tmain buyClick Sender TObject var Qbuy TADOQuery amount number string sqlstr string num a num num zuo integer begin amount amount riqi leixing number number riqi leixing num a ADOQuery1 FieldValues amount num num ADOQuery1 FieldValues number if num a 0 then begin Qbuy TADOQuery Create nil with Qbuy do begin Connection ADOConnection1 if leixing 7 then begin zuo 120 一节车厢中硬座的个数一节车厢中硬座的个数 SQL Clear sqlstr update train node set amount inttostr num a 1 where train no train no Text and zhanm zhanm Text SQL Add sqlstr ExecSQL SQL Clear sqlstr update checi set number inttostr num num 1 where train no train no Text SQL Add sqlstr ExecSQL end else begin zuo 60 一节车厢中卧铺 软卧的个数一节车厢中卧铺 软卧的个数 sqlstr update checi set amount inttostr num a 1 number inttostr num num 1 where train no train no Text SQL Clear SQL Add sqlstr ExecSQL end Close end 打印车票打印车票 可以用报表更简单 但我没有装 可以用报表更简单 但我没有装 with form2 do begin show zhanm Caption ADOQuery1 FieldValues zhanm no Caption ADOQuery1 FieldValues train node train no riqi Caption r riqi Text etime Caption ADOQuery1 FieldValues emit time xiang Caption inttostr num num div zuo hao Caption inttostr num num mod zuo jiage Caption price Text leixing Caption r leixing Text end ADOQuery1 Close ADOQuery1 Open ADOQuery1 MoveBy Distance end else begin GroupBox1 Hide Qbuy TADOQuery Create nil with Qbuy do begin Connection ADOConnection1 DataSource3 DataSet Qbuy SQL Clear SQL Add select from tui where 目的站目的站 zhanm Text Open end if Qbuy RecordCount 0 then begin GroupBox2 Hide showmessage 对不起 这趟车的票已经售完对不起 这趟车的票已经售完 end else GroupBox2 Show end end procedure Tmain N7Click Sender TObject begin if log then main BitBtn2 Click else showmessage 请先登陆 谢谢 请先登陆 谢谢 end procedure Tmain N8Click Sender TObject begin if log then main BitBtn2 Click else showmessage 请先登陆 谢谢 请先登陆 谢谢 end procedure Tmain Button5Click Sender TObject begin GroupBOx1 Hide GroupBOx2 Hide end procedure Tmain N6Click Sender TObject begin close end procedure Tmain BitBtn4Click Sender TObject begin ADOQuery2 Open man Hide tuipiao Show combobox3 Clear combobox3 Items Add datetostr date combobox3 Items Add datetostr date 1 combobox3 Items Add datetostr date 2 combobox3 ItemIndex 0 end procedure Tmain Button6Click Sender TObject var Qtui TADOQuery begin if edit3 Text and edit4 Text and edit5 Text and edit6 Text and edit7 Text then begin Qtui TADOQuery Create nil with Qtui do begin Connection ADOConnection1 SQL Clear SQL Add select from tui Open Append FieldByName 车次车次 AsString edit3 Text FieldByName 目的站目的站 AsString edit4 Text FieldByName 发车时间发车时间 AsString edit7 Text FieldByName 日期日期 AsString combobox3 Text FieldByName 类型类型 AsString combobox4 Text FieldValues 车厢号车厢号 strtoint edit5 Text FieldValues 座位号座位号 strtoint edit6 Text Post Close end edit3 Clear edit4 Clear edit5 Clear edit6 Clear edit7 Clear showmessage 你的操作已经成功 你的操作已经成功 end else showmessage 请认真添写 请认真添写 end procedure Tmain Button7Click Sender TObject begin edit3 Clear edit4 Clear edit5 Clear edit6 Clear edit7 Clear end procedure Tmain N9Click Sender TObject begin if log then main BitBtn4 Click else showmessage 请先登陆 谢谢 请先登陆 谢谢 end procedure Tmain BitBtn9Click Sender TObject begin man Show label30 Caption 本系统现有本系统现有 inttostr ADOQuery2 RecordCount 个操作员 个操作员 end procedure Tmain Button4Click Sender TObject begin 打印车票打印车票 可以用报表更简单 但我没有装 可以用报表更简单 但我没有装 with form2 do begin show with DataSource3 DataSet do begin zhanm Caption FieldValues 目的站目的站 no Caption FieldValues 车次车次 riqi Caption FieldValues 日期日期