用数据库设计影院售票管理系统审批稿文档格式.docx
- 文档编号:204773
- 上传时间:2023-04-28
- 格式:DOCX
- 页数:40
- 大小:456.60KB
用数据库设计影院售票管理系统审批稿文档格式.docx
《用数据库设计影院售票管理系统审批稿文档格式.docx》由会员分享,可在线阅读,更多相关《用数据库设计影院售票管理系统审批稿文档格式.docx(40页珍藏版)》请在冰点文库上搜索。
表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)窗体代码
ImportsClassForm1
InheritsDimnavigatorAsBindingManagerBase'
用来对记录导航
DimmyconAsNewSqlConnection'
连接对象
DimmycomAsNewSqlCommand'
命令对象
Dimmycom1AsNewSqlCommand
Dimfrm2AsNewForm2
Dimfrm3AsNewForm3
Dimfrm8AsNewForm8
PrivateSubTimer1_Tick(ByValsenderAs,ByValeAsHandles
(0).Text=
(1).Text="
T"
)
EndSub
PrivateSubGroupBox1_Enter(ByValsenderAs,ByValeAsHandles
If=TrueThen
=False
ElseIf=TrueThen
EndIf
PrivateSubButton1_Click(ByValsenderAs,ByValeAsHandles
="
E:
\实验运行场\程序设计\电影院票务系统\image\登陆界面"
()
Dimtox1AsInt32
Dimtox2AsInt32
DimmydataadapterAsNewSqlDataAdapter
DimmydsAsNewDataSet
DimiAsInteger
DimjAsInteger
tox1=Val
tox2=Val
initialcatalog=ticketbooking;
userid=sa;
password=;
"
=mycon'
通过MYCON连接对象操作数据库
='
设置命令类型
select*fromworkers"
'
设置要执行的命令
Try
=mycom
CatchexAsException
("
连接失败"
Finally
EndTry
(myds,"
workers"
Fori=0To("
).-1
Iftox1=Val("
).Rows(i).ItemArray(0))Then
j=0
ExitFor
Else
j=1
Next
Iftox2=Val("
).Rows(i).ItemArray
(1))Then
Ifj=1Then
您的工号或者密码错误"
"
错误提示"
,
selectleibiefromworkerswhereworkerid="
+CStr(tox1)+"
andpassword="
+CStr(tox2)+"
Dimmydataadapter1AsNewSqlDataAdapter
=mycom1
Dimmyds1AsNewDataSet
(myds1,"
If=TrueAndVal("
).Rows(0)("
leibie"
))=1Then
ElseIf=TrueAndVal("
))=2Then
))=3Then
您超出职责范围或未选择服务系统,请重新输入!
,,
PrivateSubForm1_Load(ByValsenderAs,ByValeAsHandles
PrivateSubButton2_Click(ByValsenderAs,ByValeAsHandles
DimexitformAsNewForm7
If=Then
EndClass
3.创建售票窗体模块
(1)窗体模块的功能
为观众提供买票服务。
在界面上观众可以看见座位的情况,根据此来选择自己喜欢的座位。
不同的座位有不同的价格。
此窗体还有退票功能。
(2)窗体界面的设计
在工程中添加一个窗体,命名为“售票系统”,用来作为仓管人员窗体。
的设计如下图所示。
(3)代码编写
ImportsClassForm2
命令对象
PrivateSubForm2_Load(ByValsenderAs,ByValeAsHandles
()
\实验运行场\程序设计\电影院票务系统\image\销售界面.swf"
\实验运行场\程序设计\电影院票务系统\image\检票界面下.swf"
DimstrrowAsString
DimdtAsNewDataTable
select*fromMovies"
设置要执行的命令"
Movies"
strrow=("
).Rows(i)("
movie_name"
PrivateSubButton1_Click_1(ByValsenderAs,ByValeAsHandles
DimtickethaoAsInteger
DimmoviehaoAsInteger
DimsuijiAsInteger
Dimmydataadapter3AsNewSqlDataAdapter
Dimmyds3AsNewDataSet
Dimdt3AsNewDataTable
Dimmycom3AsNewSqlCommand
Dimmycon3AsNewSqlConnection
Randomize()
suiji=Int(9000*Rnd()+1000)
tickethao=tickets_id()
moviehao=movieid()
=mycon3'
设置命令类型
Iftickethao=0Then
此座位已售出,请重新选择!
错误"
insertintotickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)values("
+CStr(tickethao)+"
"
++"
+CStr(moviehao)+"
'
'
+CStr(suiji)+"
)"
DimsqlAsString
sql="
=mycom3
售票成功!
谢谢观看"
MsgBox
revoke_seat()
PrivateSubComboBox1_SelectedIndexChanged_1(ByValsenderAs,ByValeAsHandles
Dimmydataadapter11AsNewSqlDataAdapter
Dimmyds11AsNewDataSet
Dimdt1AsNewDataTable
Dimdt11AsNewDataTable
Dimmycom11AsNewSqlCommand
=mycon
=
selectpalydatefromMovieswheremovie_name='
select*fromticketswheremovie_name='
=mycom11
tickets"
(myds11,"
dt1=("
dt11=("
If=0Then
还未出售!
=(0)("
palydate"
ShowSellInfo(dt1)
PrivateSubButton2_Click_1(ByValsenderAs,ByValeAsHandles
Dimmydataadapter4AsNewSqlDataAdapter
Dimmyds4AsNewDataSet
Dimdt4AsNewDataTable
Dimmycom4AsNewSqlCommand
Dimmycon4AsNewSqlConnection
=mycon4'
tickethao=tuipiao()
座位号输入错误,请重新输入!
deletefromticketswhereticketsid="
退票成功!
PrivateSubButton3_Click_1(ByValsenderAs,ByValeAsHandles
If="
Then
请输入座位号!
提示"
EndI
Dimmydataadapter2AsNewSqlDataAdapter
Dimmyds2AsNewDataSet
Dimdt2AsNewDataTable
Dimmycom2AsNewSqlCommand
select*fromseatswhereseatid="
=mycom2
(myds2,"
seats"
dt2=("
price"
PrivateSubButton4_Click(ByValsenderAs,ByValeAsHandles
EndSub
4.创建检票界面
(1)创建模块的功能
对进场观众检票,如果发现有假票或无票观众不允许入内。
(2)创建模块的窗体
在工程中添加一个窗体,命名为“检票系统”,用来作为检票系统窗体。
ImportsClassForm3
InheritsDimds1AsNewDataSet
Dimsqlda1AsNewSqlDataAdapter
DimRecordCountAsInteger
PrivateSubForm3_Load(ByValsenderAs,ByValeAsHandles
\实验运行场\程序设计\电影院票务系统\image\检票界面.swf"
Dimsqlcmd1AsNewSqlCommand
Dimstr1AsString="
select*fromtickets"
=sqlcn1
=str1
=sqlcmd1
CatchexAsSqlException
(ds1)
RecordCount=(0).
=RecordCount
DimflagAsBoolean=False
请认真填写票号!
ExitSub
请填写验证码!
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 设计 影院 售票 管理 系统 审批
![提示](https://static.bingdoc.com/images/bang_tan.gif)