客运售票系统需求分析报告

1、 客运售票系统需求分析报告课 程 设 计 题 目： 客运售票管理系统 -摘要-客运公司管理信息系统管理系统是典型的信息管理系统,其开发的功能主要包括：通过计算机管理客运公司管理信息，日常办公，实现无纸化办公，通过工时计算，统计出各项数据，分析出客运现状和车辆现状，提高办事效率。经过分析,我们决定使用 MICROSOFT公司的 ACCESS作为后台数据库,设计出功能库， 使用 MICROSOFT公司的 VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具,尤其是ADO控件这一能方便而简洁操纵数据库的智能化对象,连接数据库，开发出产品。关键字：ADO、窗体、数据库。目录1.引言21

2、.1编写目的21.2系统功能分析21、3 数据流图31.4系统简介41.5技术要求及限定条件41.6数据字典52.可行性研究的前提62.1要求62.2目的62.3可行性研究方法62.4决定可行性的主要因素62.5 ER图72.4决定可行性的主要因素.83对原系统的分析93.1处理流程和数据流程93.2费用支出93.3人员：MIS小组93.4设备：计算机93.5开发新系统的必要性94所建议技术可行性分析104.1系统简要描述104.2处理流程与数据流程104.3与现有系统比较104.4采用建议系统的影响114.5系统功能设计115所建议系统经济可行性分析145.1支出145.2收入146社会因素

3、可行性研究146.1法律因素146.2用户使用可行性147、程序模块设计 155、1 功能模块详细设计155、2 界面设计165、3 附录：系统程序源代码168结论和意见2528汽车客运售票系统可行性分析报告1.引言1.1编写目的对汽车客运售票系统进行可行性分析研究。12系统功能分析根据需求分析，本系统要实现以下的基本功能。1登录功能：分为汽车站售票人员和系统管理员两种权限登陆。用户通过输入不同用户名和密码进行身份验证，系统通过用户名和密码判断不同用户的权限，从而确定该用户可以执行的操作。2车票信息查询功能：由汽车站的普通售票人员通过不同的检索入口,查询车票信息，并进行排序。3修改功能：汽车站

4、售票人员、汽车站售票工作的管理人员能够修改自身的用户名和密码，系统管理员则能实现系统用户与普通用户的添加，修改普通用户与系统管理员的密码，以此确保该系统能够安全操作，避免不必要的损失。4汇总功能：对当天车票的信息进行汇总。图1-1 顶层图图1-2 0层图图1-3 售票1层图顾客售票人员车站售票管理系统购票信息售票信息顶层图购票信息查询可供票处理买票车票车票记录车票汇总缺票记录0层图售票记录购票信息1层图查询可供票处理买票车票售票记录车票记录订票信息查询顾客信息核对后的顾客信息查询可供票处理订票车票订票记录车票记录图1-4 订票1层图退票信息处理退票退票记录图1-5 退票1层图13数据流图1.4

5、系统简介汽车客运由于其时间的灵活性、运行的机动性和广阔的公路网所带来的延展性，使得汽车成为更多人中短途出行的首选，但相信亲自到过汽车客运站购票乘车的人都会对车站售票厅和候车厅的“人肉长龙”记忆犹新，这不仅与客流人数和车站运载能力有关，与车站的售票系统是否科学、高效也是密切联系的。本系统旨在提供更友好的界面、更便捷的操作与更实用的管理，从而降低客运站售票员与检票员的劳动强度，提高工作效率，进而提升服务质量，提高旅客满意度。系统可细化为两个子系统：售票系统和检票系统。售票系统主要功能为：根据目的站、车次、时间等信息查询有关车票情况；提供多种方式完成售票工作：现金结算、票据打印；提供与退票相关的一些

