電影院售票系統(tǒng)

PAGE沈陽航空航天大學課程設計學號2009040603051班級94060302姓名高欣指導教師劉學平2011年7月6日沈航設計用紙第16頁，共16頁沈陽航空航天大學課程設計任務書學院：機電工程學院專業(yè)：車輛工程班級：94060302學號：2009040603051題目：電影院售票系統(tǒng)一、課程設計時間2011年6月27日-7月1日（第17周），共計1周。二、課程設計內(nèi)容用VB+Access組合，編寫“電影院售票系統(tǒng)”軟件。影票信息存儲到Access數(shù)據(jù)庫的一個表中，影票信息至少包括：影片名、放映日期、票價、座位號、場次、售票員等。程序能實現(xiàn)對影票數(shù)據(jù)進行維護、查詢、匯總、打印等功能。用戶界面中的菜單至少應包括“數(shù)據(jù)維護”、“查詢”、“匯總”、“打印”、“退出”5項。三、課程設計要求貫徹事件驅動的程序設計思想。用戶界面友好，功能明確，操作方便；可以增加其它功能或修飾。代碼應適當縮進，并給出必要的注釋，以增強程序的可讀性。課程設計說明書：課設結束后，上交課程設計說明書和源程序。課程設計說明書的內(nèi)容參見提供的模板。四、指導教師和學生簽字指導教師：劉學平學生簽名：高欣五、成績六、教師評語

目錄一、需求分析 4二、設計分析 4三、關鍵技術 6四、總結 11五、完整的源程序 12六、參考文獻 16

