用數(shù)據(jù)庫(kù)設(shè)計(jì)影院售票管理系統(tǒng).docx

1、.一系統(tǒng)概述；1設(shè)計(jì)需求；現(xiàn)在中國(guó)大部分的家庭都喜歡在家里置辦屬于自己風(fēng)格的家庭影院。但是， 仍然有很多人喜歡到電影院去看電影。因?yàn)榧依锏臍夥债吘共蝗缬霸汉?。所以，現(xiàn)代家庭影院的出現(xiàn)并不會(huì)讓電影院沒有生路。每個(gè)社會(huì)服務(wù)系統(tǒng)都有自己的一套管理機(jī)制。當(dāng)然，電影院也不除外。其實(shí)電影院的管理系統(tǒng)應(yīng)該來(lái)說(shuō)比其他的社會(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，售票

2、事宜，檢票事宜，無(wú)用數(shù)據(jù)進(jìn)行處理。（ 2 ） 售票管理自然有專人負(fù)責(zé)，要處理各電影的電影票銷售問題。當(dāng)然包括退票問題，還有就是預(yù)訂電影票其實(shí)也就相當(dāng)于買票。兩者可以當(dāng)一回事處理。（ 3 ） 檢票管理事宜要完成觀眾進(jìn)場(chǎng)時(shí)檢票的事宜。其中包括了電影票的真假檢測(cè)問題。（ 4 ） 數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理， 以及過(guò)期電影票的處理問題。二結(jié)構(gòu)設(shè)計(jì)電影座位電影號(hào)上映時(shí)間座位編號(hào)是否售出電影名稱導(dǎo)演主演生產(chǎn)地座位票價(jià)電影票驗(yàn)證碼價(jià)格電影號(hào)電影名座位號(hào)上映時(shí)間電影票號(hào)職工信息職工類型職工號(hào)職工密碼專業(yè)資料.三設(shè)計(jì)說(shuō)明1分析與創(chuàng)建數(shù)據(jù)庫(kù)；根據(jù)系統(tǒng)的功能分析結(jié)果， 影院售票管理系統(tǒng)將會(huì)使用

3、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)。在本管理系統(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_idsma

4、llint2電影號(hào)是有（無(wú)重復(fù)）是Movie_nameNvarchar50電影名稱是無(wú)actorNvarchar50導(dǎo)演否無(wú)actressNvarchar50主演否無(wú)producerNvarchar25制片廠否無(wú)palydatedatetime8上映時(shí)間是無(wú)表 2電影院座位管理表 -SEATS字段屬性字段名稱數(shù)據(jù)類型字段大小作用必填索引是否主鍵字段seatidsmallint2座位號(hào)是有（無(wú)重復(fù)）是pricefloat8票價(jià)是無(wú)soldornotsmallint2是否售出是無(wú)表 3 電影票信息表 -TICKETS字段屬性字段名稱數(shù)據(jù)類型字段大小作用必填索引是否主鍵字段ticketsidsmal

5、lint2電影票號(hào)是有（無(wú)重復(fù)）是seatidsmallint2座位號(hào)是有Movie_idsmallint2電影號(hào)是有Movie_nameNvarchar50電影名否無(wú)palydatedatetime8上映時(shí)間是無(wú)pricefloat8價(jià)格是無(wú)專業(yè)資料.yanzhengmasmallint2驗(yàn)證碼是無(wú)是表 4職工信息表 -WORKERS字段屬性字段名稱數(shù)據(jù)類型字段大小作用必填字段索引是否主鍵workeridsmallint2職工號(hào)是無(wú)是passwordsmallint2職工密碼是無(wú)leibiesmallint2職工類型是無(wú)根據(jù)規(guī)范化的設(shè)計(jì)理念，本管理系統(tǒng)的數(shù)據(jù)分成上面4 個(gè)表，減少了數(shù)據(jù)的冗余

6、，同時(shí)在這些表之間又存在著一些關(guān)聯(lián)關(guān)系。這四個(gè)表之間的這兩種關(guān)系表現(xiàn)在下圖所示的關(guān)系：2創(chuàng)建登陸窗體模塊；（ 1）窗體模塊的功能登陸窗體（ 2 ）窗體界面的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“登陸系統(tǒng)”，用來(lái)作為系統(tǒng)登陸窗體。界面的設(shè)計(jì)如圖 3 所示。（ 3 ）窗體代碼ImportsSystem.Data.SqlClientPublic Class Form1Inherits System.Windows.Forms.FormDim navigatorAs BindingManagerBase用來(lái)對(duì)記錄導(dǎo)航Dim mycon As New SqlConnection連接對(duì)象Dim mycom A

7、s New SqlCommand命令對(duì)象Dim mycom1 As New SqlCommand專業(yè)資料.Dim frm2As New Form2Dim frm3As NewForm3Dim frm8As NewForm8Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickStatusBar1.Panels(0).Text = DateTime.TodayStatusBar1.Panels(1).Text = DateTime.Now.To

8、String(T)End SubPrivate Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesGroupBox1.EnterIf RadioButton1.Checked =True ThenRadioButton2.Checked =FalseRadioButton3.Checked =FalseElseIf RadioButton2.Checked =True ThenRadioButton1.Checked =FalseRadioButton3.Checked

9、=FalseElseIf RadioButton3.Checked =True ThenRadioButton1.Checked =FalseRadioButton2.Checked =FalseEnd IfEnd SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click實(shí)驗(yàn)運(yùn)行場(chǎng) VB.NET 程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面1.swfAxShockwaveFlash1.Playing =FalseAxShockwaveFlash1

10、.Stop()Dim tox1 As Int32Dim tox2 As Int32Dim mydataadapterAs New SqlDataAdapterDim myds As New DataSetDim i As IntegerDim j As Integertox1 = Val(TextBox1.Text)tox2 = Val(TextBox2.Text)mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom.Connection = mycon通過(guò)MYCON連接對(duì)象操作數(shù)據(jù)庫(kù)

11、mycom.CommandType = CommandType.Text設(shè)置命令類型mycom.CommandText = select * from workers設(shè)置要執(zhí)行的命令Trymycon.Open()mydataadapter.SelectCommand = mycomCatch ex As ExceptionMessageBox.Show( 連接失敗 )Finally專業(yè)資料.mycon.Close()End Trymydataadapter.Fill(myds, workers)For i = 0 To myds.Tables(workers).Rows.Count - 1If

12、 tox1 = Val(myds.Tables(workers).Rows(i).ItemArray(0)Thenj = 0Exit ForElsej = 1End IfNextFor i = 0 To myds.Tables(workers).Rows.Count - 1If tox2 = Val(myds.Tables(workers).Rows(i).ItemArray(1)Thenj = 0Exit ForElsej = 1End IfNextIf j = 1 ThenMessageBox.Show( 您的工號(hào)或者密碼錯(cuò)誤, 錯(cuò)誤提示 , MessageBoxButtons.OK,Me

13、ssageBoxIcon.Warning)ElseTrymycom1.Connection = mycon通過(guò)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 mydataadapter1As New SqlDataAdaptermydataadapter1.SelectCommand = mycom

14、1Dim myds1 As New DataSetmydataadapter1.Fill(myds1, workers)If RadioButton1.Checked =True And Val(myds1.Tables(workers).Rows(0)(leibie) =1 Thenfrm2.Show()Me .Hide()ElseIf RadioButton2.Checked =True And Val(myds1.Tables(workers).Rows(0)(leibie)= 2 Thenfrm3.Show()Me .Hide()ElseIf RadioButton3.Checked

15、=True And Val(myds1.Tables(workers).Rows(0)(leibie)= 3 Thenfrm8.Show()Me .Hide()專業(yè)資料.ElseMessageBox.Show( 您超出職責(zé)范圍或未選擇服務(wù)系統(tǒng)，請(qǐng)重新輸入！, 錯(cuò)誤提示, MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)End IfCatch ex As ExceptionEnd TryEnd IfEnd SubPrivate Sub Form1_Load( ByVal sender As

16、 System.Object, ByVal e As System.EventArgs) Handles MyBase .Load實(shí)驗(yàn)運(yùn)行場(chǎng) VB.NET 程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面1.swfAxShockwaveFlash1.Play()End SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.ClickDim exitformAs New Form7If exitform.ShowDialog = DialogResult.OK

17、Thenexitform.Close()Me .Close()Application.Exit()End IfEnd SubEnd Class3創(chuàng)建售票窗體模塊（ 1） 窗體模塊的功能為觀眾提供買票服務(wù)。在界面上觀眾可以看見座位的情況，根據(jù)此來(lái)選擇自己喜歡的座位。不同的座位有不同的價(jià)格。此窗體還有退票功能。（ 2 ） 窗體界面的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“售票系統(tǒng)”，用來(lái)作為倉(cāng)管人員窗體。界面的設(shè)計(jì)如下圖所示。（3）代碼編寫Imports System.Data.SqlClientPublic Class Form2Inherits System.Windows.Forms.FormDi

18、m navigatorAs BindingManagerBase用來(lái)對(duì)記錄導(dǎo)航Dim mycon As New SqlConnection連接對(duì)象Dim mycom As New SqlCommand命令對(duì)象專業(yè)資料.Private Sub Form2_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .LoadMe.Show()實(shí)驗(yàn)運(yùn)行場(chǎng) VB.NET 程序設(shè)計(jì)電影院票務(wù)系統(tǒng)銷售界面.swfAxShockwaveFlash1.Play()實(shí)驗(yàn)運(yùn)行場(chǎng) VB.NET 程序設(shè)計(jì)電影院票務(wù)

19、系統(tǒng)檢票界面下 .swfAxShockwaveFlash2.Play()Dim mydataadapterAs New SqlDataAdapterDim myds As New DataSetDim i As IntegerDim j As IntegerDim strrow As StringDim dt As New DataTablemycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom.Connection = mycon通過(guò)MYCON連接對(duì)象操作數(shù)據(jù)庫(kù)mycom.Comman

20、dType = CommandType.Text設(shè)置命令類型mycom.CommandText = select * from Movies設(shè)置要執(zhí)行的命令Trymycon.Open()mydataadapter.SelectCommand = mycommydataadapter.Fill(myds, Movies)Catch ex As ExceptionMessageBox.Show( 連接失敗 )Finallymycon.Close()End TryTryFor i = 0 To myds.Tables(Movies).Rows.Count - 1strrow = myds.Table

21、s(Movies).Rows(i)(movie_name)ComboBox1.Items.Add(strrow)NextCatch ex As ExceptionMessageBox.Show(ex.ToString)End TryEnd Sub專業(yè)資料.Private Sub Button1_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.ClickDim i As IntegerDim tickethao As IntegerDim moviehaoAs IntegerD

22、im suiji As IntegerDim mydataadapter3As New SqlDataAdapterDim myds3 As New DataSetDim dt3 As New DataTableDim mycom3 As New SqlCommandDim mycon3 As New SqlConnectionRandomize()suiji = Int(9000 * Rnd() + 1000)Trytickethao = tickets_id()moviehao = movieid()mycon3.ConnectionString = initial catalog=tic

23、ketbooking;user id=sa;password=;mycom3.Connection = mycon3通過(guò)MYCON連接對(duì)象操作數(shù)據(jù)庫(kù)mycom3.CommandType = CommandType.Text設(shè)置命令類型Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryIf tickethao = 0ThenTryMessageBox.Show( 此座位已售出，請(qǐng)重新選擇！, 錯(cuò)誤 )ComboBox1.Text = TextBox1.Text = TextBox2.Text = TextBox3.Text = Tex

24、tBox4.Text = TextBox5.Text = Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryElseTrymycon3.Open()mycom3.CommandText = insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values ( +CStr(tickethao) + , +TextBox4.Text + , +CStr(moviehao) + , + TextBox2.Text + , +

25、 TextBox1.Text + , + TextBox5.Text+ , + CStr(suiji) + )Dim sql As Stringsql = insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values ( +CStr(tickethao) + , +專業(yè)資料.TextBox4.Text + , +CStr(moviehao) + , + TextBox2.Text + , + TextBox3.Text + , +TextBox5.Text + , +CStr

26、(suiji) + )mydataadapter3.InsertCommand = mycom3Trymycom3.ExecuteNonQuery()MessageBox.Show( 售票成功！ , 謝謝觀看 )Catch ex As ExceptionMsgBox(ex.ToString)End TryCatch ex As ExceptionMessageBox.Show(ex.ToString)End Trymycon3.Close()ComboBox1.Text = TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Tex

27、t = TextBox5.Text = End Ifrevoke_seat()End SubPrivate Sub ComboBox1_SelectedIndexChanged_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedrevoke_seat()Dim mydataadapter1As New SqlDataAdapterDim mydataadapter11As New SqlDataAdapterDim myds1 As New D

28、ataSetDim myds11 As New DataSetDim dt1 As New DataTableDim dt11 As New DataTableDim mycom1 As New SqlCommandDim mycom11 As New SqlCommandmycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom1.Connection = mycon通過(guò)MYCON連接對(duì)象操作數(shù)據(jù)庫(kù)mycom1.CommandType = CommandType.Text 設(shè)置命令類型my

29、com11.Connection = myconmycom11.CommandType = CommandType.TextTrymycon.Open()mycom11.CommandText = select palydate from Movies where movie_name= + ComboBox1.Text + mycom1.CommandText = select * from tickets where movie_name= + ComboBox1.Text+ 專業(yè)資料.mydataadapter1.SelectCommand = mycom1mydataadapter11

30、.SelectCommand = mycom11mydataadapter1.Fill(myds1, tickets)mydataadapter11.Fill(myds11, Movies)dt1 = myds1.Tables(tickets)dt11 = myds11.Tables(Movies)Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryTryIf dt1.Rows.Count = 0ThenMessageBox.Show( 還未出售！ )TextBox1.Text = dt11.Rows(0)(palydate)revo

31、ke_seat()ElseShowSellInfo(dt1)TextBox1.Text = dt11.Rows(0)(palydate)End IfCatch ex As ExceptionEnd Trymycon.Close()End SubPrivate Sub Button2_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.ClickDim tickethao As IntegerDim mydataadapter4As New SqlDataAdapterDim my

32、ds4 As New DataSetDim dt4 As New DataTableDim mycom4 As New SqlCommandDim mycon4 As New SqlConnectionTrymycon4.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom4.Connection = mycon4通過(guò)MYCON連接對(duì)象操作數(shù)據(jù)庫(kù)mycom4.CommandType = CommandType.Text設(shè)置命令類型tickethao = tuipiao()Catch ex As E

33、xceptionMessageBox.Show(ex.ToString)End TryIf tickethao = 0ThenMessageBox.Show( 座位號(hào)輸入錯(cuò)誤，請(qǐng)重新輸入！, 錯(cuò)誤 )ElseTrymycon4.Open()專業(yè)資料.mycom4.CommandText = delete from tickets where ticketsid= +CStr(tickethao) + Trymycom4.ExecuteNonQuery()MessageBox.Show( 退票成功！ , 謝謝觀看 )Catch ex As ExceptionMsgBox(ex.ToString)

34、End TryCatch ex As ExceptionMsgBox(ex.ToString)End TryEnd Ifmycon4.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) HandlesButton3.Click

35、TextBox2.Text = ComboBox1.TextTextBox3.Text = TextBox1.TextIf TextBox4.Text = ThenMessageBox.Show( 請(qǐng)輸入座位號(hào)！, 提示 )End IDim mydataadapter2As New SqlDataAdapterDim myds2 As New DataSetDim dt2 As New DataTableDim mycom2 As New SqlCommandmycon.ConnectionString = initial catalog=ticketbooking;user id=sa;pa

36、ssword=;mycom2.Connection = mycon通過(guò)MYCON連接對(duì)象操作數(shù)據(jù)庫(kù)mycom2.CommandType = CommandType.Text設(shè)置命令類型Trymycon.Open()mycom2.CommandText = select * from seats where seatid= + TextBox4.Text + mydataadapter2.SelectCommand = mycom2mydataadapter2.Fill(myds2, seats)dt2 = myds2.Tables(seats)Catch ex As ExceptionMess

37、ageBox.Show(ex.ToString)End TryTextBox5.Text = dt2.Rows(0)(price)專業(yè)資料.mycon.Close()End SubPrivate Sub Button4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim exitformAs New Form7If exitform.ShowDialog = DialogResult.OKThenexitform.Close()Me .Close()Applica

38、tion.Exit()End IfEnd SubEnd Class4創(chuàng)建檢票界面（ 1）創(chuàng)建模塊的功能對(duì)進(jìn)場(chǎng)觀眾檢票，如果發(fā)現(xiàn)有假票或無(wú)票觀眾不允許入內(nèi)。（ 2 ）創(chuàng)建模塊的窗體在工程中添加一個(gè)窗體，命名為“檢票系統(tǒng)”，用來(lái)作為檢票系統(tǒng)窗體。界面的設(shè)計(jì)如下圖所示。（ 3 ）代碼編寫ImportsSystem.Data.SqlClientPublic Class Form3Inherits System.Windows.Forms.FormDim ds1 As New DataSetDim sqlda1 As New SqlDataAdapterDim RecordCountAs Integer

39、Private Sub Form3_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load實(shí)驗(yàn)運(yùn)行場(chǎng) VB.NET 程序設(shè)計(jì)電影院票務(wù)系統(tǒng)檢票界面.swfAxShockwaveFlash1.Play()實(shí)驗(yàn)運(yùn)行場(chǎng) VB.NET 程序設(shè)計(jì)電影院票務(wù)系統(tǒng)檢票界面下 .swfAxShockwaveFlash2.Play()Dim sqlcmd1 As New SqlCommandDim str1 As String = select * from ticketssqlcmd1.Con

40、nection = sqlcn1專業(yè)資料.sqlcmd1.CommandText = str1sqlda1.SelectCommand = sqlcmd1Trysqlcn1.Open()sqlcmd1.ExecuteNonQuery()Catch ex As SqlExceptionMsgBox(ex.Message)Finallysqlcn1.Close()End TryTrysqlda1.Fill(ds1)Catch ex As SqlExceptionMsgBox(ex.Message)End TryRecordCount = ds1.Tables(0).Rows.CountTextBo

41、x6.Text = RecordCountEnd SubPrivate Sub Button1_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As IntegerDim flag As Boolean = FalseIf TextBox1.Text = ThenTextBox7.Text = 請(qǐng)認(rèn)真填寫票號(hào)！TextBox1.Focus()Exit SubEnd IfIf TextBox2.Text = ThenTextBox7.Text = 請(qǐng)?zhí)顚?/p>

42、驗(yàn)證碼！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)(yanzhengma) Thenflag = TrueExit ForEnd IfNextIf flag = True ThenTryTextBox3.Text = ds1.Tables(0).Rows(i)(seatid)TextBox4.Text = ds1.Ta

43、bles(0).Rows(i)(movie_name)TextBox5.Text = ds1.Tables(0).Rows(i)(price)專業(yè)資料.Catch ex As ExceptionMsgBox(ex.Message)End TryTextBox7.Text = 此票為真！ ElseTextBox7.Text = 此票為假！ End IfTextBox6.Text = RecordCountEnd SubPrivate Sub Button2_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) H

44、andles Button2.ClickTextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox7.Text = TextBox1.Focus()End SubPrivate Sub Button3_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim exitformAs New Form7If exitform

45、.ShowDialog = DialogResult.OKThenexitform.Close()Me .Close()Application.Exit()End IfEnd SubEnd Class5創(chuàng)建維護(hù)界面（ 1）創(chuàng)建模塊的功能給數(shù)據(jù)庫(kù)維護(hù)工作人員選擇維護(hù)的系統(tǒng)數(shù)據(jù)庫(kù)（ 2 ）創(chuàng)建模塊的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“維護(hù)系統(tǒng)”，用來(lái)作為維護(hù)系統(tǒng)窗體。界面的設(shè)計(jì)如下圖所示。（3 ）代碼編寫專業(yè)資料.Public Class Form8Inherits System.Windows.Forms.FormPrivate Sub Form8_Load( ByVal sender As Sy

46、stem.Object, ByVal e As System.EventArgs) HandlesMyBase .Load實(shí)驗(yàn)運(yùn)行場(chǎng) VB.NET 程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面.swfAxShockwaveFlash1.Play()End SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim frm4 As New Form4frm4.Show()Me .Hide()End SubPrivate Sub Button2

47、_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim frm6 As New Form6frm6.Show()Me .Hide()End SubPrivate Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim frm9 As New Form9frm9.Show()Me .Hide()End SubPriva

48、te Sub Button4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim exitformAs New Form7If exitform.ShowDialog = DialogResult.OKThenexitform.Close()Me .Close()Application.Exit()End IfEnd SubEnd Class1創(chuàng)建影庫(kù)界面（ 1）創(chuàng)建模塊的功能對(duì)電影庫(kù)播放列表的管理（ 2 ）創(chuàng)建模塊的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“影庫(kù)系統(tǒng)”，用來(lái)作為影庫(kù)系統(tǒng)窗體。界面的設(shè)計(jì)如下圖所