简单汽车站售票系统(精品)

《简单汽车站售票系统(精品)》由会员分享，可在线阅读，更多相关《简单汽车站售票系统(精品)（16页珍藏版）》请在装配图网上搜索。

1、沈阳航空航天大学 课程设计 学 号 2009040301004班 级 94030101 姓 名 刘曦 指导教师 刘学平 2011年 3月 18 日沈航设计用纸沈阳航空航天大学课程设计任务书学院：航宇 专业：飞行器制造 班级：94030101学号：2009040301004 题目：简单的汽车站售票系统一、课程设计时间2011年3月7日11日（第1周），共计1周。二、课程设计内容假设每天“沈阳植物园”有4个班次的汽车，具体的数据如下：班次发车时间载客量已售票数106:40500209:30400313:00400416:00400数据保存在文本文件或Access数据库中，请你为售票员开发一个程序，

2、实现每天的“沈阳植物园”的售票、退票等业务。要求：售票时按旅客要求选择班次，如果某个班次已过了发车时间，则该班次今天不再售票，如果某个班次的票已售完，则也不能再售票。用户界面中的菜单至少应包括“售票”、“退票”、“显示当前售票情况”、“退出”4项三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩 六、教师评语目 录一、需求分析4

3、二、设计分析5三、关键技术6四、总结11五、完整的源程序12六、参考文献16一、需求分析简单的汽车售票系统，主要指“售票”和“退票”这两种业务。由于每班车都有规定的发车时间及最大载客量，所以系统必须能够判断是否已过发车时间，累计每个班次的售票量。应旅客要求实现“售票”和“退票”业务，并显示当前每班车次的售票情况。要求：（1）在文本文件中创建myfile.txt文件并保存数据，以“已售票数”、“ 已退票数”和“实售票数”3方面信息。此文本应包括以下内容的数据：班次、发车时间、载客量、已售票数、已退票数、实售票数。（2）能够在售票时按旅客要求选择班次。（3）能够判断是否已过发车时间，实现相应售退票

4、业务。（4）能够判断每个班次的票是否售完，实现相应售退票业务。（5）能够保存售退票数，显示当前各个班次的售退票情况。二、设计分析（1） 基本原理：建立程序设计与文本文件的联系，用Write#语句把数据写入文件，并通过使用Input#语句，从文件中按原来的数据类型读出数据并分别赋予指定变量。（2） 总体设计：Input#语句读取并赋值文本文件中的数据Write#语句输入图1 总体设计（3）详细设计：开始判断是否过发车时间选择可选班次保存显示当前情况实现售退票业务保存当前的数据显示当前的售退票情况图2 详细设计（4）文本设计：文本设计是总体设计阶段的一个环节。本程序的文本文件包括6个内容，即班次、

5、发车时间、载客量、已售票数、已退票数、实售票数。1) 汽车各班次具体情况（myfile.txt）汽车各班次具体情况（myfile.txt）用于记录“班次、发车时间、载客量、已售票数、已退票数、实售票数”这些信息，其结构如文本1所示。文本1 汽车各班次具体情况班次 发车时间 载客量 已售票数 已退票数 实售票数1 6:40 50 c1 b1 a12 9:30 40 c2 b2 a23 13:00 40 c3 b3 a34 16:00 40 c4 b4 a4三、关键技术（1）建立文本文件并输入已知数据的代码如下。Private Sub bc_Click() Open myfile.txt For

6、Output As #1Write #1, 当前售票情况：Write #1, 班次 发车时间 载客量 已售票数 已退票数 实际售票 Write #1, 1 06：40 50 & Space(5) & c1 & Space(12) & b1 & Space(8) & a1Write #1, 2 09：30 40 & Space(5) & c2 & Space(12) & b2 & Space(8) & a2Write #1, 3 13：00 40 & Space(5) & c3 & Space(12) & b3 & Space(8) & a3Write #1, 4 16：00 40 & Spac

