【正文】 Try Catch ex As Exception () End Try () = = = = = = End If revoke_seat() End Sub Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As , ByVal e As ) Handles 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 my1 As New SqlCommand Dim my11 As New SqlCommand = initial catalog=ticketbooking。, + + , + 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。設(shè)置命令類型 Catch ex As Exception () End Try If tickethao = 0 Then Try (此座位已售出，請重新選擇！, 錯誤) = = = = = = 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。user id=sa。 = mycon 39。命令對象 Private Sub Form2_Load(ByVal sender As , ByVal e As ) Handles 39。界面 的設(shè)計如下圖所示。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。設(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 (您的工號或者密碼錯誤, 錯誤提示, , ) Else Try = mycon 39。password=。用來對記錄導(dǎo)航 Dim mycon As New SqlConnection 39。表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驗證碼是無是表4 職工信息表WORKERS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵workeridsmallint2職工號是無是passwordsmallint2職工密碼是無leibiesmallint2職工類型是無根據(jù)規(guī)范化的設(shè)計理念，本管理系統(tǒng)的數(shù)據(jù)分成上面4個表，減少了數(shù)據(jù)的冗余，同時在這些表之間又存在著一些關(guān)聯(lián)關(guān)系。三．設(shè)計說明書； 1．分析與創(chuàng)建數(shù)據(jù)庫； 根據(jù)系統(tǒng)的功能分析結(jié)果，影院售票管理系統(tǒng)將會使用Microsoft SQL Sever 2000 作為后臺的數(shù)據(jù)庫管理系統(tǒng)。（3）過期票務(wù)管理： 電影院里的電影在放過以后，在數(shù)據(jù)庫的電影票數(shù)據(jù)就會變成沒有用的數(shù)據(jù)。（2）工作人員管理： 電影院里當(dāng)然有工作人員的增加與開除，以及他們的管理權(quán)限的變化。整個系統(tǒng)的結(jié)構(gòu)如下圖1所示：影院售票管理系統(tǒng)xiop工作人員登錄維護系統(tǒng)檢票系統(tǒng)售票系統(tǒng)影片播放管理工作人員管理過期票務(wù)管理以下分別介紹系統(tǒng)中數(shù)據(jù)系統(tǒng)3個子模塊。由此來決定讓不讓觀眾入場。是隨機生成的。不同的位置有不同的價格。二．項目開發(fā)計劃書； 根據(jù)需求分析的結(jié)果，本小組成員討論協(xié)商，決定本系統(tǒng)主要劃分為以下三個子模塊：售票管理模塊、檢票管理模塊、數(shù)據(jù)管理模塊。兩者可以當(dāng)一回事處理。為了工作機制簡單有序，必然要引進一套管理系統(tǒng)。當(dāng)然，電影院也不除外。但是，仍然有很多人喜歡到電影院去看電影。因為家里的氣氛畢竟不如影院好。其實電影院的管理系統(tǒng)應(yīng)該來說比其他的社會服務(wù)系統(tǒng)的管理要簡單一點。2．需求分析；具體而言，影院售票系統(tǒng)需要實現(xiàn)以下的需求：（1） 能夠?qū)Σシ烹娪?，工作人員，售票事宜，檢票事宜，無用數(shù)據(jù)進行處理。（3） 檢票管理事宜要完成觀眾進場時檢票的事宜。影院售票管理系統(tǒng)是一個基于電影院工作人員的系統(tǒng)，不同類型的用戶在系統(tǒng)中有不同的權(quán)限。要選購哪個位置由觀眾決定。用于對電影票真假的辯識。（3）維護系統(tǒng)模塊 此模塊是由電影院的數(shù)據(jù)庫管理員來管理的。（1）影片播放管理模塊 影片播放管理是對電影院播放的電影的充實，設(shè)定電影的播放，以及電影時間的設(shè)定。這一部分事件的發(fā)生都需要數(shù)據(jù)庫管理人員將有關(guān)數(shù)據(jù)進行處理。通過此管理可以把那些沒用的過期的數(shù)據(jù)清除。本管理系統(tǒng)是應(yīng)用于電影院中，而且需要和數(shù)據(jù)庫之間進行頻繁數(shù)據(jù)交換，所以采用Microsoft SQL Sever 2000 作為后臺的數(shù)據(jù)庫管理系統(tǒng)。這四個表之間的這兩種關(guān)系表現(xiàn)在下圖所示的關(guān)系： 2．創(chuàng)建登陸窗體模塊； （1）窗體模塊的功能 登陸窗體 （2）窗體界面的設(shè)計 在工程中添加一個窗體，命名為“登陸系統(tǒng)”，用來作為系統(tǒng)登陸窗體。連接對象 Dim my As New SqlCommand 39。 = mycon 39。通過 MYCON 連接對象操作數(shù)據(jù)庫 = 39。不同的座位有不同的價格。（3） 代碼編寫 Imports Public Class Form2 Inherits Dim navigator As BindingManagerBase 39。() = E:\實驗運行場\\電影院票務(wù)系統(tǒng)\image\ () = E:\實驗運行場\\電影院票務(wù)系統(tǒng)\image\ () 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 = initial catalog=ticketbooking。通過 MYCON 連接對象操作數(shù)據(jù)庫 = 39。password=。 + + 39。 + + 39。user id=sa。設(shè)置命令類型 = mycon = Try () = select palydate from Movies where movie_name= 39。 = my1 = my11 (myds1, tickets) (myds11, Movies) dt1 = (tickets) dt11 = (Movies) Catch ex As Exception () End Try Try If = 0 Then (還未出售！) = (0)(palydate) revoke_seat() Else ShowSellInfo(dt1) = (0)(palydate) End If Catch ex