影院訂票管理系統(tǒng)實驗報告

1、軟件工程實驗報告一系統(tǒng)概述；1 項目需求；2需求分析；二項目開發(fā)計劃書；三設計說明書；2 分析與創(chuàng)建數(shù)據(jù)庫3 創(chuàng)建登陸窗體模塊；4 創(chuàng)建售票窗體模塊4創(chuàng)建檢票界面5創(chuàng)建維護界面1 創(chuàng)建影庫界面2 創(chuàng)建職工界面3 創(chuàng)建票務界面四用戶操作手冊；五改進意見；六自我評價；七參考資料、書籍；一系統(tǒng)概述；1項目需求；現(xiàn)在中國大部分的家庭都喜歡在家里置辦屬于自己風格的家庭影院。但是，仍然有很多人喜歡到電影院去看電影。因為家里的氣氛畢竟不如影院好。所以，現(xiàn)代家庭影院的出現(xiàn)并不會讓電影院沒有生路。每個社會服務系統(tǒng)都有自己的一套管理機制。當然，電影院也不除外。其實電影院的管理系統(tǒng)應該來說比其他的社會服務系統(tǒng)的管理

2、要簡單一點。電影院不外乎是引進電影，制定播放影片的時間表，買票，檢票進場觀看，還有就是一些數(shù)據(jù)管理方面的事。如工作人員管理，票務管理等等。為了工作機制簡單有序，必然要引進一套管理系統(tǒng)。2需求分析；具體而言，影院售票系統(tǒng)需要實現(xiàn)以下的需求：（1） 能夠?qū)Σシ烹娪?，工作人員，售票事宜，檢票事宜，無用數(shù)據(jù)進行處理。（2） 售票管理自然有專人負責，要處理各電影的電影票銷售問題。當然包括退票問題，還有就是預訂電影票其實也就相當于買票。兩者可以當一回事處理。（3） 檢票管理事宜要完成觀眾進場時檢票的事宜。其中包括了電影票的真假檢測問題。（4） 數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理，以及過期電影票

3、的處理問題。二項目開發(fā)計劃書；根據(jù)需求分析的結(jié)果，本小組成員討論協(xié)商，決定本系統(tǒng)主要劃分為以下三個子模塊：售票管理模塊、檢票管理模塊、數(shù)據(jù)管理模塊。影院售票管理系統(tǒng)是一個基于電影院工作人員的系統(tǒng)，不同類型的用戶在系統(tǒng)中有不同的權(quán)限。主要有三種用戶：1 售票管理人員：主要負責賣票，訂票及退票事宜；2 檢票管理人員：主要負責觀眾進場時檢票工作，以及辨認電影票的真假（此工作自然可以由服務系統(tǒng)來完成）；3 數(shù)據(jù)處理人員：主要負責播放電影導入數(shù)據(jù)庫，工作人員的應聘以及開除的數(shù)據(jù)管理，還有過期電影票的數(shù)據(jù)處理；以下分別介紹此系統(tǒng)中各個系統(tǒng)（3個子模塊。）：（1）售票系統(tǒng)模塊給觀眾提供售票服務。不同的位置有

4、不同的價格。要選購哪個位置由觀眾決定。工作人員根據(jù)觀眾的需要進行操作。系統(tǒng)在購票成功后會產(chǎn)生一個驗證碼，此驗證碼連工作人員都不知道。是隨機生成的。用于對電影票真假的辯識。（2）檢票系統(tǒng)模塊在觀眾進場時所使用的系統(tǒng)。由掃描儀掃描，取的驗證碼，然后進行辯識，看是不是和數(shù)據(jù)庫中數(shù)據(jù)一樣，如果一樣，則電影票為真，否則電影票為假。由此來決定讓不讓觀眾入場。（3）維護系統(tǒng)模塊此模塊是由電影院的數(shù)據(jù)庫管理員來管理的。他根據(jù)電影院事情的需要對有關數(shù)據(jù)進行處理。如電影票的管理，工作人員的管理，和電影庫的管理等。整個系統(tǒng)的結(jié)構(gòu)如下圖1所示：以下分別介紹系統(tǒng)中數(shù)據(jù)系統(tǒng)3個子模塊。(1)影片播放管理模塊影片播放管理是

