影院售票标准管理系统.doc

面向对象程序设计课程设计汇报

/ 年 第 一 学期

项目名称： 影院售票管理系统
项目责任人： 王德才 学号：__
同 组 者： 李清爽 学号：
指导老师： _潘 俊__ 班级：_06会计___
课程设计时间及地点：___试验楼521____
计算机信息工程学院
1月15日

一．系统概述；
1．项目需求；
2．需求分析；
二．项目开发计划书；
三．设计说明书；
1．分析和创建数据库；
2．创建登陆窗体模块；
3．创建售票窗体模块
4．创建检票界面
5．创建维护界面
1．创建影库界面
2．创建职员界面
3．创建票务界面
四．用户操作手册；
五．改善意见；
六．自我评价；
七．参考资料、书籍；

一．系统概述；
1．项目需求；
现在中国大部分家庭全部喜爱在家里置办属于自己风格家庭影院。不过，仍然有大家喜爱到电影院去看电影。因为家里气氛毕竟不如影院好。所以，现代家庭影院出现并不会让电影院没有生路。
每个社会服务系统全部有自己一套管理机制。当然，电影院也不除外。其实电影院管理系统应该来说比其它社会服务系统管理要简单一点。电影院不外乎是引进电影，制订播放影片时间表，买票，检票进场观看，还有就是部分数据管理方面事。如工作人员管理，票务管理等等。为了工作机制简单有序，肯定要引进一套管理系统。
2．需求分析；
具体而言，影院售票系统需要实现以下需求：
（1） 能够对播放电影，工作人员，售票事宜，检票事宜，无用数据进行处理。
（2） 售票管理自然有专员负责，要处理各电影电影票销售问题。当然包含退票问题，还有就是预订电影票其实也就相当于买票。二者能够当一回事处理。
（3） 检票管理事宜要完成观众进场时检票事宜。其中包含了电影票真假检测问题。
（4） 数据管理要处理电影播放次序，工作人员管理，和过期电影票处理问题
二．项目开发计划书；
依据需求分析结果，本小组组员讨论协商，决定本系统关键划分为以下三个子模块：售票管理模块、检票管理模块、数据管理模块。
影院售票管理系统是一个基于电影院工作人员系统，不一样类型用户在系统中有不一样权限。关键有三种用户：
1． 售票管理人员： 关键负责卖票，订票及退票事宜；
2． 检票管理人员： 关键负责观众进场时检票工作，和识别电影票真假（此工作自然能够由服务系统来完成）；
3． 数据处理人员： 关键负责播放电影导入数据库，工作人员应聘和开除数据管理，还有过期电影票数据处理；
以下分别介绍此系统中各个系统（3个子模块。）：
（1）售票系统模块
给观众提供售票服务。不一样位置有不一样价格。要选购哪个位置由观众决定。工作人员依据观众需要进行操作。系统在购票成功后会产生一个验证码，此验证码连工作人员全部不知道。是随机生成。用于对电影票真假辩识。
（2）检票系统模块
在观众进场时所使用系统。由扫描仪扫描，取验证码，然后进行辩识，看是不是和数据库中数据一样，假如一样，则电影票为真，不然电影票为假。由此来决定让不让观众入场。
（3）维护系统模块
此模块是由电影院数据库管理员来管理。她依据电影院事情需要对相关数据进行处理。如电影票管理，工作人员管理，和电影库管理等。
整个系统结构以下图1所表示：
影院售票管理系统xiop
工作人员登录
维护系统
检票系统
售票系统
影
片
播放管理
工作人员管理
过期票务管理

以下分别介绍系统中数据系统3个子模块。
（1）影片播放管理模块
影片播放管理是对电影院播放电影充实，设定电影播放，和电影时间设定。当所设定电影已经播放完成后，要对其进行删除。还要对数据库进行清理，把部分没用数据全部清除。
（2）工作人员管理：
电影院里当然有工作人员增加和开除，和她们管理权限改变。这一部分事件发生全部需要数据库管理人员将相关数据进行处理。确保数据库里数据统一和完整。
其中有她们共号，登陆电影院管理系统密码，和所拥有权限。
（3）过期票务管理：
电影院里电影在放过以后，在数据库电影票数据就会变成没有用数据。经过此管理能够把那些没用过期数据清除。这里指是和放过电影同名电影票清除，而其它电影票保留不变。
小组人员分工情况：
王圣武 登陆界面和售票界面、系统转换界面程序编写，整个系统框架设计，整个系统界面及美化设计，整个系统步骤管理，创建数据库
张润驰 检票系统和整个维护系统程序编写，局部框架辅助设计，创建数据库
本系统后台数据库采取现在比较流行 Microsoft SQL Sever ,该数据库系统在安全性、正确性、运行速度方面有绝正确优势，而且处理数据量大、效率高；前台采取 Microsoft企业 VB.NET 作为关键开发工具，其可和　SQL Sever 数据库无缝衔接。
三．设计说明书；
1．分析和创建数据库；
依据系统功效分析结果，影院售票管理系统将会使用Microsoft SQL Sever 作为后台数据库管理系统。本管理系统是应用于电影院中，而且需要和数据库之间进行频繁数据交换，所以采取Microsoft SQL Sever 作为后台数据库管理系统。
在本管理系统中，需要掌握影库充实信息，职员管理信息，票务管理信息，另外，因为要进行职员管理，还需要掌握使用本系统职员。表1存放硬库信息列表，表2存放了电影院座位相关数据连接关系，表3存放了电影票销售情况管理，表4存放了系统使用者职员相关情况管理列表。
表1 影库管理表---MOVIES

