用数据库设计影院售票管理系统

1、一系统概述；1设计需求； 现在中国大部分的家庭都喜爱在家里置办属于自己风格的家庭影院。但是，仍旧有许多人喜爱到电影院去看电影。因为家里的气氛终归不如影院好。所以，现代家庭影院的出现并不会让电影院没有生路。 每个社会服务系统都有自己的一套管理机制。当然，电影院也不除外。其实电影院的管理系统应当来说比其他的社会服务系统的管理要简洁一点。电影院不外乎是引进电影，制定播放影片的时辰表，买票，检票进场观看，还有就是一些数据管理方面的事。如工作人员管理，票务管理等等。为了工作机制简洁有序，必定要引进一套管理系统。2需求分析；详细而言，影院售票系统须要实现以下的需求：（1） 能够对播放电影，工作人员，售票事

2、宜，检票事宜，无用数据进行处理。（2） 售票管理自然有专人负责，要处理各电影的电影票销售问题。当然包括退票问题，还有就是预订电影票其实也就相当于买票。两者可以当一回事处理。（3） 检票管理事宜要完成观众进场时检票的事宜。其中包括了电影票的真假检测问题。（4） 数据管理要处理电影的播放的次序，工作人员的管理，以及过期电影票的处理问题。电影电影号电影名称主演导演生产地上映时间二结构设计座位座位编号座位票价是否售出电影票电影号电影名座位号 价格电影票号上映时间 映时间 验证码职工信息职工号职工类型职工密码三设计说明 1分析和创建数据库； 依据系统的功能分析结果，影院售票管理系统将会运用Mi

3、crosoft SQL Sever 2000 作为后台的数据库管理系统。本管理系统是应用于电影院中，而且须要和数据库之间进行频繁数据交换，所以采纳Microsoft SQL Sever 2000 作为后台的数据库管理系统。在本管理系统中，须要驾驭影库充溢信息，职工管理信息，票务管理信息，此外，由于要进行职工管理，还须要驾驭运用本系统的职工。表1存储硬库信息列表，表2存储了电影院座位的相关数据连接关系，表3存储了电影票销售状况管理，表4存储了系统运用者职工的相关状况的管理列表。表1 影库管理表-MOVIES字段名称数据类型字段属性字段大小作用必填字段索引是否主键Movie_idsmallint2

4、电影号是有（无重复）是Movie_nameNvarchar50电影名称是无actorNvarchar50导演否无actressNvarchar50主演否无producerNvarchar25制片厂否无palydatedatetime8上映时间是无表2 电影院座位管理表-SEATS字段名称数据类型字段属性字段大小作用必填字段索引是否主键seatidsmallint2座位号是有（无重复）是pricefloat8票价是无soldornotsmallint2是否售出是无表3 电影票信息表-TICKETS字段名称数据类型字段属性字段大小作用必填字段索引是否主键ticketsidsmallint2电影票号

5、是有（无重复）是seatidsmallint2座位号是有Movie_idsmallint2电影号是有Movie_nameNvarchar50电影名否无palydatedatetime8上映时间是无pricefloat8价格是无yanzhengmasmallint2验证码是无是表4 职工信息表-WORKERS字段名称数据类型字段属性字段大小作用必填字段索引是否主键workeridsmallint2职工号是无是passwordsmallint2职工密码是无leibiesmallint2职工类型是无依据规范化的设计理念，本管理系统的数据分成上面4个表，削减了数据的冗余，同时在这些表之间又存在着一些关

6、联关系。这四个表之间的这两种关系表现在下图所示的关系： 2创建登陆窗体模块； （1）窗体模块的功能 登陆窗体 （2）窗体界面的设计 在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面 的设计如图3所示。 （3）窗体代码 ImportsPublic Class Form1 Inherits Dim navigator As BindingManagerBase '用来对记录导航 Dim mycon As New SqlConnection '连接对象 Dim mycom As New SqlCommand '吩咐对象 Dim mycom1 As New

