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

一．系统概述；

1．设计需求；

现在中国大部分的家庭都喜欢在家里置办属于自己风格的家庭影院。但是，仍然有很多人喜欢到电影院去看电影。因为家里的气氛毕竟不如影院好。所以，现代家庭影院的出现并不会让电影院没有生路。

每个社会服务系统都有自己的一套管理机制。当然，电影院也不除外。其实电影院的管理系统应该来说比其他的社会服务系统的管理要简单一点。电影院不外乎是引进电影，制定播放影片的时间表，买票，检票进场观看，还有就是一些数据管理方面的事。如工作人员管理，票务管理等等。为了工作机制简单有序，必然要引进一套管理系统。

2．需求分析；

具体而言，影院售票系统需要实现以下的需求：

（1）能够对播放电影，工作人员，售票事宜，检票事宜，无用数据进行处理。

（2）售票管理自然有专人负责，要处理各电影的电影票销售问题。当然包括退票问题，还有就是预订电影票其实也就相当于买票。两者可以当一回事处理。

（3）检票管理事宜要完成观众进场时检票的事宜。其中包括了电影票的真假检测问题。（4）数据管理要处理电影的播放的次序，工作人员的管理，以及过期电影票的处理问题。

三．设计说明

1．分析与创建数据库；

根据系统的功能分析结果，影院售票管理系统将会使用Microsoft SQL Sever 2000 作为后台的数据库管理系统。本管理系统是应用于电影院中，而且需要和数据库之

间进行频繁数据交换，所以采用Microsoft SQL Sever 2000 作为后台的数据库管

理系统。

在本管理系统中，需要掌握影库充实信息，职工管理信息，票务管理信息，此外，

由于要进行职工管理，还需要掌握使用本系统的职工。表1存储硬库信息列表，表

2存储了电影院座位的相关数据连接关系，表3存储了电影票销售情况管理，表4

存储了系统使用者职工的相关情况的管理列表。

表1 影库管理表---MOVIES

表4 职工信息表---WORKERS

字段名称数据类型

字段属性

字段大小作用必填字段索引是否主键

workerid smallint 2 职工号是无是

password smallint 2 职工密码是无

leibie smallint 2 职工类型是无

根据规范化的设计理念，本管理系统的数据分成上面4个表，减少了数据的冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关系表现在下图所示的关系：

2．创建登陆窗体模块；

（1）窗体模块的功能

登陆窗体

（2）窗体界面的设计

在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面

的设计如图3所示。

（3）窗体代码

Imports System.Data.SqlClient

Public Class Form1

Inherits System.Windows.Forms.Form

Dim navigator As BindingManagerBase '用来对记录导航

Dim mycon As New SqlConnection '连接对象

Dim mycom As New SqlCommand '命令对象

Dim mycom1 As New SqlCommand

Dim frm2 As New Form2

Dim frm3 As New Form3

Dim frm8 As New Form8

Private 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

Private 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

ElseIf 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:\实验运行场\程序设计\电影院票务系统\image\登陆界面1.swf"

AxShockwaveFlash1.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=ticketbooking;user id=sa;password=;"

mycom.Connection = mycon '通过 MYCON 连接对象操作数据库

mandType = CommandType.Text '设置命令类型

mandText = "select * from workers" '设置要执行的命令

Try

mycon.Open()

mydataadapter.SelectCommand = mycom

Catch ex As Exception

MessageBox.Show("连接失败")

Finally

mycon.Close()