6、信息查询手段，完成退票、废票、改签换乘等业务；售票信息统计，打印详细报表。检票系统的主要功能：通过激光扫描枪进行条码扫描或键盘输入进行检票；检票窗口实时显示班车检票情况和售票情况；多方面统计检票相关数据结果。1.5技术要求及限定条件1）在售票、退票、改票、废票时，都应进行相关的数据库记录的修改，并进行并发控制。2）在实现售票和检票功能时，都应考虑票据的合法性验证（例如改票、废票的有效性）。16据字典1.数据项 票号、票价、车次、日期、车型、开车时间、票种、座位号、起始站、终点站、身份证号、银行卡号、数量、退票时间、退票手续费、订票时间、订票手续费2数据结构表11 车票的数据结构DS04-01

7、车票DS04-02：车票标志DS04-03：车次信息DS04-04：座位信息DS04-05：票价信息I1：车票编号I3：起始站I8：座位号I9：全票价I2：车票类型I4：车次编号I10：折扣I5：终点站I6：发车时间I7：乘车日期3数据流数据流编号：D04-01数据流名称：车票简述：车票有关信息数据流来源：用户执行售票操作结果数据流去向：购票旅客数据流组成：车票编号+车票类型+车次信息+座位信息+票价信息4数据存储 售票记录：票号，起始站，终点站，票价，车次，日期，开车时间，车型，票种，座位号，售出时间 退票记录：票号，起始站，终点站，票价，车次，日期，开车时间，车型，票种，座位号，退票时间

8、订票记录：票号，起始站，终点站，票价，车次，日期，开车时间，车型，票种，座位号，订票时间，顾客身份证号缺票记录：票号，起始站，终点站，票价，车次，日期，开车时间，车型，票种 车票记录：票号，起始站，终点站，票价，车次，日期，开车时间，车型，票种，座位号，售出时间，票数5处理过程 车票汇总：工作人员将一天所售出的票进行统计，包括票数，票类，形成确定的车票记录。 查询：将顾客需要的车票信息输入系统，并查询其是否可供应。 查询顾客信息：为订票所设，将顾客的准确信息记录，为其预定所车票。 处理买票：进行买票交易，把顾客需要的票（可供应）售出，并在系统中作相应记录，确定车票记录。 处理订票：进行订票交易

9、，工作人员为顾客预定其所需车票，并在系统中作相应记录，确定订票记录。 处理退票：进行退票交易，工作人员为顾客办理退票手续，并在系统中作相应记录，确定退票记录。2.可行性研究的前提2.1要求1）功能：实现售票与检票最基本的功能，并提供各个环节详细的统计记录。2）性能：界面友好、操作简捷、系统运行稳定、可移植性好、适应性强。3）输出：打印票据、统计报表、价格等。4）输入：目的站、车次、时间或条件组合。2.2目的1）工作人员劳动强度降低；2）工作效率提高；3）客户服务水平提高。2.3可行性研究方法购票检票亲身体验；售票流程初步调查；文献调查法。2.4决定可行性的主要因素技术可行性；经济可行性和法律可

10、行性。2.5 E-R图本系统根据以上的设计规划出的实体有：车票实体、车站实体、顾客实体。各个实体具体的描述-图如下： 图2-1车票ER图 图2-2 顾客ER图 换票退票时间顾客售票退票票号退票手续费车票新票号原票号换票时间换票手续费订票日期交易时间数量起始站终点站身份证号交易金额1N1N1N1N 图2-3实体之间ER图2.2关系模型：车票与顾客之间的联系售票 1：N车票（票号，车次,日期，车型，票价，开车时间，票种，座位号，起始站，终点站）顾客（身份证号，银行卡号,票号）退票1：N车票（票号，车次,日期，车型，票价，开车时间，票种，座位号，起始站，终点站）顾客（身份证号，银行卡号,票号，退票时

