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

1一．系统概述；1．设计需求；现在中国大部分的家庭都喜欢在家里置办属于自己风格的家庭影院。但是，仍然有很多人喜欢到电影院去看电影。因为家里的气氛毕竟不如影院好。所以，现代家庭影院的出现并不会让电影院没有生路。每个社会服务系统都有自己的一套管理机制。当然，电影院也不除外。其实电影院的管理系统应该来说比其他的社会服务系统的管理要简单一点。电影院不外乎是引进电影，制定播放影片的时间表，买票，检票进场观看，还有就是一些数据管理方面的事。如工作人员管理，票务管理等等。为了工作机制简单有序，必然要引进一套管理系统。2．需求分析；具体而言，影院售票系统需要实现以下的需求：（1）能够对播放电影，工作人员，售票事宜，检票事宜，无用数据进行处理。（2）售票管理自然有专人负责，要处理各电影的电影票销售问题。当然包括退票问题，还有就是预订电影票其实也就相当于买票。两者可以当一回事处理。（3）检票管理事宜要完成观众进场时检票的事宜。其中包括了电影票的真假检测问题。（4）数据管理要处理电影的播放的次序，工作人员的管理，以及过期电影票的处理问题。二．结构设计电影电影号电影名称主演导演生产地上映时间座位座位编号座位票价是否售出电影票电影号电影名座位号价格电影票号上映时间映时间验证码职工信息职工号职工类型职工密码2三．设计说明1．分析与创建数据库；根据系统的功能分析结果，影院售票管理系统将会使用MicrosoftSQLSever2000作为后台的数据库管理系统。本管理系统是应用于电影院中，而且需要和数据库之间进行频繁数据交换，所以采用MicrosoftSQLSever2000作为后台的数据库管理系统。在本管理系统中，需要掌握影库充实信息，职工管理信息，票务管理信息，此外，由于要进行职工管理，还需要掌握使用本系统的职工。表1存储硬库信息列表，表2存储了电影院座位的相关数据连接关系，表3存储了电影票销售情况管理，表4存储了系统使用者职工的相关情况的管理列表。表1影库管理表---MOVIES字段名称数据类型字段属性字段大小作用必填字段索引是否主键Movie_idsmallint2电影号是有（无重复）是Movie_nameNvarchar50电影名称是无actorNvarchar50导演否无actressNvarchar50主演否无producerNvarchar25制片厂否无palydatedatetime8上映时间是无表2电影院座位管理表---SEATS字段名称数据类型字段属性字段大小作用必填字段索引是否主键seatidsmallint2座位号是有（无重复）是pricefloat8票价是无soldornotsmallint2是否售出是无表3电影票信息表---TICKETS字段名称数据类型字段属性字段大小作用必填字段索引是否主键ticketsidsmallint2电影票号是有（无重复）是seatidsmallint2座位号是有Movie_idsmallint2电影号是有Movie_nameNvarchar50电影名否无palydatedatetime8上映时间是无pricefloat8价格是无yanzhengmasmallint2验证码是无是3表4职工信息表---WORKERS字段名称数据类型字段属性字段大小作用必填字段索引是否主键workeridsmallint2职工号是无是passwordsmallint2职工密码是无leibiesmallint2职工类型是无根据规范化的设计理念，本管理系统的数据分成上面4个表，减少了数据的冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关系表现在下图所示的关系：2．创建登陆窗体模块；（1）窗体模块的功能登陆窗体（2）窗体界面的设计在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面的设计如图3所示。（3）窗体代码ImportsSystem.Data.SqlClientPublicClassForm1InheritsSystem.Windows.Forms.FormDimnavigatorAsBindingManagerBase'用来对记录导航DimmyconAsNewSqlConnection'连接对象DimmycomAsNewSqlCommand'命令对象Dimmycom1AsNewSqlCommandDimfrm2AsNewForm2Dimfrm3AsNewForm34Dimfrm8AsNewForm8PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickStatusBar1.Panels(0).Text=DateTime.TodayStatusBar1.Panels(1).Text=DateTime.Now.ToString(T)EndSubPrivateSubGroupBox1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesGroupBox1.EnterIfRadioButton1.Checked=TrueThenRadioButton2.Checked=FalseRadioButton3.Checked=FalseElseIfRadioButton2.Checked=TrueThenRadioButton1.Checked=FalseRadioButton3.Checked=FalseElseIfRadioButton3.Checked=TrueThenRadioButton1.Checked=FalseRadioButton2.Checked=FalseEndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickAxShockwaveFlash1.Movie=E:\实验运行场\VB.NET程序设计\电影院票务系统\image\登陆界面1.swfAxShockwaveFlash1.Playing=FalseAxShockwaveFlash1.Stop()Dimtox1AsInt32Dimtox2AsInt32DimmydataadapterAsNewSqlDataAdapterDimmydsAsNewDataSetDimiAsIntegerDimjAsIntegertox1=Val(TextBox1.Text)tox2=Val(TextBox2.Text)mycon.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycom.Connection=mycon'通过MYCON连接对象操作数据库mycom.CommandType=CommandType.Text'设置命令类型mycom.CommandText=select*fromworkers'设置要执行的命令Trymycon.Open()mydataadapter.SelectCommand=mycomCatchexAsExceptionMessageBox.Show(连接失败)Finallymycon.Close()5EndTrymydataadapter.Fill(myds,workers)Fori=0Tomyds.Tables(workers).Rows.Count-1Iftox1=Val(myds.Tables(workers).Rows(i).ItemArray(0))Thenj=0ExitForElsej=1EndIfNextFori=0Tomyds.Tables(workers).Rows.Count-1Iftox2=Val(myds.Tables(workers).Rows(i).ItemArray(1))Thenj=0ExitForElsej=1EndIfNextIfj=1ThenMessageBox.Show(您的工号或者密码错误,错误提示,MessageBoxButtons.OK,MessageBoxIcon.Warning)ElseTrymycom1.Connection=mycon'通过MYCON连接对象操作数据库mycom1.CommandType=CommandType.Text'设置命令类型mycom1.CommandText=selectleibiefromworkerswhereworkerid=+CStr(tox1)+andpassword=+CStr(tox2)+'设置要执行的命令Dimmydataadapter1AsNewSqlDataAdaptermydataadapter1.SelectCommand=mycom1Dimmyds1AsNewDataSetmydataadapter1.Fill(myds1,workers)IfRadioButton1.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie))=1Thenfrm2.Show()Me.Hide()ElseIfRadioButton2.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie))=2Thenfrm3.Show()Me.Hide()ElseIfRadioButton3.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie))=3Thenfrm8.Show()Me.Hide()Else6MessageBox.Show(您超出职责范围或未选择服务系统，请重新输入！,错误提示,MessageBoxButtons.OK,MessageBoxIcon.Warning,MessageBoxDefaultButton.Button1)EndIfCatchexAsExceptionEndTryEndIfEndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadAxShockwaveFlash1.Movie=E:\实验运行场\VB.NET程序设计\电影院票务系统\image\登陆界面1.swfAxShockwaveFlash1.Play()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()Application.Exit()EndIfEndSubEndClass3．创建售票窗体模块（1）窗体模块的功能为观众提供买票服务。在界面上观众可以看见座位的情况，根据此来选择自己喜欢的座位。不同的座位有不同的价格。此窗体还有退票功能。（2）窗体界面的设计在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗体。界面的设计如下图所示。（3）代码编写ImportsSystem.Data.SqlClientPublicClassForm2InheritsSystem.Windows.Forms.FormDimnavigatorAsBindingManagerBase'用来对记录导航DimmyconAsNewSqlConnection'连接对象DimmycomAsNewSqlCommand'命令对象7PrivateSubForm2_Load(ByValsenderA