一、需求分析模擬電影院售票系統(tǒng)，主要是“數(shù)據(jù)維護”“查詢”“匯總”“打印”“退出”等業(yè)務，要求：1、在Access中創(chuàng)建books表，此表的結構應如下定義：影片名稱，上映日期，票價，座位號、場次、售票員2、方便新電影的添入和舊電影的刪除3、能夠隨時計算電影院剩余座位次數(shù)。4、能夠準確的查詢顯示電影的售票信息。二、設計分析基本原理：建立程序設計與數(shù)據(jù)庫的連接，用SQL語句在數(shù)據(jù)庫中查找，添加和更改數(shù)據(jù)?？傮w設計：Find語言處理Find語言處理數(shù)據(jù)庫ADO技術連接圖1總體設計（3）詳細設計：開始連接數(shù)據(jù)庫開始連接數(shù)據(jù)庫查詢數(shù)據(jù)添加刪除維護數(shù)據(jù)輸入影名查尋電影信息匯總全部電影信息圖1詳細設計（4）數(shù)據(jù)庫設計：數(shù)據(jù)庫設計是總體設計階段非常重要的環(huán)節(jié)，數(shù)據(jù)庫結構的變化會造成編碼的改動，所以必須認真設計數(shù)據(jù)庫結構后再進行編碼，從而避免無謂的重復工作。本系統(tǒng)的數(shù)據(jù)庫1個表，即電影票基本信息表。1)電影票基本信息表(.mdb)電影票基本信息表(.mdb)用于記錄影片名稱、放映日期、價格、場次、座位號、售票員等信息，其邏輯結構如表1所示。表1電影票基本信息表影片名上映日期票價座位號場次售票員三、關鍵技術（1）利用adodc控件建立與數(shù)據(jù)庫的連接方法如下圖鼠標右鍵單擊ADO數(shù)據(jù)控件，選擇彈出菜單中“ADODC屬性”命令，打開控件“屬性頁”對話框，使用方式是“使用連接字符串”。（2）數(shù)據(jù)維護是更改數(shù)據(jù)庫中電影信息。PrivateSubm11_Click()Command1.Visible=TrueCommand2.Visible=TrueCommand3.Visible=FalseLabel7.Visible=FalseText7.Visible=FalseEndSubPrivateSubm12_Click()ask=MsgBox("您確定要刪除嗎",vbYesNo)Ifask=6ThenAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand1_Click()Adodc1.Recordset.AddNew'使用AddNew添加Adodc1.Recordset.Fields("影片名")=Text1Adodc1.Recordset.Fields("放映日期")=Text2Adodc1.Recordset.Fields("票價")=Text3Adodc1.Recordset.Fields("座位號")=Text4Adodc1.Recordset.Fields("場次")=Text5Adodc1.Recordset.Fields("售票員")=Text6EndSubPrivateSubCommand2_Click()Text1=""Text2=""Text3=""Text4=""Text5=""Text6=""EndSub圖4窗體-數(shù)據(jù)維護添加查詢影票銷售情況是SQL語句在數(shù)據(jù)庫中查找電影信息。Recordset.Find搜索條件（，（位移），（搜索方向），（起始位置））程序段如下：PrivateSubm2_Click()Command1.Visible=FalseCommand2.Visible=FalseCommand3.Visible=TrueLabel7.Visible=FalseText7.Visible=FalseEndSubPrivateSubCommand3_Click()Adodc1.Recordset.MoveFirstIfText1>""Thena=Text1Fori=1ToAdodc1.Recordset.RecordCountAdodc1.Recordset.Find"影片名="&"'"&a&"'"'使用Find查詢Text1.DataField="影片名"Text2.DataField="放映日期"Text3.DataField="票價"Text4.DataField="座位號"Text5.DataField="場次"Text6.DataField="售票員"NextiElse:MsgBox("請輸入影片名")EndIfText1.DataField=""Text2.DataField=""Text3.DataField=""Text4.DataField=""Text5.DataField=""Text6.DataField=""EndSub打印是打印將要售出的電影票的有關信息。程序段如：PrivateSubm4_Click()DimBeginPage,EndPage,NumCopies,iCommonDialog1.CancelError=True'設置“取消”為trueOnErrorGoToErrHandlerCommonDialog1.ShowPrinter'顯示"打印"對話框BeginPage=CommonDialog1.FromPage'開始頁EndPage=CommonDialog1.ToPage'結束頁NumCopies=CommonDialog1.Copies'打印份數(shù)Fori=1ToNumCopiesNextiExitSubErrHandler:'用戶按了"取消"按鈕ExitSubEndSub圖5窗體-打印四、總結這次課業(yè)設計我的題目是電影院售票系統(tǒng)，通過這次設計，讓我深入了解了vb程序作用，理解了它在現(xiàn)實生活中的重要意義。通過這次課設讓我了解了VB與數(shù)據(jù)庫之間的聯(lián)系，應用ADO技術使VB與數(shù)據(jù)庫進行聯(lián)系，還可以應用語言查詢和更改數(shù)據(jù)庫中的信息，并能向其中添加新的信息。在程序設計的過程中我遇到了許多困難，通過查閱資料和與同學討論，克服了難題完成了作業(yè)。同時我也了解了VB的出現(xiàn)是一場技術革命，它在生活中各個方面都能發(fā)揮巨大的作用，也了解了自己在VB方面的不足，所以，學好VB是對自己的要求，也是社會發(fā)展的需要。五、完整的源程序PrivateSubCommand1_Click()Dimb$b=Text1.TextIfb="123456"ThenForm1.ShowForm2.HideElseprompt="密碼錯誤！"answer=MsgBox(prompt,vbOKOnly+vbExclamation,"提示")Form1.HideForm2.HideEndIfEndSubPrivateSubCommand2_Click()IfMsgBox("確定要退出嗎?",vbYesNo+vbQuestion,"")=vbYesThenEndEndIfEndSubPrivateSubForm_Load()Form1.HideForm2.ShowEndSubPrivateSubm11_Click()Command1.Visible=TrueCommand2.Visible=TrueCommand3.Visible=FalseLabel7.Visible=FalseText7.Visible=FalseEndSubPrivateSubm12_Click()Adodc1.Recordset.DeleteEndSubPrivateSubCommand1_Click()Adodc1.Recordset.AddNew'使用AddNew添加Adodc1.Recordset.Fields("影片名")=Text1Adodc1.Recordset.Fields("放映日期")=Text2Adodc1.Recordset.Fields("票價")=Text3Adodc1.Recordset.Fields("座位號")=Text4Adodc1.Recordset.Fields("場次")=Text5Adodc1.Recordset.Fields("售票員")=Text6EndSubPrivateSubCommand2_Click()Text1=""Text2=""Text3=""Text4=""Text5=""Text6=""EndSubPrivateSubm2_Click()Command1.Visible=FalseCommand2.Visible=FalseCommand3.Visible=TrueLabel7.Visible=FalseText7.Visible=FalseEndSubPrivateSubCommand3_Click()IfText1>""Thena=Text1Fori=1ToAdodc1.Recordset.RecordCountAdodc1.Recordset.Find"影片名="&"'"&a&"'"'使用Find查詢Text1.DataField="影片名"Text2.DataField="放映日期"Text3.DataField="票價"Text4.DataField="座位號"Text5.DataField="場次"Text6.DataField="售票員"NextiElse:MsgBox("請輸入影片名")EndIfEndSubPrivateSubm3_Click()Text7=Adodc1.Recordset.RecordCount'匯總剩余座位數(shù)Label7.Visible=TrueText7.Visible=TrueCommand1.Visible=FalseCommand2.Visible=FalseCommand3.Visible=FalseEndSubPrivateSubm4_Click()DimBeginPage,EndPage,NumCopies,iCommonDialog1.CancelError=True'設置“取消”為trueOnErrorGoToErrHandlerCommonDialog1.ShowPrinter'顯示"打印"對話框BeginPage=CommonDialog1.FromPage'開始頁EndPage=CommonDialog1.ToPage'結束頁NumCopies=CommonDialog1.Copies'打印份數(shù)Fori=1ToNumCopiesNextiExitSubErrHandler:'用戶按了"取消"按鈕ExitSubEndSubPrivateSubm5_