【正文】 m j As Integer For j = 0 To i If = CStr(idnum(j)) Then (ID地址有沖突！, 提示) End If Next CurrentPosition = (DataSet11, Movies).Position movieRow = (CurrentPosition) Try With movieRow .BeginEdit() .Item(movie_id) = .Item(movie_name) = .Item(actor) = .Item(actress) = .Item(producer) = .Item(palydate) = .EndEdit() End With Catch ex As Exception () Return End Try Try Dim i As Integer = (DataSet11, Movies) () (i amp。 / amp。界面 的設計如下圖所示。設置命令類型 Try () = select * from seats where seatid= + + = my2 (myds2, seats) dt2 = (seats) Catch ex As Exception () End Try = (0)(price) () End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim exitform As New Form7 If = Then () () () End If End Sub End Class（1）創(chuàng)建模塊的功能對進場觀眾檢票，如果發(fā)現(xiàn)有假票或無票觀眾不允許入內(nèi)。user id=sa。password=。 = select * from tickets where movie_name= 39。 = mycon 39。 + + 39。 + + 39。通過 MYCON 連接對象操作數(shù)據(jù)庫 = 39。設置要執(zhí)行的命令 Try () = my (myds, Movies) Catch ex As Exception (連接失敗) Finally () End Try Try For i = 0 To (Movies). 1 strrow = (Movies).Rows(i)(movie_name) (strrow) Next Catch ex As Exception () End Try End Sub Private Sub Button1_Click_1(ByVal sender As , ByVal e As ) Handles 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 my3 As New SqlCommand Dim mycon3 As New SqlConnection Randomize() suiji = Int(9000 * Rnd() + 1000) Try tickethao = tickets_id() moviehao = movieid() = initial catalog=ticketbooking。password=。連接對象 Dim my As New SqlCommand 39。（2） 窗體界面的設計 在工程中添加一個窗體，命名為“售票系統(tǒng)”，用來作為倉管人員窗體。設置要執(zhí)行的命令 Dim mydataadapter1 As New SqlDataAdapter = my1 Dim myds1 As New DataSet (myds1, workers) If = True And Val((workers).Rows(0)(leibie)) = 1 Then () () ElseIf = True And Val((workers).Rows(0)(leibie)) = 2 Then () () ElseIf = True And Val((workers).Rows(0)(leibie)) = 3 Then () () Else (您超出職責范圍 或未選擇服務系統(tǒng)，請重新輸入！, 錯誤提示, , , ) End If Catch ex As Exception End Try End If End Sub Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles = E:\實驗運行場\\電影院票務系統(tǒng)\image\ () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim exitform As New Form7 If = Then () () () End If End SubEnd Class（1） 窗體模塊的功能 為觀眾提供買票服務。設置命令類型 = select * from workers 39。user id=sa。 （3）窗體代碼 Imports Public Class Form1 Inherits Dim navigator As BindingManagerBase 39。表1存儲硬庫信息列表，表2存儲了電影院座位的相關(guān)數(shù)據(jù)連接關(guān)系，表3存儲了電影票銷售情況管理，表4存儲了系統(tǒng)使用者職工的相關(guān)情況的管理列表。小組人員分工情況：王圣武 登陸界面和售票界面、系統(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ù)庫采用目前比較流行的 Microsoft SQL Sever ,該數(shù)據(jù)庫系統(tǒng)在安全性、準確性、運行速度方面有絕對的優(yōu)勢，并且處理數(shù)據(jù)量大、效率高；前臺采用 Microsoft公司的 2003 作為主要的開發(fā)工具，其可與　SQL Sever 2000數(shù)據(jù)庫無縫銜接。 其中有他們的共號，登陸電影院管理系統(tǒng)的密碼，以及所擁有的權(quán)限。還要對數(shù)據(jù)庫進行清理，把一些沒用的數(shù)據(jù)全部清除。如電影票的管理，工作人員的管理，和電影庫的管理等。由掃描儀掃描，取的驗證碼，然后進行辯識，看是不是和數(shù)據(jù)庫中數(shù)據(jù)一樣，如果一樣，則電影票為真，否則電影票為假。系統(tǒng)在購票成功后會產(chǎn)生一個驗證碼，此驗證碼連工作人員都不知道。）：（1）售票系統(tǒng)模塊 給觀眾提供售票服務。（4） 數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理，以及過期電影票的處理問題。當然包括退票問題，還有就是預訂電影票其實也就相當于買票。如工作人員管理，票務管理等等。 每個社會服務系統(tǒng)都有自己的一套管理機制。面向?qū)ο蟪绦蛟O計課程設計報告 基于VB的影院售票管理系統(tǒng)設計與實現(xiàn) 一．系統(tǒng)概述 2 2 3二．項目開發(fā)計劃書 3三．設計說明書 6 6 8 15 28 33 36 45 54四．用戶操作手冊 61 61 61五．結(jié)語 63六．參考文獻 64一．系統(tǒng)概述 現(xiàn)在中國大部分的家庭都喜歡在家里置辦屬于自己風格的家庭影院。所以，現(xiàn)代家庭影院的出現(xiàn)并不會讓電影院沒有生路。電影院不外乎是引進電影，制定播放影片的時間表，買票，檢票進場觀看，還有就是一些數(shù)據(jù)管理方面的事。（2） 售票管理自然有專人負責，要處理各電影的電影票銷售問題。其中包括了電影票的真假檢測問題。主要有三種用戶：1． 售票管理人員： 主要負責賣票，訂票及退票事宜；2． 檢票管理人員： 主要負責觀眾進場時檢票工作，以及辨認電影票的真假（此工作自然可以由服務系統(tǒng)來完成）；3． 數(shù)據(jù)處理人員： 主要負責播放電影導入數(shù)據(jù)庫，工作人員的應聘以及開除的數(shù)據(jù)管理，還有過期電影票的數(shù)據(jù)處理；以下分別介紹此系統(tǒng)中各個系統(tǒng)（3個子模塊。工作人員根據(jù)觀眾的需要進行操作。（2）檢票系統(tǒng)模塊 在觀眾進場時所使用的系統(tǒng)。他根據(jù)電影院事情的需要對有關(guān)數(shù)據(jù)進行處理。當所設定的電影已經(jīng)播放完成后，要對其進行刪除。保證數(shù)據(jù)庫里數(shù)據(jù)的統(tǒng)一與完整。這里指的是與放過的電影同名的電影票清除，而其他的電影票保存不變。在本管理系統(tǒng)中，需要掌握影庫充實信息，職工管理信息，票務管理信息，此外，由于要進行職工管理，還需要掌握使用本系統(tǒng)的職工。界面 的設計如圖3所示。命令對象 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