电影院售票系统

1、沈阳航空航天大学课程设计学号 2009040603051班级 94060302姓 名 高欣指导教师刘学平2011年7 月6 日沈阳航空航天大学课程设计任务书学院：机电工程学院专业：车辆工程班级：94060302学号：2009040603051 题目：电影院售票系统一、课程设计时间2011年6月27 H-7月1日（第17周），共计1周。二、课程设计内容用VB+Access组合，编写“电影院售票系统”软件。影票信息存储到Access数据 库的一个表中，影票信息至少包括：影片名 放映日期、票价、座位号、场次、售票员 等。程序能实现对影票数据进行维护、查询、汇总、打印等功能。用户界面中的菜单至少应包括

2、“数据维护”、“查询”、“汇总”、“打印”、“退岀” 5 项。三、课程设计要求贯彻事件驱动的程序设计思想。O用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。四、指导教师和学生签字指导教师：刘学平学生签名：高欣五、成绩六、教师评语、需求分析2二、设计分析2三、关键技术4四、总结8五、完整的源程序六、参考文献错误!未定义书签。14、需求分析模拟电影院售票系统，主要是“数据维护” “查询”“汇总” “打印退出”等业务，要求：1、在Access中

3、 创建books表，此表的结构应如下定义：影片名称，上 映日期，票价，座位号、场次、售票员2、方便新电影的 添入和旧电影的删除3、能够随时计算电影院剩余座位次 数。4、能够准确的查询显示电影的售票信息。二、设计分析(D 基本原理：建立程序设计与数据库的连接，用 SQL语句在数据库中查找，添加和更改数据。(2) 总体设计：图1总体设计(3)详细设计:图1详细设计(4)数据库设计：数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成 编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的 重复工作。本系统的数据库1个表，即电影票基本信息表。1)电影票基本信息表(.mdb)电影

4、票基本信息表(mdb)用于记录影片名称、放映日期、价格、场次、座位 号、售票员等信息，其逻辑结构如表1所示。表1电影票基本倍息表影片名点映日票价 座位号场次 售票员三、关键技术（1）利用adodc控件建立与数据库的连接方法如下图鼠标右键单击ADO数据控件，选择弹岀菜单中“ADODC属性”命令, 打开控件“属性页”对话框，使用方式是“使用连接字符串S秀切CD真制（1粘貼删除置后迥）童看代码世）对齐到网桔9JADODC属性扁逝L22 S属性页取消 I应用帮助I确定通用|身份验证15录源|颜色字体|(2) 数据维护是更改数据库中电影信息。Private Sub mll_Click（）Command

5、1. Visible = TrueCommand2. Visible = TrueCommand3. Visible = FalseLabel7.Visible = FalseText7.Visible = FalseEnd SubPrivate Sub ml2_Click（）ask = MsgBox（“您确定要删除吗vbYesNo）If ask = 6 ThenAdodcl.Recordset.DeleteEnd IfEnd SubPrivate Sub Command l_Click（）Adodcl.Recordset.AddNew ，使用 AddNew 添加Adodcl.Recordse

6、t.Fields（n 影片名）=TextlAdodcl.Recordset.Fields（H 放映日期”）=Text2Adodcl.Recordset.Fields（n 票价）=Text3Adodcl.Recordset.Fields座位号）=Text4Adodcl.Recordset.Fields（H 场次）=TextsAdodcl.Recordset.Flelds（n 售票员 ”）=Text6End SubPrivate Sub Command2_Click()Textl =Text2 =Text3 = ,nText4 =Texts =Text6 = ,nEnd Sub图4窗体-数据维护添

7、加（3）査询影票销售情况是SQL语句在数据库中査找电影信Recordset.Find搜索条件（,（位移），（搜索方向），（起始位I)程序段如下：Private Sub m2_Click()Command 1. Visible = FalseCommand2.Visible = FalseCommand3. Visible = TrueLabel7.Visible = FalseText7.Visible = FalseEnd SubPrivate Sub Command3_Click()Adodcl.Recordset.MoveFirstIfTextl ,n Thena = TextlFor

8、i = 1 To Adodc 1 .Recordset.Record CountAdodcl.Recordset.Find n影片名=“ & a &使用 Find 査询Textl.DataField =影片名“Text2.DataField =放映日期Text3.DataField = ” 票价“Text4.DataField = ”座在号“TextS.DataField = ”场次“Text6.DataField =售票员“Next 1Else: MsgBox (“请输入影片名“)End IfTextl.DataField =,M,Text2.DataField =Text3.DataFie

