影院售票管理系統(tǒng)

1、面向?qū)ο蟪绦蛟O(shè)計(jì)課程設(shè)計(jì)報(bào)告 2006 / 2007學(xué)年 第 一 學(xué)期項(xiàng)目名稱： 影院售票管理系統(tǒng) 項(xiàng)目負(fù)責(zé)人：王德才 學(xué)號(hào)：_0601023230_同 組 者： 李清爽 學(xué)號(hào)：0601023214指導(dǎo)教師： _潘 俊_ 班級(jí)：_06會(huì)計(jì)_課程設(shè)計(jì)時(shí)間及地點(diǎn)：_實(shí)驗(yàn)樓521_計(jì)算機(jī)信息工程學(xué)院2007年1月15日一系統(tǒng)概述；1項(xiàng)目需求；2需求分析；二項(xiàng)目開發(fā)計(jì)劃書；三設(shè)計(jì)說明書；1分析與創(chuàng)建數(shù)據(jù)庫(kù)； 2創(chuàng)建登陸窗體模塊； 3創(chuàng)建售票窗體模塊4創(chuàng)建檢票界面5創(chuàng)建維護(hù)界面1創(chuàng)建影庫(kù)界面2創(chuàng)建職工界面 3創(chuàng)建票務(wù)界面四用戶操作手冊(cè)；五改進(jìn)意見；六自我評(píng)價(jià)；七參考資料、書籍；一系統(tǒng)概述；1項(xiàng)目需求；現(xiàn)

2、在中國(guó)大部分的家庭都喜歡在家里置辦屬于自己風(fēng)格的家庭影院。但是，仍然有很多人喜歡到電影院去看電影。因?yàn)榧依锏臍夥债吘共蝗缬霸汉?。所以，現(xiàn)代家庭影院的出現(xiàn)并不會(huì)讓電影院沒有生路。 每個(gè)社會(huì)服務(wù)系統(tǒng)都有自己的一套管理機(jī)制。當(dāng)然，電影院也不除外。其實(shí)電影院的管理系統(tǒng)應(yīng)該來說比其他的社會(huì)服務(wù)系統(tǒng)的管理要簡(jiǎn)單一點(diǎn)。電影院不外乎是引進(jìn)電影，制定播放影片的時(shí)間表，買票，檢票進(jìn)場(chǎng)觀看，還有就是一些數(shù)據(jù)管理方面的事。如工作人員管理，票務(wù)管理等等。為了工作機(jī)制簡(jiǎn)單有序，必然要引進(jìn)一套管理系統(tǒng)。2需求分析；具體而言，影院售票系統(tǒng)需要實(shí)現(xiàn)以下的需求：（1） 能夠?qū)Σシ烹娪埃ぷ魅藛T，售票事宜，檢票事宜，無用數(shù)據(jù)進(jìn)行處

3、理。（2） 售票管理自然有專人負(fù)責(zé)，要處理各電影的電影票銷售問題。當(dāng)然包括退票問題，還有就是預(yù)訂電影票其實(shí)也就相當(dāng)于買票。兩者可以當(dāng)一回事處理。（3） 檢票管理事宜要完成觀眾進(jìn)場(chǎng)時(shí)檢票的事宜。其中包括了電影票的真假檢測(cè)問題。（4） 數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理，以及過期電影票的處理問題。二項(xiàng)目開發(fā)計(jì)劃書；根據(jù)需求分析的結(jié)果，本小組成員討論協(xié)商，決定本系統(tǒng)主要?jiǎng)澐譃橐韵氯齻€(gè)子模塊：售票管理模塊、檢票管理模塊、數(shù)據(jù)管理模塊。影院售票管理系統(tǒng)是一個(gè)基于電影院工作人員的系統(tǒng)，不同類型的用戶在系統(tǒng)中有不同的權(quán)限。主要有三種用戶：1 售票管理人員： 主要負(fù)責(zé)賣票，訂票及退票事宜；2 檢票