11、间，退票手续费）订票1:N车票（票号，车次,日期，车型，票价，开车时间，票种，座位号，起始站，终点站）顾客（身份证号，银行卡号,票号，日期，交易时间，交易金额，数量，起始站，终点站）3对原系统的分析3.1处理流程和数据流程旅客到售票窗口查询目的站或车次的车票信息，包括有无票、上车时间、票价等情况，售票员操作系统进行检索，给出具体信息，旅客提出购买请求，售票员即进行票据打印与现金结算；旅客到指定检票口候车，检票员手工销票，旅客搭乘预定列次车辆。分析：现行系统操作界面欠友好，售票员长时间面对屏幕，易产生厌烦心理，影响服务质量；检票口采用原始手工销票方式，不利于检票数据的统计，对某车次乘客是否到齐无

12、法具体了解，从而影响发车的紧凑性与连续性，降低发车效率，造成旅客候车时间过长，滋生不满情绪，减低满意率。3.2费用支出3.3人员：MIS小组3.4设备：计算机3.5开发新系统的必要性使车站售票业务进行得更加流畅，并且提高了工作效率和旅客的满意度，有必要进行开发。4所建议技术可行性分析4.1系统简要描述此系统为汽车客运站实现售票检票功能而开发，使用VB、SQL Server数据库技术等开发工具，易安装，使用简便，有良好的安全性与兼容性。结合本项目实际，客运管理水平和复杂程度相对来说还是可以分析清楚的，经系统分析，可以设计出符合实际需求、易于理解、易于操作、易于维护的数据库和操作系统。Visual

13、 BASIC 6.0与SQL Server2000的结合比较容易的打造出较为完美的该管理系统。Windows 友好的用户界面和本系统良好的安全设置，可以使其内部员工在系统实施人员的指导帮助下很快掌握系统的使用方法。4.2处理流程与数据流程售票员与检票员在使用系统前，须凭帐号密码登陆，从而可对工作人员的具体工作信息进行统计，防止出现利用工作之便进行不合规程的操作。4.3与现有系统比较界面更人性化、更有效率、更安全。4.4采用建议系统的影响系统在现有设备和操作人员的基础上开发，对设备和技术投入无影响。 4.5.系统功能设计汽车站售票管理系统主要设有五个主要功能模块：分别是车次管理、票价管理、票务管

14、理、用户管理和查询管理。如图4-1所示。4.5.1车次管理模块该模块主要实现车次信息的编辑。车次管理中的数据源为Access数据库中Car表，在此管理部分中，能够使用界面操作实现车次信息的编辑，并将数据库中的数据按照编辑的要求来及时更新数据表中的相关数据。4.5.2票价管理模块该模块主要实现票价信息的录入、修改与删除以及票价折扣信息的录入、修改与删除。 票价详细信息的录入、修改、删除，它的数据源为Access数据库的Price表。在此管理部分中，通过票价管理（FrmPriceManage）界面来选择记录并决定执行何种操作，是修改、添加或删除。当命令为修改或者添加时则自动跳转到票价编辑窗体（Fr

15、mPriceEdit）实现票价信息的编辑并更新数据库中相应数据记录。4.5.3票务管理模块票务管理部分实现前台售票、前台退票功能。主要完成售票、远程售票、废票、取消废票功能、改签票、退票、取消退票功能、补票、售票查询和票款结算单填写等功能。4.5.4用户管理模块该模块主要实现用户添加，用户信息修改与用户的删除。所有系统用户的管理，包括系统普通用户与系统管理员。此管理模块数据源为Access数据库的Users表。在系统主界面中首先进入的是名称为FrmUserMan的用户管理主窗体，通过提取用户名、用户类型来查看用户具体信息，选择添加或删除用户进入名为FrmUserEdit的用户编辑界面进行操作，

