简单的汽车站售票系统.docx
- 文档编号:4345564
- 上传时间:2022-11-30
- 格式:DOCX
- 页数:16
- 大小:206.81KB
简单的汽车站售票系统.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
(等等)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 简单 汽车站 售票 系统