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

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

《用数据库设计影院售票管理系统Word下载.docx》由会员分享，可在线阅读，更多相关《用数据库设计影院售票管理系统Word下载.docx（8页珍藏版）》请在冰点文库上搜索。

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

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

两者可以当一回事处理。

（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

DimmydataadapterAsNewSqlDataAdapter

DimmydsAsNewDataSet

DimiAsInteger

DimjAsInteger

tox1=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"

设置要执行的命令

Try

mycon.Open（）

mydataadapter.SelectCommand=mycom

CatchexAsException

MessageBox.Show（"

连接失败"

Finally

mycon.Close（）

EndTry

mydataadapter.Fill（myds,"

workers"

Fori=0Tomyds.Tables（"

）.Rows.Count-1

Iftox1=Val（myds.Tables（"

）.Rows（i）.ItemArray（0））Then

j=0

ExitFor

Else

j=1

Next

Iftox2=Val（myds.Tables（"

）.Rows（i）.ItemArray

（1））Then

Ifj=1Then