基于vb的影院售票管理系统设计与实现含详细源程序

基于vb的影院售票管理系统设计与实现含详细源程序内容摘要：

initial catalog=ticketbooking。 user id=sa。 password=。 = mycon4 39。 通过 MYCON 连接对象操作数据库 = 39。 设置命令类型 tickethao = tuipiao() Catch ex As Exception () End Try If tickethao = 0 Then (座位号输入错误，请重新输入。 , 错误) Else Try () = delete from tickets where ticketsid= + CStr(tickethao) + Try () (退票成功。 , 谢谢观看) Catch ex As Exception MsgBox() End Try Catch ex As Exception MsgBox() End Try End If () = = = = = = revoke_seat() End Sub Private Sub Button3_Click_1(ByVal sender As , ByVal e As ) Handles = = If = Then (请输入座位号。 , 提示) End I Dim mydataadapter2 As New SqlDataAdapter Dim myds2 As New DataSet Dim dt2 As New DataTable Dim my2 As New SqlCommand = initial catalog=ticketbooking。 user id=sa。 password=。 = mycon 39。 通过 MYCON 连接对象操作数据库 = 39。 设置命令类型 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）创建模块的功能对进场观众检票，如果发现有假票或无票观众不允许入内。 （2）创建模块的窗体 在工程中添加一个窗体，命名为“检票系统”，用来作为检票系统窗体。 界面 的设计如下图所示。 （3）代码编写 Imports Public Class Form3Inherits Dim ds1 As New DataSet Dim sqlda1 As New SqlDataAdapter Dim RecordCount As Integer Private Sub Form3_Load(ByVal sender As , ByVal e As ) Handles = E:\实验运行场\\电影院票务系统\image\ () = E:\实验运行场\\电影院票务系统\image\ () Dim sqlcmd1 As New SqlCommand Dim str1 As String = select * from tickets = sql1 = str1 = sqlcmd1 Try () () Catch ex As SqlException MsgBox() Finally () End Try Try (ds1) Catch ex As SqlException MsgBox() End Try RecordCount = (0). = RecordCount End Sub Private Sub Button1_Click_1(ByVal sender As , ByVal e As ) Handles Dim i As Integer Dim flag As Boolean = False If = Then = 请认真填写票号。 () Exit Sub End If If = Then = 请填写验证码。 () Exit Sub End If For i = 0 To RecordCount 1 If = CStr((0).Rows(i)(ticketsid)) And = CStr((0).Rows(i)(yanzhengma)) Then flag = True Exit For End If Next If flag = True Then Try = (0).Rows(i)(seatid) = (0).Rows(i)(movie_name) = (0).Rows(i)(price) Catch ex As Exception MsgBox() End Try = 此票为真。 Else = 此票为假。 End If = RecordCount End Sub Private Sub Button2_Click_1(ByVal sender As , ByVal e As ) Handles = = = = = = = () End Sub Private Sub Button3_Click_1(ByVal sender As , ByVal e As ) Handles Dim exitform As New Form7 If = Then () () () End If End SubEnd Class（1）创建模块的功能 给数据库维护工作人员选择维护的系统数据库（2）创建模块的设计 在工程中添加一个窗体，命名为“维护系统”，用来作为维护系统窗体。 界面 的设计如下图所示。 （3）代码编写Public Class Form8Inherits Private Sub Form8_Load(ByVal sender As , ByVal e As ) Handles = E:\实验运行场\\电影院票务系统\image\ () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim frm4 As New Form4 () () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim frm6 As New Form6 () () End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim frm9 As New Form9 () () End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim exitform As New Form7 If = Then () () () End If End SubEnd Class（1）创建模块的功能 对电影库播放列表的管理（2）创建模块的设计 在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。 界面 的设计如下图所示。 （3）代码编写 Dim sqlAdapter As New SqlDataAdapter Dim movieRow As DataRow Dim RecordCount As Integer Dim i As Integer = 0 Dim idnum(2000) As Integer Dim CurrentPosition As Integer Sub ShowPosition() RecordCount = If RecordCount = 0 Then = 无记录 Else CurrentPosition = (DataSet11, Movies).Position movieRow = (CurrentPosition) = (movie_id) idnum(i) = i += 1 = (movie_name) = (actor) = (actress) = (producer) = (palydate) = CurrentPosition + 1 amp。 / amp。 RecordCount End If End Sub Private Sub Form4_Load(ByVal sender As , ByVal e As ) Handles () (DataSet11) ShowPosition() End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Han。