4、管理人員： 主要負(fù)責(zé)觀眾進(jìn)場(chǎng)時(shí)檢票工作，以及辨認(rèn)電影票的真假（此工作自然可以由服務(wù)系統(tǒng)來完成）；3 數(shù)據(jù)處理人員： 主要負(fù)責(zé)播放電影導(dǎo)入數(shù)據(jù)庫(kù)，工作人員的應(yīng)聘以及開除的數(shù)據(jù)管理，還有過期電影票的數(shù)據(jù)處理；以下分別介紹此系統(tǒng)中各個(gè)系統(tǒng)（3個(gè)子模塊。）：（1）售票系統(tǒng)模塊給觀眾提供售票服務(wù)。不同的位置有不同的價(jià)格。要選購(gòu)哪個(gè)位置由觀眾決定。工作人員根據(jù)觀眾的需要進(jìn)行操作。系統(tǒng)在購(gòu)票成功后會(huì)產(chǎn)生一個(gè)驗(yàn)證碼，此驗(yàn)證碼連工作人員都不知道。是隨機(jī)生成的。用于對(duì)電影票真假的辯識(shí)。（2）檢票系統(tǒng)模塊 在觀眾進(jìn)場(chǎng)時(shí)所使用的系統(tǒng)。由掃描儀掃描，取的驗(yàn)證碼，然后進(jìn)行辯識(shí)，看是不是和數(shù)據(jù)庫(kù)中數(shù)據(jù)一樣，如果一樣，則電影

5、票為真，否則電影票為假。由此來決定讓不讓觀眾入場(chǎng)。（3）維護(hù)系統(tǒng)模塊 此模塊是由電影院的數(shù)據(jù)庫(kù)管理員來管理的。他根據(jù)電影院事情的需要對(duì)有關(guān)數(shù)據(jù)進(jìn)行處理。如電影票的管理，工作人員的管理，和電影庫(kù)的管理等。整個(gè)系統(tǒng)的結(jié)構(gòu)如下圖1所示：影院售票管理系統(tǒng)xiop工作人員登錄維護(hù)系統(tǒng)檢票系統(tǒng)售票系統(tǒng)影片播放管理工作人員管理過期票務(wù)管理以下分別介紹系統(tǒng)中數(shù)據(jù)系統(tǒng)3個(gè)子模塊。（1）影片播放管理模塊 影片播放管理是對(duì)電影院播放的電影的充實(shí)，設(shè)定電影的播放，以及電影時(shí)間的設(shè)定。當(dāng)所設(shè)定的電影已經(jīng)播放完成后，要對(duì)其進(jìn)行刪除。還要對(duì)數(shù)據(jù)庫(kù)進(jìn)行清理，把一些沒用的數(shù)據(jù)全部清除。（2）工作人員管理： 電影院里當(dāng)然有工作人

6、員的增加與開除，以及他們的管理權(quán)限的變化。這一部分事件的發(fā)生都需要數(shù)據(jù)庫(kù)管理人員將有關(guān)數(shù)據(jù)進(jìn)行處理。保證數(shù)據(jù)庫(kù)里數(shù)據(jù)的統(tǒng)一與完整。 其中有他們的共號(hào)，登陸電影院管理系統(tǒng)的密碼，以及所擁有的權(quán)限。（3）過期票務(wù)管理： 電影院里的電影在放過以后，在數(shù)據(jù)庫(kù)的電影票數(shù)據(jù)就會(huì)變成沒有用的數(shù)據(jù)。通過此管理可以把那些沒用的過期的數(shù)據(jù)清除。這里指的是與放過的電影同名的電影票清除，而其他的電影票保存不變。小組人員分工情況：王圣武 登陸界面和售票界面、系統(tǒng)轉(zhuǎn)換界面的程序編寫，整個(gè)系統(tǒng)框架的設(shè)計(jì)，整個(gè)系統(tǒng)界面及美化設(shè)計(jì)，整個(gè)系統(tǒng)流程的管理，創(chuàng)建數(shù)據(jù)庫(kù)張潤(rùn)馳 檢票系統(tǒng)和整個(gè)維護(hù)系統(tǒng)的程序編寫，局部框架輔助設(shè)計(jì)，創(chuàng)建數(shù)

7、據(jù)庫(kù)本系統(tǒng)后臺(tái)數(shù)據(jù)庫(kù)采用目前比較流行的 Microsoft SQL Sever ,該數(shù)據(jù)庫(kù)系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)量大、效率高；前臺(tái)采用 Microsoft公司的 VB.NET 2003 作為主要的開發(fā)工具，其可與SQL Sever 2000數(shù)據(jù)庫(kù)無縫銜接。三設(shè)計(jì)說明書；1分析與創(chuàng)建數(shù)據(jù)庫(kù)；根據(jù)系統(tǒng)的功能分析結(jié)果，影院售票管理系統(tǒng)將會(huì)使用Microsoft SQL Sever 2000 作為后臺(tái)的數(shù)據(jù)庫(kù)管理系統(tǒng)。本管理系統(tǒng)是應(yīng)用于電影院中，而且需要和數(shù)據(jù)庫(kù)之間進(jìn)行頻繁數(shù)據(jù)交換，所以采用Microsoft SQL Sever 2000 作為后臺(tái)的數(shù)據(jù)庫(kù)管理系統(tǒng)

