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

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

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

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

4、varchar50主演否无producerNvarchar25制片厂否无palydatedatetime8上映时间是无表2电影院座位管理表-SEATS字段名称数据类型字段属性字段大小作用必填字段索引是否主键seatidsmalli nt2座位号是有（无重复）是pricefloat8票价是无soldor notsmalli nt2是否售出是无表3电影票信息表-TICKETS字段名称数据类型字段属性字段大小作用必填字段索引是否主键ticketsidsmalli nt2电影票号是有（无重复）是seatidsmalli nt2座位号是有Movie_idsmalli nt2电影号是有Movie_ nam

5、eNvarchar50电影名否无palydatedatetime8上映时间是无pricefloat8价格是无yan zhe ngmasmalli nt2验证码是无是表4 职工信息表-WORKERS字段名称数据类型字段属性字段大小作用必填字段索引是否主键workeridsmalli nt2职工号是无是passwordsmalli nt2职工密码是无leibiesmalli nt2职工类型是无根据规范化的设计理念，本管理系统的数据分成上面4个表，减少了数据的冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关系表现在下图所示的关系：Ti ckfttsiicketslfutidpric

6、e7i.DxhraEnBSeal-3-上Tvr ker & 刊 in-rkcr Lelhle2 .创建登陆窗体模块;(1) 窗体模块的功能 登陆窗体(2 )窗体界面的设计在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面 的设计如图3所示。(3 )窗体代码Public Class Form1Inherits System.Windows.Forms.FormDim navigator As BindingManagerBaseDim mycon As NewSqlConnectionDim mycom As NewSqlCommandDim mycom1 As NewSqlC

7、ommand用来对记录导航连接对象命令对象Dim frm2 As NewForm2Dim frm3 As NewForm3Dim frm8 As NewForm8Private Sub Timer1_Tick( ByVai sender As System.Object,ByVai e As System.EventArgs) HandlesTimerl.TickStatusBar1.Panels(0).Text = DateTime.TodayEnd SubPrivate Sub GroupBox1_Enter( ByVai sender As System.Object, ByVai e

8、As System.EventArgs)Handles GroupBoxI.EnterIf RadioButtonl.Checked = True ThenRadioButton2.Checked =FalseRadioButton3.Checked =FalseElself RadioButton2.Checked = True ThenRadioButtonl.Checked =FalseRadioButton3.Checked =FalseElself RadioButton3.Checked = True ThenRadioButtonl.Checked =FalseRadioButt

9、on2.Checked =FalseEnd IfEnd SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonl.ClickAxShockwaveFlashl.Movie =实验运行场WB.NET程序设计电影院票务系统登陆界面l.swfAxShockwaveFlashl.Playing =FalseAxShockwaveFlash1.Stop()Dim toxl As Int32Dim tox2 As Int32Dim mydataadapt

10、er As NewSqlDataAdapterDim myds As NewDataSetDim i As IntegerDim j As Integertoxl = Val(TextBoxl.Text)tox2 = Val(TextBox2.Text)mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;通过MYCON连接对象操作数据库 设置命令类型设置要执行的命令mycom.Connection = mycon mycom.CommandType = CommandType.Text myco

