【大學(xué)資料】影院售票管理系統(tǒng)

面向?qū)ο蟪绦蛟O(shè)計課程設(shè)計報告項(xiàng)目名稱： 影院售票管理系統(tǒng) 一系統(tǒng)概述； 1項(xiàng)目需求； 2需求分析；二項(xiàng)目開發(fā)計劃書；三設(shè)計說明書； 1分析與創(chuàng)建數(shù)據(jù)庫； 2創(chuàng)建登陸窗體模塊； 3創(chuàng)建售票窗體模塊4創(chuàng)建檢票界面5創(chuàng)建維護(hù)界面 1創(chuàng)建影庫界面 2創(chuàng)建職工界面 3創(chuàng)建票務(wù)界面四用戶操作手冊；五改進(jìn)意見；六自我評價；七參考資料、書籍；一系統(tǒng)概述；1項(xiàng)目需求； 現(xiàn)在中國大部分的家庭都喜歡在家里置辦屬于自己風(fēng)格的家庭影院。但是，仍然有很多人喜歡到電影院去看電影。因?yàn)榧依锏臍夥债吘共蝗缬霸汉谩Ｋ?，現(xiàn)代家庭影院的出現(xiàn)并不會讓電影院沒有生路。 每個社會服務(wù)系統(tǒng)都有自己的一套管理機(jī)制。當(dāng)然，電影院也不除外。其實(shí)電影院的管理系統(tǒng)應(yīng)該來說比其他的社會服務(wù)系統(tǒng)的管理要簡單一點(diǎn)。電影院不外乎是引進(jìn)電影，制定播放影片的時間表，買票，檢票進(jìn)場觀看，還有就是一些數(shù)據(jù)管理方面的事。如工作人員管理，票務(wù)管理等等。為了工作機(jī)制簡單有序，必然要引進(jìn)一套管理系統(tǒng)。2需求分析；具體而言，影院售票系統(tǒng)需要實(shí)現(xiàn)以下的需求：（1） 能夠?qū)Σシ烹娪?，工作人員，售票事宜，檢票事宜，無用數(shù)據(jù)進(jìn)行處理。（2） 售票管理自然有專人負(fù)責(zé)，要處理各電影的電影票銷售問題。當(dāng)然包括退票問題，還有就是預(yù)訂電影票其實(shí)也就相當(dāng)于買票。兩者可以當(dāng)一回事處理。（3） 檢票管理事宜要完成觀眾進(jìn)場時檢票的事宜。其中包括了電影票的真假檢測問題。（4） 數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理，以及過期電影票的處理問題。二項(xiàng)目開發(fā)計劃書； 根據(jù)需求分析的結(jié)果，本小組成員討論協(xié)商，決定本系統(tǒng)主要劃分為以下三個子模塊：售票管理模塊、檢票管理模塊、數(shù)據(jù)管理模塊。影院售票管理系統(tǒng)是一個基于電影院工作人員的系統(tǒng)，不同類型的用戶在系統(tǒng)中有不同的權(quán)限。主要有三種用戶：1 售票管理人員： 主要負(fù)責(zé)賣票，訂票及退票事宜；2 檢票管理人員： 主要負(fù)責(zé)觀眾進(jìn)場時檢票工作，以及辨認(rèn)電影票的真假（此工作自然可以由服務(wù)系統(tǒng)來完成）；3 數(shù)據(jù)處理人員： 主要負(fù)責(zé)播放電影導(dǎo)入數(shù)據(jù)庫，工作人員的應(yīng)聘以及開除的數(shù)據(jù)管理，還有過期電影票的數(shù)據(jù)處理；以下分別介紹此系統(tǒng)中各個系統(tǒng)（3個子模塊。）：（1）售票系統(tǒng)模塊 給觀眾提供售票服務(wù)。不同的位置有不同的價格。要選購哪個位置由觀眾決定。工作人員根據(jù)觀眾的需要進(jìn)行操作。系統(tǒng)在購票成功后會產(chǎn)生一個驗(yàn)證碼，此驗(yàn)證碼連工作人員都不知道。是隨機(jī)生成的。用于對電影票真假的辯識。（2）檢票系統(tǒng)模塊 在觀眾進(jìn)場時所使用的系統(tǒng)。由掃描儀掃描，取的驗(yàn)證碼，然后進(jìn)行辯識，看是不是和數(shù)據(jù)庫中數(shù)據(jù)一樣，如果一樣，則電影票為真，否則電影票為假。由此來決定讓不讓觀眾入場。（3）維護(hù)系統(tǒng)模塊 此模塊是由電影院的數(shù)據(jù)庫管理員來管理的。他根據(jù)電影院事情的需要對有關(guān)數(shù)據(jù)進(jìn)行處理。如電影票的管理，工作人員的管理，和電影庫的管理等。整個系統(tǒng)的結(jié)構(gòu)如下圖1所示：影院售票管理系統(tǒng)xiop工作人員登錄維護(hù)系統(tǒng)檢票系統(tǒng)售票系統(tǒng)影片播放管理工作人員管理過期票務(wù)管理以下分別介紹系統(tǒng)中數(shù)據(jù)系統(tǒng)3個子模塊。（1）影片播放管理模塊 影片播放管理是對電影院播放的電影的充實(shí)，設(shè)定電影的播放，以及電影時間的設(shè)定。當(dāng)所設(shè)定的電影已經(jīng)播放完成后，要對其進(jìn)行刪除。還要對數(shù)據(jù)庫進(jìn)行清理，把一些沒用的數(shù)據(jù)全部清除。（2）工作人員管理： 電影院里當(dāng)然有工作人員的增加與開除，以及他們的管理權(quán)限的變化。這一部分事件的發(fā)生都需要數(shù)據(jù)庫管理人員將有關(guān)數(shù)據(jù)進(jìn)行處理。保證數(shù)據(jù)庫里數(shù)據(jù)的統(tǒng)一與完整。 其中有他們的共號，登陸電影院管理系統(tǒng)的密碼，以及所擁有的權(quán)限。（3）過期票務(wù)管理： 電影院里的電影在放過以后，在數(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)和整個維護(hù)系統(tǒng)的程序編寫，局部框架輔助設(shè)計，創(chuàng)建數(shù)據(jù)庫本系統(tǒng)后臺數(shù)據(jù)庫采用目前比較流行的 Microsoft SQL Sever ,該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對的優(yōu)勢，并且處理數(shù)據(jù)量大、效率高；前臺采用 Microsoft公司的 VB.NET 2003 作為主要的開發(fā)工具，其可與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ù)庫之間進(jìn)行頻繁數(shù)據(jù)交換，所以采用Microsoft SQL Sever 2000 作為后臺的數(shù)據(jù)庫管理系統(tǒng)。在本管理系統(tǒng)中，需要掌握影庫充實(shí)信息，職工管理信息，票務(wù)管理信息，此外，由于要進(jìn)行職工管理，還需要掌握使用本系統(tǒng)的職工。表1存儲硬庫信息列表，表2存儲了電影院座位的相關(guān)數(shù)據(jù)連接關(guān)系，表3存儲了電影票銷售情況管理，表4存儲了系統(tǒng)使用者職工的相關(guān)情況的管理列表。表1 影庫管理表-MOVIES字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵Movie_idsmallint2電影號是有（無重復(fù)）是Movie_nameNvarchar50電影名稱是無actorNvarchar50導(dǎo)演否無actressNvarchar50主演否無producerNvarchar25制片廠否無palydatedatetime8上映時間是無表2 電影院座位管理表-SEATS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵seatidsmallint2座位號是有（無重復(fù)）是pricefloat8票價是無soldornotsmallint2是否售出是無表3 電影票信息表-TICKETS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵ticketsidsmallint2電影票號是有（無重復(fù)）是seatidsmallint2座位號是有Movie_idsmallint2電影號是有Movie_nameNvarchar50電影名否無palydatedatetime8上映時間是無pricefloat8價格是無yanzhengmasmallint2驗(yàn)證碼是無是表4 職工信息表-WORKERS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵workeridsmallint2職工號是無是passwordsmallint2職工密碼是無leibiesmallint2職工類型是無根據(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）窗體代碼 Imports System.Data.SqlClientPublic Class Form1 Inherits System.Windows.Forms.Form Dim navigator As BindingManagerBase 用來對記錄導(dǎo)航 Dim mycon As New SqlConnection 連接對象 Dim mycom As New SqlCommand 命令對象 Dim mycom1 As New SqlCommand Dim frm2 As New Form2 Dim frm3 As New Form3Dim frm8 As New Form8Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick StatusBar1.Panels(0).Text = DateTime.Today StatusBar1.Panels(1).Text = DateTime.Now.ToString(T) End Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter If RadioButton1.Checked = True Then RadioButton2.Checked = False RadioButton3.Checked = False ElseIf RadioButton2.Checked = True Then RadioButton1.Checked = False RadioButton3.Checked = False ElseIf RadioButton3.Checked = True Then RadioButton1.Checked = False RadioButton2.Checked = False End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxShockwaveFlash1.Movie = E:實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計電影院票務(wù)系統(tǒng)image登陸界面1.swf AxShockwaveFlash1.Playing = False AxShockwaveFlash1.Stop() Dim tox1 As Int32 Dim tox2 As Int32 Dim mydataadapter As New SqlDataAdapter Dim myds As New DataSet Dim i As Integer Dim j As Integer tox1 = Val(TextBox1.Text) tox2 = Val(TextBox2.Text) mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom.Connection = mycon 通過 MYCON 連接對象操作數(shù)據(jù)庫 mycom.CommandType = CommandType.Text 設(shè)置命令類型 mycom.CommandText = select * from workers 設(shè)置要執(zhí)行的命令 Try mycon.Open() mydataadapter.SelectCommand = mycom Catch ex As Exception MessageBox.Show(連接失敗) Finally mycon.Close() End Try mydataadapter.Fill(myds, workers) For i = 0 To myds.Tables(workers).Rows.Count - 1 If tox1 = Val(myds.Tables(workers).Rows(i).ItemArray(0) Then j = 0 Exit For Else j = 1 End If Next For i = 0 To myds.Tables(workers).Rows.Count - 1 If tox2 = Val(myds.Tables(workers).Rows(i).ItemArray(1) Then j = 0 Exit For Else j = 1 End If Next If j = 1 Then MessageBox.Show(您的工號或者密碼錯誤, 錯誤提示, MessageBoxButtons.OK, MessageBoxIcon.Warning) Else Try mycom1.Connection = mycon 通過 MYCON 連接對象操作數(shù)據(jù)庫 mycom1.CommandType = CommandType.Text 設(shè)置命令類型 mycom1.CommandText = select leibie from workers where workerid= + CStr(tox1) + and password= + CStr(tox2) + 設(shè)置要執(zhí)行的命令 Dim mydataadapter1 As New SqlDataAdapter mydataadapter1.SelectCommand = mycom1 Dim myds1 As New DataSet mydataadapter1.Fill(myds1, workers) If RadioButton1.Checked = True And Val(myds1.Tables(workers).Rows(0)(leibie) = 1 Then frm2.Show() Me.Hide() ElseIf RadioButton2.Checked = True And Val(myds1.Tables(workers).Rows(0)(leibie) = 2 Then frm3.Show() Me.Hide() ElseIf RadioButton3.Checked = True And Val(myds1.Tables(workers).Rows(0)(leibie) = 3 Then frm8.Show() Me.Hide() Else MessageBox.Show(您超出職責(zé)范圍 或未選擇服務(wù)系統(tǒng)，請重新輸入！, 錯誤提示, MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) End If Catch ex As Exception End Try End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AxShockwaveFlash1.Movie = E:實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計電影院票務(wù)系統(tǒng)image登陸界面1.swf AxShockwaveFlash1.Play() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim exitform As New Form7 If exitform.ShowDialog = DialogResult.OK Then exitform.Close() Me.Close() Application.Exit() End If End SubEnd Class3 創(chuàng)建售票窗體模塊（1） 窗體模塊的功能 為觀眾提供買票服務(wù)。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。不同的座位有不同的價格。此窗體還有退票功能。（2） 窗體界面的設(shè)計 在工程中添加一個窗體，命名為“售票系統(tǒng)”，用來作為倉管人員窗體。界面 的設(shè)計如下圖所示。（3） 代碼編寫 Imports System.Data.SqlClientPublic Class Form2 Inherits System.Windows.Forms.Form Dim navigator As BindingManagerBase 用來對記錄導(dǎo)航 Dim mycon As New SqlConnection 連接對象 Dim mycom As New SqlCommand 命令對象 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() AxShockwaveFlash1.Movie = E:實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計電影院票務(wù)系統(tǒng)image銷售界面.swf AxShockwaveFlash1.Play() AxShockwaveFlash2.Movie = E:實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計電影院票務(wù)系統(tǒng)image檢票界面下.swf AxShockwaveFlash2.Play() Dim mydataadapter As New SqlDataAdapter Dim myds As New DataSet Dim i As Integer Dim j As Integer Dim strrow As String Dim dt As New DataTable mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom.Connection = mycon 通過 MYCON 連接對象操作數(shù)據(jù)庫 mycom.CommandType = CommandType.Text 設(shè)置命令類型 mycom.CommandText = select * from Movies 設(shè)置要執(zhí)行的命令 Try mycon.Open() mydataadapter.SelectCommand = mycom mydataadapter.Fill(myds, Movies) Catch ex As Exception MessageBox.Show(連接失敗) Finally mycon.Close() End Try Try For i = 0 To myds.Tables(Movies).Rows.Count - 1 strrow = myds.Tables(Movies).Rows(i)(movie_name) ComboBox1.Items.Add(strrow) Next Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer Dim tickethao As Integer Dim moviehao As Integer Dim suiji As Integer Dim mydataadapter3 As New SqlDataAdapter Dim myds3 As New DataSet Dim dt3 As New DataTable Dim mycom3 As New SqlCommand Dim mycon3 As New SqlConnection Randomize() suiji = Int(9000 * Rnd() + 1000) Try tickethao = tickets_id() moviehao = movieid() mycon3.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom3.Connection = mycon3 通過 MYCON 連接對象操作數(shù)據(jù)庫 mycom3.CommandType = CommandType.Text 設(shè)置命令類型 Catch ex As Exception MessageBox.Show(ex.ToString) End Try If tickethao = 0 Then Try MessageBox.Show(此座位已售出，請重新選擇！, 錯誤) ComboBox1.Text = TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = Catch ex As Exception MessageBox.Show(ex.ToString) End Try Else Try mycon3.Open() mycom3.CommandText = insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values ( + CStr(tickethao) + , + TextBox4.Text + , + CStr(moviehao) + , + TextBox2.Text + , + TextBox1.Text + , + TextBox5.Text + , + CStr(suiji) + ) Dim sql As String sql = insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values ( + CStr(tickethao) + , + TextBox4.Text + , + CStr(moviehao) + , + TextBox2.Text + , + TextBox3.Text + , + TextBox5.Text + , + CStr(suiji) + ) mydataadapter3.InsertCommand = mycom3 Try mycom3.ExecuteNonQuery() MessageBox.Show(售票成功！, 謝謝觀看) Catch ex As Exception MsgBox(ex.ToString) End Try Catch ex As Exception MessageBox.Show(ex.ToString) End Try mycon3.Close() ComboBox1.Text = TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = End If revoke_seat() End Sub Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged revoke_seat() Dim mydataadapter1 As New SqlDataAdapter Dim mydataadapter11 As New SqlDataAdapter Dim myds1 As New DataSet Dim myds11 As New DataSet Dim dt1 As New DataTable Dim dt11 As New DataTable Dim mycom1 As New SqlCommand Dim mycom11 As New SqlCommand mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom1.Connection = mycon 通過 MYCON 連接對象操作數(shù)據(jù)庫 mycom1.CommandType = CommandType.Text 設(shè)置命令類型 mycom11.Connection = mycon mycom11.CommandType = CommandType.Text Try mycon.Open() mycom11.CommandText = select palydate from Movies where movie_name= + ComboBox1.Text + mycom1.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.Tables(tickets) dt11 = myds11.Tables(Movies) Catch ex As Exception MessageBox.Show(ex.ToString) End Try Try If dt1.Rows.Count = 0 Then MessageBox.Show(還未出售！) TextBox1.Text = dt11.Rows(0)(palydate) revoke_seat() Else ShowSellInfo(dt1) TextBox1.Text = dt11.Rows(0)(palydate) End If Catch ex As Exception End Try mycon.Close() End Sub Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim tickethao As Integer Dim mydataadapter4 As New SqlDataAdapter Dim myds4 As New DataSet Dim dt4 As New DataTable Dim mycom4 As New SqlCommand Dim mycon4 As New SqlConnection Try mycon4.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom4.Connection = mycon4 通過 MYCON 連接對象操作數(shù)據(jù)庫 mycom4.CommandType = CommandType.Text 設(shè)置命令類型 tickethao = tuipiao() Catch ex As Exception MessageBox.Show(ex.ToString) End Try If tickethao = 0 Then MessageBox.Show(座位號輸入錯誤，請重新輸入！, 錯誤) Else Try mycon4.Open() mycom4.CommandText = delete from tickets where ticketsid= + CStr(tickethao) + Try mycom4.ExecuteNonQuery() MessageBox.Show(退票成功！, 謝謝觀看) Catch ex As Exception MsgBox(ex.ToString) End Try Catch ex As Exception MsgBox(ex.ToString) End Try End If mycon4.Close() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = ComboBox1.Text = revoke_seat() End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox2.Text = ComboBox1.Text TextBox3.Text = TextBox1.Text If TextBox4.Text = Then MessageBox.Show(請輸入座位號！, 提示) End I Dim mydataadapter2 As New SqlDataAdapter Dim myds2 As New DataSet Dim dt2 As New DataTable Dim mycom2 As New SqlCommand mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom2.Connection = mycon 通過 MYCON 連接對象操作數(shù)據(jù)庫 mycom2.CommandType = CommandType.Text 設(shè)置命令類型 Try mycon.Open() mycom2.CommandText = select * from seats where seatid= + TextBox4.Text + mydataadapter2.SelectCommand = mycom2 mydataadapter2.Fill(myds2, seats) dt2 = myds2.Tables(seats) Catch ex As Exception MessageBox.Show(ex.ToString) End Try TextBox5.Text = dt2.Rows(0)(price) mycon.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim exitform As New Form7 If exitform.ShowDialog = DialogResult.OK Then exitform.Close() Me.Close() Application.Exit() End If End Sub End Class4 創(chuàng)建檢票界面（1）創(chuàng)建模塊的功能對進(jìn)場觀眾檢票，如果發(fā)現(xiàn)有假票或無票觀眾不允許入內(nèi)。（2）創(chuàng)建模塊的窗體 在工程中添加一個窗體，命名為“檢票系統(tǒng)”，用來作為檢票系統(tǒng)窗體。界面 的設(shè)計如下圖所示。（3）代碼編寫 Imports System.Data.SqlClientPublic Class Form3Inherits System.Windows.Forms.Form Dim ds1 As New DataSet Dim sq