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

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

2、放电影，工作人员，售票事宜，检票事宜，无用数据进展处理。2 售票管理自然有专人负责，要处理各电影的电影票销售问题。当然包括退票问题，还有就是预订电影票其实也就相当于买票。两者可以当一回事处理。3 检票管理事宜要完成观众进场时检票的事宜。其中包括了电影票的真假检测问题。4 数据管理要处理电影的播放的次序，工作人员的管理，以与过期电影票的处理问题。二结构设计三设计说明1分析与创建数据库；根据系统的功能分析结果，影院售票管理系统将会使用Microsoft SQL Sever 2000 作为后台的数据库管理系统。本管理系统是应用于电影院中，而且需要和数据库之间进展频繁数据交换，所以采用Microsof

3、t SQL Sever 2000 作为后台的数据库管理系统。在本管理系统中，需要掌握影库充实信息，职工管理信息，票务管理信息，此外，由于要进展职工管理，还需要掌握使用本系统的职工。表1存储硬库信息列表，表2存储了电影院座位的相关数据连接关系，表3存储了电影票销售情况管理，表4存储了系统使用者职工的相关情况的管理列表。表1 影库管理表-MOVIES字段名称数据类型字段属性字段大小作用必填字段索引是否主键Movie_idsmallint2电影号是有无重复是Movie_nameNvarchar50电影名称是无actorNvarchar50导演否无actressNvarchar50主演否无produc

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

5、time8上映时间是无pricefloat8价格是无yanzhengmasmallint2验证码是无是表4 职工信息表-WORKERS字段名称数据类型字段属性字段大小作用必填字段索引是否主键workeridsmallint2职工号是无是passwordsmallint2职工密码是无leibiesmallint2职工类型是无根据规化的设计理念，本管理系统的数据分成上面4个表，减少了数据的冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关系表现在如下图所示的关系： 2创建登陆窗体模块； 1窗体模块的功能 登陆窗体 2窗体界面的设计在工程中添加一个窗体，命名为“登陆系统，用来作为系统

6、登陆窗体。界面 的设计如图3所示。 3窗体代码ImportsPublicClass Form1InheritsDim navigator As BindingManagerBase 用来对记录导航Dim mycon AsNew SqlConnection 连接对象Dim my AsNew Sqlmand 命令对象 Dim my1 AsNew SqlmandDim frm2 AsNew Form2Dim frm3 AsNew Form3Dim frm8 AsNew Form8PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e

7、 As System.EventArgs) Handles StatusBar1.Panels(1).Text = DateTime.Now.ToString(T)EndSubPrivateSub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesIf RadioButton1.Checked = TrueThen RadioButton2.Checked = False RadioButton3.Checked = FalseElseIf RadioButton2.Checke

8、d = TrueThen RadioButton1.Checked = False RadioButton3.Checked = FalseElseIf RadioButton3.Checked = TrueThen RadioButton1.Checked = False RadioButton2.Checked = FalseEndIfEndSubPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxShockwaveFlash1.Movie = E:实验

9、运行场VB.NET程序设计电影院票务系统image登陆界面1.swf AxShockwaveFlash1.Playing = False AxShockwaveFlash1.Stop()Dim tox1 As Int32Dim tox2 As Int32Dim mydataadapter AsNew SqlDataAdapterDim myds AsNew DataSetDim i AsIntegerDim j AsInteger tox1 = Val(TextBox1.Text) tox2 = Val(TextBox2.Text) mycon.ConnectionString = initi

10、al catalog=ticketbooking;user id=sa;password=; my.Connection = mycon 通过 MYCON 连接对象操作数据库 my.mandType = mandType.Text 设置命令类型 my.mandText = select * from workers 设置要执行的命令Try mycon.Open() mydataadapter.Selectmand = myCatch ex As Exception MessageBox.Show(连接失败)Finally mycon.Close()EndTry mydataadapter.Fi