9、ld =Textl.DataField = ,nTextS.DataField = ,HText6.DataField = ,nEnd Sub(4) 打印是打印将要售出的电影票的有关信息。程序段如：Private Sub m4_Click()Dim BeginPage, EndPage, NumCopies, iCommonDialogl.CancelError = True，设置取消”为 trueOn Error GoTo ErrHandlerCommonDialog 1 .ShowPrinter 显示打印对话框 BeglnPage = CommonDialog 1 .F romPage开始

10、页EndPage = CommonDialog 1 .ToPage，结束页NumCopies = CommonDialogl.Copies ，打印份数 For i = 1 To NumCopiesNext 1Exit SubErrHandler:用户按了“取消“按钮Exit SubEnd Sub图5窗体打印四、总结这次课业设计我的题目是电影院售票系统，通过这次 设计，让我深入了解了 vb程序作用，理解了它在现实生 活中的重要意义。通过这次课设让我了解了 VB与数据库之间的联系， 应用ADO技术使VB与数据库进行联系，还可以应用语言 查询和更改数据库中的信息，并能向其中添加新的信息。在程序设计的

11、过程中我遇到了许多困难，通过査阅资料和 与同学讨论，克服了难题完成了作业。同时我也了解了 VB的出现是一场技术革命，它在生 活中各个方面都能发挥巨大的作用，也了解了自己在VB 方面的不足，所以，学好VB是对自己的要求，也是社会 发展的需要。五、完整的源程序Private Sub Command l_CIick()Dim b$b = Textl.TextIf b = ”123456” ThenForm 1.ShowForin2.HideElseprompt = 密码错误！answer = MsgBox(prompt, vbOKOnly + vbExclamation, n提示)Forinl.Hl

12、deForm2.HideEnd IfEnd SubPrivate Sub Command2_CIick()If MsgBox确定要退出吗?*, vbYesNo + vbQuestion,= vbYes ThenEndEnd IfEnd SubPrivate Sub Form_Load()Forml.HideForm2.ShowEnd SubPrivate Sub mll_Click() Command L Visible = True Command2. Visible = True Command3. Visible = False Label7.Vlsible = False Text7.

13、Visible = FalseEnd SubPrivate Sub ml2_Click()Adodcl.Recordset.DeleteEnd SubPrivate Sub Command l_Click()Adodcl.Recordset.AddNew 1 使用 AddNew 添加Adodcl.Recordset.Fields(n 影片名)=TextlioAdodclRecordseLFields( AdodclRecordseiFields( AdodclRecordseLselds( AdodclRecordseLselds( AdodcLRecordseLF_elds(End Sub母

14、洱 Bs；Te&2 厕)Tex-3 -隈存JID二)= Texf4-越捋二)n Tex-5 嘯冊3p)HTea6Priwafe Sub COHlmand2lc=ck()Texil H =Texi2 H =Tex-3 H =Tex-4 H =Texi5 H =Te 纹 6 =二二End SubPriwafe Sub m2lc=ck() Command Lwisize H False conmlandzvisize H FalseConrnland3visize H True Labe_7 Visible H Fa_se TexG.V-size H False End SubPriwafe Sub

15、 COHlmand3lc=ck() If Tex二 V = ThenM H TexflFori H 1 ToAdodcl.RecordseLRecordcoumAdodcLRecordserFmd 尸三二TexilDaFie_d H Texi2DataFie.d H Texi3DataFie.d H TexE.DaiaFieEH Text5DataFie_d H Texi6Daia3eEHSa:Nexf iE_se: MsgBox (&耳也)End IfEnd SubPrivate Sub m3_Click()Text7 = Adodcl.Recordset.RecordCount，汇总剩余座

16、位数Label7.Vlsible = TrueText7.Visible = True Command L Visible = False Command2.Vlslble = FalseCommand3Vlsible = False End SubPrivate Sub m4_Click()Dim BeginPage, EndPage, NumCopies, iCommonDialogLCancelError = True，设置“取消”为 trueOn Error GoTo ErrHandlerCommonDialogl.ShowPrinter 1 显示”打印”对话框 BeginPage = CommonDialog 1 .F romPage，开始页EndPage = CommonDialog 1 .ToPage结束页NumCopies = CommonDialogl.Copies，打印份数For i = 1 To NumCopiesNext 1Exit SubErrHandler:用户按了“取消“按钮Exit SubEnd SubPrivate Sub m5_Cli