字段名称

数据类型
字段属性
字段大小
作用
必填字段
索引
是否主键
Movie_id
smallint
2
电影号
是
有（无反复）
是
Movie_name
Nvarchar
50
电影名称
是
无

actor
Nvarchar
50
导演
否
无

actress
Nvarchar
50
主演
否
无

producer
Nvarchar
25
制片厂
否
无

palydate
datetime
8
上映时间
是
无

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

字段名称

数据类型
字段属性
字段大小
作用
必填字段
索引
是否主键
seatid
smallint
2
座位号
是
有（无反复）
是
price
float
8
票价
是
无

soldornot
smallint
2
是否售出
是
无

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

字段名称

数据类型
字段属性
字段大小
作用
必填字段
索引
是否主键
ticketsid

smallint
2
电影票号
是
有（无反复）
是
seatid
smallint
2
座位号
是
有

Movie_id
smallint
2
电影号
是
有

Movie_name
Nvarchar
50
电影名
否
无

palydate
datetime
8
上映时间
是
无

price
float
8
价格
是
无

yanzhengma
smallint
2
验证码
是
无
是
表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:\试验运行场\VB.NET程序设计\电影院票务系统\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 连接对象操作数据库
mycom.CommandType = CommandType.Text '设置命令类型
mycom.CommandText = "select * from workers" '设置要实施命令
Try
mycon.Open()
mydataadapter.SelectCommand = mycom
Catch ex As Exception
MessageBox.Show("连接失败")
Finally
mycon.Close()
End Try
mydataadapter.Fill(myds, "workers")
For i = 0 To myds.Tables("workers").Rows.Count - 1
If tox1 = Val(myds.Tables("workers").Rows(i).ItemArray(0)) Then
j = 0
Exit For
Else
j = 1
End If
Next
For i = 0 To myds.Tables("workers").Rows.Count - 1
If tox2 = Val(myds.Tables("workers").Rows(i).ItemArray(1)) Then
j = 0
Exit For
Else
j = 1
End If
Next
If j = 1 Then
MessageBox.Show("您工号或密码错误", "错误提醒", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
Try
mycom1.Connection = mycon '经过 MYCON 连接对象操作数据库
mycom1.CommandType = CommandType.Text '设置命令类型
mycom1.CommandText = "select leibie from workers where workerid=" + CStr(tox1) + "and password=" + CStr(tox2) + "" '设置要实施命令
Dim mydataadapter1 As New SqlDataAdapter
mydataadapter1.SelectCommand = mycom1
Dim myds1 As New DataSet
mydataadapter1.Fill(myds1, "workers")
If RadioButton1.Checked = True And Val(myds1.Tables("workers").Rows(0)("leibie")) = 1 Then
frm2.Show()
Me.Hide()
ElseIf RadioButton2.Checked = True And Val(myds1.Tables("workers").Rows(0)("leibie")) = 2 Then
frm3.Show()
Me.Hide()
ElseIf RadioButton3.Checked = True And Val(myds1.Tables("workers").Rows(0)("leibie")) 3 Then
frm8.Show()
Me.Hide()
Else
MessageBox.Show("您超出职责范围 或未选择服务系统，请重新输入！", "错误提醒", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
End If
Catch ex As Exception
End Try
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxShockwaveFlash1.Movie = "E:\试验运行场\VB.NET程序设计\电影院票务系统\image\登陆界面1.swf"
AxShockwaveFlash1.Play()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim exitform As New Form7
If exitform.ShowDialog = DialogResult.OK Then
exitform.Close()
Me.Close()
Application.Exit()
End If
End Sub
End Class
3． 创建售票窗体模块
（1） 窗体模块功效
为观众提供买票服务。在界面上观众能够看见座位情况，依据此来选择自己喜爱座位。不一样座位有不一样价格。此窗体还有退票功效。
（2） 窗体界面设计
在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗体。界面
设计以下图所表示。
（3） 代码编写
Imports System.Data.SqlClient
Public Class Form2
Inherits System.Windows.Forms.Form
Dim navigator As BindingManagerBase '用来对统计导航
Dim mycon As New SqlConnection '连接对象
Dim mycom As New SqlCommand '命令对象

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Me.Show()
AxShockwaveFlash1.Movie = "E:\试验运行场\VB.NET程序设计\电影院票务系统\image\销售界面.swf"
AxShockwaveFlash1.Play()
AxShockwaveFlash2.Movie = "E:\试验运行场\VB.NET程序设计\电影院票务系统\image\检票界面下.swf"
AxShockwaveFlash2.Play()

Dim mydataadapter As New SqlDataAdapter
Dim myds As New DataSet
Dim i As Integer
Dim j As Integer
Dim strrow As String
Dim dt As New DataTable
mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"
mycom.Connection = mycon '经过 MYCON 连接对象操作数据库
mycom.CommandType = CommandType.Text '设置命令类型
mycom.CommandText = "select * from Movies" '设置要实施命令"
Try
mycon.Open()
mydataadapter.SelectCommand = mycom
mydataadapter.Fill(myds, "Movies")
Catch ex As Exception
MessageBox.Show("连接失败")
Finally
mycon.Close()
End Try
Try
For i = 0 To myds.Tables("Movies").Rows.Count - 1
strrow = myds.Tables("Movies").Rows(i)("movie_name")
ComboBox1.Items.Add(strrow)
Next
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim tickethao As Integer
Dim moviehao As Integer
Dim suiji As Integer
Dim mydataadapter3 As New SqlDataAdapter
Dim myds3 As New DataSet
Dim dt3 As New DataTable
Dim mycom3 As New SqlCommand
Dim mycon3 As New SqlConnection
Randomize()
suiji = Int(9000 * Rnd() + 1000)
Try
tickethao = tickets_id()
moviehao = movieid()
mycon3.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"
mycom3.Connection = mycon3 '经过 MYCON 连接对象操作数据库
mycom3.CommandType = CommandType.Text '设置命令类型
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
If tickethao = 0 Then
Try
MessageBox.Show("此座位已售出，请重新选择！", "错误")
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
Else
Try
mycon3.Open()
mycom3.CommandText "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" + CStr(tickethao) + "," + TextBox4.Text + "," + CStr(moviehao) + ",'" + TextBox2.Text + "','" + TextBox1.Text + "'," + TextBox5.Text + "," + CStr(suiji) + ")"
Dim sql As String
sql = "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" + CStr(tickethao) + "," + TextBox4.Text + "," + CStr(moviehao) + ",'" + TextBox2.Text + "','" + TextBox3.Text + "'," + TextBox5.Text + "," + CStr(suiji) + ")"
mydataadapter3.InsertCommand = mycom3
Try
mycom3.ExecuteNonQuery()
MessageBox.Show("售票成功！", "谢谢观看")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
mycon3.Close()
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End If
revoke_seat()
End Sub
Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
revoke_seat()
Dim mydataadapter1 As New SqlDataAdapter
Dim mydataadapter11 As New SqlDataAdapter
Dim myds1 As New DataSet
Dim myds11 As New DataSet
Dim dt1 As New DataTable
Dim dt11 As New DataTable
Dim mycom1 As New SqlCommand
Dim mycom11 As New SqlCommand
mycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"
mycom1.Connection = mycon '经过 MYCON 连接对象操作数据库
mycom1.CommandType = CommandType.Text '设置命令类型
mycom11.Connection = mycon
mycom11.CommandType = CommandType.Text
Try
mycon.Open()
mycom11.CommandText = "select palydate from Movies where movie_name= '" + ComboBox1.Text + "'"
mycom1.CommandText = "select * from tickets where movie_name= '" + ComboBox1.Text + "'"
mydataadapter1.SelectCommand = mycom1
mydataadapter11.SelectCommand = mycom11
mydataadapter1.Fill(myds1, "tickets")
mydataadapter11.Fill(myds11, "Movies")
dt1 = myds1.Tables("tickets")
dt11 = myds11.Tables("Movies")
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
Try
If dt1.Rows.Count = 0 Then
MessageBox.Show("还未出售！")
TextBox1.Text = dt11.Rows(0)("palydate")
revoke_seat()
Else
ShowSellInfo(dt1)
TextBox1.Text = dt11.Rows(0)("palydate")
End If
Catch ex As Exception
End Try
mycon.Close()
End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tickethao As Integer
Dim mydataadapter4 As New SqlDataAdapter
Dim myds4 As New DataSet
Dim dt4 As N