11、ll(myds, workers)For i = 0 To myds.Tables(workers).Rows.Count - 1If tox1 = Val(myds.Tables(workers).Rows(i).ItemArray(0) Then j = 0ExitForElse j = 1EndIfNextFor i = 0 To myds.Tables(workers).Rows.Count - 1If tox2 = Val(myds.Tables(workers).Rows(i).ItemArray(1) Then j = 0ExitForElse j = 1EndIfNextIf

12、j = 1 Then MessageBox.Show(您的工号或者密码错误, 错误提示, MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseTry my1.Connection = mycon 通过 MYCON 连接对象操作数据库 my1.mandType = mandType.Text 设置命令类型 my1.mandText = select leibie from workers where workerid= + CStr(tox1) + and password= + CStr(tox2) + 设置要执行的命令Dim mydataadap

13、ter1 AsNew SqlDataAdapter mydataadapter1.Selectmand = my1Dim myds1 AsNew DataSet mydataadapter1.Fill(myds1, workers)If RadioButton1.Checked = TrueAnd Val(myds1.Tables(workers).Rows(0)(leibie) = 1 Then frm2.Show()Me.Hide()ElseIf RadioButton2.Checked = TrueAnd Val(myds1.Tables(workers).Rows(0)(leibie)

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

15、EndIfEndSubPrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load AxShockwaveFlash1.Movie = E:实验运行场VB.NET程序设计电影院票务系统image登陆界面1.swf AxShockwaveFlash1.Play()EndSubPrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesD

16、im exitform AsNew Form7If exitform.ShowDialog = DialogResult.OK Then exitform.Close()Me.Close() Application.Exit()EndIfEndSubEndClass3创建售票窗体模块（1）窗体模块的功能 为观众提供买票服务。在界面上观众可以看见座位的情况，根据此来选择自己喜欢的座位。不同的座位有不同的价格。此窗体还有退票功能。（2）窗体界面的设计 在工程中添加一个窗体，命名为“售票系统，用来作为仓管人员窗体。界面 的设计如如下图所示。（3）代码编写ImportsPublicClass Form

17、2InheritsDim navigator As BindingManagerBase 用来对记录导航Dim mycon AsNew SqlConnection 连接对象Dim my AsNew Sqlmand 命令对象PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadMe.Show() AxShockwaveFlash1.Movie = E:实验运行场VB.NET程序设计电影院票务系统image销售界面.swf AxShockwaveFlas

18、h1.Play() AxShockwaveFlash2.Movie = E:实验运行场VB.NET程序设计电影院票务系统image检票界面下.swf AxShockwaveFlash2.Play()Dim mydataadapter AsNew SqlDataAdapterDim myds AsNew DataSetDim i AsIntegerDim j AsIntegerDim strrow AsStringDim dt AsNew DataTable mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;pas

19、sword=; my.Connection = mycon 通过 MYCON 连接对象操作数据库 my.mandType = mandType.Text 设置命令类型 my.mandText = select * from Movies 设置要执行的命令Try mycon.Open() mydataadapter.Selectmand = my mydataadapter.Fill(myds, Movies)Catch ex As Exception MessageBox.Show(连接失败)Finally mycon.Close()EndTryTryFor i = 0 To myds.Tab

20、les(Movies).Rows.Count - 1 strrow = myds.Tables(Movies).Rows(i)(movie_name) boBox1.Items.Add(strrow)NextCatch ex As Exception MessageBox.Show(ex.ToString)EndTryEndSubPrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim i AsIntegerDim tickethao AsIntegerDi

21、m moviehao AsIntegerDim suiji AsIntegerDim mydataadapter3 AsNew SqlDataAdapterDim myds3 AsNew DataSetDim dt3 AsNew DataTableDim my3 AsNew SqlmandDim mycon3 AsNew SqlConnection Randomize() suiji = Int(9000 * Rnd() + 1000)Try tickethao = tickets_id() moviehao = movieid() mycon3.ConnectionString = init

22、ial catalog=ticketbooking;user id=sa;password=; my3.Connection = mycon3 通过 MYCON 连接对象操作数据库 my3.mandType = mandType.Text 设置命令类型 Catch ex As Exception MessageBox.Show(ex.ToString)EndTryIf tickethao = 0 ThenTry MessageBox.Show(此座位已售出，请重新选择！, 错误) boBox1.Text = TextBox1.Text = TextBox2.Text = TextBox3.Te

23、xt = TextBox4.Text = TextBox5.Text = Catch ex As Exception MessageBox.Show(ex.ToString)EndTryElseTry mycon3.Open() my3.mandText = insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values ( + CStr(tickethao) + , + TextBox4.Text + , + CStr(moviehao) + , + TextBox2.Te

24、xt + , + TextBox1.Text + , + TextBox5.Text + , + CStr(suiji) + )Dim sql AsString sql = insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values ( + CStr(tickethao) + , + TextBox4.Text + , + CStr(moviehao) + , + TextBox2.Text + , + TextBox3.Text + , + TextBox5.Text

25、+ , + CStr(suiji) + ) mydataadapter3.Insertmand = my3Try my3.ExecuteNonQuery() MessageBox.Show(售票成功！, 观看)Catch ex As Exception MsgBox(ex.ToString)EndTryCatch ex As Exception MessageBox.Show(ex.ToString)EndTry mycon3.Close() boBox1.Text = TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text

26、= TextBox5.Text = EndIf revoke_seat()EndSubPrivateSub boBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles revoke_seat()Dim mydataadapter1 AsNew SqlDataAdapterDim mydataadapter11 AsNew SqlDataAdapterDim myds1 AsNew DataSetDim myds11 AsNew DataSetDim dt1 A

27、sNew DataTableDim dt11 AsNew DataTableDim my1 AsNew SqlmandDim my11 AsNew Sqlmand mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; my1.Connection = mycon 通过 MYCON 连接对象操作数据库 my1.mandType = mandType.Text 设置命令类型 my11.Connection = myconTry mycon.Open() my11.mandText = select

28、palydate from Movies where movie_name= + boBox1.Text + my1.mandText = select * from tickets where movie_name= + boBox1.Text + mydataadapter1.Selectmand = my1 mydataadapter11.Selectmand = my11 mydataadapter1.Fill(myds1, tickets) mydataadapter11.Fill(myds11, Movies) dt1 = myds1.Tables(tickets) dt11 =

29、myds11.Tables(Movies)Catch ex As Exception MessageBox.Show(ex.ToString)EndTryTryIf dt1.Rows.Count = 0 Then MessageBox.Show(还未出售！) TextBox1.Text = dt11.Rows(0)(palydate) revoke_seat()Else ShowSellInfo(dt1) TextBox1.Text = dt11.Rows(0)(palydate)EndIfCatch ex As ExceptionEndTry mycon.Close()EndSubPrivateSub Button2_Click_1(ByVal sender As System.Object, ByVal e