11、m.CommandText = select * from workersTrymycon.Open() mydataadapter.SelectCommand = mycomCatch ex As ExceptionMessageBox.Show(”连接失败)Finallymycon.Close()End Trymydataadapter.Fill(myds, workers)For i = 0 To myds.Tables(workers).Rows.Count - 1If tox1 = Val(myds.Tables(workers).Rows(i).ltemArray(O)Thenj

12、= 0Exit ForElsej = 1End IfNextFor i = 0 To myds.Tables(workers).Rows.Count - 1If tox2 = Val(myds.Tables(workers).Rows(i).ItemArray(1)Thenj = 0Exit ForElsej = 1End IfNextIf j = 1 ThenMessageBox.Show(”您的工号或者密码错误 ,错误提示, MessageBoxButtons.OK,MessageBoxIcon.Warning)ElseTrymycom1.Connection = mycon通过 MYCO

13、N连接对象操作数据库mycom1.CommandType = CommandType.Text设置命令类型mycom1.CommandText = select leibie from workers where workerid= +CStr (tox1)+ and password= + CStr (tox2) +设置要执行的命令Dim mydataadapter1 As NewSqlDataAdaptermydataadapter1.SelectCommand = mycom1Dim myds1 As NewDataSetmydataadapter1.Fill(myds1, worker

14、s)If RadioButton1.Checked = True AndVal(myds1.Tables(workers).Rows(0)(leibie) = 1Thenfrm2.Show()MeHide()ElseIf RadioButton2.Checked =True AndVal(myds1.Tables(workers).Rows(0)(leibie) = 2Thenfrm3.Show()MeHide()ElseIf RadioButton3.Checked =True AndVal(myds1.Tables(workers).Rows(0)(leibie) = 3Thenfrm8.

15、Show()MeHide()ElseMessageBox.Show(”您超出职责范围或未选择服务系统，请重新输入！ ,示, MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Buttonl)End IfCatch ex As ExceptionEnd TryEnd IfEnd SubPrivate Sub Form1_Load( ByVai sender As System.Object, ByVai e As System.EventArgs) MyBaseLoadAxShockwaveFlashl.M

16、ovie =实验运行场WB.NET程序设计电影院票务系统l.swfAxShockwaveFlash1.Play()End SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Button2.ClickDim exitform As NewForm7If exitform.ShowDialog = DialogResult.OKThenexitform.Close()MeClose()Application.Exit()End IfEnd SubEnd Class3.

17、创建售票窗体模块(1) 窗体模块的功能为观众提供买票服务。在界面上观众可以看见座位的情况，根据此来选择自己喜欢 的座位。不同的座位有不同的价格。此窗体还有退票功能。(2) 窗体界面的设计在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗体。界面 的设计如下图所示。(3) 代码编写Public Class Form2Dim navigator As BindingManagerBase 用来对记录导航Dim mycon错误提Handles登陆界面HandlesAs NewSqlConnection连接对象As NewSqlCommand命令对象苗&Dim mycomPrivate Su

18、b Form2_Load( ByVai sender As System.Object, ByVai e As System.EventArgs) Handles MyBaseLoadMe.Show()实验运行场WB.NET程序设计电影院票务系统销售界面.swfAxShockwaveFlash1.Play()AxShockwaveFlash2.Movie =实验运行场WB.NET程序设计电影院票务系统检票界面下.swfAxShockwaveFlash2.Play()Dim mydataadapter As NewSqlDataAdapterDim myds As NewDataSetDim i

19、 As IntegerDim j As IntegerDim strrow As StringDim dt As NewDataTablemycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom.Connection = mycon通过 MYCON连接对象操作数据库mycom.CommandType = CommandType.Text 设置命令类型mycom.CommandText = select * from Movies设置要执行的命令Trymycon.Open()mydataa

20、dapter.SelectCommand = mycommydataadapter.Fill(myds, Movies)Catch ex As ExceptionMessageBox.Show(连接失败)Finallymycon.Close()End TryTryFor i = 0 To myds.Tables(Movies).Rows.Count - 1strrow = myds.Tables(Movies).Rows(i)(movie_name)NextCatch ex As ExceptionMessageBox.Show(ex.ToString)End TryEnd SubPrivat

21、e Sub Button1_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Buttonl.ClickDim i As IntegerDim tickethao As IntegerDim moviehao As IntegerDim suiji As IntegerDim mydataadapter3 As NewSqlDataAdapterDim myds3 As NewDataSetDim dt3 As NewDataTableDim mycom3 As NewSqlCommandDi

22、m mycon3 As NewSqlConnectionRandomize。suiji = lnt(9000 * Rnd() + 1000)Trytickethao = tickets_id()moviehao = movieid()mycon3.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom3.Connection = mycon3通过 MYCON连接对象操作数据库mycom3.CommandType = CommandType.Text设置命令类型Catch ex As Excepti

23、onMessageBox.Show(ex.ToString)End TryIf tickethao = 0 ThenTryMessageBox.Show( ComboBoxl.Text = TextBoxl.Text = TextBox2.Text = TextBox3.Text =此座位已售岀，请重新选择！ ，”错误)TextBox4.Text =TextBox5.Text =Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryElseTrymycon3.Open()mycom3.CommandText = insert into

24、tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)values ( + CStr (tickethao) +,+ TextBox4.Text + ,+ CStr (moviehao) + TextBox5.Text + , + CStr (suiji) + )Dim sql As String+ TextBox2.Text + TextBoxl.Text +sql = insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,pr

25、ice,yanzhengma),+ TextBox4.Text + ,+ CStr (moviehao) + ,+ TextBox2.Text +values ( + CStr (tickethao) +,+ TextBox3.Text +,+ TextBox5.Text + , +CStr (suiji) + )mydataadapter3n sertCommand = mycom3Trymycom3.ExecuteNonQuery()MessageBox.Show(”售票成功！,谢谢观看)Catch ex As ExceptionMsgBox(ex.ToString)End TryCatc

26、h ex As ExceptionMessageBox.Show(ex.ToString)End Trymycon3.Close()ComboBox1.Text =TextBox1.Text =TextBox2.Text =TextBox3.Text =TextBox4.Text =TextBox5.Text =End Ifrevoke_seat()End SubPrivate Sub ComboBox1_SelectedlndexChanged_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Com

27、boBox1.SelectedlndexChangedrevoke_seat()Dim mydataadapter1 As NewSqlDataAdapterDim mydataadapter11 As NewSqlDataAdapterDim myds1 As NewDataSetDim myds11 As NewDataSetDim dt1 As NewDataTableDim dt11 As NewDataTableDim mycom1 As NewSqlCommandDim mycom11 As NewSqlCommandmycon.ConnectionString = initial

28、 catalog=ticketbooking;user id=sa;password=;mycom1.Connection = mycon通过 MYCON连接对象操作数据库mycom1.CommandType = CommandType.Text 设置命令类型 mycom11.Connection = myconmycom11.CommandType = CommandType.TextTrymycon.Open()mycom11.CommandText = select palydate from Movies where movie_name= +ComboBox1.Text + myco

29、m1.CommandText = select * from tickets where movie_name= + ComboBoxl.Text+ mydataadapterl.SelectCommand = mycomlmydataadapterll.SelectCommand = mycomllmydataadapter1.Fill(myds1, tickets)mydataadapter11.Fill(myds11, Movies)dt1 = myds1.Tables(tickets)dt11 = myds11.Tables(Movies)Catch ex As ExceptionMe

30、ssageBox.Show(ex.ToString)End TryTryMessageBox.Show(”还未出售！)TextBox1.Text = dt11.Rows(0)(palydate) revoke_seat()ElseShowSelllnfo(dt1)TextBox1.Text = dt11.Rows(0)(palydate)End IfCatch ex As ExceptionEnd Trymycon.Close()End SubPrivate Sub Button2_Click_1( ByVal sender As System.Object, ByVal e As Syste

31、m.EventArgs)Handles Button2.ClickDim tickethao As IntegerDim mydataadapter4 As NewSqlDataAdapterDim myds4 As NewDataSetDim dt4 As NewDataTableDim mycom4 As NewSqlCommandDim mycon4 As NewSqlConnectionTrymycon4.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom4.Connection = m

32、ycon4通过 MYCON连接对象操作数据库mycom4.CommandType = CommandType.Text设置命令类型tickethao = tuipiao()Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryIf tickethao = 0 ThenMessageBox.Show(”座位号输入错误，请重新输入！，”错误)ElseTrymycon4.Open()mycom4.CommandText = delete from tickets where ticketsid= +CStr (tickethao)+ Trym

33、ycom4.ExecuteNonQuery()MessageBox.Show(”退票成功！，”谢谢观看)Catch ex As ExceptionMsgBox(ex.ToString)End TryCatch ex As ExceptionMsgBox(ex.ToString)End TryEnd Ifmycon4.Close()TextBox1.Text =TextBox2.Text =TextBox3.Text =TextBox4.Text =TextBox5.Text =ComboBox1.Text =revoke_seat()End SubPrivate Sub Button3_Cli

34、ck_1( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.ClickTextBox2.Text = ComboBox1.TextTextBox3.Text = TextBox1.TextIf TextBox4.Text = ThenMessageBox.Show(”请输入座位号！，”提示)End IDim mydataadapter2 As NewSqlDataAdapterDim myds2 As NewDataSetDim dt2 As NewDataTableDim mycom2 As

35、 NewSqlCommandmycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom2.Connection = mycon通过 MYCON连接对象操作数据库mycom2.CommandType = CommandType.Text 设置命令类型Trymycon.Open()mycom2.CommandText = select * from seats where seatid= + TextBox4.Text + mydataadapter2.SelectCommand = mycom

36、2mydataadapter2.Fill(myds2, seats)dt2 = myds2.Tables(seats)Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryTextBox5.Text = dt2.Rows(0)(price)mycon.Close()End SubPrivate Sub Button4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim exitform As NewForm

37、7If exitform.ShowDialog = DialogResult.OKThenexitform.Close()MeClose()Application.Exit()End IfEnd SubEnd Class4. 创建检票界面(1)创建模块的功能对进场观众检票，如果发现有假票或无票观众不允许入内。(2 )创建模块的窗体在工程中添加一个窗体，命名为“检票系统”，用来作为检票系统窗体。界面 的设计如下图所示。(3 )代码编写Public Class Form3Dim ds1 As NewDataSetDim sqlda1 As NewSqlDataAdapterDim RecordCo

38、unt As IntegerPrivate Sub Form3_Load( ByVai sender As System.Object, ByVal e As System.EventArgs) MyBaseLoad实验运行场WB.NET程序设计电影院票务系统面.swfAxShockwaveFlash1.Play()AxShockwaveFlash2.Movie =实验运行场WB.NET程序设计电影院票务系统Handles检票界检票界面下.swfAxShockwaveFlash2.Play()Dim sqlcmd1 As NewSqlCommandDim str1 As String = se

39、lect * from tickets sqlcmd1.Connection = sqlcn1 sqlcmd1.CommandText = str1 sqlda1.SelectCommand = sqlcmd1Trysqlcn1.Open()sqlcmd1.ExecuteNonQuery()Catch ex As SqlExceptionMsgBox(ex.Message)Finallysqlcn1.Close()End TryTrysqlda1.Fill(ds1)Catch ex As SqlExceptionMsgBox(ex.Message)End TryRecordCount = ds

40、1.Tables(0).Rows.CountTextBox6.Text = RecordCountEnd SubPrivate Sub Button1_Click_1( ByVai sender As System.Object, ByVai e As System.EventArgs)Handles Buttonl.ClickDim i As IntegerDim flag As Boolean = FalseIf TextBoxl.Text =ThenTextBox7.Text =请认真填写票号!TextBox1.Focus()Exit SubEnd IfIf TextBox2.Text

41、=ThenTextBox7.Text =请填写验证码！TextBox2.Focus()Exit SubEnd IfAnd TextBox2.Text =For i = 0 To RecordCount - 1If TextBoxl.Text = CStr (ds1.Tables(0).Rows(i)(ticketsid)CStr (ds1.Tables(0).Rows(i)(yanzhengma)Thenflag =TrueExit ForEnd IfNextIf flag = True ThenTryTextBox3.Text = ds1.Tables(0).Rows(i)(seatid)T

42、extBox4.Text = ds1.Tables(0).Rows(i)(movie_name)TextBox5.Text = ds1.Tables(0).Rows(i)(price)Catch ex As ExceptionMsgBox(ex.Message)End TryTextBox7.Text =此票为真！ElseTextBox7.Text =此票为假！End IfTextBox6.Text = RecordCountEnd SubPrivate Sub Button2_Click_1( ByVai sender As System.Object, ByVai e As System.

43、EventArgs) Handles Button2.ClickTextBoxl.Text =TextBox2.Text =TextBox3.Text =TextBox4.Text =TextBox5.Text =TextBox6.Text =TextBox7.Text =TextBox1.Focus()End SubPrivate Sub Button3_Click_1( ByVai sender As System.Object, ByVai e As System.EventArgs)Handles Button3.ClickDim exitform As NewForm7If exit

44、form.ShowDialog = DialogResult.OKThenexitform.Close()MeClose()Application.Exit()End IfEnd SubEnd Class5. 创建维护界面(i)创建模块的功能给数据库维护工作人员选择维护的系统数据库(2 )创建模块的设计在工程中添加一个窗体，命名为“维护系统”，用来作为维护系统窗体。界面的设计如下图所示。诫遼择护的果孩I 处憲齡it工畫披BurntI1 出(3 )代码编写Public Class Form8Private Sub Form8_Load( ByVal sender As System.Object

45、, ByVal e As System.EventArgs) HandlesMyBaseLoad实验运行场WB.NET程序设计电影院票务系统登陆界面.swfAxShockwaveFlash1.Play()End SubPrivate Sub Button1_Click( ByVal sender As System.Object, Button1.ClickDim frm4 As NewForm4frm4.Show()MeHide()End SubPrivate Sub Button2_Click( ByVal sender As System.Object, Button2.ClickDim

46、 frm6 As NewForm6frm6.Show()MeHide()End SubPrivate Sub Button3_Click( ByVal sender As System.Object, Button3.ClickDim frm9 As NewForm9frm9.Show()MeHide()End SubPrivate Sub Button4_Click( ByVal sender As System.Object, Button4.ClickDim exitform As NewForm7If exitform.ShowDialog = DialogResult.OKThene

47、xitform.Close()ByVal e As System.EventArgs)ByVal e As System.EventArgs)ByVal e As System.EventArgs)ByVal e As System.EventArgs)HandlesHandlesHandlesHandlesMeClose()Application.Exit()End IfEnd SubEnd Class1 .创建影库界面(1 )创建模块的功能对电影库播放列表的管理(2 )创建模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界面 的设计如下图所示。影片名刖蘇竜 辱 溝

48、垂诃耀tti(3 )代码编写Dim sqIAdapter As NewSqlDataAdapterDim movieRow As DataRowDim RecordCount As IntegerDim i As Integer = 0Dim idnum(2000) As IntegerDim CurrentPosition As IntegerSub ShowPosition()Then无记录MeBindingContext(DataSet11, Movies).PositionIf RecordCount = 0TextBox1.Text =Else CurrentPosition =Te

49、xtBox1.Text = movieRow.ltem(movie_id)idnum(i) = TextBox1.Texti += 1TextBox2.Text = movieRow.Item(movie_name)TextBox3.Text = movieRow.Item(actor)TextBox4.Text = movieRow.Item(actress)TextBox5.Text = movieRow.Item(producer)TextBox6.Text = movieRow.ltem(palydate)TextBox7.Text = CurrentPosition + 1 & /

50、& RecordCountEnd IfEnd SubHandlesPrivate Sub Form4_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) MyBaseLoadDataSet11.Clear()MeSqlDataAdapterl.Fill(DataSetll)ShowPosition()End SubHandlesPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Buttonl.

51、ClickIf MeBindingContext(DataSet11, Movies).Position 0ThenMeBindingContext(DataSet11, Movies).Position -= 1ShowPosition()ElseMessageBox.Show(”已到达首记录！,提示信息)End IfEnd SubHandlesPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Button2.ClickIf MeBindingContext(DataS

52、et11, Movies).Position RecordCount - 1ThenMeBindingContext(DataSet11, Movies).Position += 1ShowPosition()ElseMessageBox.Show(”已到达尾记录！,提示信息)End IfHandlesEnd SubPrivate Sub Button4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Button4.ClickMeBindingContext(DataSet11, Movies).Position = RecordCount - 1ShowPosition()HandlesEnd SubPrivate Sub Button5_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Button5.Click 添加数据Dim j As IntegerDim flag As Boolean = TrueFor j = 0 To iIf