7、SqlCommand Dim frm2 As New Form2 Dim frm3 As New Form3Dim frm8 As New Form8Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick StatusBar1.Panels(0).Text = DateTime.Today StatusBar1.Panels(1).Text = DateTime.Now.ToString("T") End Sub Priva

8、te Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter If RadioButton1.Checked = True Then RadioButton2.Checked = False RadioButton3.Checked = False ElseIf RadioButton2.Checked = True Then RadioButton1.Checked = False RadioButton3.Checked = False E

9、lseIf RadioButton3.Checked = True Then RadioButton1.Checked = False RadioButton2.Checked = False End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxShockwaveFlash1.Movie = "E:试验运行场VB.NET程序设计电影院票务系统image登陆界面1.swf" AxS

10、hockwaveFlash1.Playing = False AxShockwaveFlash1.Stop() Dim tox1 As Int32 Dim tox2 As Int32 Dim mydataadapter As New SqlDataAdapter Dim myds As New DataSet Dim i As Integer Dim j As Integer tox1 = Val(TextBox1.Text) tox2 = Val(TextBox2.Text) mycon.ConnectionString = "initial catalog=ticketbooki

11、ng;user id=sa;password=;" mycom.Connection = mycon '通过 MYCON 连接对象操作数据库 mycom.CommandType = CommandType.Text '设置吩咐类型 mycom.CommandText = "select * from workers" '设置要执行的吩咐 Try mycon.Open() mydataadapter.SelectCommand = mycom Catch ex As Exception MessageBox.Show("连接失败&q

