简单的汽车站售票系统
- 格式:pdf
- 大小:371.75 KB
- 文档页数:16
一、实习背景随着社会经济的快速发展,人们的出行需求日益增加,车票管理系统作为现代化交通工具的重要组成部分,其重要性不言而喻。
为了提高车票管理效率,减少人工操作带来的不便,我国各大交通部门纷纷研发和实施车票管理系统。
本人在实习期间,有幸参与了某汽车站车票管理系统的设计与开发,以下为实习报告。
二、实习目的1. 熟悉车票管理系统的基本概念、设计原则和开发流程。
2. 掌握C语言编程技术,提高编程能力。
3. 了解数据库技术,提高数据库应用能力。
4. 培养团队协作和沟通能力。
三、实习内容1. 系统需求分析在实习初期,我首先对车票管理系统进行了需求分析。
通过对汽车站售票业务的了解,我发现车票管理系统应具备以下功能:(1)车次信息管理:录入、修改、删除车次信息,包括车次号、发车时间、起点站、终点站、行车时间、额定载客量等。
(2)票务信息管理:录入、修改、删除票务信息,包括车票号、票价、座位号、乘客姓名、联系方式等。
(3)售票查询:根据车次、时间、站点等信息查询车票信息。
(4)售票操作:进行售票、退票、改签等操作。
(5)统计报表:生成售票统计报表,包括车次售票情况、票价统计、售票员业绩等。
2. 系统设计在需求分析的基础上,我进行了系统设计。
系统采用模块化设计,主要包括以下模块:(1)数据模块:负责数据的存储、检索和更新。
(2)功能模块:实现售票、查询、统计等功能。
(3)界面模块:提供用户界面,方便用户进行操作。
3. 系统实现在系统实现阶段,我主要使用C语言进行编程,并结合数据库技术实现系统功能。
具体如下:(1)数据模块:采用关系型数据库MySQL存储数据,设计数据库表结构,实现数据的增删改查。
(2)功能模块:编写售票、查询、统计等功能模块的代码,实现系统功能。
(3)界面模块:使用C语言中的图形界面库,如GTK+等,设计用户界面。
4. 系统测试与优化在系统开发完成后,我对系统进行了测试和优化。
主要测试内容包括:(1)功能测试:验证系统功能是否满足需求。
浠水县汽总运输公司关于长途汽车网上售票管理系统设计论文2013年 5 月 8 日目录绪论 (1)课题背景 (1)编写目的和意义 (2)第一章可行性研究分析 (3)1.1 经济可行性 (3)1.2 技术可行性 (3)1.3运行可行性 (3)1.4 操作可行性 (4)第二章软件需求分析 (5)2.1 引言 (5)2.2.1基本功能需求 (5)2.2.2用户界面需求 (5)2.2.3开发环境介绍 (5)2.2.4系统需求分析 (6)2.3 数据描述 (7)2.3.1 数据流图 (7)2.3.2数据字典 (13)2.3.3 数据采集 (14)2.4 系统模型 (14)2.4.1汽车票订票系统体系结构图 (14)2.4.2 状态转移图 (15)2.4.3 性能需求 (16)2.5 运行需求 (16)2.5.1 用户界面 (16)2.5.2 故障处理 (16)2.6 其他 (16)第三章项目开发计划 (18)3.1项目概诉 (18)3.2实施计划 (18)第四章系统总体设计 (20)4.1 系统设计图 (20)4.2系统功能模块设计 (22)4.2.1 功能模块 (22)4.2.2 系统模块设计 (22)第五章详细设计 (24)5.1系统登录模块设计 (24)第六章数据库分析与设计 (34)6.1 实体及其属性 (34)6.2 E-R图分析 (34)6.3 数据库表设计 (35)6.4 表间关系 (40)第七章系统实现与测试 (41)7.1系统的测试 (41)7.2.1 测试内容 (41)第八章项目开发总结 (49)8.1对项目开发过程的评价 (49)8.2对项目开发的总结 (49)绪论课题背景在客运公司工作7年之余,对客运管理的难度深有感触。
特别是在春运期间购票难依旧是长途汽车订票的一大难题。
长途汽车和火车的订票管理虽然有差异,但大体上是相同的。
长途汽车在售票的过程中需要对旅客的起始地、目的地、车次、订票和退票进行管理。
厦门远景达
车站半自动化售票机(BOM机)嵌入RD4100,助力春运票务运作更高效
近年来,地铁站、汽车站、火车站等交通车站先后引进了自助设备。
比如自助售票机、自助取票机等自助设备。
乘客们可以在自助机上自主购票、取票,但是不能进行补票、充值、退票、车票挂失等等的操作。
如果想要办理这些业务,就必须去人工窗口。
而传统的人工窗口主要业务操作系统繁琐,办理一个业务常常需要等很久的时间。
特别是现在春运时期,乘客数量暴增,传统的人工操作已经满足不了业务办理的需求了。
为了,很多城市的地铁、车站相继引入半自动化售票机简称BOM机。
BOM机主要是在车站中由工作人员进行操作,为乘客提供售票和补票的设备。
除了此外,BOM机还能办理替换、车票挂失、车票分析、车票处理、车票查询、收益管理、设备操作等等,功能齐全。
但是随着移动支付的发展,在支付方式上90%以上都会采用微信支付或者支付宝等在线扫描支付的方式。
所以为了提供更加多元化的支付方式,在BOM机上内嵌一个二维码支付扫描模块成为一个迫切的需求。
作为条码扫描模块的供应商,厦门远景达根据BOM机的操作需求,推荐RD4100二维码扫描模块。
RD4100小巧方便,容易内嵌在自助设备里面;接口众多,能够接受二次开发与改造;具有检票功能;还能应用于商超支付扫码;除此之外,RD4100还具有闪电开票的功能,扫一扫,就能快速开具发票,以后开票再也不要担心排长队了。
厦门远景达在无人商超、高速扫码支付、公交扫码支付、地铁闸机扫码支付、智能门禁、智能停车场等等都已有成熟的应用方案。
如果您有需要,欢迎您致电与我们联系。
汽车客运站售票系统开发简介本文档介绍了一个汽车客运站售票系统的开发过程。
该系统旨在为客运站提供一个方便快捷的售票渠道,提升客运站的运营效率和服务质量。
功能需求该售票系统具有以下基本功能:1.用户注册与登录:用户可以通过注册账号并登录系统,方便进行后续的购票和查询操作。
2.线路管理:管理员可以添加、编辑和删除车辆的运行线路信息,包括起始站点、终点站点、途径站点和票价等。
3.车次管理:管理员可以添加、编辑和删除车次信息,包括车次号、发车时间、座位数等。
4.车票购买:用户可以浏览并选择自己想要购买的车次和座位,然后进行支付。
5.车票查询:用户可以根据日期、起始站点和终点站点,查询符合条件的车次信息。
6.退票:用户可以申请退票并退还部分票款。
技术架构本系统采用前后端分离的开发模式,前端使用Vue.js框架进行开发,后端使用Node.js和Express框架进行开发。
前端使用HTML、CSS和JavaScript语言编写,结合Vue.js框架实现页面的构建和交互。
后端使用Node.js作为运行环境,借助Express框架搭建Web服务器,并与数据库进行交互。
数据库采用MySQL,用于存储用户注册信息、车次信息和购票记录等数据。
数据库设计本系统涉及的数据库表包括:•用户表(user):存储用户的注册信息,包括用户名、密码等。
•线路表(route):存储车辆的运行线路信息,包括起始站点、终点站点、途径站点和票价等。
•车次表(schedule):存储车次信息,包括车次号、发车时间、座位数等。
•订单表(order):存储用户的购票记录,包括用户ID、车次ID、座位号、订单状态等。
接口设计本系统定义了以下接口:1.注册接口(POST /api/user/register):用户注册接口,接受用户名和密码作为输入,返回注册成功的消息或注册失败的错误信息。
2.登录接口(POST /api/user/login):用户登录接口,接受用户名和密码作为输入,返回登录成功的消息或登录失败的错误信息。
汽车客运站售票员售票操作规范汽车客运站售票员售票操作规范汽车客运站售票员售票服务规范1.售票前准备工作(1)正确放置告知牌;(2)零钱摆放有序;(3)启动计算机售票系统,输入本人工作代码,核对票号;(4)熟练地将客票装入打印机;(5)检查售票显示和柜台对讲系统是否工作正常;(6)检查桌面摆放是否整齐。
2.售票时操作规范(1)移开告知牌,放置隐蔽处。
(2)售票时,当收到旅客票款后,应放在桌面上,完成本次售票,旅客离开窗口后,将票款放进抽屉。
(3)客票打印清晰,有差错时或客票撕断应重打,并及时销号。
(4)抽屉内现金摆放有序。
3.售票时语言规范(1)讲普通话,语速适中,口齿清晰,语调亲切。
正确合理使用“十字”文明用语。
(2)旅客来到售票窗口前,应面对旅客微笑,首问:“您好!请问到哪里?”旅客说明购票需求后,售票员应简单扼要地重复其乘车日期、时间,到达站和购票张数。
(3)旅客确认后,应告之旅客购票总金额。
(4)收取旅客票款时,应唱收进金额,并唱找零。
(此时,计算机正在打印客票,售票员唱找零的同时,可把找零递给旅客)如果旅客所给票款正好时,应说一声“票款正好”。
(5)从打印机上撕下客票,眼看客票交待:“您购买的是*月*日*点*分,**站(到达站地名)、*张”。
在将客票递给旅客的同时,提醒旅客到几号门检票乘车,再说一声“再见”。
(6)售儿童票时,需问:“请问孩子(小孩)多高?”。
旅客回答其身高超过儿童票身高规定的,需及时告知旅客:“对不起,您的孩子(小孩)身高已超过购买儿童票规定,需购买全票。
”身高未超过儿童票身高规定的,需及时提醒旅客:“您的孩子(小孩)身高,按规定可以免票乘车,您还需购买儿童票吗?”旅客需要时。
可回答:“好的”,旅客不需要购买,可回答:“谢谢”。
身高满足购买儿童票规定的,需及时告知旅客:“可以购买半票。
”(7)售优待票时,需请旅客出示《残疾军人证》或《伤残人民警察证》。
可简要地说:“请出示您的有关证件”。
3D客运站场虚拟实训系统
3D客运站场虚拟实训系统采用业界流行的3D游戏操作界面,融知识性与趣味性为一体,让学生在类似游戏的轻松操作中迅速理解并掌握现实汽车客运站务的管理流程、运作模式和工作内容。
3D客运站场虚拟实训系统模拟了现实中汽车客运站场的真实运作环境,包括售票窗口、服务台、候车大厅、检票口、调度室、发车卡位、停车位、行包货运受理处、包行货物打包、行包货物装车等众多场景,其核心是让学生通过模拟现实汽车站务管理的过程,达到迅速上岗的目的。
各个子系统的实训流程是在总结了众多汽车客运站场的业务模式基础上设计的,同时配套设计详细的实训指导书,确保学生深入理解汽车站务工作的操作细节与业务流程。
C语言课程设计汽车售票系统一、教学目标本课程的教学目标是使学生掌握C语言的基本语法和编程技巧,能够运用C语言设计并实现一个简单的汽车售票系统。
具体目标如下:1.理解C语言的基本数据类型和运算符。
2.掌握C语言的控制结构,如条件语句和循环语句。
3.熟悉C语言的函数定义和调用。
4.理解C语言的指针和数组。
5.能够使用C语言编写简单的程序。
6.能够运用C语言实现数据的输入和输出。
7.能够运用C语言进行基本的逻辑判断和循环控制。
8.能够设计并实现简单的函数。
情感态度价值观目标:1.培养学生对计算机编程的兴趣和热情。
2.培养学生解决问题的能力和团队合作精神。
二、教学内容本课程的教学内容主要包括C语言的基本语法和编程技巧,以及如何设计一个简单的汽车售票系统。
具体内容如下:1.C语言的基本数据类型和运算符。
2.C语言的控制结构,如条件语句和循环语句。
3.C语言的函数定义和调用。
4.C语言的指针和数组。
5.C语言的输入输出操作。
6.C语言的逻辑判断和循环控制。
7.C语言的函数设计。
8.汽车售票系统的设计和实现。
三、教学方法本课程的教学方法主要包括讲授法、案例分析法和实验法。
通过多种教学方法的综合运用,激发学生的学习兴趣和主动性。
1.讲授法:通过讲解C语言的基本语法和编程技巧,使学生掌握相关知识。
2.案例分析法:通过分析具体的编程案例,使学生理解并掌握C语言的应用。
3.实验法:通过编写和运行C语言程序,使学生动手实践,巩固所学知识。
四、教学资源本课程的教学资源主要包括教材、参考书、多媒体资料和实验设备。
1.教材:选用权威、实用的C语言教材,如《C程序设计语言》。
2.参考书:提供相关的C语言编程参考书籍,如《C语言编程思想》。
3.多媒体资料:制作精美的教学PPT,提供相关的教学视频和案例分析。
4.实验设备:提供计算机实验室,让学生能够进行实际编程和实验。
五、教学评估本课程的评估方式包括平时表现、作业和考试三个部分,以全面客观地评估学生的学习成果。
·汽车站售票操作流程·下载温馨提示:该文档是我店铺精心编制而成,希望大家下载以后,能够帮助大家解决实际的问题。
文档下载后可定制随意修改,请根据实际需要进行相应的调整和使用,谢谢!·并且,本店铺为大家提供各种各样类型的实用资料,如教育随笔、日记赏析、句子摘抄、古诗大全、经典美文、话题作文、工作总结、词语解析、文案摘录、其他资料等等,如想了解不同资料格式和写法,敬请关注!·Download tips: This document is carefully compiled by theeditor. I hope that after you download them,they can help yousolve practical problems. The document can becustomized andmodified after downloading,please adjust and use it according toactual needs, thank you!·In addition, our shop provides you with various types ofpractical materials,such as educational essays,diaryappreciation,sentence excerpts,ancient poems,classic articles,topic composition,work summary,word parsing,copy excerpts,other materials and so on,want to know different data formats andwriting methods,please pay attention!序号操作步骤具体内容1 旅客咨询旅客询问车次、时间、票价等信息2 查询车次售票员在系统中查询相关车次信息3 选择车票旅客根据查询结果选择所需车票4 录入信息售票员将旅客身份信息等录入系统5 确认信息与旅客再次确认车票信息6 收款收取票款7 打印车票打印出纸质车票8 交付车票将车票交给旅客9 记录存档对售票信息进行记录和存档以下是一个简单的汽车站售票操作流程示例:汽车站售票系统通常应具备以下功能:·**车次管理**:能够添加、编辑、删除车次信息,包括车次号、出发地、目的地、发车时间、到达时间等。
陕西省西安汽车站计算机售票管理系统软件需求分析报告1引言我站目前使用的售票管理系统自零三年启用至今已历数载,其运行期间为我站的生产经营和企业发展都做出了不小的贡献。
随着国民经济的不断发展,客运市场的变化也越来越快,人们的出行活动越来越频繁,对交通行业服务的快捷,便利等要求也越来越高,而目前这套系统在硬件的运行速度和软件的售票速度,还有经过几次修改带来的软件兼容问题等一些其他问题,致使旅客不能很方便的购票出行。
这有违我站“以人为本,以客为尊”的服务宗旨。
有必要对售票管理系统升级改造。
帮助企业从技术角度强化和规范企业管理。
并在此基础上拓展诸如网上和电话订,售票功能,电话语音自动查询系统等业务,为旅客的出行提供更多的方便。
对软件需求的完全理解,对软件开发工作的成功至关重要。
需求分析的任务时发现求精建模和规范的工程。
向开发方阐述软件的功能和性能的需求,使他们明确我站售票管理系统的需求开发出切合实际的软件。
1.1范围1.1.1系统目标1.1.1.1实现多渠道的售票模式,方便旅客购票1.1.1.2准确采集客源信息,为合理调配运力资源提供依据1.1.2功能范围1.1.2.1 系统管理1.1.2.2 数据管理1.1.2.3 班次管理1.1.2.4 票据管理1.1.2.5 调度管理1.1.2.6 前台售票1.1.2.7 前台退票1.1.2.8 检票系统1.1.2.9 综合查询1.1.2.10 前台查询1.1.2.11 票价管理1.1.2.12 预定系统1.1.2.13 电子显示屏2.系统概述2.1软件描述鉴于目前售票系统已运行多年和我站的客运作业流程结合紧密,各岗位的工作人员也已习惯这一流程,岗位和岗位之间的配合日臻默契。
因此建议在保留目前系统诸如,数据库划分为历史数据可与当前数据库,这样当需要修改某一天某一个班次的信息时不会影响其他日期这个班次的信息,保证数据安全提高系统运行速度。
将系统分为多个独立的可执行程序,方便管理特别是权限管理等优点的基础上升级改造,开发一个切合我站实际情况的售票管理系统。
沈阳航空航天大学课程设计任务书学院:航宇专业:飞行器制造班级:94030101学号:2009040301004题目:简单的汽车站售票系统一、课程设计时间2011年3月7日~11日(第1周),共计1周。
二、课程设计内容假设每天“沈阳→植物园”有4个班次的汽车,具体的数据如下:班次发车时间载客量已售票数106:40500209:30400313:00400416:00400数据保存在文本文件或Access数据库中,请你为售票员开发一个程序,实现每天的“沈阳→植物园”的售票、退票等业务。
要求:售票时按旅客要求选择班次,如果某个班次已过了发车时间,则该班次今天不再售票,如果某个班次的票已售完,则也不能再售票。
用户界面中的菜单至少应包括“售票”、“退票”、“显示当前售票情况”、“退出”4项三、课程设计要求程序质量:✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确操作方便;可以加以其它功能或修饰。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:✧课设结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字指导教师:________学生签名:________五、成绩六、教师评语目录一、需求分析 (4)二、设计分析 (5)三、关键技术 (6)四、总结 (11)五、完整的源程序 (12)六、参考文献 (16)一、需求分析简单的汽车售票系统,主要指“售票”和“退票”这两种业务。
由于每班车都有规定的发车时间及最大载客量,所以系统必须能够判断是否已过发车时间,累计每个班次的售票量。
应旅客要求实现“售票”和“退票”业务,并显示当前每班车次的售票情况。
要求:(1)在文本文件中创建myfile.txt文件并保存数据,以“已售票数”、“已退票数”和“实售票数”3方面信息。
此文本应包括以下内容的数据:班次、发车时间、载客量、已售票数、已退票数、实售票数。
(2)能够在售票时按旅客要求选择班次。
(3)能够判断是否已过发车时间,实现相应售退票业务。
(4)能够判断每个班次的票是否售完,实现相应售退票业务。
(5)能够保存售退票数,显示当前各个班次的售退票情况。
二、设计分析(1)基本原理:建立程序设计与文本文件的联系,用Write#语句把数据写入文件,并通过使用Input#语句,从文件中按原来的数据类型读出数据并分别赋予指定变量。
(2)总体设计:Input#语句读取并赋值文本文件中的数据Write#语句输入图1总体设计(3)详细设计:开始判断是否过发车时间选择可选班次保存显示当前情况实现售退票业务保存当前的数据显示当前的售退票情况图2详细设计(4)文本设计:文本设计是总体设计阶段的一个环节。
本程序的文本文件包括6个内容,即班次、发车时间、载客量、已售票数、已退票数、实售票数。
1)汽车各班次具体情况(myfile.txt)汽车各班次具体情况(myfile.txt)用于记录“班次、发车时间、载客量、已售票数、已退票数、实售票数”这些信息,其结构如文本1所示。
文本1汽车各班次具体情况班次发车时间载客量已售票数已退票数实售票数16:4050c1b1a129:3040c2b2a2313:0040c3b3a3416:0040c4b4a4三、关键技术(1)建立文本文件并输入已知数据的代码如下。
Private Sub bc_Click()Open"myfile.txt"For Output As#1Write#1,"当前售票情况:"Write#1,"班次发车时间载客量已售票数已退票数实际售票"Write#1,"106:4050"&Space(5)&c1&Space(12)&b1&Space(8) &a1Write#1,"209:3040"&Space(5)&c2&Space(12)&b2&Space(8) &a2Write#1,"313:0040"&Space(5)&c3&Space(12)&b3&Space(8) &a3Write#1,"416:0040"&Space(5)&c4&Space(12)&b4&Space(8) &a4Close#1End Sub图3窗体-售退票系统判断是否已过发车时间(2)判断是否已过发车时间。
程序段如下:Private Sub Form_Load()Form1.AutoRedraw=TruePrint TimeIf Time>=#6:40:00AM#ThenOption1.Enabled=FalseEnd IfIf Time>=#9:30:00AM#ThenOption2.Enabled=FalseEnd IfIf Time>=#1:00:00PM#ThenOption3.Enabled=FalseEnd IfIf Time>=#4:00:00PM#ThenOption4.Enabled=FalseEnd IfEnd Sub(3)按旅客选择实现相应班次的售票业务。
程序段如下:Private Sub sell_Click()Text1.Text=a1Text2.Text=a2Text3.Text=a3Text4.Text=a4If Option1Thena1=a1+1c1=a1+b1If a1>50Thena1=50c1=a1+b1End IfElseIf Option2Thena2=a2+1c2=a2+b2If a2>40Thena2=40c2=a2+b2End IfElseIf Option3Thena3=a3+1c3=a3+b3If a3>40Thena3=40c3=a3+b3End IfElseIf Option4Thena4=a4+1c4=a4+b4If a4>40Thena4=40c4=a4+b4End IfEnd IfText1.Text=a1Text2.Text=a2Text3.Text=a3Text4.Text=a4End Sub(4)按旅客选择实现相应班次的退票业务。
程序段如下:Private Sub refund_Click()Text1.Text=a1Text2.Text=a2Text3.Text=a3Text4.Text=a4If Option1Thena1=a1-1b1=c1-a1If a1<=0Thena1=0b1=c1End IfElseIf Option2Thena2=a2-1b2=c2-a2If a2<=0Thena2=0b2=c2End IfElseIf Option3Thena3=a3-1b3=c3-a3If a3<=0Thena3=0b3=c3End IfElseIf Option4Thena4=a4-1b4=c4-a4If a4<=0Thena4=0b4=c4End IfEnd IfText1.Text=a1Text2.Text=a2Text3.Text=a3Text4.Text=a4End Sub图4-窗体售退票系统(5)保存售退票数,并显示当先的售票情况。
程序段如下:Private Sub Form_Load()Dim abc As StringText1.Text=""Open"myfile.txt"For Input As#1'打开文件myfile.txt用于读出数据,文件号为1Do While Not EOF(1)'判断文件是否结束Line Input#1,cba'读一行数据送入变量abcText1.Text=Text1.Text+cba+vbCrLf'将读出的数据添加到文本框末尾LoopClose#1'关闭文件End Sub图5窗体-显示当前的售退票情况四、总结本次课设,我的题目是“简单的汽车售票系统”,课设让我进一步了解了VB与文本文件之间的联系,学会了如何用Write#语句把数据写入文件,并通过使用Input#语句,从文件中按原来的数据类型读出数据并分别赋予指定变量。
在这次为期一周的课设过程中,我遇到了很多难题,认识到了自己在对VB的掌握程度上还有很多不足之处。
例如:如何判断是否已经达到最大售票量,如何建立VB与已保存在文本文件中的数据的联系,并在此基础上添加变量显示当前的售票情况。
通过对老师的请教,跟同学的探讨以及查看参考相关资料,我最终解决了程序设计中的困难,实现了题目中的各个要求。
通过课设中对VB的进一步了解和学习,我认识到了VB在当今的现实生活中有着广泛的应用,VB对于解决实际问题有着重要意义。
学好VB基础,并能熟练掌握知识点解决实际问题是当代大学生的重要任务。
五、完整的源程序Option ExplicitDim a1%,a2%,a3%,a4%,b1%,b2%,b3%,b4%,c1%,c2%,c3%,c4%Private Sub bc_Click()Open"myfile.txt"For Output As#1Write#1,"当前售票情况:"Write#1,"班次发车时间载客量已售票数已退票数实际售票"Write#1,"106:4050"&Space(5)&c1&Space(12)&b1&Space(8)& a1Write#1,"209:3040"&Space(5)&c2&Space(12)&b2&Space(8)& a2Write#1,"313:0040"&Space(5)&c3&Space(12)&b3&Space(8)& a3Write#1,"416:0040"&Space(5)&c4&Space(12)&b4&Space(8)& a4Close#1End SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Form_Load() Form1.AutoRedraw=True Print TimeIf Time>=#6:40:00AM#ThenOption1.Enabled=False End IfIf Time>=#9:30:00AM#ThenOption2.Enabled=FalseEnd IfIf Time>=#1:00:00PM#ThenOption3.Enabled=FalseEnd IfIf Time>=#4:00:00PM#ThenOption4.Enabled=FalseEnd IfEnd SubPrivate Sub refund_Click() Text1.Text=a1Text2.Text=a2Text3.Text=a3Text4.Text=a4If Option1Thena1=a1-1b1=c1-a1If a1<=0Thena1=0b1=c1End IfElseIf Option2Thena2=a2-1b2=c2-a2If a2<=0Thena2=0b2=c2End IfElseIf Option3Thena3=a3-1b3=c3-a3If a3<=0Thena3=0b3=c3End IfElseIf Option4Thena4=a4-1b4=c4-a4If a4<=0Thena4=0b4=c4End IfEnd IfText1.Text=a1 Text2.Text=a2 Text3.Text=a3 Text4.Text=a4End SubPrivate Sub sell_Click() Text1.Text=a1 Text2.Text=a2 Text3.Text=a3 Text4.Text=a4If Option1Thena1=a1+1c1=a1+b1If a1>50Thena1=50c1=a1+b1End IfElseIf Option2Thena2=a2+1c2=a2+b2If a2>40Thena2=40c2=a2+b2End IfElseIf Option3Thena3=a3+1c3=a3+b3If a3>40Thena3=40c3=a3+b3End IfElseIf Option4Thena4=a4+1c4=a4+b4If a4>40Thena4=40c4=a4+b4End IfEnd IfText1.Text=a1Text2.Text=a2Text3.Text=a3Text4.Text=a4End SubPrivate Sub show_Click()Form2.showEnd SubPrivate Sub Command1_Click()Form2.HideEnd SubPrivate Sub Form_Load()Dim abc As StringText1.Text=""Open"myfile.txt"For Input As#1'打开文件myfile.txt用于读出数据,文件号为1Do While Not EOF(1)'判断文件是否结束Line Input#1,cba'读一行数据送入变量abcText1.Text=Text1.Text+cba+vbCrLf'将读出的数据添加到文本框末尾LoopClose#1'关闭文件End Sub六、参考文献[1]求是科技著《visual basic6.0信息管理系统开发实例导航》人民邮电出版社2005年4月[2]韩亚萍等《visual basic6.0基础培训百例》机械工业出版社2006年7月[3]郑海春谢维成主编《visual basic6.0编程及实例分析教程》清华大学出版社2007年4月。