5、對電影院播放的電影的充實，設定電影的播放，以及電影時間的設定。當所設定的電影已經(jīng)播放完成后，要對其進行刪除。還要對數(shù)據(jù)庫進行清理，把一些沒用的數(shù)據(jù)全部消除。(2)工作人員管理：電影院里當然有工作人員的增加與開除，以及他們的管理權(quán)限的變化。這一部分事件的發(fā)生都需要數(shù)據(jù)庫管理人員將有關數(shù)據(jù)進行處理。保證數(shù)據(jù)庫里數(shù)據(jù)的統(tǒng)一與完整。其中有他們的共號，登陸電影院管理系統(tǒng)的密碼，以及所擁有的權(quán)限。(3)過期票務管理：電影院里的電影在放過以后，在數(shù)據(jù)庫的電影票數(shù)據(jù)就會變成沒有用的數(shù)據(jù)。通過此管理可以把那些沒用的過期的數(shù)據(jù)清除。這里指的是與放過的電影同名的電影票清除，而其他的電影票保存不變。小組人員分工情況：

6、王圣武登陸界面和售票界面、系統(tǒng)轉(zhuǎn)換界面的程序編寫，整個系統(tǒng)框架的設計，整個系統(tǒng)界面及美化設計，整個系統(tǒng)流程的管理，創(chuàng)建數(shù)據(jù)庫張潤馳檢票系統(tǒng)和整個維護系統(tǒng)的程序編寫，局部框架輔助設計，創(chuàng)建數(shù)據(jù)庫本系統(tǒng)后臺數(shù)據(jù)庫采用目前比較流行的MicrosoftSQLSever,該數(shù)據(jù)庫系統(tǒng)在安全性、準確性、運行速度方面有絕對的優(yōu)勢，并且處理數(shù)據(jù)量大、效率高；前臺采用Microsoft公司的VB.NET2003作為主要的開發(fā)工具，其可與SQLSever2000數(shù)據(jù)庫無縫銜接。三.設計說明書；1 .分析與創(chuàng)建數(shù)據(jù)庫；根據(jù)系統(tǒng)的功能分析結(jié)果，影院售票管理系統(tǒng)將會使用MicrosoftSQLSever2000作為后臺

7、的數(shù)據(jù)庫管理系統(tǒng)。本管理系統(tǒng)是應用于電影院中，而且需要和數(shù)據(jù)庫之間進行頻繁數(shù)據(jù)交換，所以采用MicrosoftSQLSever2000作為后臺的數(shù)據(jù)庫管理系統(tǒng)。在本管理系統(tǒng)中，需要掌握影庫充實信息，職工管理信息，票務管理信息，止匕外，由于要進行職工管理，還需要掌握使用本系統(tǒng)的職工。表1存儲硬庫信息列表，表2存儲了電影院座位的相關數(shù)據(jù)連接關系，表3存儲了電影票銷售情況管理，表4存儲了系統(tǒng)使用者職工的相關情況的管理列表。表1影庫管理表-MOVIES字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵Movie_idsmallint2電影號是有（無重復）是Movie_nameNvarchar50

8、電影名稱是無actorNvarchar50導演否無actressNvarchar50主演否無producerNvarchar25制片廠否無palydatedatetime8上映時問是無表2電影院座位管理表-SEATS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵seatidsmallint2座位號是有（無重復）是pricefloat8票價是無soldornotsmallint2是否售出是無表3電影票信息表-TICKETS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵ticketsidsmallint2電影票號是有（無重復）是seatidsmallint2座位號是有Movie

9、_idsmallint2電影號是有Movie_nameNvarchar50電影名否無palydatedatetime8上映時問是無pricefloat8價格是無yanzhengmasmallint2驗證碼是無是表4職工信息表-WORKERS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵workeridsmallint2職工號是無是passwordsmallint2職工密碼是無leibiesmallint2職工類型是無根據(jù)規(guī)范化的設計理念，本管理系統(tǒng)的數(shù)據(jù)分成上面4個表，減少了數(shù)據(jù)的冗余，同時在這些表之間又存在著一些關聯(lián)關系。這四個表之間的這兩種關系表現(xiàn)在下圖所示的關系：2 .創(chuàng)建登陸

10、窗體模塊；(1)窗體模塊的功能登陸窗體(2)窗體界面的設計在工程中添加一個窗體，命名為“登陸系統(tǒng)”，用來作為系統(tǒng)登陸窗體。界面的設計如圖3所示。(3)窗體代碼ImportsSystem.Data.SqlClientPublicClassFormlInheritsSystem.Windows.Forms.FormDimnavigatorAsBindingManagerBase用來對記錄導航DimmyconAsNewSqlConnection連接對象DimmycomAsNewSqlCommand命令對象Dimmycom1AsNewSqlCommandDimfrm2AsNewForm2Dim frm

