用数据库设计影院售票管理系统Word文档格式.doc

用数据库设计影院售票管理系统Word文档格式.doc

《用数据库设计影院售票管理系统Word文档格式.doc》由会员分享，可在线阅读，更多相关《用数据库设计影院售票管理系统Word文档格式.doc（26页珍藏版）》请在冰豆网上搜索。

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

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

（2）售票管理自然有专人负责，要处理各电影的电影票销售问题。

当然包括退票问题，还有就是预订电影票其实也就相当于买票。

两者可以当一回事处理。

（3）检票管理事宜要完成观众进场时检票的事宜。

其中包括了电影票的真假检测问题。

（4）数据管理要处理电影的播放的次序，工作人员的管理，以及过期电影票的处理问题。

电影

电影号

电影名称

主演

导演

生产地

上映时间

二．结构设计座位

座位编号

座位票价

是否售出

电影票

电影名

座位号

价格

电影票号

上映时间映时间

验证码

职工信息

职工号

职工类型

职工密码

三．设计说明

1．分析与创建数据库；

根据系统的功能分析结果，影院售票管理系统将会使用MicrosoftSQLSever2000作为后台的数据库管理系统。

本管理系统是应用于电影院中，而且需要和数据库之间进行频繁数据交换，所以采用MicrosoftSQLSever2000作为后台的数据库管理系统。

在本管理系统中，需要掌握影库充实信息，职工管理信息，票务管理信息，此外，由于要进行职工管理，还需要掌握使用本系统的职工。

表1存储硬库信息列表，表2存储了电影院座位的相关数据连接关系，表3存储了电影票销售情况管理，表4存储了系统使用者职工的相关情况的管理列表。

表1影库管理表---MOVIES

字段名称

数据类型

字段属性

字段大小

作用

必填字段

索引

是否主键

Movie_id

smallint

2

是

有（无重复）

Movie_name

Nvarchar

50

无

actor

否

actress

producer

25

制片厂

palydate

datetime

8

表2电影院座位管理表---SEATS

seatid

price

float

票价

soldornot

表3电影票信息表---TICKETS

ticketsid

有

价格

yanzhengma

表4职工信息表---WORKERS

workerid

password

leibie

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

这四个表之间的这两种关系表现在下图所示的关系：

2．创建登陆窗体模块；

（1）窗体模块的功能

登陆窗体

（2）窗体界面的设计

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

界面

的设计如图3所示。

（3）窗体代码

ImportsSystem.Data.SqlClient

PublicClassForm1

InheritsSystem.Windows.Forms.Form

DimnavigatorAsBindingManagerBase'

用来对记录导航

DimmyconAsNewSqlConnection'

连接对象

DimmycomAsNewSqlCommand'

命令对象

Dimmycom1AsNewSqlCommand

Dimfrm2AsNewForm2

Dimfrm3AsNewForm3

Dimfrm8AsNewForm8

PrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTimer1.Tick

StatusBar1.Panels（0）.Text=DateTime.Today

StatusBar1.Panels

（1）.Text=DateTime.Now.ToString（"

T"

）

EndSub

PrivateSubGroupBox1_Enter（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesGroupBox1.Enter

IfRadioButton1.Checked=TrueThen

RadioButton2.Checked=False

RadioButton3.Checked=False

ElseIfRadioButton2.Checked=TrueThen

RadioButton1.Checked=False

ElseIfRadioButton3.Checked=TrueThen

EndIf

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

AxShockwaveFlash1.Movie="

E:

\实验运行场\VB.NET程序设计\电影院票务系统\image\登陆界面1.swf"

AxShockwaveFlash1.Playing=False

AxShockwaveFlash1.Stop（）

Dimtox1AsInt32

Dimtox2AsInt32

Di