16、操作完成便更新数据库数据。4.5.5查询管理模块 该模块主要实现拥护通过查询界面可以根据条件进行车次时刻、车次票价查询。汽车站售票管理系统票务管理票价管理车次管理用户管理查询管理车次信息编辑票价信息录入票价信息修改票价信息删除前台售票前台退票用户信息添加票价信息修改票价信息删除车次信息查询票价信息查询 4-1功能模块图42其他需求汽车站售票系统数据库中的数据量十分庞大，而且更新速度十分快。在数据大小方面要求数据的属性要设置合理，假如是数据的属性值越大，则数据本身所占用的容量也就十分的庞大，不但会造成传输的不方便甚至错误，也更加重系统的负担，有可能削弱系统运行速度，使得系统无法达到预期的目的。另

17、外，在整个系统当中要确保数据在保存与传递过程中的安全，以免发生严重的错误，造成巨大的损失。43说明售票 正常出售本站所有车次车票，并按要求打印出车票。 远程售票 正常出售远程车站所有车次车票，并按远程车站的要求打印出车票。 废票 在正常售票过程中， 可能因操作失误或打印机械故障等原因造成错票而作废车票。 取消废票 当废票时，发现废的票是不应该废的，即为正常票，需要通过取消废票来实现。 远程废票 对所售远程车票作废票处理。 退票 在正常退票时间内办理退票，并根据退票规定收取一定的手续费。 远程退票 对所售远程车票作退票处理。 取消退票 当退票时，发现退的票是不应该退的，即为正常的票，需要通过取消

18、退票来实现。 改签票 由于乘客或车站某种原因需对已出售的车票作更换车次的车票。改签仅允许改签一次。 远程改签票 对所售远程车票作改签处理。 注销票 删除某些由于调试程序所用的票记录及其影响。 补票 只能在超过售票时限后进行，且在未发车之前，在统计时注意对非微机售票的票的处理（例如：剪刀票）。 售票查询 通过一定的授权和设定售票员可以查询在设定时间范围内或多少张票以前的出售、作废、改签和退票的情况，并对有权限的人员可有累计票款服务。 票款结算单 售票员每天售完车票后填写每日结算单，以便财务人员查询。 重打车票 在正常售票过程中， 可能因打印机械故障等原因造成错票而重新打印车票。 售票类型 车票中

19、所有联都应有的信息为车次、起止站点、票价、发车日期时间，而正联所特有的信息为售票员工号、检票口、是否改签票、车票上应有的信息：车票固有票号、计算机打印的票号、票号条形码（仅用于自动检票的车站）。 （2）车票类型 1)正常班次车票：发售的当天或预售正常轮班车次的车票。 2)远程售票：发售远程车站车次的车票，其打印格式同远程车站。 3)流水班次车票：发售的流水班次车票。 4)退票和改签票： 退票分为 A、正常退票。办理标准规定退票时间内的退票。 B、强行退票。在超过时限后退票，即强行退票。 补票：补票只能在超过售票时限后进行，且必须在未发车之前。 订票：设定定票有效期限，在有有效时限保留座位，有效

20、时外释放座位等。 票种的定义 全价票 半价票 允许设定可用标志，自由定义名称。 免票 只允许设定可用标志。 优惠票1-3 允许设定可用标志，自由定义名称。 折扣票 对原票价的基础上进行一定的打折，有严格的权限控制。 5所建议系统经济可行性分析5.1支出开发人员费用，设备维护费用，系统维护费用。开发该系统需要支出的费用包括：基本信息搜集与处理所需的经费，基础设备购入费用，人员开发费用。由于本系统为学生学习自主研发，支出成本主要体现在基本信息的获取与加工处理所经费上，约为100元。5.2收入将来的收入主要体现在可节省人力财力，提高运营效率，提高企业的服务质量等方面。估计软件的使用寿命约为3年。6社

