【正文】 票的管理，工作人員的管理，和電影庫(kù)的管理等。（3）維護(hù)系統(tǒng)模塊 此模塊是由電影院的數(shù)據(jù)庫(kù)管理員來管理的。由掃描儀掃描，取的驗(yàn)證碼，然后進(jìn)行辯識(shí)，看是不是和數(shù)據(jù)庫(kù)中數(shù)據(jù)一樣，如果一樣，則電影票為真，否則電影票為假。用于對(duì)電影票真假的辯識(shí)。系統(tǒng)在購(gòu)票成功后會(huì)產(chǎn)生一個(gè)驗(yàn)證碼，此驗(yàn)證碼連工作人員都不知道。要選購(gòu)哪個(gè)位置由觀眾決定。）：（1）售票系統(tǒng)模塊 給觀眾提供售票服務(wù)。影院售票管理系統(tǒng)是一個(gè)基于電影院工作人員的系統(tǒng)，不同類型的用戶在系統(tǒng)中有不同的權(quán)限。（4） 數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理，以及過期電影票的處理問題。（3） 檢票管理事宜要完成觀眾進(jìn)場(chǎng)時(shí)檢票的事宜。當(dāng)然包括退票問題，還有就是預(yù)訂電影票其實(shí)也就相當(dāng)于買票。具體而言，影院售票系統(tǒng)需要實(shí)現(xiàn)以下的需求：（1） 能夠?qū)Σシ烹娪?，工作人員，售票事宜，檢票事宜，無用數(shù)據(jù)進(jìn)行處理。如工作人員管理，票務(wù)管理等等。其實(shí)電影院的管理系統(tǒng)應(yīng)該來說比其他的社會(huì)服務(wù)系統(tǒng)的管理要簡(jiǎn)單一點(diǎn)。 每個(gè)社會(huì)服務(wù)系統(tǒng)都有自己的一套管理機(jī)制。因?yàn)榧依锏臍夥债吘共蝗缬霸汉?。面向?qū)ο蟪绦蛟O(shè)計(jì)課程設(shè)計(jì)報(bào)告 基于VB的影院售票管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 一．系統(tǒng)概述 2 2 3二．項(xiàng)目開發(fā)計(jì)劃書 3三．設(shè)計(jì)說明書 6 6 8 15 28 33 36 45 54四．用戶操作手冊(cè) 61 61 61五．結(jié)語 63六．參考文獻(xiàn) 64一．系統(tǒng)概述 現(xiàn)在中國(guó)大部分的家庭都喜歡在家里置辦屬于自己風(fēng)格的家庭影院。但是，仍然有很多人喜歡到電影院去看電影。所以，現(xiàn)代家庭影院的出現(xiàn)并不會(huì)讓電影院沒有生路。當(dāng)然，電影院也不除外。電影院不外乎是引進(jìn)電影，制定播放影片的時(shí)間表，買票，檢票進(jìn)場(chǎng)觀看，還有就是一些數(shù)據(jù)管理方面的事。為了工作機(jī)制簡(jiǎn)單有序，必然要引進(jìn)一套管理系統(tǒng)。（2） 售票管理自然有專人負(fù)責(zé)，要處理各電影的電影票銷售問題。兩者可以當(dāng)一回事處理。其中包括了電影票的真假檢測(cè)問題。二．項(xiàng)目開發(fā)計(jì)劃書 根據(jù)需求分析的結(jié)果，本小組成員討論協(xié)商，決定本系統(tǒng)主要?jiǎng)澐譃橐韵氯齻€(gè)子模塊：售票管理模塊、檢票管理模塊、數(shù)據(jù)管理模塊。主要有三種用戶：1． 售票管理人員： 主要負(fù)責(zé)賣票，訂票及退票事宜；2． 檢票管理人員： 主要負(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è)子模塊。不同的位置有不同的價(jià)格。工作人員根據(jù)觀眾的需要進(jìn)行操作。是隨機(jī)生成的。（2）檢票系統(tǒng)模塊 在觀眾進(jìn)場(chǎng)時(shí)所使用的系統(tǒng)。由此來決定讓不讓觀眾入場(chǎng)。他根據(jù)電影院事情的需要對(duì)有關(guān)數(shù)據(jù)進(jìn)行處理。整個(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è)子模塊。當(dāng)所設(shè)定的電影已經(jīng)播放完成后，要對(duì)其進(jìn)行刪除。（2）工作人員管理： 電影院里當(dāng)然有工作人員的增加與開除，以及他們的管理權(quán)限的變化。保證數(shù)據(jù)庫(kù)里數(shù)據(jù)的統(tǒng)一與完整。（3）過期票務(wù)管理： 電影院里的電影在放過以后，在數(shù)據(jù)庫(kù)的電影票數(shù)據(jù)就會(huì)變成沒有用的數(shù)據(jù)。這里指的是與放過的電影同名的電影票清除，而其他的電影票保存不變。三．設(shè)計(jì)說明書 根據(jù)系統(tǒng)的功能分析結(jié)果，影院售票管理系統(tǒng)將會(huì)使用Microsoft SQL Sever 2000 作為后臺(tái)的數(shù)據(jù)庫(kù)管理系統(tǒng)。在本管理系統(tǒng)中，需要掌握影庫(kù)充實(shí)信息，職工管理信息，票務(wù)管理信息，此外，由于要進(jìn)行職工管理，還需要掌握使用本系統(tǒng)的職工。表1 影庫(kù)管理表MOVIES字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵Movie_idsmallint2電影號(hào)是有（無重復(fù)）是Movie_nameNvarchar50電影名稱是無actorNvarchar50導(dǎo)演否無actressNvarchar50主演否無producerNvarchar25制片廠否無palydatedatetime8上映時(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à)格是無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)系。界面 的設(shè)計(jì)如圖3所示。用來對(duì)記錄導(dǎo)航 Dim mycon As New SqlConnection 39。命令對(duì)象 Dim my1 As New SqlCommand Dim frm2 As New Form2 Dim frm3 As New Form3Dim frm8 As New Form8Private Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles (0).Text = (1).Text = (T) End Sub Private Sub GroupBox1_Enter(ByVal sender As , ByVal e As ) Handles If = True Then = False = False ElseIf = True Then = False = False ElseIf = True Then = False = False End If End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = E:\實(shí)驗(yàn)運(yùn)行場(chǎng)\\電影院票務(wù)系統(tǒng)\image\ = False () 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() tox2 = Val() = initial catalog=ticketbooking。password=。通過 MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) = 39。設(shè)置要執(zhí)行的命令 Try () = my Catch ex As Exception (連接失敗) Finally () End Try (myds, workers) For i = 0 To (workers). 1 If tox1 = Val((workers).Rows(i).ItemArray(0)) Then j = 0 Exit For Else j = 1 End If Next For i = 0 To (workers). 1 If tox2 = Val((workers).Rows(i).ItemArray(1)) Then j = 0 Exit For Else j = 1 End If Next If j = 1 Then (您的工號(hào)或者密碼錯(cuò)誤, 錯(cuò)誤提示, , ) Else Try = mycon 39。設(shè)置命令類型 = select leibie from workers where workerid= + CStr(tox1) + and password= + CStr(tox2) + 39。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。此窗體還有退票功能。界面 的設(shè)計(jì)如下圖所示。用來對(duì)記錄導(dǎo)航 Dim mycon As New SqlConnection 39。命令對(duì)象 Private Sub Form2_Load(ByVal sender As , ByVal e As ) Handles 39。user id=sa。 = mycon 39。設(shè)置命令類型 = select * from Movies 39。user id=sa。 = mycon3 39。設(shè)置命令類型 Catch ex As Exception () End Try If tickethao = 0 Then Try (此座位已售出，請(qǐng)重新選擇！, 錯(cuò)誤) = = = = = = Catch ex As Exception () End Try Else Try () = insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values ( + CStr(tickethao) + , + + , + CStr(moviehao) + ,39。,39。, + + , + CStr(suiji) + ) Dim sql As String sql = insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values ( + CStr(tickethao) + , + + , + CStr(moviehao) + ,39。,39。, + + ,