11、3 As NewForm3Dimfrm8AsNewForm8PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickStatusBar1.Panels(0).Text=DateTime.TodayStatusBar1.Panels(1).Text=DateTime.Now.ToString(T)EndSubPrivateSubGroupBox1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Hand

12、lesGroupBox1.EnterIfRadioButton1.Checked=TrueThenRadioButton2.Checked=FalseRadioButton3.Checked=FalseElseIfRadioButton2.Checked=TrueThenRadioButton1.Checked=FalseRadioButton3.Checked=FalseElseIfRadioButton3.Checked=TrueThenRadioButton1.Checked=FalseRadioButton2.Checked=FalseEndIfEndSubPrivateSubButt

13、on1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click實驗運行場VB.NET程序設計電影院票務系統(tǒng)登陸界面l.swfAxShockwaveFlash1.Playing=FalseAxShockwaveFlash1.Stop()Dimtox1AsInt32Dimtox2AsInt32DimmydataadapterAsNewSqlDataAdapterDimmydsAsNewDataSetDimiAsIntegerDimjAsIntegertox1=Val(TextBox1.Text)t

14、ox2=Val(TextBox2.Text)mycon.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycom.Connection=mycon通過MYCON連接對象操作數(shù)據(jù)庫mycom.CommandType=CommandType.Text設置命令類型mycom.CommandText=select*fromworkers設置要執(zhí)行的命令Trymycon.Open()mydataadapter.SelectCommand=mycomCatchexAsExceptionMessageBox.Show(連接

15、失敗)Finallymycon.Close()EndTrymydataadapter.Fill(myds,workers)Fori=0Tomyds.Tables(workers).Rows.Count-1ThenIftox1=Val(myds.Tables(workers).Rows(i).ItemArray(0)ExitForElsej=1EndIfNextFori=0Tomyds.Tables(workers).Rows.Count-1Iftox2=Val(myds.Tables(workers).Rows(i).ItemArray(1)Thenj=0ExitForElsej=1EndIf

16、NextIfj=1ThenMessageBox.Show(您的工號或者密碼錯誤,錯誤提示,MessageBoxButtons.OK,MessageBoxIcon.Warning)ElseTrymycoml.Connection=mycon通過MYCON連接對象操作數(shù)據(jù)庫mycom1.CommandType=CommandType.Text設置命令類型mycom1.CommandText=selectleibiefromworkerswhereworkerid=+CStr(tox1)+andpassword=+CStr(tox2)+設置要執(zhí)行的命令Dimmydataadapter1AsNewSq

17、lDataAdaptermydataadapter1.SelectCommand=mycom1Dimmyds1AsNewDataSetmydataadapter1.Fill(myds1,workers)IfRadioButton1.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie)=1Thenfrm2.Show()Me.Hide()ElseIfRadioButton2.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie)=2Thenfrm3.Show()Me.Hide()E

