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

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

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

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

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

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

6、“登陆系统”，用来作为系统登陆窗体。界面 的设计如图3所示。（3）窗体代码Imports System.Data.SqlClientPublic Class Form1Inherits System.Windows.Forms.FormDim navigator As BindingManagerBase 用来对记录导航Dim mycon As New SqlConnection 连接对象Dim mycom As New SqlCommand 命令对象 Dim mycom1 As New SqlCommandDim frm2 As New Form2Dim frm3 As New Form3D

7、im frm8 As New Form8Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickStatusBar1.Panels(0).Text = DateTime.TodayStatusBar1.Panels(1).Text = DateTime.Now.ToString(T)End SubPrivate Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System

8、.EventArgs) Handles GroupBox1.EnterIf RadioButton1.Checked = True ThenRadioButton2.Checked = FalseRadioButton3.Checked = FalseElseIf RadioButton2.Checked = True ThenRadioButton1.Checked = FalseRadioButton3.Checked = FalseElseIf RadioButton3.Checked = True ThenRadioButton1.Checked = FalseRadioButton2

9、.Checked = FalseEnd IfEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickAxShockwaveFlash1.Movie = E:实验运行场VB.NET程序设计电影院票务系统image登陆界面1.swfAxShockwaveFlash1.Playing = FalseAxShockwaveFlash1.Stop()Dim tox1 As Int32Dim tox2 As Int32Dim mydat

10、aadapter As New SqlDataAdapterDim myds As New DataSetDim i As IntegerDim j As Integertox1 = Val(TextBox1.Text)tox2 = Val(TextBox2.Text)mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom.Connection = mycon 通过 MYCON 连接对象操作数据库mycom.CommandType = CommandType.Text 设置命令类型myc

11、om.CommandText = select * from workers 设置要执行的命令Trymycon.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).ItemArray(0) Thenj = 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 Then