简单的汽车站售票系统

1、For personal use only in study and research; not for commercial use沈阳航空航天大学课程设计学 号 2009040301004班级 94030101姓名 刘曦指导教师 刘学平2011年 3 月 18 日沈阳航空航天大学课程设计任务书学院：航宇 专业：飞行器制造 班级： 94030101学号： 2009040301004题目： 简单的汽车站售票系统一、课程设计时间2011 年 3月 7日11日（第 1周），共计 1 周。二、课程设计内容假设每天“沈阳植物园”有 4 个班次的汽车，具体的数据如下：班次发车时间载客量已售票数106:4

2、0500209:30400313:00400416:00400数据保存在文本文件或 Access 数据库中，请你为售票员开发一个程序，实现每天的“沈阳植 物园”的售票、退票等业务。要求：售票时按旅客要求选择班次，如果某个班次已过了发车时间，则 该班次今天不再售票， 如果某个班次的票已售完， 则也不能再售票。 用户界面中的菜单至少应包括 “售 票”、“退票”、“显示当前售票情况” 、“退出” 4 项三、课程设计要求程序质量：贯彻事件驱动的程序设计思想。 用户界面友好，功能明确操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上

3、交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。四、指导教师和学生签字指导教师： 学生签名： 五、成绩六、教师评语目录 TOC o 1-5 h z 一、需求分析 4二、设计分析 5 HYPERLINK l bookmark28 o Current Document 三、关键技术 6四、总结 1 1五、完整的源程序 12 HYPERLINK l bookmark48 o Current Document 六、参考文献 1 5、需求分析简单的汽车售票系统，主要指“售票”和“退票”这 两种业务。由于每班车都有规定的发车时间及最大载客 量，所以系统必须能够判断是否已过发车时间， 累计每

4、个 班次的售票量。 应旅客要求实现 “售票”和“退票” 业务， 并显示当前每班车次的售票情况。要求：（ 1）在文本文件中创建 myfile. txt 文件并保存数据， 以“已售票数” 、“ 已退票数”和“实售票数” 3 方 面信息。此文本应包括以下内容的数据：班次、发 车时间、载客量、已售票数、 已退票数、 实售票数。（2）能够在售票时按旅客要求选择班次。（3）能够判断是否已过发车时间，实现相应售退票 业务。（4）能够判断每个班次的票是否售完，实现相应售 退票业务。（5）能够保存售退票数，显示当前各个班次的售退 票情况。、设计分析基本原理： 建立程序设计与文本文件的联系， 用 Write# 语

5、句把数据写入文件，并通过使用 Input# 语句，从文件中按原来的数据类型读出数据并分 别赋予指定变量。2) 总体设计 ：图 1 总体设计3)详细设计 ：图 2 详细设计4)文本设计 ：文本设计是总体设计阶段的一个环节。 本程序的文本文件包括 6 个内容， 即班次、发车时间、载客量、已售票数、已退票数、实售票数。1) 汽车各班次具体情况( myfile. txt ) 汽车各班次具体情况 (myfile. txt)用于记录“班次、发车时间、 载客量、 已售票数、已退票数、实售票数”这些信息，其结构如文本 1 所示。文本 1 汽车各班次具体情况班次发车时间载客量已售票数已退票数实售票数16:405

6、0c1b1a129: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 &

7、 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:00 AM# ThenOption1.Enable

8、d = FalseEnd IfIf Time = #9:30:00 AM# ThenOption2.Enabled = FalseEnd IfIf Time = #1:00:00 PM# ThenOption3.Enabled = FalseEnd IfIf Time = #4:00:00 PM# ThenOption4.Enabled = False End IfEnd Sub3）按旅客选择实现相应班次的售票业务程序段如下：Private Sub sell_Click()Text1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4I

9、f Option1 Then a1 = a1 + 1 c1 = a1 + b1If a1 50 Then a1 = 50 c1 = a1 + b1End IfElseIf Option2 Then a2 = a2 + 1 c2 = a2 + b2If a2 40 Then a2 = 40 c2 = a2 + b2End IfElseIf Option3 Then a3 = a3 + 1 c3 = a3 + b3If a3 40 Then a3 = 40 c3 = a3 + b3End IfElseIf Option4 Then a4 = a4 + 1 c4 = a4 + b4If a4 40

10、Then a4 = 40 c4 = a4 + b4End IfEnd IfText1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4End Sub4）按旅客选择实现相应班次的退票业务程序段如下：Private Sub refund_Click()Text1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4If Option1 Thena1 = a1 - 1b1 = c1 - a1If a1 = 0 Thena1 = 0b1 = c1End IfElseIf Option2

11、Thena2 = a2 - 1b2 = c2 - a2If a2 = 0 Thena2 = 0b2 = c2End IfElseIf Option3 Thena3 = a3 - 1b3 = c3 - a3If a3 = 0 Thena3 = 0b3 = c3End IfElseIf Option4 Thena4 = a4 - 1b4 = c4 - a4If a4 = #6:40:00 AM# ThenOption1.Enabled = FalseEnd IfIf Time = #9:30:00 AM# Then Option2.Enabled = False End IfIf Time = #

12、1:00:00 PM# Then Option3.Enabled = False End IfIf Time = #4:00:00 PM# Then Option4.Enabled = False End IfEnd SubPrivate Sub refund_Click()Text1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4If Option1 Then a1 = a1 - 1 b1 = c1 - a1If a1 = 0 Then a1 = 0 b1 = c1End IfElseIf Option2 Then a2 = a2

13、 - 1 b2 = c2 - a2If a2 = 0 Then a2 = 0 b2 = c2End IfElseIf Option3 Then a3 = a3 - 1 b3 = c3 - a3If a3 = 0 Then a3 = 0 b3 = c3End IfElseIf Option4 Then a4 = a4 - 1 b4 = c4 - a4If a4 50 Then a1 = 50 c1 = a1 + b1 End IfElseIf Option2 Then a2 = a2 + 1 c2 = a2 + b2If a2 40 Then a2 = 40 c2 = a2 + b2 End I

14、fElseIf Option3 Then a3 = a3 + 1 c3 = a3 + b3If a3 40 Then a3 = 40 c3 = a3 + b3End IfElseIf Option4 Then a4 = a4 + 1 c4 = a4 + b4If a4 40 Then a4 = 40 c4 = a4 + b4 End IfEnd IfText1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4End SubPrivate Sub show_Click()Form2.showEnd SubPrivate Sub Comm

15、and1_Click()Form2.HideEnd SubPrivate Sub Form_Load()Dim abc As StringText1.Text = 打开文件 myfile.txt 用于读出数据，文件号为判断文件是否结束读一行数据送入变量 abc 将读出的数据添加到文本框末尾关闭文件Open myfile.txt For Input As #11Do While Not EOF(1)Line Input #1, cbaText1.Text = Text1.Text + cba + vbCrLfLoopClose #1End Sub六、参考文献求是科技著 visual basic 6.0 信息管理系统开发实例导航 人民邮电 出版社 2005年 4月韩亚萍等 visual basic 6.0 基础培训百例 机械工业出版社 2006年 7 月郑海春 谢维成主编 visual basic 6.0 编程及实例分析教程 清华大学出 版社 2007年 4 月以下无正文仅供个人用于学习、研究；不得用于商业用途 , , .For personal use only in study and research; not for commercial u