简单的汽车站售票系统.docx
《简单的汽车站售票系统.docx》由会员分享，可在线阅读，更多相关《简单的汽车站售票系统.docx（16页珍藏版）》请在冰豆网上搜索。
简单的汽车站售票系统
沈阳航空航天大学
课程设计
学号2009040302078
班级94030203
姓名崔箫
指导教师王晓岩
2011年3月14日
沈阳航空航天大学
课程设计任务书
学院：
航空宇航工程专业：
飞行器制造工程班级：
94030203
学号：
2009040302078题目：
简单的汽车站售票系统
一、课程设计时间
2011年3月7~11日（第1周），共计1周，20学时。
二、课程设计内容
每天“沈阳→植物园”有5个班次的汽车（假设），具体的数据如下：
班次发车时间载客量已售票数
106:
40500
209:
30400
313:
00400
416:
00400
520:
00500
请你为售票员开发一个小程序，以完成每天的“沈阳→植物园”的售票业务。
要求如下：
①能够售票和退票。
②可以随时显示售票现状，并以文件（myfile.txt）的形式保存当天各个车次的售票情况。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“售票”、“退票”、“显示当前售票情况”、“保存当天数据”、“退出”5项。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点6
主要界面截图9
总结13
完整的源程序14
参考文献20
需求分析
每天“沈阳→植物园”有5个班次的汽车（假设），根据所给数据,为售票员开发一个小程序，以完成每天的“沈阳→植物园”的售票业务。
要求:
1能够售票和退票。
②可以随时显示售票现状，并以文件（myfile.txt）的形式保存当天各个车次的售票情况。
设计分析
（1）概述：
创建程序和各按钮作用,建立程序设计与数据文件的连接，打开数据文件，保存数据。
（2）总体设计：
（3）详细设计：
技术要点
1关于数据库的连接和保存，代码如下
PrivateSubcopy_Click（）
Open"D:
\myfile.txt"ForAppendAs#1'打开myfile.txt作为一号文件
Print#1,"已售出"&Space
（2）&"第1班次";Space
（2）;Text1.Text;"张"&Space
（2）&"第2班次";Space
（2）;Text2.Text;"张"&Space
（2）&"第3班次";Space
（2）;Text3.Text;"张"&Space
（2）&"第4班次";Space
（2）;Text4.Text;"张"&Space
（2）&"第5班次";Space
（2）;Text5.Text;"张"'将售票情况写入myfile.text文件
Close#1'关闭
MsgBox"已保存"
EndSub
2为避免售票出现负数,需要先用条件语句使退票按钮不可用,代码如下
PrivateSubForm_Load（）
Picture1.Visible=False'图片框隐藏
Command1.Visible=False'返回按钮隐藏
IfText1.Text=0Then'初始时，使退票按钮不可用，避免退票出现负数
z.Enabled=False
EndIf
IfText2.Text=0Then
c.Enabled=False
EndIf
IfText3.Text=0Then
v.Enabled=False
EndIf
IfText4.Text=0Then
b.Enabled=False
EndIf
IfText5.Text=0Then
m.Enabled=False
EndIf
EndSub
3售票退票按钮的实现.是对文本框中的数字进行加或减,代码如下
PrivateSubbc_Click（）
Text1.Text=Val（Text1）+1'将括号内的数字字符转换成数值并加一，即售票
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubz_Click（）
Text1.Text=Val（Text1）-1
Picture1.Visible=False
Command1.Visible=False
EndSub
4当前情况的显示,用图片框打印出文本框的内容和票数减去文本框的内容,并加入注释,代码如下
PrivateSubx_Click（）
Picture1.Print"第1班次已售出票";Text1.Text;"张";Space
（2）;"剩余";50-Text1;"张";vbCrLf;'在图片框中打印出当前售票情况及剩余情况
Picture1.Print"第1班次已售出票";Text2.Text;"张";Space
（2）;"剩余";40-Text2;"张";vbCrLf;
Picture1.Print"第1班次已售出票";Text3.Text;"张";Space
（2）;"剩余";40-Text3;"张";vbCrLf;
Picture1.Print"第1班次已售出票";Text4.Text;"张";Space
（2）;"剩余";40-Text4;"张";vbCrLf;
Picture1.Print"第1班次已售出票";Text5.Text;"张";Space
（2）;"剩余";50-Text5;"张";vbCrLf;
Picture1.Visible=True'图片框显示
Command1.Visible=True'返回按钮显示
EndSub
5用条件语句，实现到达规定票数时的提醒功能，代码如下
PrivateSubText1_Change（）
IfText1.Text=50Then'当已售票数等于50时，显示“票已售光”，并使不可操作
MsgBox"票已售光"
Text1.Enabled=False
bc.Enabled=False
Else
Text1.Enabled=True
bc.Enabled=True
EndIf
IfText1.Text<=0Then'当已退票数等于0时，显示“无已售出的票”，并使不可操作
MsgBox"无已售出的票"
Text1.Enabled=False
z.Enabled=False
Else
Text1.Enabled=True
z.Enabled=True
EndIf
EndSub
主要界面截图
图1.主界面
图2.初始时退票按钮不可用
图3.当前售票情况显示
图4.数据的保存
总结
我的课程设计题目是“简单的汽车站售票系统”。
通过一周的努力，对程序的不断改进与调试，终于完成了程序的编写，最后的结果基本符合了课设题目的要求。
这次课设，从最初拿到题目的无从下手，到最后思路的清晰和程序的出炉，我觉得，其中所经历的设计过程才是最宝贵的。
当遇到困难时，通过查询资料和咨询老师去解决，所以当程序完全编写好后，真的很有成就感。
而且，我也明白了VB的重要性，它在日常生活中发挥了巨大的作用，学好VB是社会发展的需要。
通过这次课设，我知道了想要成功，就要脚踏实地的去努力，去探索，而且，也只有通过努力得到成功，才是最有成就感的。
也许在通往成功的路上会有困难，但只要相信自己，去探索，去积累，去奋斗，最后就一定可以实现自己的目标。
完整的源程序
PrivateSubb_Click（）
Text4.Text=Val（Text4）-1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubbc_Click（）
Text1.Text=Val（Text1）+1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubc_Click（）
Text2.Text=Val（Text2）-1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubCommand1_Click（）
Picture1.Visible=False
Command1.Visible=False
Picture1.Cls
EndSub
PrivateSubcopy_Click（）
Open"D:
\myfile.txt"ForAppendAs#1
Print#1,"已售出"&Space
（2）&"第1班次";Space
（2）;Text1.Text;"张"&Space
（2）&"第2班次";Space
（2）;Text2.Text;"张"&Space
（2）&"第3班次";Space
（2）;Text3.Text;"张"&Space
（2）&"第4班次";Space
（2）;Text4.Text;"张"&Space
（2）&"第5班次";Space
（2）;Text5.Text;"张"
Close#1
MsgBox"已保存"
EndSub
PrivateSube_Click（）
Text5.Text=Val（Text5）+1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubexit_Click（）
End
EndSub
PrivateSubForm_Load（）
Picture1.Visible=False
Command1.Visible=False
IfText1.Text=0Then
z.Enabled=False
EndIf
IfText2.Text=0Then
c.Enabled=False
EndIf
IfText3.Text=0Then
v.Enabled=False
EndIf
IfText4.Text=0Then
b.Enabled=False
EndIf
IfText5.Text=0Then
m.Enabled=False
EndIf
EndSub
PrivateSubm_Click（）
Text5.Text=Val（Text5）-1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubnn_Click（）
Text2.Text=Val（Text2）+1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubq_Click（）
Text3.Text=Val（Text3）+1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubText1_Change（）
IfText1.Text=50Then
MsgBox"票已售光"
Text1.Enabled=False
bc.Enabled=False
Else
Text1.Enabled=True
bc.Enabled=True
EndIf
IfText1.Text<=0Then
MsgBox"无已售出的票"
Text1.Enabled=False
z.Enabled=False
Else
Text1.Enabled=True
z.Enabled=True
EndIf
EndSub
PrivateSubText2_Change（）
IfText2.Text=40Then
MsgBox"票已售光"
Text2.Enabled=False
nn.Enabled=False
Else
Text2.Enabled=True
nn.Enabled=True
EndIf
IfText2.Text=0Then
MsgBox"无已售出的票"
Text2.Enabled=False
c.Enabled=False
Else
Text2.Enabled=True
c.Enabled=True
EndIf
EndSub
PrivateSubText3_Change（）
IfText3.Text=40Then
MsgBox"票已售光"
Text3.Enabled=False
q.Enabled=False
Else
Text3.Enabled=True
q.Enabled=True
EndIf
IfText3.Text=0Then
MsgBox"无已售出的票"
Text3.Enabled=False
v.Enabled=False
Else
Text3.Enabled=True
v.Enabled=True
EndIf
EndSub
PrivateSubText4_Change（）
IfText4.Text=40Then
MsgBox"票已售光"
Text4.Enabled=False
w.Enabled=False
Else
Text4.Enabled=True
w.Enabled=True
EndIf
IfText4.Text=0Then
MsgBox"无已售出的票"
Text4.Enabled=False
b.Enabled=False
Else
Text4.Enabled=True
b.Enabled=True
EndIf
EndSub
PrivateSubText5_Change（）
IfText5.Text=50Then
MsgBox"票已售光"
Text5.Enabled=False
e.Enabled=False
Else
Text5.Enabled=True
e.Enabled=True
EndIf
IfText5.Text=0Then
MsgBox"无已售出的票"
Text5.Enabled=False
m.Enabled=False
Else
Text5.Enabled=True
m.Enabled=True
EndIf
EndSub
PrivateSubv_Click（）
Text3.Text=Val（Text3）-1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubw_Click（）
Text4.Text=Val（Text4）+1
Picture1.Visible=False
Command1.Visible=False
EndSub
PrivateSubx_Click（）
Picture1.Print"第1班次已售出票";Text1.Text;"张";Space
（2）;"剩余";50-Text1;"张";vbCrLf;
Picture1.Print"第1班次已售出票";Text2.Text;"张";Space
（2）;"剩余";40-Text2;"张";vbCrLf;
Picture1.Print"第1班次已售出票";Text3.Text;"张";Space
（2）;"剩余";40-Text3;"张";vbCrLf;
Picture1.Print"第1班次已售出票";Text4.Text;"张";Space
（2）;"剩余";40-Text4;"张";vbCrLf;
Picture1.Print"第1班次已售出票";Text5.Text;"张";Space
（2）;"剩余";50-Text5;"张";vbCrLf;
Picture1.Visible=True
Command1.Visible=True
EndSub
PrivateSubz_Click（）
Text1.Text=Val（Text1）-1
Picture1.Visible=False
Command1.Visible=False
EndSub
参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
（等等）
升级会员 