12、uot;) Finally mycon.Close() End Try mydataadapter.Fill(myds, "workers") For i = 0 To myds.Tables("workers").Rows.Count - 1 If tox1 = Val(myds.Tables("workers").Rows(i).ItemArray(0) Then j = 0 Exit For Else j = 1 End If Next For i = 0 To myds.Tables("workers").

13、Rows.Count - 1 If tox2 = Val(myds.Tables("workers").Rows(i).ItemArray(1) Then j = 0 Exit For Else j = 1 End If Next If j = 1 Then MessageBox.Show("您的工号或者密码错误", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Warning) Else Try mycom1.Connection = mycon '通过 MYCON 连接对象操作数

14、据库 mycom1.CommandType = CommandType.Text '设置吩咐类型 mycom1.CommandText = "select leibie from workers where workerid=" + CStr(tox1) + "and password=" + CStr(tox2) + "" '设置要执行的吩咐 Dim mydataadapter1 As New SqlDataAdapter mydataadapter1.SelectCommand = mycom1 Dim myds1

15、 As New DataSet mydataadapter1.Fill(myds1, "workers") If RadioButton1.Checked = True And Val(myds1.Tables("workers").Rows(0)("leibie") = 1 Then frm2.Show() Me.Hide() ElseIf RadioButton2.Checked = True And Val(myds1.Tables("workers").Rows(0)("leibie")

16、 = 2 Then frm3.Show() Me.Hide() ElseIf RadioButton3.Checked = True And Val(myds1.Tables("workers").Rows(0)("leibie") = 3 Then frm8.Show() Me.Hide() Else MessageBox.Show("您超出职责范围 或未选择服务系统，请重新输入！", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBox

17、DefaultButton.Button1) End If Catch ex As Exception End Try End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AxShockwaveFlash1.Movie = "E:试验运行场VB.NET程序设计电影院票务系统image登陆界面1.swf" AxShockwaveFlash1.Play() End Sub Private Sub

18、Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim exitform As New Form7 If exitform.ShowDialog = DialogResult.OK Then exitform.Close() Me.Close() Application.Exit() End If End SubEnd Class3 创建售票窗体模块（1） 窗体模块的功能 为观众供应买票服务。在界面上观众可以望见座位的状况，依据此来选择自己喜爱的座位。

19、不同的座位有不同的价格。此窗体还有退票功能。（2） 窗体界面的设计 在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗体。界面 的设计如下图所示。（3） 代码编写 ImportsPublic Class Form2 Inherits Dim navigator As BindingManagerBase '用来对记录导航 Dim mycon As New SqlConnection '连接对象 Dim mycom As New SqlCommand '吩咐对象 Private Sub Form2_Load(ByVal sender As System.Obje

20、ct, ByVal e As System.EventArgs) Handles MyBase.Load 'Me.Show() AxShockwaveFlash1.Movie = "E:试验运行场VB.NET程序设计电影院票务系统image销售界面.swf" AxShockwaveFlash1.Play() AxShockwaveFlash2.Movie = "E:试验运行场VB.NET程序设计电影院票务系统image检票界面下.swf" AxShockwaveFlash2.Play() Dim mydataadapter As New SqlD

21、ataAdapter Dim myds As New DataSet Dim i As Integer Dim j As Integer Dim strrow As String Dim dt As New DataTable mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom.Connection = mycon '通过 MYCON 连接对象操作数据库 mycom.CommandType = CommandType.Text '设置吩咐类型

22、 mycom.CommandText = "select * from Movies" '设置要执行的吩咐" Try mycon.Open() mydataadapter.SelectCommand = mycom mydataadapter.Fill(myds, "Movies") Catch ex As Exception MessageBox.Show("连接失败") Finally mycon.Close() End Try Try For i = 0 To myds.Tables("Movies&

23、quot;).Rows.Count - 1 strrow = myds.Tables("Movies").Rows(i)("movie_name") ComboBox1.Items.Add(strrow) Next Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.C

24、lick 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 mycom3 As New SqlCommand Dim mycon3 As New SqlConnection Randomize() suiji = Int(9000 * Rnd() + 1000) Try ticketh

25、ao = tickets_id() moviehao = movieid() mycon3.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom3.Connection = mycon3 '通过 MYCON 连接对象操作数据库 mycom3.CommandType = CommandType.Text '设置吩咐类型 Catch ex As Exception MessageBox.Show(ex.ToString) End Try If ticketha

26、o = 0 Then Try MessageBox.Show("此座位已售出，请重新选择！", "错误") ComboBox1.Text = "" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" Catch ex As Exception MessageBox.Show(ex.ToString)

27、End Try Else Try mycon3.Open() mycom3.CommandText = "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" + CStr(tickethao) + "," + TextBox4.Text + "," + CStr(moviehao) + ",'" + TextBox2.Text + "','&qu

28、ot; + TextBox1.Text + "'," + TextBox5.Text + "," + CStr(suiji) + ")" Dim sql As String sql = "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" + CStr(tickethao) + "," + TextBox4.Text + "," +

29、 CStr(moviehao) + ",'" + TextBox2.Text + "','" + TextBox3.Text + "'," + TextBox5.Text + "," + CStr(suiji) + ")" mydataadapter3.InsertCommand = mycom3 Try mycom3.ExecuteNonQuery() MessageBox.Show("售票胜利！", "感谢观看") Ca

30、tch ex As Exception MsgBox(ex.ToString) End Try Catch ex As Exception MessageBox.Show(ex.ToString) End Try mycon3.Close() ComboBox1.Text = "" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" End

31、 If revoke_seat() End Sub Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged revoke_seat() Dim mydataadapter1 As New SqlDataAdapter Dim mydataadapter11 As New SqlDataAdapter Dim myds1 As New DataSet Dim myds

32、11 As New DataSet Dim dt1 As New DataTable Dim dt11 As New DataTable Dim mycom1 As New SqlCommand Dim mycom11 As New SqlCommand mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom1.Connection = mycon '通过 MYCON 连接对象操作数据库 mycom1.CommandType = CommandType.

33、Text '设置吩咐类型 mycom11.Connection = mycon mycom11.CommandType = CommandType.Text Try mycon.Open() mycom11.CommandText = "select palydate from Movies where movie_name= '" + ComboBox1.Text + "'" mycom1.CommandText = "select * from tickets where movie_name= '"

34、; + ComboBox1.Text + "'" mydataadapter1.SelectCommand = mycom1 mydataadapter11.SelectCommand = mycom11 mydataadapter1.Fill(myds1, "tickets") mydataadapter11.Fill(myds11, "Movies") dt1 = myds1.Tables("tickets") dt11 = myds11.Tables("Movies") Catch

35、 ex As Exception MessageBox.Show(ex.ToString) End Try Try If dt1.Rows.Count = 0 Then MessageBox.Show("还未出售！") TextBox1.Text = dt11.Rows(0)("palydate") revoke_seat() Else ShowSellInfo(dt1) TextBox1.Text = dt11.Rows(0)("palydate") End If Catch ex As Exception End Try myco

36、n.Close() End Sub Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim tickethao As Integer Dim mydataadapter4 As New SqlDataAdapter Dim myds4 As New DataSet Dim dt4 As New DataTable Dim mycom4 As New SqlCommand Dim mycon4 As New SqlConnec

37、tion Try mycon4.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom4.Connection = mycon4 '通过 MYCON 连接对象操作数据库 mycom4.CommandType = CommandType.Text '设置吩咐类型 tickethao = tuipiao() Catch ex As Exception MessageBox.Show(ex.ToString) End Try If tickethao = 0 Th

38、en MessageBox.Show("座位号输入错误，请重新输入！", "错误") Else Try mycon4.Open() mycom4.CommandText = "delete from tickets where ticketsid=" + CStr(tickethao) + "" Try mycom4.ExecuteNonQuery() MessageBox.Show("退票胜利！", "感谢观看") Catch ex As Exception MsgBox(

39、ex.ToString) End Try Catch ex As Exception MsgBox(ex.ToString) End Try End If mycon4.Close() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" ComboBox1.Text = "" revoke_seat() End Sub Private Su

40、b Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox2.Text = ComboBox1.Text TextBox3.Text = TextBox1.Text If TextBox4.Text = "" Then MessageBox.Show("请输入座位号！", "提示") End I Dim mydataadapter2 As New SqlDataAdapter Di

41、m myds2 As New DataSet Dim dt2 As New DataTable Dim mycom2 As New SqlCommand mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;" mycom2.Connection = mycon '通过 MYCON 连接对象操作数据库 mycom2.CommandType = CommandType.Text '设置吩咐类型 Try mycon.Open() mycom2.CommandTex

42、t = "select * from seats where seatid=" + TextBox4.Text + "" mydataadapter2.SelectCommand = mycom2 mydataadapter2.Fill(myds2, "seats") dt2 = myds2.Tables("seats") Catch ex As Exception MessageBox.Show(ex.ToString) End Try TextBox5.Text = dt2.Rows(0)("pric

43、e") mycon.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim exitform As New Form7 If exitform.ShowDialog = DialogResult.OK Then exitform.Close() Me.Close() Application.Exit() End If End Sub End Class4 创建检票界面（1）创建模块的功能

44、对进场观众检票，假如发觉有假票或无票观众不允许入内。（2）创建模块的窗体 在工程中添加一个窗体，命名为“检票系统”，用来作为检票系统窗体。界面 的设计如下图所示。（3）代码编写 ImportsPublic Class Form3Inherits Dim ds1 As New DataSet Dim sqlda1 As New SqlDataAdapter Dim RecordCount As Integer Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AxShockwaveFlash1.Movie = "E:试验运行场VB.NET程序设计电影院票务系统image检票界面.swf" AxShockwaveFlash1.Play() AxShockwaveFlash2.Movie = "E:试验运行场VB.NET程序设计电影院票务系统image检票界