8、。在本管理系統(tǒng)中，需要掌握影庫(kù)充實(shí)信息，職工管理信息，票務(wù)管理信息，此外，由于要進(jìn)行職工管理，還需要掌握使用本系統(tǒng)的職工。表1存儲(chǔ)硬庫(kù)信息列表，表2存儲(chǔ)了電影院座位的相關(guān)數(shù)據(jù)連接關(guān)系，表3存儲(chǔ)了電影票銷售情況管理，表4存儲(chǔ)了系統(tǒng)使用者職工的相關(guān)情況的管理列表。表1 影庫(kù)管理表-MOVIES字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵Movie_idsmallint2電影號(hào)是有（無重復(fù)）是Movie_nameNvarchar50電影名稱是無actorNvarchar50導(dǎo)演否無actressNvarchar50主演否無producerNvarchar25制片廠否無palydateda

9、tetime8上映時(shí)間是無表2電影院座位管理表-SEATS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵seatidsmallint2座位號(hào)是有（無重復(fù)）是pricefloat8票價(jià)是無soldornotsmallint2是否售出是無表3電影票信息表-TICKETS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵ticketsidsmallint2電影票號(hào)是有（無重復(fù)）是seatidsmallint2座位號(hào)是有Movie_idsmallint2電影號(hào)是有Movie_nameNvarchar50電影名否無palydatedatetime8上映時(shí)間是無pricefloat8價(jià)格是

10、無yanzhengmasmallint2驗(yàn)證碼是無是表4職工信息表-WORKERS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵workeridsmallint2職工號(hào)是無是passwordsmallint2職工密碼是無leibiesmallint2職工類型是無根據(jù)規(guī)范化的設(shè)計(jì)理念，本管理系統(tǒng)的數(shù)據(jù)分成上面4個(gè)表，減少了數(shù)據(jù)的冗余，同時(shí)在這些表之間又存在著一些關(guān)聯(lián)關(guān)系。這四個(gè)表之間的這兩種關(guān)系表現(xiàn)在下圖所示的關(guān)系： 2創(chuàng)建登陸窗體模塊； （1）窗體模塊的功能 登陸窗體 （2）窗體界面的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“登陸系統(tǒng)”，用來作為系統(tǒng)登陸窗體。界面 的設(shè)計(jì)如圖3所示。 （3）

11、窗體代碼ImportsPublicClass Form1InheritsDim navigator As BindingManagerBase '用來對(duì)記錄導(dǎo)航Dim mycon AsNew SqlConnection '連接對(duì)象Dim mycom AsNew SqlCommand '命令對(duì)象Dim mycom1 AsNew SqlCommandDim frm2 AsNew Form2Dim frm3 AsNew Form3Dim frm8 AsNew Form8PrivateSub Timer1_Tick(ByVal sender As System.Object,

12、ByVal e As System.EventArgs) Handles StatusBar1.Panels(1).Text = DateTime.Now.ToString("T")EndSubPrivateSub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesIf RadioButton1.Checked = TrueThen RadioButton2.Checked = False RadioButton3.Checked = FalseElseIf

13、RadioButton2.Checked = TrueThen RadioButton1.Checked = False RadioButton3.Checked = FalseElseIf RadioButton3.Checked = TrueThen RadioButton1.Checked = False RadioButton2.Checked = FalseEndIfEndSubPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxShockwave

14、Flash1.Movie = "E:實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)image登陸界面1.swf" AxShockwaveFlash1.Playing = False AxShockwaveFlash1.Stop()Dim tox1 As Int32Dim tox2 As Int32Dim mydataadapter AsNew SqlDataAdapterDim myds AsNew DataSetDim i AsIntegerDim j AsInteger tox1 = Val(TextBox1.Text) tox2 = Val(TextBox2.Text) mycon