7、e(5) & c4 & Space(12) & b4 & Space(8) & a4Close #1End Sub图3 窗体-售退票系统判断是否已过发车时间（2）判断是否已过发车时间。程序段如下：Private Sub Form_Load()Form1.AutoRedraw = TruePrint Time If Time = #6:40:00 AM# Then Option1.Enabled = False End If If Time = #9:30:00 AM# Then Option2.Enabled = False End If If Time = #1:00:00 PM# Then

8、 Option3.Enabled = False End If If Time = #4:00:00 PM# Then Option4.Enabled = False End IfEnd Sub（3）按旅客选择实现相应班次的售票业务。程序段如下：Private Sub sell_Click() Text1.Text = a1 Text2.Text = a2 Text3.Text = a3 Text4.Text = a4 If Option1 Then a1 = a1 + 1 c1 = a1 + b1 If a1 50 Then a1 = 50 c1 = a1 + b1 End If ElseI

9、f Option2 Then a2 = a2 + 1 c2 = a2 + b2 If a2 40 Then a2 = 40 c2 = a2 + b2 End If ElseIf Option3 Then a3 = a3 + 1 c3 = a3 + b3 If a3 40 Then a3 = 40 c3 = a3 + b3 End If ElseIf Option4 Then a4 = a4 + 1 c4 = a4 + b4 If a4 40 Then a4 = 40 c4 = a4 + b4 End If End If Text1.Text = a1 Text2.Text = a2 Text3

10、.Text = a3 Text4.Text = a4End Sub（4）按旅客选择实现相应班次的退票业务。程序段如下：Private Sub refund_Click() Text1.Text = a1 Text2.Text = a2 Text3.Text = a3 Text4.Text = a4 If Option1 Then a1 = a1 - 1 b1 = c1 - a1 If a1 = 0 Then a1 = 0 b1 = c1 End If ElseIf Option2 Then a2 = a2 - 1 b2 = c2 - a2 If a2 = 0 Then a2 = 0 b2 =

11、c2 End If ElseIf Option3 Then a3 = a3 - 1 b3 = c3 - a3 If a3 = 0 Then a3 = 0 b3 = c3 End If ElseIf Option4 Then a4 = a4 - 1 b4 = c4 - a4 If a4 = #6:40:00 AM# Then Option1.Enabled = False End If If Time = #9:30:00 AM# Then Option2.Enabled = False End If If Time = #1:00:00 PM# Then Option3.Enabled = F

12、alse End If If Time = #4:00:00 PM# Then Option4.Enabled = False End IfEnd SubPrivate Sub refund_Click() Text1.Text = a1 Text2.Text = a2 Text3.Text = a3 Text4.Text = a4 If Option1 Then a1 = a1 - 1 b1 = c1 - a1 If a1 = 0 Then a1 = 0 b1 = c1 End If ElseIf Option2 Then a2 = a2 - 1 b2 = c2 - a2 If a2 = 0

13、 Then a2 = 0 b2 = c2 End If ElseIf Option3 Then a3 = a3 - 1 b3 = c3 - a3 If a3 = 0 Then a3 = 0 b3 = c3 End If ElseIf Option4 Then a4 = a4 - 1 b4 = c4 - a4 If a4 50 Then a1 = 50 c1 = a1 + b1 End If ElseIf Option2 Then a2 = a2 + 1 c2 = a2 + b2 If a2 40 Then a2 = 40 c2 = a2 + b2 End If ElseIf Option3 T

14、hen a3 = a3 + 1 c3 = a3 + b3 If a3 40 Then a3 = 40 c3 = a3 + b3 End If ElseIf Option4 Then a4 = a4 + 1 c4 = a4 + b4 If a4 40 Then a4 = 40 c4 = a4 + b4 End If End If Text1.Text = a1 Text2.Text = a2 Text3.Text = a3 Text4.Text = a4End Sub Private Sub show_Click()Form2.showEnd SubPrivate Sub Command1_Cl

15、ick() 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 basic 6.0 信息管理系统开发实例导航 人民邮电出版社 2005年4月2 韩亚萍等 visual basic 6.0 基础培训百例 机械工业出版社 2006年7月3 郑海春 谢维成主编 visual basic 6.0 编程及实例分析教程 清华大学出版社 2007年4月第16页，共16页