电影院售票系统Word下载.docx
- 文档编号:19026333
- 上传时间:2023-01-03
- 格式:DOCX
- 页数:13
- 大小:103.52KB
电影院售票系统Word下载.docx
《电影院售票系统Word下载.docx》由会员分享,可在线阅读,更多相关《电影院售票系统Word下载.docx(13页珍藏版)》请在冰豆网上搜索。
影票信息存储到Access数据库的一个表中,影票信息至少包括:
影片名、放映日期、票价、座位号、场次、售票员等。
程序能实现对影票数据进行维护、查询、汇总、打印等功能。
用户界面中的菜单至少应包括“数据维护”、“查询”、“汇总”、“打印”、“退出”5项。
三、课程设计要求
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;
可以增加其它功能或修饰。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课设结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
刘学平学生签名:
高欣
五、成绩
六、教师评语
目录
一、需求分析4
二、设计分析4
三、关键技术6
四、总结11
五、完整的源程序12
六、参考文献16
一、需求分析
模拟电影院售票系统,主要是“数据维护”“查询”“汇总”“打印”“退出”等业务,要求:
1、在Access中创建books表,此表的结构应如下定义:
影片名称,上映日期,票价,座位号、场次、售票员2、方便新电影的添入和旧电影的删除3、能够随时计算电影院剩余座位次数。
4、能够准确的查询显示电影的售票信息。
二、设计分析
(1)基本原理:
建立程序设计与数据库的连接,用SQL语句在数据库中查找,添加和更改数据。
(2)总体设计:
图1总体设计
(3)详细设计:
图1详细设计
(4)数据库设计:
数据库设计是总体设计阶段非常重要的环节,数据库结构的变化会造成编码的改动,所以必须认真设计数据库结构后再进行编码,从而避免无谓的重复工作。
本系统的数据库1个表,即电影票基本信息表。
1)电影票基本信息表(.mdb)
电影票基本信息表(.mdb)用于记录影片名称、放映日期、价格、场次、座位号、售票员等信息,其逻辑结构如表1所示。
表1电影票基本信息表
影片名
上映日期
票价
座位号
场次
售票员
三、关键技术
(1)利用adodc控件建立与数据库的连接方法如下图
鼠标右键单击ADO数据控件,选择弹出菜单中“ADODC属性”命令,打开控件“属性页”对话框,使用方式是“使用连接字符串”。
(2)数据维护是更改数据库中电影信息。
PrivateSubm11_Click()
Command1.Visible=True
Command2.Visible=True
Command3.Visible=False
Label7.Visible=False
Text7.Visible=False
EndSub
PrivateSubm12_Click()
ask=MsgBox("
您确定要删除吗"
vbYesNo)
Ifask=6Then
Adodc1.Recordset.Delete
EndIf
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew'
使用AddNew添加
Adodc1.Recordset.Fields("
影片名"
)=Text1
放映日期"
)=Text2
票价"
)=Text3
座位号"
)=Text4
场次"
)=Text5
售票员"
)=Text6
PrivateSubCommand2_Click()
Text1="
"
Text2="
Text3="
Text4="
Text5="
Text6="
图4窗体-数据维护添加
(3)查询影票销售情况是SQL语句在数据库中查找电影信息。
Recordset.Find搜索条件(,(位移),(搜索方向),(起始位置))
程序段如下:
PrivateSubm2_Click()
Command1.Visible=False
Command2.Visible=False
Command3.Visible=True
Label7.Visible=False
Text7.Visible=False
PrivateSubCommand3_Click()
Adodc1.Recordset.MoveFirst
IfText1>
"
Then
a=Text1
Fori=1ToAdodc1.Recordset.RecordCount
Adodc1.Recordset.Find"
影片名="
&
'
a&
'
使用Find查询
Text1.DataField="
Text2.DataField="
Text3.DataField="
Text4.DataField="
Text5.DataField="
Text6.DataField="
Nexti
Else:
MsgBox("
请输入影片名"
)
(4)打印是打印将要售出的电影票的有关信息。
程序段如:
PrivateSubm4_Click()
DimBeginPage,EndPage,NumCopies,i
CommonDialog1.CancelError=True'
设置“取消”为true
OnErrorGoToErrHandler
CommonDialog1.ShowPrinter'
显示"
打印"
对话框
BeginPage=CommonDialog1.FromPage'
开始页
EndPage=CommonDialog1.ToPage'
结束页
NumCopies=CommonDialog1.Copies'
打印份数
Fori=1ToNumCopies
ExitSub
ErrHandler:
用户按了"
取消"
按钮
图5窗体-打印
四、总结
这次课业设计我的题目是电影院售票系统,通过这次设计,让我深入了解了vb程序作用,理解了它在现实生活中的重要意义。
通过这次课设让我了解了VB与数据库之间的联系,
应用ADO技术使VB与数据库进行联系,还可以应用语言查询和更改数据库中的信息,并能向其中添加新的信息。
在程序设计的过程中我遇到了许多困难,通过查阅资料和与同学讨论,克服了难题完成了作业。
同时我也了解了VB的出现是一场技术革命,它在生活中各个方面都能发挥巨大的作用,也了解了自己在VB方面的不足,所以,学好VB是对自己的要求,也是社会发展的需要。
五、完整的源程序
Dimb$
b=Text1.Text
Ifb="
123456"
Form1.Show
Form2.Hide
Else
prompt="
密码错误!
answer=MsgBox(prompt,vbOKOnly+vbExclamation,"
提示"
Form1.Hide
Form2.Hide
IfMsgBox("
确定要退出吗?
vbYesNo+vbQuestion,"
)=vbYesThen
End
EndIf
EndSub
PrivateSubForm_Load()
Form1.Hide
Form2.Show
PrivateSubm3_Click()
Text7=Adodc1.Recordset.RecordCount'
汇总剩余座位数
Label7.Visible=True
Text7.Visible=True
Command3.Visible=False
PrivateSubm5_Click()
DimcAsString
c=MsgBox("
您是否要退出"
vbYesNo,"
关闭程序"
Ifc=vbYesThen
End
六、参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
[2]冯博琴刘路放.《精讲多练C语言》.西安:
西安交通大学出版社,1997
[3]周永恒.《VisualFoxPro基础教程》.北京:
高等教育出版社,2006
[4]占维刘伟.《VisualBasic6.0数据库实用编程100例》.北京:
中国铁道出版社,2004
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 电影院 售票 系统