18、lseIfRadioButton3.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie)=3Thenfrm8.Show()Me.Hide()ElseMessageBox.Show(您超出職責范圍或未選擇服務系統(tǒng)，請重新輸入！,錯誤提示,MessageBoxButtons.OK,MessageBoxIcon.Warning,MessageBoxDefaultButton.Button1)EndIfCatchexAsExceptionEndTryEndIfEndSubPrivateSubForm1_Load(ByValsenderAsSy

19、stem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load實驗運行場VB.NET程序設計電影院票務系統(tǒng)登陸界面l.swfAxShockwaveFlash1.Play()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()

20、Application.Exit()EndIfEndSubEndClass3創(chuàng)建售票窗體模塊（1） 窗體模塊的功能為觀眾提供買票服務。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。不同的座位有不同的價格。此窗體還有退票功能。（2） 窗體界面的設計在工程中添加一個窗體，命名為“售票系統(tǒng)”，用來作為倉管人員窗體。界面的設計如下圖所示。（3） 代碼編寫ImportsSystem.Data.SqlClientPublicClassForm2InheritsSystem.Windows.Forms.FormDimnavigatorAsBindingManagerBase用來對記錄導航Dim

21、myconAsNewSqlConnection連接對象DimmycomAsNewSqlCommand命令對象PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Show()實驗運行場VB.NET程序設計電影院票務系統(tǒng)AxShockwaveFlash1.Play()實驗運行場VB.NET程序設計電影院票務系統(tǒng)HandlesMyBase.Load銷售界面.swf檢票界面下.swfAxShockwaveFlash2.Play()DimmydataadapterAsNewSqlDataAdapterDi

22、mmydsAsNewDataSetDimiAsIntegerDimjAsIntegerDimstrrowAsStringDimdtAsNewDataTablemycon.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycom.Connection=mycon通過MYCON連接對象操作數(shù)據(jù)庫mycom.CommandType=CommandType.Text設置命令類型mycom.CommandText=select*fromMovies設置要執(zhí)行的命令Trymycon.Open()mydataadapter

23、.SelectCommand=mycommydataadapter.Fill(myds,Movies)CatchexAsExceptionMessageBox.Show(連接失敗)Finallymycon.Close()EndTryTryFori=0Tomyds.Tables(Movies).Rows.Count-1strrow=myds.Tables(Movies).Rows(i)(movie_name)ComboBox1.Items.Add(strrow)NextCatchexAsExceptionMessageBox.Show(ex.ToString)EndTryEndSubPrivat

24、eSubButton1_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimtickethaoAsIntegerDimmoviehaoAsIntegerDimsuijiAsIntegerDimmydataadapter3AsNewSqlDataAdapterDimmyds3AsNewDataSetDimdt3AsNewDataTableDimmycom3AsNewSqlCommandDimmycon3AsNewSqlConnectionRandomize(

25、)suiji=Int(9000*Rnd()+1000)Trytickethao=tickets_id()moviehao=movieid()mycon3.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycom3.Connection=mycon3通過MYCON連接對象操作數(shù)據(jù)庫mycom3.CommandType=CommandType.Text設置命令類型CatchexAsExceptionMessageBox.Show(ex.ToString)EndTryIftickethao=0ThenTryMess

26、ageBox.Show(此座位已售出，請重新選擇！,錯誤)ComboBox1.Text=TextBox1.Text = TextBox2.Text=TextBox3.Text=TextBox4.Text=TextBox5.Text=CatchexAsExceptionMessageBox.Show(ex.ToString)EndTryElseTrymycon3.Open()mycom3.CommandText=insertintotickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)values(+CStr

27、(tickethao)+,+TextBox4.Text+,+CStr(moviehao)+,+TextBox2.Text+,+TextBox1.Text+,+TextBox5.Text+,+CStr(suiji)+)DimsqlAsStringsql=insertintotickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)values(+CStr(tickethao)+,+TextBox4.Text+,+CStr(moviehao)+,+TextBox2.Text+,+TextBox3.Text+,+Te

28、xtBox5.Text+,+CStr(suiji)+)mydataadapter3.InsertCommand=mycom3Trymycom3.ExecuteNonQuery()MessageBox.Show(售票成功！,謝謝觀看)CatchexAsExceptionMsgBox(ex.ToString)EndTryCatchexAsExceptionMessageBox.Show(ex.ToString)EndTrymycon3.Close()ComboBox1.Text=TextBox1.Text=TextBox2.Text=TextBox3.Text=TextBox4.Text=Text

29、Box5.Text=EndIfrevoke_seat()EndSubPrivateSubComboBox1_SelectedIndexChanged_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesComboBox1.SelectedIndexChangedrevoke_seat()Dimmydataadapter1AsNewSqlDataAdapterDimmydataadapter11AsNewSqlDataAdapterDimmyds1AsNewDataSetDimmyds11AsNewDataSetDimdt1A

30、sNewDataTableDimdt11AsNewDataTableDimmycom1AsNewSqlCommandDimmycom11AsNewSqlCommandmycon.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycoml.Connection=mycon通過MYCON連接對象操作數(shù)據(jù)庫mycom1.CommandType=CommandType.Text設置命令類型mycom11.Connection=myconmycom11.CommandType=CommandType.TextTrymy

31、con.Open()mycom11.CommandText=selectpalydatefromMovieswheremovie_name=+ComboBox1.Text+mycom1.CommandText=select*fromticketswheremovie_name=+ComboBox1.Text+mydataadapter1.SelectCommand=mycom1mydataadapter11.SelectCommand=mycom11mydataadapter1.Fill(myds1,tickets)mydataadapter11.Fill(myds11,Movies)dt1=

32、myds1.Tables(tickets)dt11=myds11.Tables(Movies)CatchexAsExceptionMessageBox.Show(ex.ToString)EndTryTryIfdt1.Rows.Count=0ThenMessageBox.Show(還未出售！)TextBox1.Text=dt11.Rows(0)(palydate)revoke_seat()ElseShowSellInfo(dt1)TextBox1.Text=dt11.Rows(0)(palydate)EndIfCatchexAsExceptionEndTrymycon.Close()EndSub

33、PrivateSubButton2_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimtickethaoAsIntegerDimmydataadapter4AsNewSqlDataAdapterDimmyds4AsNewDataSetDimdt4AsNewDataTableDimmycom4AsNewSqlCommandDimmycon4AsNewSqlConnectionTrymycon4.ConnectionString=initialcatalog=ticketbookin

34、g;userid=sa;password=;mycom4.Connection=mycon4通過MYCON連接對象操作數(shù)據(jù)庫mycom4.CommandType=CommandType.Text設置命令類型tickethao=tuipiao()CatchexAsExceptionMessageBox.Show(ex.ToString)EndTryIftickethao=0ThenMessageBox.Show(座位號輸入錯誤，請重新輸入！,錯誤)ElseTrymycon4.Open()mycom4.CommandText=deletefromticketswhereticketsid=+CSt

35、r(tickethao)+Trymycom4.ExecuteNonQuery()MessageBox.Show(退票成功！,謝謝觀看)CatchexAsExceptionMsgBox(ex.ToString)EndTryCatchexAsExceptionMsgBox(ex.ToString)EndTryEndIfmycon4.Close()TextBox1.Text=TextBox2.Text=TextBox3.Text=TextBox4.Text=TextBox5.Text=ComboBox1.Text=revoke_seat()EndSubPrivateSubButton3_Click_

36、1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox2.Text=ComboBox1.TextTextBox3.Text=TextBox1.TextIfTextBox4.Text=ThenMessageBox.Show(請輸入座位號！,提示)EndIDimmydataadapter2AsNewSqlDataAdapterDimmyds2AsNewDataSetDimdt2AsNewDataTableDimmycom2AsNewSqlCommandmycon.ConnectionStri

37、ng=initialcatalog=ticketbooking;userid=sa;password=;mycom2.Connection=mycon通過MYCON連接對象操作數(shù)據(jù)庫mycom2.CommandType=CommandType.Text設置命令類型Trymycon.Open()mycom2.CommandText=select*fromseatswhereseatid=+TextBox4.Text+mydataadapter2.SelectCommand=mycom2mydataadapter2.Fill(myds2,seats)dt2=myds2.Tables(seats)C

38、atchexAsExceptionMessageBox.Show(ex.ToString)EndTryTextBox5.Text=dt2.Rows(0)(price)mycon.Close()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()Application.Ex

39、it()EndIfEndSubEndClass4 創(chuàng)建檢票界面1）創(chuàng)建模塊的功能對進場觀眾檢票，如果發(fā)現(xiàn)有假票或無票觀眾不允許入內(nèi)。2）創(chuàng)建模塊的窗體在工程中添加一個窗體，命名為“檢票系統(tǒng)”，用來作為檢票系統(tǒng)窗體。界面的設計如下圖所示。3）代碼編寫ImportsSystem.Data.SqlClientPublicClassForm3InheritsSystem.Windows.Forms.FormDimds1AsNewDataSetDimsqlda1AsNewSqlDataAdapterDimRecordCountAsIntegerPrivate Sub Form3_Load( ByVal

40、senderAs System.Object, ByVal e As System.EventArgs)實驗運行場VB.NET程序設計電影院票務系統(tǒng)AxShockwaveFlash1.Play()實驗運行場VB.NET程序設計電影院票務系統(tǒng)Handles MyBase.Load檢票界面.swf檢票界面下.swfAxShockwaveFlash2.Play()Dimsqlcmd1AsNewSqlCommandDimstr1AsString=select*fromticketssqlcmd1.Connection=sqlcn1sqlcmd1.CommandText=str1sqlda1.Selec

41、tCommand=sqlcmd1Trysqlcn1.Open()sqlcmd1.ExecuteNonQuery()CatchexAsSqlExceptionMsgBox(ex.Message)Finallysqlcn1.Close()EndTryTrysqlda1.Fill(ds1)CatchexAsSqlExceptionMsgBox(ex.Message)EndTryRecordCount=ds1.Tables(0).Rows.CountTextBox6.Text=RecordCountEndSubHandlesPrivateSubButton1_Click_1(ByValsenderAs

42、System.Object,ByValeAsSystem.EventArgs)Button1.ClickDimiAsIntegerDimflagAsBoolean=FalseThen請認真填寫票號！IfTextBox1.Text=TextBox7.Text=TextBox1.Focus()ExitSubEndIfIfTextBox2.Text=ThenTextBox7.Text =請?zhí)顚戲炞C碼！TextBox2.Focus()ExitSubEndIfFori=0ToRecordCount-1IfTextBox1.Text=CStr(ds1.Tables(0).Rows(i)(ticketsid

43、)AndTextBox2.Text=CStr(ds1.Tables(0).Rows(i)(yanzhengma)Thenflag=TrueExitForEndIfNextIfflag=TrueThenTryTextBox3.Text=ds1.Tables(0).Rows(i)(seatid)TextBox4.Text=ds1.Tables(0).Rows(i)(movie_name)TextBox5.Text=ds1.Tables(0).Rows(i)(price)CatchexAsExceptionMsgBox(ex.Message)EndTryTextBox7.Text=此票為真！Else

44、TextBox7.Text=此票為假！EndIfTextBox6.Text=RecordCountEndSubPrivateSubButton2_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=TextBox2.Text=TextBox3.Text=TextBox4.Text=TextBox5.Text=TextBox6.Text=TextBox7.Text=TextBox1.Focus()EndSubPrivateSubButton3_Click_1(B

45、yValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()Application.Exit()EndIfEndSubEndClass5 創(chuàng)建維護界面(1)創(chuàng)建模塊的功能給數(shù)據(jù)庫維護工作人員選擇維護的系統(tǒng)數(shù)據(jù)庫(2)創(chuàng)建模塊的設計在工程中添加一個窗體，命名為“維護系統(tǒng)”，用來作為維護系統(tǒng)窗體。界面的設計如下圖所示。(3)代碼編寫Public

46、ClassForm8InheritsSystem.Windows.Forms.FormPrivateSubForm8_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load實驗運行場VB.NET程序設計電影院票務系統(tǒng)登陸界面.swfAxShockwaveFlash1.Play()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimfrm4AsN

47、ewForm4frm4.Show()Me.Hide()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimfrm6AsNewForm6frm6.Show()Me.Hide()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimfrm9AsNewForm9frm9.Show()Me.H

48、ide()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()Application.Exit()EndIfEndSubEndClass1 創(chuàng)建影庫界面(1)創(chuàng)建模塊的功能對電影庫播放列表的管理(2)創(chuàng)建模塊的設計在工程中添加一個窗體，命名為“影庫系統(tǒng)”，用來作為影庫系統(tǒng)

49、窗體。界面的設計如下圖所示。(3)代碼編寫DimsqlAdapterAsNewSqlDataAdapterDimmovieRowAsDataRowDimRecordCountAsIntegerDimiAsInteger=0Dimidnum(2000)AsIntegerDimCurrentPositionAsIntegerSubShowPosition()RecordCount=DataSet11.Movies.Rows.CountIfRecordCount=0ThenTextBox1.Text=無記錄ElseCurrentPosition=Me.BindingContext(DataSet11

50、,Movies).PositionmovieRow=DataSet11.Movies.Rows(CurrentPosition)TextBox1.Text=movieRow.Item(movie_id)idnum(i)=TextBox1.Text1 +=1TextBox2.Text=movieRow.Item(movie_name)TextBox3.Text=movieRow.Item(actor)TextBox4.Text=movieRow.Item(actress)TextBox5.Text=movieRow.Item(producer)TextBox6.Text=movieRow.Ite

51、m(palydate)TextBox7.Text=CurrentPosition+1&/&RecordCountEndIfEndSubPrivateSubForm4_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDataSet11.Clear()Me.SqlDataAdapter1.Fill(DataSet11)ShowPosition()EndSubByVal e As System.EventArgs) HandlesThenPrivateSubButton1_Click(ByValse

52、nderAsSystem.Object,Button1.ClickIfMe.BindingContext(DataSet11,Movies).Position0Me.BindingContext(DataSet11,Movies).Position-=1ShowPosition()ElseMessageBox.Show(已到達首記錄！,提示信息)EndIfEndSubNextPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfMe.BindingContext(DataSet11,Movies).PositionRecordCount-1ThenMe.BindingContext(DataSet11,Movies).Position+=1ShowPosition()ElseMessageBox.Show(已到達尾記錄！,提示信息)EndIfEndSubHandlesPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Button4.ClickMe.BindingContext(DataSet11,Movies).Position=Reco