21、会因素可行性研究6.1法律因素符合法律规定，没有触犯法律中的所有条款。6.2用户使用可行性会使用电脑和对一般常用软件有一些了解的人员均可使用，使用技术要求不高，符合现代“傻瓜式”软件要求。7 程序模块设计7.1功能模块详细设计7.1.1 车次管理模块代码实现Private Sub Cmd_OK_Click()检查用户录入数据的有效性If Len(Trim(txtCarID) = 0 Then MsgBox 请输入车次编号 txtCarID.SetFocus Exit Sub End If If Len(Trim(txtOutTime) = 0 Then MsgBox 请输入发车时间 txtOu

22、tTime.SetFocus Exit Sub End If 把用户录入的数据赋值到数据库对象变量中 With MyType .CarID = MakeStr(txtCarID) 车次编号 .OutSetTime = MakeStr(TimeEdit) 发车时间 .RunninWay = MakeStr(WayEdit) 经营路线 .CarType = MakeStr(TypeEdit) 车辆类型 .PlateNumber = MakeStr(CNnEdit) 车牌号 .CarHolder = MakeStr(HolderEdit) 责任人 .SeatLimit = MakeStr(LSeat

23、Edit) 额定座位 根据变量Modify决定是插入新数据，还是修改已有的数据 If Modify = False Then .Insert 插入新数据 Else 修改 .Update (nId) 修改已有的数据End IfEnd With Unload Me 关闭窗口7.1.2 票价管理模块代码实现 票价管理部分代码如下（信息添加过程）：Private Sub Cmd_Add_Click() 初始化FrmDiscountEdit信息 FrmPriceEdit.txtTerminalName = FrmPriceEdit.txtTNPYCode = FrmPriceEdit.txtCarID

24、= FrmPriceEdit.txtTicketPrice = FrmPriceEdit.Modify = False FrmPriceEdit.VarTermanalID = OriTerminalID FrmPriceEdit.Show RefreshDataEnd Sub7.1.3用户管路模块代码实现（编辑窗体代码）：Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 请输入用户名 txtUserName.SetFocus Exit Sub End If If Len(txtPass) 7 Then MsgBox 密

25、码长度不能小于7 txtPass.SetFocus txtPass.SelStart = 0 txtPass.SelLength = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密码和确认密码不相同，请重新确认txtPass2.SetFocus txtPass2.SelStart = 0 txtPass2.SelLength = Len(txtPass2) Exit Sub End If 判断是否存在同名用户 With MyUser If Modify = False Or OriUser Trim(txtUser

26、Name) Then If .In_DB(Trim(txtUserName) = True Then MsgBox 用户名已存在，请重新输入 txtUserName.SetFocus txtUserName.SelStart = 0 txtUserName.SelLength = Len(txtUserName) Exit Sub End If模块中的程序代码如下：Public adoCon As New ADODB.ConncetionPublic adors As New ADODB.Recordset连接数据库Public Sub main() Set adoCon = New ADOD

27、B.Connection adoCon.Open = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 汽车站售票管理系统.mdb & ;Persist Security Info=False FrmLogin.Show FrmLogin.txtUser.SetFocusEnd Sub7.2 界面设计系统主界面设计如下，主界面顶端显示不同管理模块，点击则进入相应界面。下端显示系统当前所处日期和时间。图14 系统主界面设计73附录：系统程序源代码(1)登陆窗体（FrmLogin）代码Public PasswordKey As S

28、tringPublic NameKey As StringPublic Try_times As Integer取消键退出登陆界面Private Sub Cmd_Cancel_Click()Unload MeEnd SubPrivate Sub Cmd_OK_Click() 数据库有效性检查If Trim(txtUser) = Then MsgBox 请输入用户名txtUser.SetFocus Exit SubEnd IfIf Trim(txtPwd) = Then MsgBox 请输入密码 txtPwd.SetFocus Exit Sub End IfEnd SubPrivate Func

29、tion MakeStr() As String NameKey = Str(txtUser) PasswordKey = Str(txtPwd) 判断用户是否存在 If MyUser.In_DB(NameKey) = Flase Then MsgBox 用户名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Function End If End If 判断密码是否正确 MyUser.GetINfo (NameKey

30、) If MyUser.Pwd PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Function End IfEnd If 登陆成功，将当前用户的信息保存在CurUser中 CurUser.UserName = MyUser.UserName CurUser.User_type = MyUser.User_type CurUserEmpID = MyUser.EmpI

31、D 关闭自己并显示主窗体 Unload Me FrmMain.ShowEnd Function（2）主窗体(FrmMain)代码设置数据库连接字符串Conn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 汽车站售票管理系统.mdb & ;Presist Security Info=False系统登陆界面FrmLogin.ShowEnd SubPrivate Sub PJCX_Click()End SubPrivate Sub PJGL_Click() FrmPriceManage.ShowEnd SubPrivate

32、Sub SPGL_Click() FrmTicketSell.ShowEnd SubPrivate Sub TPGL_Click() FrmBack.ShowEnd SubPrivate Sub XGMM_Click() With FrmUserEdit .OriUser = CurUser.UserName .txtUserName = CurUser.UserName If CurUser.User_type = 1 Then .ComboType.AddItem 系统管理员 Else .ComboType.AddItem 普通用户 End If .ComboType.ListIndex

33、= 0 .ComboType.Enabled = False .Modify = True .Show 1 End WithEnd SubPrivate Sub YHGL_Click() If CurUser.User_type = 1 Then FrmUserMan.Show Else MsgBox 没有权限 End IfEnd SubPrivate Sub ZKGL_Click() FrmDiscount.ShowEnd Sub（3）售票窗体（FrmTicketSell）代码Private Sub Cmd_Cancel_Click() Unload MeEnd SubPrivate Sub

34、 Cmd_Search_Click() GridRsfresh 根据条件查询所有信息End SubPrivate Sub Cmd_Sell_Click() Dim ComboDate As String, TNPYCode As String, CarID As String Dim left As Integer Dim seatnumber As String Dim strseat As String Dim ticketinformation As String Dim informationbook As String Dim cost As Long ComboDate = Tri

35、m(ComboDate.Text) TNPY = Trim(txtTNPYCode) CarID = Trim(txtCarID) Dim strcnn init_ado strQuery = Select CarID,OutStation,Terminal,OutSetTime,Date,Sno From Seat join Price on Seat.CarID=Price.CarID Where Seat.date= & _ Trim(ComboDate) & & and Price.TNPYCode= & Trim(txtTNPYCode) & 根据输入的信息，从表里得出查询结果rsd

36、ata.Open strQuery, cnnrsdata, , , adCmdText If rsdata.EOF Then MsgBox 车次或拼音码输入有误，请重新输入！, , Error! ComboDate.Text = TNPYCode = txtCarID = ComboDate.SetFocus ElseIf Len(TNPYCode) = 0 Then MsgBox 请输入拼音码 txtTNPYCode.SetFocus ElseIf Len(TNPYCode) 4 Then MsgBox 拼音码过长，无效！ txtCarID.SetFocus ElseIf Len(CarID

37、) = 0 Then MsgBox 请输入车次编号！ txtCarID.SetFocus ElseIf IsNumeric(Number) = False Then MsgBox 车次编号应为数字！ txtCarID.Text = txtCarID.SetFocus Else rsdata.Close strQuery = select count(*) as total from Seat where Seat.sell=false and Seat.date= & _ Trim(ComboDate.Text) & & and Seat.CarID= & Trim(txtCarID.Text

38、) & rsdata.Open strQuery, cnnrsdata, , , adCmdText 统计本车次的剩余的座位数 rsdata.MoveFirst left = rsdata!total If left = 0 Then MsgBox 本车次已经客满! ComboDate.Text = ComboSNno.Text = txtTNPYCode.Text = txtCarID.Text = ComboDate.SetFocus Else rsdata.Close strQuery = select count(*) as total from Seat where Seat.sel

39、l=false and Seat.date= & _ Trim(ComboDate) & & and Seat.CarID= & Trim(txtCarID) & rsdata.Open strQuery, cnnrsdata, , , adCmdText 统计本车次的剩余的座位数 rsdata.MoveFirst rsdata.AddNew rsdata!Date = comdate rsdata!Seat = comSNno rsdata!CarID = CarID rsdata!TNPYCode = TNPYCode rsdata!sno = Trim(seatnumber) rsdat

40、a.Update 添加新记录 更新 Seat 表 ，将刚卖出的座位号设为 false strQuery = select * from Seat where Seat.sno= & Trim(seatnumber) & _ and Seat.date= & Trim(ComboDate) & & _ and SeatCarID= & Trim(txtCarID) & rsdata.Open strQuery, cnnrsdata, , , adCmdText If rsdata!sell = False Then rsdata!sell = True rsdata.Update End If

41、ComboDate = txtTNPYCode = txtCarID = ComboDate.SetFocus cost = Val(Adodc3.Recordset.Fields(3) txtCharge = Val(txtMoney) - Val(Adodc3.Recordset.Fields(3) End Sub（4）退票窗体（FrmBack）代码Private Sub Cmdback_Click() Dim strdate As String Dim strline As String Dim strseatno As String Dim strTnl As String Dim r

42、esponse As String Dim ticketinformation As String strdate = Trim(Combodate.Text) strCarID = Trim(txtCarID.Text) strseatno = Trim(ComboSeatno.Text) strTnl = Trim(ComboTerminal.Text) Dim strcnn init_ado strQuery = Select * From SellTicket Where SellTicket.date= & _ Trim(Combodate.Text) & & and SellTic

43、ket.Sno= & Trim(ComboSNno.Text) & & _ and SellTicket.carID= & Trim(ComboCarID.Text) & 检查车票日期、车次和座位是否有效 rsdata.Open strQuery, cnnrsdata, , , adCmdText If rsdata.EOF Then MsgBox 你所要退的票为无效票或是你的输入有问题！ Else rsdata.Close strQuery = Select * From SellTicket Where SellTicket.date= & Trim(Combodate.Text) & _

44、 & and SellTicket.sno= & Trim(ComboSNno.Text) & & _ and SellTicket.CarID= & Trim(ComboCarID.Text) & rsdata.Open strQuery, cnnrsdata, , , adCmdText rsdata.MoveFirst Combodate.Text = rsdata!Date ComboSNSno.Text = rsdata!sno ComboCarID.Text = rsdata!CarID 车票有效，确认日期、车次和座位号，确认是否退票 ticketinformation = 日期:

45、 & strdate & & 车次: & strCarID & & 座位号: & strsno & response = MsgBox(ticketinformation, vbOKCancel + vbInformation, 是否真要退票?) If response = 1 Then 更改 SellTicket 表 rsdata.Close strQuery = select * from SellTicket rsdata.Open strQuery, cnnrsdata, , , adCmdText rsdata.MoveFirst Dim i As Integer For i = 1

46、 To rsdata.RecordCount If rsdata!Date = strdate And rsdata!sno = strsno And rsdata!sno = strseat Then rsdata.Delete End If rsdata.MoveNext Next i rsdata.Close 将刚退的票设为可卖 strQuery = select * from line where Seat.date= & strdate & & _ and Seat.CarID= & strCarID & & and Seat.sno= & strsno & rsdata.Open

47、strQuery, cnnrsdata, , , adCmdText If rsdata!book = True Then rsdata!book = False rsdata.Update End If Combodate.Text = ComboSno.Text = Combodate.SetFocus MsgBox 退票已成功！ Else rsdata.Close Combodate.Text = ComboSno.Text = Combodate.SetFocus End If End If End Sub（7）折扣管理窗体（FrmDiscount）代码Private Sub Cmd_Add_Click() 初始化FrmDiscountEdit信息 FrmDiscountEdit.txtTerminalName = FrmDiscountEdit.txtTNPYCode = FrmDiscountEdit.txtCar