15、.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom.Connection = mycon '通過 MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) mycom.CommandType = CommandType.Text '設(shè)置命令類型 mycom.CommandText = "select * from workers" '設(shè)置要執(zhí)行的命令Try mycon.Open() mydataadapter.SelectCommand = myco

16、mCatch ex As Exception MessageBox.Show("連接失敗")Finally mycon.Close()EndTry mydataadapter.Fill(myds, "workers")For i = 0 To myds.Tables("workers").Rows.Count - 1If tox1 = Val(myds.Tables("workers").Rows(i).ItemArray(0) Then j = 0ExitForElse j = 1EndIfNextFor i =

17、 0 To myds.Tables("workers").Rows.Count - 1If tox2 = Val(myds.Tables("workers").Rows(i).ItemArray(1) Then j = 0ExitForElse j = 1EndIfNextIf j = 1 Then MessageBox.Show("您的工號(hào)或者密碼錯(cuò)誤", "錯(cuò)誤提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseTry mycom1.Connection

18、= mycon '通過 MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) mycom1.CommandType = CommandType.Text '設(shè)置命令類型 mycom1.CommandText = "select leibie from workers where workerid=" + CStr(tox1) + "and password=" + CStr(tox2) + "" '設(shè)置要執(zhí)行的命令Dim mydataadapter1 AsNew SqlDataAdapter mydataadapter1.Selec

19、tCommand = mycom1Dim myds1 AsNew DataSet mydataadapter1.Fill(myds1, "workers")If RadioButton1.Checked = TrueAnd Val(myds1.Tables("workers").Rows(0)("leibie") = 1 Then frm2.Show()Me.Hide()ElseIf RadioButton2.Checked = TrueAnd Val(myds1.Tables("workers").Rows(0)

20、("leibie") = 2 Then frm3.Show()Me.Hide()ElseIf RadioButton3.Checked = TrueAnd Val(myds1.Tables("workers").Rows(0)("leibie") = 3 Then frm8.Show()Me.Hide()Else MessageBox.Show("您超出職責(zé)范圍或未選擇服務(wù)系統(tǒng)，請(qǐng)重新輸入！", "錯(cuò)誤提示", MessageBoxButtons.OK, MessageBoxIcon.Warni

21、ng, MessageBoxDefaultButton.Button1)EndIfCatch ex As ExceptionEndTryEndIfEndSubPrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load AxShockwaveFlash1.Movie = "E:實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)image登陸界面1.swf" AxShockwaveFlash1.Play()EndSubPrivateSub Button2_

22、Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim exitform AsNew Form7If exitform.ShowDialog = DialogResult.OK Then exitform.Close()Me.Close() Application.Exit()EndIfEndSubEndClass3 創(chuàng)建售票窗體模塊（1） 窗體模塊的功能 為觀眾提供買票服務(wù)。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。不同的座位有不同的價(jià)格。此窗體還有退票功能。（2） 窗體界面的

23、設(shè)計(jì) 在工程中添加一個(gè)窗體，命名為“售票系統(tǒng)”，用來作為倉(cāng)管人員窗體。界面 的設(shè)計(jì)如下圖所示。（3） 代碼編寫ImportsPublicClass Form2InheritsDim navigator As BindingManagerBase '用來對(duì)記錄導(dǎo)航Dim mycon AsNew SqlConnection '連接對(duì)象Dim mycom AsNew SqlCommand '命令對(duì)象PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesM

24、yBase.Load'Me.Show() AxShockwaveFlash1.Movie = "E:實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)image銷售界面.swf" AxShockwaveFlash1.Play() AxShockwaveFlash2.Movie = "E:實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)image檢票界面下.swf" AxShockwaveFlash2.Play()Dim mydataadapter AsNew SqlDataAdapterDim myds AsNew DataSetDim i AsIntegerDim j AsIn

25、tegerDim strrow AsStringDim dt AsNew DataTable mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom.Connection = mycon '通過 MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) mycom.CommandType = CommandType.Text '設(shè)置命令類型 mycom.CommandText = "select * from Movies" '設(shè)置要執(zhí)行的命令

26、"Try mycon.Open() mydataadapter.SelectCommand = mycom mydataadapter.Fill(myds, "Movies")Catch ex As Exception MessageBox.Show("連接失敗")Finally mycon.Close()EndTryTryFor i = 0 To myds.Tables("Movies").Rows.Count - 1 strrow = myds.Tables("Movies").Rows(i)(&qu

27、ot;movie_name") ComboBox1.Items.Add(strrow)NextCatch ex As Exception MessageBox.Show(ex.ToString)EndTryEndSubPrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim i AsIntegerDim tickethao AsIntegerDim moviehao AsIntegerDim suiji AsIntegerDim mydataada

28、pter3 AsNew SqlDataAdapterDim myds3 AsNew DataSetDim dt3 AsNew DataTableDim mycom3 AsNew SqlCommandDim mycon3 AsNew SqlConnection Randomize() suiji = Int(9000 * Rnd() + 1000)Try tickethao = tickets_id() moviehao = movieid() mycon3.ConnectionString = "initial catalog=ticketbooking;user id=sa;pas

29、sword=;" mycom3.Connection = mycon3 '通過 MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) mycom3.CommandType = CommandType.Text '設(shè)置命令類型Catch ex As Exception MessageBox.Show(ex.ToString)EndTryIf tickethao = 0 ThenTry MessageBox.Show("此座位已售出，請(qǐng)重新選擇！", "錯(cuò)誤") ComboBox1.Text = "" TextBox1.Text =

30、"" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = ""Catch ex As Exception MessageBox.Show(ex.ToString)EndTryElseTry mycon3.Open() mycom3.CommandText = "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,

31、price,yanzhengma) values (" + CStr(tickethao) + "," + TextBox4.Text + "," + CStr(moviehao) + ",'" + TextBox2.Text + "','" + TextBox1.Text + "'," + TextBox5.Text + "," + CStr(suiji) + ")"Dim sql AsString sql =

32、"insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" + CStr(tickethao) + "," + TextBox4.Text + "," + CStr(moviehao) + ",'" + TextBox2.Text + "','" + TextBox3.Text + "'," + TextBox5.

33、Text + "," + CStr(suiji) + ")" mydataadapter3.InsertCommand = mycom3Try mycom3.ExecuteNonQuery() MessageBox.Show("售票成功！", "謝謝觀看")Catch ex As Exception MsgBox(ex.ToString)EndTryCatch ex As Exception MessageBox.Show(ex.ToString)EndTry mycon3.Close() ComboBox1.Te

34、xt = "" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = ""EndIf revoke_seat()EndSubPrivateSub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles r

35、evoke_seat()Dim mydataadapter1 AsNew SqlDataAdapterDim mydataadapter11 AsNew SqlDataAdapterDim myds1 AsNew DataSetDim myds11 AsNew DataSetDim dt1 AsNew DataTableDim dt11 AsNew DataTableDim mycom1 AsNew SqlCommandDim mycom11 AsNew SqlCommand mycon.ConnectionString = "initial catalog=ticketbookin

36、g;user id=sa;password=;" mycom1.Connection = mycon '通過 MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) mycom1.CommandType = CommandType.Text '設(shè)置命令類型 mycom11.Connection = myconTry mycon.Open() mycom11.CommandText = "select palydate from Movies where movie_name= '" + ComboBox1.Text + "'" myco

37、m1.CommandText = "select * from tickets where movie_name= '" + ComboBox1.Text + "'" mydataadapter1.SelectCommand = mycom1 mydataadapter11.SelectCommand = mycom11 mydataadapter1.Fill(myds1, "tickets") mydataadapter11.Fill(myds11, "Movies") dt1 = myds1.T

38、ables("tickets") dt11 = myds11.Tables("Movies")Catch ex As Exception MessageBox.Show(ex.ToString)EndTryTryIf dt1.Rows.Count = 0 Then MessageBox.Show("還未出售！") TextBox1.Text = dt11.Rows(0)("palydate") revoke_seat()Else ShowSellInfo(dt1) TextBox1.Text = dt11.Rows

39、(0)("palydate")EndIfCatch ex As ExceptionEndTry mycon.Close()EndSubPrivateSub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim tickethao AsIntegerDim mydataadapter4 AsNew SqlDataAdapterDim myds4 AsNew DataSetDim dt4 AsNew DataTableDim mycom4 AsNew SqlC

40、ommandDim mycon4 AsNew SqlConnectionTry mycon4.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom4.Connection = mycon4 '通過 MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) mycom4.CommandType = CommandType.Text '設(shè)置命令類型 tickethao = tuipiao()Catch ex As Exception MessageBox.Show(ex.ToStrin

41、g)EndTryIf tickethao = 0 Then MessageBox.Show("座位號(hào)輸入錯(cuò)誤，請(qǐng)重新輸入！", "錯(cuò)誤")ElseTry mycon4.Open() mycom4.CommandText = "delete from tickets where ticketsid=" + CStr(tickethao) + ""Try mycom4.ExecuteNonQuery() MessageBox.Show("退票成功！", "謝謝觀看")Catch

42、ex As Exception MsgBox(ex.ToString)EndTryCatch ex As Exception MsgBox(ex.ToString)EndTryEndIf mycon4.Close() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" ComboBox1.Text = "" revoke_seat()End

43、SubPrivateSub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesIf TextBox4.Text = "" Then MessageBox.Show("請(qǐng)輸入座位號(hào)！", "提示")EndIDim mydataadapter2 AsNew SqlDataAdapterDim myds2 AsNew DataSetDim dt2 AsNew DataTableDim mycom2 AsNew SqlComma

44、nd mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom2.Connection = mycon '通過 MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) mycom2.CommandType = CommandType.Text '設(shè)置命令類型Try mycon.Open() mycom2.CommandText = "select * from seats where seatid=" + TextBox4.Text + "&

45、quot; mydataadapter2.SelectCommand = mycom2 mydataadapter2.Fill(myds2, "seats") dt2 = myds2.Tables("seats")Catch ex As Exception MessageBox.Show(ex.ToString)EndTry TextBox5.Text = dt2.Rows(0)("price") mycon.Close()EndSubPrivateSub Button4_Click(ByVal sender As System.Ob

46、ject, ByVal e As System.EventArgs) HandlesDim exitform AsNew Form7If exitform.ShowDialog = DialogResult.OK Then exitform.Close()Me.Close() Application.Exit()EndIfEndSubEndClass4 創(chuàng)建檢票界面（1）創(chuàng)建模塊的功能對(duì)進(jìn)場(chǎng)觀眾檢票，如果發(fā)現(xiàn)有假票或無票觀眾不允許入內(nèi)。（2）創(chuàng)建模塊的窗體 在工程中添加一個(gè)窗體，命名為“檢票系統(tǒng)”，用來作為檢票系統(tǒng)窗體。界面 的設(shè)計(jì)如下圖所示。（3）代碼編寫ImportsPublicClass

47、 Form3InheritsDim ds1 AsNew DataSetDim sqlda1 AsNew SqlDataAdapterDim RecordCount AsIntegerPrivateSub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load AxShockwaveFlash1.Movie = "E:實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)image檢票界面.swf" AxShockwaveFlash1.Play() AxShockwaveFl

48、ash2.Movie = "E:實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)image檢票界面下.swf" AxShockwaveFlash2.Play()Dim sqlcmd1 AsNew SqlCommandDim str1 AsString = "select * from tickets" sqlcmd1.Connection = sqlcn1 sqlcmd1.CommandText = str1 sqlda1.SelectCommand = sqlcmd1Try sqlcn1.Open() sqlcmd1.ExecuteNonQuery()Catch ex

49、 As SqlException MsgBox(ex.Message)Finally sqlcn1.Close()EndTryTry sqlda1.Fill(ds1)Catch ex As SqlException MsgBox(ex.Message)EndTry TextBox6.Text = RecordCountEndSubPrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim i AsIntegerDim flag AsBoolean = Fals

50、eIf TextBox1.Text = "" Then TextBox7.Text = "請(qǐng)認(rèn)真填寫票號(hào)！" TextBox1.Focus()ExitSubEndIfIf TextBox2.Text = "" Then TextBox7.Text = "請(qǐng)?zhí)顚戲?yàn)證碼！" TextBox2.Focus()ExitSubEndIfFor i = 0 To RecordCount - 1If TextBox1.Text = CStr(ds1.Tables(0).Rows(i)("ticketsid")

51、 And TextBox2.Text = CStr(ds1.Tables(0).Rows(i)("yanzhengma") Then flag = TrueExitForEndIfNextIf flag = TrueThenTry TextBox3.Text = ds1.Tables(0).Rows(i)("seatid") TextBox4.Text = ds1.Tables(0).Rows(i)("movie_name") TextBox5.Text = ds1.Tables(0).Rows(i)("price"

52、;)Catch ex As Exception MsgBox(ex.Message)EndTry TextBox7.Text = "此票為真！"Else TextBox7.Text = "此票為假！"EndIf TextBox6.Text = RecordCountEndSubPrivateSub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = &