軟件工程實驗報告

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

2、生路。每個社會服務(wù)系統(tǒng)都有自己的一套管理機制。當(dāng)然，電影院也不除外。其實電影院的管理系統(tǒng)應(yīng)該來說比其他的社會服務(wù)系統(tǒng)的管理要簡單一點。電影院不外乎是引進電影，制定播放影片的時間表，買票，檢票進場觀看，還有就是一些數(shù)據(jù)管理方面的事。如工作人員管理，票務(wù)管 理等等。為了工作機制簡單有序，必然要引進一套管理系統(tǒng)。2. 需求分析；具體而言，影院售票系統(tǒng)需要實現(xiàn)以下的需求：(1) 能夠?qū)Σシ烹娪?，工作人員，售票事宜，檢票事宜，無用數(shù)據(jù)進行處理。(2) 售票管理自然有專人負(fù)責(zé)，要處理各電影的電影票銷售問題。當(dāng)然包括退票問題，還有就 是預(yù)訂電影票其實也就相當(dāng)于買票。兩者可以當(dāng)一回事處理。(3) 檢票管理事宜

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

4、應(yīng)聘以及開除的數(shù)據(jù)管理， 還 有過期電影票的數(shù)據(jù)處理；以下分別介紹此系統(tǒng)中各個系統(tǒng)(3個子模塊。)：(1) 售票系統(tǒng)模塊給觀眾提供售票服務(wù)。不同的位置有不同的價格。要選購哪個位置由觀眾決定。工作人員根據(jù)觀眾的需要進行操作。系統(tǒng)在購票成功后會產(chǎn)生一個驗證碼，此驗證碼連工作人員都不知道。 是隨機生成的。用于對電影票真假的辯識。(2) 檢票系統(tǒng)模塊在觀眾進場時所使用的系統(tǒng)。由掃描儀掃描，取的驗證碼，然后進行辯識， 看是不是和數(shù)據(jù)庫中數(shù)據(jù)一樣，如果一樣，則電影票為真，否則電影票為假。由此來決定讓不讓觀眾入場。(3) 維護系統(tǒng)模塊此模塊是由電影院的數(shù)據(jù)庫管理員來管理的。他根據(jù)電影院事情的需要對有關(guān)數(shù)據(jù)進

5、行處理。如電影票的管理，工作人員的管理，和電影庫的管理等。整個系統(tǒng)的結(jié)構(gòu)如下圖1所示：以下分別介紹系統(tǒng)中數(shù)據(jù)系統(tǒng)3個子模塊。(1) 影片播放管理模塊影片播放管理是對電影院播放的電影的充實，設(shè)定電影的播放，以及電影時間的設(shè)定。當(dāng)所 設(shè)定的電影已經(jīng)播放完成后，要對其進行刪除。還要對數(shù)據(jù)庫進行清理，把一些沒用的數(shù)據(jù)全部清 除。(2) 工作人員管理：電影院里當(dāng)然有工作人員的增加與開除，以及他們的管理權(quán)限的變化。這一部分事件的發(fā)生 都需要數(shù)據(jù)庫管理人員將有關(guān)數(shù)據(jù)進行處理。保證數(shù)據(jù)庫里數(shù)據(jù)的統(tǒng)一與完整。其中有他們的共號，登陸電影院管理系統(tǒng)的密碼，以及所擁有的權(quán)限。(3) 過期票務(wù)管理：電影院里的電影在放過

6、以后，在數(shù)據(jù)庫的電影票數(shù)據(jù)就會變成沒有用的數(shù)據(jù)。通過此管理可 以把那些沒用的過期的數(shù)據(jù)清除。 這里指的是與放過的電影同名的電影票清除， 而其他的電影票保 存不變。小組人員分工情況：王圣武登陸界面和售票界面、系統(tǒng)轉(zhuǎn)換界面的程序編寫，整個系統(tǒng)框架的設(shè)計，整個系統(tǒng)界面及美化設(shè)計，整個系統(tǒng)流程的管理，創(chuàng)建數(shù)據(jù)庫張潤馳檢票系統(tǒng)和整個維護系統(tǒng)的程序編寫，局部框架輔助設(shè)計，創(chuàng)建數(shù)據(jù)庫本系統(tǒng)后臺數(shù)據(jù)庫采用目前比較流行的 Microsoft SQLSever ,該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確 性、運行速度方面有絕對的優(yōu)勢，并且處理數(shù)據(jù)量大、效率高；前臺采用Microsoft公司的VB.NET 2003作為主要的開發(fā)

7、工具，其可與SQL Sever 2000數(shù)據(jù)庫無縫銜接。三. 設(shè)計說明書；1. 分析與創(chuàng)建數(shù)據(jù)庫；根據(jù)系統(tǒng)的功能分析結(jié)果，影院售票管理系統(tǒng)將會使用Microsoft SQL Sever 2000 作為后臺的數(shù)據(jù)庫管理系統(tǒng)。本管理系統(tǒng)是應(yīng)用于電影院中，而且需要和數(shù)據(jù)庫之間進行頻繁數(shù) 據(jù)交換，所以采用Microsoft SQL Sever 2000 作為后臺的數(shù)據(jù)庫管理系統(tǒng)。在本管理系統(tǒng)中，需要掌握影庫充實信息，職工管理信息，票務(wù)管理信息，此外，由于要進 行職工管理，還需要掌握使用本系統(tǒng)的職工。表1存儲硬庫信息列表，表2存儲了電影院座 位的相關(guān)數(shù)據(jù)連接關(guān)系，表3存儲了電影票銷售情況管理，表4存儲了

8、系統(tǒng)使用者職工的相 關(guān)情況的管理列表。表1影庫管理表-MOVIES字段名稱數(shù)據(jù)類型字段屬性字段大 小作用必填字段索引是否 主鍵Movie_idsmalli nt2電影號是有（無重復(fù)）是 AMovie_na meNvarchar50電影名 稱是無*|.L-./ _| IactorNvarchar50導(dǎo)演否無actressNvarchar50主演否無producerNvarchar25制片廠否無palydatedatetime8上映時 間是hl.1無表2電影院座位管理表-SEATS字段名 稱數(shù)據(jù)類型字段屬性字段大 小作用必填字段索引是否主 鍵seatidsmalli nt2座位號是有（無重復(fù)）是p

9、ricefloat8票價是無soldor notsmalli nt2是否售出是無表3電影票信息表-TICKETS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主 鍵ticketsi dsmalli nt2電影票 號是有（無重復(fù)）是seatidsmalli nt2座位號是有Movie_idsmalli nt2電影號是有Movie_ naNvarchar50電影名否無mepalydatedatetime8上映時 間是無pricefloat8價格是無yanzhengmasmalli nt2驗證碼是無是表4 職工信息表-WORKERS字段名 稱數(shù)據(jù)類型字段屬性字段大 小作用必填字 段索引是否主鍵

10、workeri dsmalli nt2職工號是無 .1 '1是» 1 j' 1passwor dsmalli nt2職工密碼是無leibiesmalli nt2職工類型是無根據(jù)規(guī)范化的設(shè)計理念，本管理系統(tǒng)的數(shù)據(jù)分成上面4個表，減少了數(shù)據(jù)的冗余，同時在這些表之間又存在著一些關(guān)聯(lián)關(guān)系。這四個表之間的這兩種關(guān)系表現(xiàn)在下圖所示的關(guān)系：2 .創(chuàng)建登陸窗體模塊；(1) 窗體模塊的功能登陸窗體(2) 窗體界面的設(shè)計在工程中添加一個窗體，命名為“登陸系統(tǒng)”，用來作為系統(tǒng)登陸窗體。界面的設(shè)計如圖3所示。(3) 窗體代碼ImportsPublic Class FormlInheritsD

11、im navigator As BindingManagerBase'用來對記錄導(dǎo)航連接對象命令對象Dim mycon As NewSqlConnectionDim mycom As NewSqlCommandDim mycoml As NewSqlCommandDim frm2 As NewForm2Dim frm3 As NewForm3Dim frm8 As NewForm8Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerl.Tick

12、StatusBar1.Panels(0).Text = DateTime.TodayEnd SubPrivate Sub GroupBox1_Enter( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBoxI.Enter來源網(wǎng)絡(luò)，僅供參考If RadioButtonl.Checked = True ThenRadioButton2.Checked =FalseRadioButton3.Checked =FalseElself RadioButton2.Checked =True ThenRad

13、ioButton1.Checked =FalseRadioButton3.Checked =FalseElseIf RadioButton3.Checked =True ThenRadioButton1.Checked =FalseRadioButton2.Checked =FalseEnd IfEnd SubPrivate Sub Button1_Click( ByVai sender As System.Object, ByVai e As System.EventArgs) Handles Button1.Click實驗運行場WB.NET程序設(shè)計 電影院票務(wù)系統(tǒng)登陸界面l.swf&quo

14、t;AxShockwaveFlashl.Playing =FalseAxShockwaveFlash1.Stop()Dim toxl As Int32Dim tox2 As Int32Dim mydataadapter As NewSqlDataAdapterDim myds As NewDataSetDim i As IntegerDim j As Integertoxl = Val(TextBoxl.Text)tox2 = Val(TextBox2.Text)''| |l |mycon.ConnectionString = "initial catalog=tic

15、ketbooking;user id=sa;passwordmycom.Connection = mycon'通過 MYCON連接對象操作數(shù)據(jù)庫mycom.CommandType = CommandType.Text '設(shè)置命令類型 mycom.CommandText = "select * from workers"'設(shè)置要執(zhí)行的命令Trymycon.Open()mydataadapter.SelectCommand = mycomCatch ex As ExceptionMessageBox.Show(”連接失敗")Finallymyc

16、on.Close()End Trymydataadapter.Fill(myds, "workers")For i = 0 To myds.Tables("workers").Rows.Count - 1If toxl = Val(myds.Tables("workers").Rows(i).ItemArray(0)Thenj = 0Exit ForElsej = 1End IfNextFor i = 0 To myds.Tables("workers").Rows.Count - 1If tox2 = Val(m

17、yds.Tables("workers").Rows(i).ItemArray(1)ThenExit ForElsej = 1End IfNextIf j = 1 ThenMessageBox.Show(”您的工號或者密碼錯誤 "," 錯誤提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseTrymycom1.Connection = mycon'通過 MYCON連接對象操作數(shù)據(jù)庫mycom1.CommandType = CommandType.Text'設(shè)置命令類型myc

18、om1.CommandText = "select leibie from workers where workerid=" +CStr (tox1) + "and password=" +CStr (tox2) +設(shè)置要執(zhí)行的命令Dim mydataadapter1 As NewSqlDataAdaptermydataadapter1.SelectCommand = mycom1Dim myds1 As NewDataSet/Imydataadapter1.Fill(myds1, "workers")If RadioButton1.

19、Checked = True And Val(myds1.Tables("workers").Rows(0)("leibie") = 1Thenfrm2.Show()MeHide()ElseIf RadioButton2.Checked =True And Val(myds1.Tables("workers").Rows(0)("leibie") = 2Thenfrm3.Show()MeHide()ElseIf RadioButton3.Checked =True1 | |l li"1 1 1And Va

20、l(myds1.Tables("workers").Rows(0)("leibie") = 3Thenfrm8.Show()MeHide()ElseMessageBox.Show(”您超岀職責(zé)范圍'i或未選擇服務(wù)系統(tǒng)，請重新輸入！"，”錯誤提示",MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)End IfCatch ex As ExceptionEnd TryEnd IfEnd SubPrivate Sub Form1

21、_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBaseLoad實驗運行場VB.NET程序設(shè)計電影院票務(wù)系統(tǒng)登陸界面1.swf"AxShockwaveFlash1.Play()End SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim exitform As NewForm7If exitform.Sho

22、wDialog = DialogResult.OKThenexitform.Close()MeClose()Application.Exit()End If來源網(wǎng)絡(luò)，僅供參考End SubEnd Class3.創(chuàng)建售票窗體模塊(1)窗體模塊的功能為觀眾提供買票服務(wù)。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。不同的座位有不同的價格。此窗體還有退票功能。(2)窗體界面的設(shè)計在工程中添加一個窗體，命名為“售票系統(tǒng)”，用來作為倉管人員窗體。界面的設(shè)計如下圖所示。(3)代碼編寫ImportsPublicClass Form2InheritsDim navigator As Bindin

23、gManagerBase'用來對記錄導(dǎo)航Dim mycon As NewSqlConnectionDim mycom As NewSqlCommand'連接對象'命令對象Private Sub Form2_Load( ByVal senderAs System.Object, ByVal e As System.EventArgs)Handles MyBaseLoad'Me.Show()實驗運行場WB.NET程序設(shè)計電影院票務(wù)系統(tǒng)銷售界面.swf"AxShockwaveFlash1.Play()實驗運行場VB.NET程序設(shè)計電影院票務(wù)系統(tǒng)檢票界面下.s

24、wf"AxShockwaveFlash2.Play()Dim mydataadapter As NewSqlDataAdapterDim myds As NewDataSetDim i As IntegerDim j As IntegerDim strrow As StringDim dt As NewDataTablemycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"'通過MYCON連接對象操作數(shù)據(jù)庫'設(shè)置命令類型'設(shè)置要執(zhí)行的命令”

25、mycom.Connection = myconmycom.CommandType = CommandType.Textmycom.CommandText = "select * from Movies"Trymycon.Open()mydataadapter.SelectCommand = mycom mydataadapter.Fill(myds, "Movies")Catch ex As ExceptionMessageBox.Show("連接失敗")Finallymycon.Close()End TryTryFor i = 0

26、 To myds.Tables("Movies").Rows.Count - 1 strrow = myds.Tables("Movies").Rows(i)("movie_name")ComboBoNextCatch ex As ExceptionMessageBox.Show(ex.ToString)End TryEnd SubPrivate Sub Button1_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button

27、1.ClickDim i As IntegerDim tickethao As IntegerDim moviehao As IntegerDim suiji As IntegerDim mydataadapter3 As NewSqlDataAdapterDim myds3 As NewDataSetDim dt3 As NewDataTable A” H /I! I f.Dim mycom3 As NewSqlCommandI # z r:_' -j-Dim mycon3 As NewSqlConnection/IRandomize()suiji = lnt(9000 * Rnd(

28、) + 1000)Trytickethao = tickets_id()'i 'i/. j11匚二' moviehao = movieid()mycon3.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"Imycom3.Connection = mycon3'通過 MYCON連接對象操作數(shù)據(jù)庫mycom3.CommandType = CommandType.Text'設(shè)置命令類型Catch ex As ExceptionMessageBox

29、.Show(ex.ToString)End TryIf tickethao = 0 ThenTryMessageBox.Show(”此座位已售出，請重新選擇！"，”錯誤")ComboBoxl.Text ="" I'| '|TextBoxl.Text =""TextBox2.Text =""TextBox3.Text =""TextBox4.Text =""TextBox5.Text =""Catch ex As ExceptionMessa

30、geBox.Show(ex.ToString)End TryElseTrymycon3.Open()mycom3.CommandText = "insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" +CStr (tickethao) + "," + TextBox4.TextCStr(suiji) +CStr(moviehao) + ",'" + TextBox2.Text + "&#

31、39;,'" + TextBoxl.Text + "'," + TextBox5.Text + "," +")"Dim sql As Stringsql = "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values("+ CStr (tickethao) + "," + TextBox4.Text + "," +CStr (

32、moviehao) + ",'" + TextBox2.Text + "','" + TextBox3.Text +"',"+ TextBox5.Text + "," +CStr (suiji) + ")"mydataadapter3n sertCommand = mycom3Trymycom3.ExecuteNonQuery()MessageBox.Show(”售票成功！","謝謝觀看")Catch ex As ExceptionM

33、sgBox(ex.ToString)End TryCatch ex As ExceptionMessageBox.Show(ex.ToString)End Trymycon3.Close()/IComboBox1.Text =""TextBox1.Text =""TextBox2.Text =""TextBox3.Text =""TextBox4.Text =""TextBox5.Text ="" ；I1 I ；End IfL .I'J I Irevoke_seat(

34、)End SubHandlesPrivate Sub ComboBox1_SelectedIndexChanged_1( ByVal sender As System.Object, ByVal e As System.EventArgs)ComboBox1.SelectedlndexChangedrevoke_seat()Dim mydataadapter1 As NewSqlDataAdapter.!l Iq Dim mydataadapter11 As NewSqlDataAdapterDim myds1 As NewDataSet-'i IDim myds11 As NewDa

35、taSetDim dt1 As NewDataTableDim dt11 As NewDataTableDim mycom1 As NewSqlCommandDim mycom11 As NewSqlCommandmycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"mycom1.Connection = mycon'通過 MYCON連接對象操作數(shù)據(jù)庫mycom1.CommandType = CommandType.Text '設(shè)置命令類型mycom11.C

36、onnection = myconmycom11.CommandType = CommandType.TextTrymycon.Open()mycom11.CommandText = "select palydate from Movies where movie_name= '" + ComboBox1.Text + ""'mycom1.CommandText = "select * from tickets where movie_name= '" + ComboBoxl.Text + "&quo

37、t;'mydataadapterl.SelectCommand = mycomlmydataadapterll.SelectCommand = mycomllmydataadapter1.Fill(myds1, "tickets")mydataadapter11.Fill(myds11, "Movies")dt1 = myds1.Tables("tickets")dt11 = myds11.Tables("Movies")Catch ex As ExceptionMessageBox.Show(ex.ToS

38、tring)End TryTryIfThenMessageBox.Show(”還未出售！")TextBox1.Text = dt11.Rows(0)("palydate")revoke_seat()ElseA”1! IShowSelllnfo(dt1)TextBox1.Text = dt11.Rows(0)("palydate")/IEnd IfCatch ex As Exception/z/-.iEnd Trymycon.Close()1W) ” 7I!匚二'End SubPrivate Sub Button2_Click_1( By

39、Val sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click -'：卩 I ；Dim tickethao As IntegerDim mydataadapter4 As NewSqlDataAdapterDim myds4 As NewDataSetDim dt4 As NewDataTableDim mycom4 As NewSqlCommandDim mycon4 As NewSqlConnectionTry!l 1mycon4.ConnectionString = "ini

40、tial catalog=ticketbooking;user id=sa;password=;"mycom4.Connection = mycon4'通過 MYCON連接對象操作數(shù)據(jù)庫mycom4.CommandType = CommandType.Text'設(shè)置命令類型tickethao = tuipiao()Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryIf tickethao = 0 ThenMessageBox.Show(”座位號輸入錯誤，請重新輸入！ ","錯誤"

41、;)ElseTrymycon4.Open()mycom4.CommandText = "delete from tickets where ticketsid=" +CStr (tickethao) + ""Trymycom4.ExecuteNonQuery()MessageBox.Show(”退票成功！","謝謝觀看")Catch ex As ExceptionMsgBox(ex.ToString)End TryCatch ex As ExceptionMsgBox(ex.ToString)End TryEnd Ifmyc

42、on4.Close()TextBox1.Text =""TextBox2.Text =""TextBox3.Text =""TextBox4.Text =""TextBox5.Text =""ComboBox1.Text =""revoke_seat()End SubPrivate Sub Button3_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs)/iTextBox2.Text =

43、ComboBox1.TextTextBox3.Text = TextBox1.TextIf TextBox4.Text = "" ThenMessageBox.Show(”請輸入座位號！"，”提示")End IDim mydataadapter2 As NewSqlDataAdapterDim myds2 As NewDataSetDim dt2 As NewDataTableDim mycom2 As NewSqlCommandmycon.ConnectionString = "initial catalog=ticketbooking;us

44、er id=sa;password=;" mycom2.Connection = mycon'通過 MYCON連接對象操作數(shù)據(jù)庫mycom2.CommandType = CommandType.Text '設(shè)置命令類型Trymycon.Open()mycom2.CommandText = "select * from seats where seatid=" + TextBox4.Text + "" mydataadapter2.SelectCommand = mycom2mydataadapter2.Fill(myds2, &

45、quot;seats")dt2 = myds2.Tables("seats")Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryTextBox5.Text = dt2.Rows(0)("price")mycon.Close()End SubPrivate Sub Button4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Dim exitform As NewForm7If exitform.Sh

46、owDialog = DialogResult.OKThenexitform.Close()Handles Button3.ClickHandles Button4.ClickMeClose()Application.Exit()End IfEnd SubEnd Class4. 創(chuàng)建檢票界面(1) 創(chuàng)建模塊的功能對進場觀眾檢票，如果發(fā)現(xiàn)有假票或無票觀眾不允許入內(nèi)(2) 創(chuàng)建模塊的窗體在工程中添加一個窗體，命名為“檢票系統(tǒng)”，用來作為檢票系統(tǒng)窗體。界面 的設(shè)計如下圖所示。(3) 代碼編寫ImportsPublic Class Form3InheritsDim ds1 As NewDataSetD

47、im sqlda1 As NewSqlDataAdapterHandles MyBaseLoad 檢票界面.swf"Dim RecordCount As IntegerPrivate Sub Form3_Load( ByVal senderAs System.Object, ByVal e As System.EventArgs)實驗運行場VB.NET程序設(shè)計電影院票務(wù)系統(tǒng)AxShockwaveFlash1.Play()實驗運行場WB.NET程序設(shè)計電影院票務(wù)系統(tǒng)檢票界面下.swf"AxShockwaveFlash2.Play()Dim sqlcmd1 As NewSqlC

48、ommandDim str1 As String = "select * from tickets" sqlcmd1.Connection = sqlcn1 sqlcmd1.CommandText = str1 sqlda1.SelectCommand = sqlcmd1TryI1 lisqlcn1.Open() sqlcmd1.ExecuteNonQuery()Catch ex As SqlExceptionMsgBox(ex.Message)Finallysqlcn1.Close()End TryTrysqlda1.Fill(ds1)Catch ex As SqlExc

49、eptionMsgBox(ex.Message)End TryRecordCount = ds1.Tables(0).Rows.CountTextBox6.Text = RecordCountEnd SubPrivate Sub Button1_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click-來源網(wǎng)絡(luò)，僅供參考Dim i As IntegerDim flag As Boolean = FalseThen請認(rèn)真填寫票號!Then請?zhí)顚戲炞C碼!If TextBoxl

50、.Text ="" TextBox7.Text =" TextBox1.Focus()Exit SubEnd IfIf TextBox2.Text =""TextBox7.Text ="TextBox2.Focus()Exit SubEnd IfFor i = 0 To RecordCount - 1If TextBox1.Text = CStr(ds1.Tables(0).Rows(i)("ticketsid")And TextBox2.Text =CStr (ds1.Tables(0).Rows(i)(&quo

51、t;yanzhengma")Thenflag =TrueExit For/IEnd IfNextIf flag = True ThenTryTextBox3.Text = ds1.Tables(0).Rows(i)("seatid")TextBox4.Text = ds1.Tables(0).Rows(i)("movie_name")TextBox5.Text = ds1.Tables(0).Rows(i)("price")u l |Catch ex As ExceptionMsgBox(ex.Message)End Try

52、TextBox7.Text ="此票為真!ElseTextBox7.Text ="此票為假!End IfTextBox6.Text = RecordCountEnd SubPrivate Sub Button2_Click_1(TextBox1.Text =""ByVal senderAs System.Object,ByVal e As System.EventArgs)HandlesButton2.ClickTextBox2.Text =""TextBox3.Text =""TextBox4.Text =&qu

53、ot;"TextBox5.Text =""TextBox6.Text =""TextBox7.Text =""TextBox1.Focus()End SubPrivate Sub Button3_Click_1(ByVal senderAs System.Object,ByVal e As System.EventArgs) HandlesButton3.Click來源網(wǎng)絡(luò)，僅供參考Dim exitform As NewForm7If exitform.ShowDialog = DialogResult.OKThenexit

54、form.Close()MeClose()Application.Exit()End IfEnd SubEnd Class5. 創(chuàng)建維護界面(1) 創(chuàng)建模塊的功能給數(shù)據(jù)庫維護工作人員選擇維護的系統(tǒng)數(shù)據(jù)庫(2) 創(chuàng)建模塊的設(shè)計在工程中添加一個窗體，命名為“維護系統(tǒng)”，用來作為維護系統(tǒng)窗體。界面 的設(shè)計如下圖所示。(3) 代碼編寫Public Class Form8InheritsPrivate Sub Form8_Load( ByVai sender As System.Object,ByVai e As System.EventArgs) Handles MyBaseLoad實驗運行場VB.N

55、ET程序設(shè)計電影院票務(wù)系統(tǒng)登陸界面.swf"AxShockwaveFlash1.Play()End Sub! L- -.r|Private Sub Button1_Click( ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Buttonl.ClickDim frm4 As NewForm41frm4.Show()MeHide()End SubPrivate Sub Button2_Click( ByVal sender As System.Object,ByVal e As System.Even

56、tArgs) Handles Button2.ClickDim frm6 As NewForm6frm6.Show()MeHide()End SubPrivate Sub Button3_Click( ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.ClickDim frm9 As NewForm9frm9.Show()MeHide()End SubPrivate Sub Button4_Click( ByVal sender As System.Object,ByVal e As Syste

57、m.EventArgs) Handles Button4.ClickDim exitform As NewForm7If exitform.ShowDialog = DialogResult.OKThenexitform.Close()MeClose()Application.Exit()End IfEnd SubEnd Class1 .創(chuàng)建影庫界面(1) 創(chuàng)建模塊的功能對電影庫播放列表的管理(2) 創(chuàng)建模塊的設(shè)計在工程中添加一個窗體，命名為“影庫系統(tǒng)”，用來作為影庫系統(tǒng)窗體。界面 的設(shè)計如下圖所示。(3) 代碼編寫Dim sqIAdapter As NewSqlDataAdapterDim

58、movieRow As DataRowDim RecordCount As IntegerDim i As Integer = 0Dim idnum(2000) As IntegerDim CurrentPosition As IntegerSub ShowPosition()If RecordCount = 0 ThenTextBox1.Text ="無記錄ElseCurrentPosition =MeBindingContext(DataSet11, "Movies").PositionTextBox1.Text = movieRow.ltem("movie_id")idnum(i) = TextBox1.Texti += 1TextBox2.Text = movieRow.Item("movie_name")TextBox3.Text = movieRow.Item("actor")TextBox4.Text = movieRow.Item("actress&qu