【正文】 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。界面 的設(shè)計(jì)如下圖所示。設(shè)置命令類型 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)建模塊的功能對(duì)進(jìn)場(chǎng)觀眾檢票，如果發(fā)現(xiàn)有假票或無(wú)票觀眾不允許入內(nèi)。user id=sa。password=。 = select * from tickets where movie_name= 39。 = mycon 39。 + + 39。 + + 39。通過(guò) MYCON 連接對(duì)象操作數(shù)據(jù)庫(kù) = 39。設(shè)置要執(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=。連接對(duì)象 Dim my As New SqlCommand 39。（2） 窗體界面的設(shè)計(jì) 在工程中添加一個(gè)窗體，命名為“售票系統(tǒng)”，用來(lái)作為倉(cāng)管人員窗體。設(shè)置要執(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 (您超出職責(zé)范圍 或未選擇服務(wù)系統(tǒng)，請(qǐng)重新輸入！, 錯(cuò)誤提示, , , ) End If Catch ex As Exception End Try End If End Sub Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles = E:\實(shí)驗(yàn)運(yùn)行場(chǎng)\\電影院票務(wù)系統(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） 窗體模塊的功能 為觀眾提供買票服務(wù)。設(shè)置命令類型 = select * from workers 39。user id=sa。 （3）窗體代碼 Imports Public Class Form1 Inherits Dim navigator As BindingManagerBase 39。表1存儲(chǔ)硬庫(kù)信息列表，表2存儲(chǔ)了電影院座位的相關(guān)數(shù)據(jù)連接關(guān)系，表3存儲(chǔ)了電影票銷售情況管理，表4存儲(chǔ)了系統(tǒng)使用者職工的相關(guān)情況的管理列表。小組人員分工情況：王圣武 登陸界面和售票界面、系統(tǒng)轉(zhuǎn)換界面的程序編寫(xiě)，整個(gè)系統(tǒng)框架的設(shè)計(jì)，整個(gè)系統(tǒng)界面及美化設(shè)計(jì)，整個(gè)系統(tǒng)流程的管理，創(chuàng)建數(shù)據(jù)庫(kù)張潤(rùn)馳 檢票系統(tǒng)和整個(gè)維護(hù)系統(tǒng)的程序編寫(xiě)，局部框架輔助設(shè)計(jì)，創(chuàng)建數(shù)據(jù)庫(kù)本系統(tǒng)后臺(tái)數(shù)據(jù)庫(kù)采用目前比較流行的 Microsoft SQL Sever ,該數(shù)據(jù)庫(kù)系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)量大、效率高；前臺(tái)采用 Microsoft公司的 2003 作為主要的開(kāi)發(fā)工具，其可與　SQL Sever 2000數(shù)據(jù)庫(kù)無(wú)縫銜接。 其中有他們的共號(hào)，登陸電影院管理系統(tǒng)的密碼，以及所擁有的權(quán)限。還要對(duì)數(shù)據(jù)庫(kù)進(jìn)行清理，把一些沒(méi)用的數(shù)據(jù)全部清除。如電影票的管理，工作人員的管理，和電影庫(kù)的管理等。由掃描儀掃描，取的驗(yàn)證碼，然后進(jìn)行辯識(shí)，看是不是和數(shù)據(jù)庫(kù)中數(shù)據(jù)一樣，如果一樣，則電影票為真，否則電影票為假。系統(tǒng)在購(gòu)票成功后會(huì)產(chǎn)生一個(gè)驗(yàn)證碼，此驗(yàn)證碼連工作人員都不知道。）：（1）售票系統(tǒng)模塊 給觀眾提供售票服務(wù)。（4） 數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理，以及過(guò)期電影票的處理問(wèn)題。當(dāng)然包括退票問(wèn)題，還有就是預(yù)訂電影票其實(shí)也就相當(dāng)于買票。如工作人員管理，票務(wù)管理等等。 每個(gè)社會(huì)服務(wù)系統(tǒng)都有自己的一套管理機(jī)制。面向?qū)ο蟪绦蛟O(shè)計(jì)課程設(shè)計(jì)報(bào)告 基于VB的影院售票管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 一．系統(tǒng)概述 2 2 3二．項(xiàng)目開(kāi)發(fā)計(jì)劃書(shū) 3三．設(shè)計(jì)說(shuō)明書(shū) 6 6 8 15 28 33 36 45 54四．用戶操作手冊(cè) 61 61 61五．結(jié)語(yǔ) 63六．參考文獻(xiàn) 64一．系統(tǒng)概述 現(xiàn)在中國(guó)大部分的家庭都喜歡在家里置辦屬于自己風(fēng)格的家庭影院。所以，現(xiàn)代家庭影院的出現(xiàn)并不會(huì)讓電影院沒(méi)有生路。電影院不外乎是引進(jìn)電影，制定播放影片的時(shí)間表，買票，檢票進(jìn)場(chǎng)觀看，還有就是一些數(shù)據(jù)管理方面的事。（2） 售票管理自然有專人負(fù)責(zé)，要處理各電影的電影票銷售問(wèn)題。其中包括了電影票的真假檢測(cè)問(wèn)題。主要有三種用戶：1． 售票管理人員： 主要負(fù)責(zé)賣票，訂票及退票事宜；2． 檢票管理人員： 主要負(fù)責(zé)觀眾進(jìn)場(chǎng)時(shí)檢票工作，以及辨認(rèn)電影票的真假（此工作自然可以由服務(wù)系統(tǒng)來(lái)完成）；3． 數(shù)據(jù)處理人員： 主要負(fù)責(zé)播放電影導(dǎo)入數(shù)據(jù)庫(kù)，工作人員的應(yīng)聘以及開(kāi)除的數(shù)據(jù)管理，還有過(guò)期電影票的數(shù)據(jù)處理；以下分別介紹此系統(tǒng)中各個(gè)系統(tǒng)（3個(gè)子模塊。工作人員根據(jù)觀眾的需要進(jìn)行操作。（2）檢票系統(tǒng)模塊 在觀眾進(jìn)場(chǎng)時(shí)所使用的系統(tǒng)。他根據(jù)電影院事情的需要對(duì)有關(guān)數(shù)據(jù)進(jìn)行處理。當(dāng)所設(shè)定的電影已經(jīng)播放完成后，要對(duì)其進(jìn)行刪除。保證數(shù)據(jù)庫(kù)里數(shù)據(jù)的統(tǒng)一與完整。這里指的是與放過(guò)的電影同名的電影票清除，而其他的電影票保存不變。在本管理系統(tǒng)中，需要掌握影庫(kù)充實(shí)信息，職工管理信息，票務(wù)管理信息，此外，由于要進(jìn)行職工管理，還需要掌握使用本系統(tǒng)的職工。界面 的設(shè)計(jì)如圖3所示。命令對(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