【正文】 ers) 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） 窗體模塊的功能 為觀眾提供買票服務。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。不同的座位有不同的價格。此窗體還有退票功能。（2） 窗體界面的設計 在工程中添加一個窗體，命名為“售票系統(tǒng)”，用來作為倉管人員窗體。界面 的設計如下圖所示。（3） 代碼編寫 Imports Public Class Form2 Inherits Dim navigator As BindingManagerBase 39。用來對記錄導航 Dim mycon As New SqlConnection 39。連接對象 Dim my As New SqlCommand 39。命令對象 Private Sub Form2_Load(ByVal sender As , ByVal e As ) Handles 39。() = E:\實驗運行場\\電影院票務系統(tǒng)\image\ () = E:\實驗運行場\\電影院票務系統(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。user id=sa。password=。 = mycon 39。通過 MYCON 連接對象操作數(shù)據(jù)庫 = 39。設置命令類型 = select * from Movies 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。user id=sa。password=。 = mycon3 39。通過 MYCON 連接對象操作數(shù)據(jù)庫 = 39。設置命令類型 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。 + + 39。,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。,39。 + + 39。, + + , + CStr(suiji) + ) = my3 Try () (售票成功！, 謝謝觀看) Catch ex As Exception MsgBox() End 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。user id=sa。password=。 = mycon 39。通過 MYCON 連接對象操作數(shù)據(jù)庫 = 39。設置命令類型 = mycon = Try () = select palydate from Movies where movie_name= 39。 + + 39。 = select * from tickets where movie_name= 39。 + + 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 As Exception End Try () End Sub Private Sub Button2_Click_1(ByVal sender As , ByVal e As ) Handles Dim tickethao As Integer Dim mydataadapter4 As New SqlDataAdapter Dim myds4 As New DataSet Dim dt4 As New DataTable Dim my4 As New SqlCommand Dim mycon4 As New SqlConnection Try =