影院订票管理系统实验报告

1、本文格式为word版，下载可任意编辑影院订票管理系统实验报告 精选 管理方案 文件编号：0 2021 年 年 6 6月 影院订票管理系统试验报告 版本号： a a 修改号： 1 1 页 次： 1.0 编 制： 会 签： 审 核： 批 准 : 发布日期： 实施日期： 方案大全 方案整理 软件工程 试验报告 一系统概述； 1项目需求 ； 2需求分析； 二项目开发方案书； 三设计说明书； 1分析与创建数据库 2创建登陆窗体模块； 3创建售票窗体模块 4创建检票界面 5创建维护界面 1创建影库界面 2创建职工界面 3创建票务界面 四用户操作手册； 五改进看法； 六自我评价； 七参考资料、书籍； 一系统

2、概述； 1项目需求； 现在中国大部分的家庭都喜爱在家里置办属于自己风格的家庭影院。但是，仍旧有许多人喜爱到电影院去看电影。由于家里的气氛究竟不如影院好。所以，现代家庭影院的消失并不会让电影院没有生路。 每个.服务系统都有自己的一套管理机制。当然，电影院也不除外。其实电影院的管理系统应当来说比其他的.服务系统的管理要简洁一点。电影院不外乎是引进电影，制定播放影片的时间表，买票，检票进场观看，还有就是一些数据管理方面的事。如工作人员管理，票务管理等等。为了工作机制简洁有序，必定要引进一套管理系统。 2需求分析； 详细而言，影院售票系统需要实现以下的需求： （1） 能够对播放电影，工作人员，售票事宜

3、，检票事宜，无用数据进行处理。 （2） 售票管理自然有专人负责，要处理各电影的电影票销售问题。当然包括退票问题，还有就是预订电影票其实也就相当于买票。两者可以当一回事处理。 （3） 检票管理事宜要完成观众进场时检票的事宜。其中包括了电影票的真假检测问题。 （4） 数据管理要处理电影的播放的次序，工作人员的管理，以及过期电影票的处理问题。 二项目开发方案书； 依据需求分析的结果，本小组成员争论协商，打算本系统主要划分为以下三个子模块：售票管理模块、检票管理模块、数据管理模块。 影院售票管理系统是一个基于电影院工作人员的系统，不同类型的用户在系统中有不同的权限。主要有三种用户： 1 售票管理人员：

4、 主要负责卖票，订票及退票事宜； 2 检票管理人员： 主要负责观众进场时检票工作，以及辨认电影票的真假（此工作自然可以由服务系统来完成）； 3 数据处理人员： 主要负责播放电影导入数据库，工作人员的应聘以及开除的数据管理，还有过期电影票的数据处理； 以下分别介绍此系统中各个系统（3 个子模块。）： （1）售票系统模块 给观众供应售票服务。不同的位置有不同的价格。要选购哪个位置由观众打算。工作人员依据观众的需要进行操作。系统在购票胜利后会产生一个验证码，此验证码连工作人员都不知道。是随机生成的。用于对电影票真假的辩识。 （2）检票系统模块 在观众进场时所使用的系统。由扫描仪扫描，取的验证码，然后

5、进行辩识，看是不是和数据库中数据一样，假如一样，则电影票为真，否则电影票为假。由此来打算让不让观众入场。 （3）维护系统模块 此模块是由电影院的数据库管理员来管理的。他依据电影院事情的需要对有关数据进行处理。如电影票的管理，工作人员的管理，和电影库的管理等。 整个系统的结构如下图 1 所示： 以下分别介绍系统中数据系统 3 个子模块。 （1）影片播放管理模块 影片播放管理是对电影院播放的电影的充实，设定电影的播放，以及电影时间的设定。当所设定的电影已经播放完成后，要对其进行删除。还要对数据库进行清理，把一些没用的数据全部清除。 （2）工作人员管理： 电影院里当然有工作人员的增加与开除，以及他们

6、的管理权限的变化。这一部分大事的发生都需要数据库管理人员将有关数据进行处理。保证数据库里数据的统一与完整。 其中有他们的共号，登陆电影院管理系统的密码，以及所拥有的权限。 （3）过期票务管理： 电影院里的电影在放过以后，在数据库的电影票数据就会变成没有用的数据。通过此管理可以把那些没用的过期的数据清除。这里指的是与放过的电影同名的电影票清除，而其他的电影票保存不变。 小组人员分工状况： 王圣武 登陆界面和售票界面、系统转换界面的程序编写，整个系统框架的设计，整个系统界面及美化设计，整个系统流程的管理，创建数据库 张润驰 检票系统和整个维护系统的程序编写，局部框架帮助设计，创建数据库 本系统后台

7、数据库采纳目前比较流行的 microsoft sql sever ,该数据库系统在平安性、精确性、运行速度方面有肯定的优势，并且处理数据量大、效率高；前台采纳 microsoft公司的 2021 作为主要的开发工具，其可与 sql sever 2021 数据库无缝连接。 三设计说明书； 1分析与创建数据库； 依据系统的功能分析结果，影院售票管理系统将会使用 microsoft sql sever 2021 作为后台的数据库管理系统。本管理系统是应用于电影院中，而且需要和数据库之影院售票管理系统工作人员登录 维护系统 检票系统 售票系统 影 片 播放管理 工作人员管理 过期票务管理 间进行频繁数

8、据交换，所以采纳 microsoft sql sever 2021 作为后台的数据库管理系统。 在本管理系统中，需要把握影库充实信息，职工管理信息，票务管理信息，此外，由于要进行职工管理，还需要把握使用本系统的职工。表 1 存储硬库信息列表，表2 存储了电影院座位的相关数据连接关系，表 3 存储了电影票销售状况管理，表 4存储了系统使用者职工的相关状况的管理列表。 表 表 1 影库管理表 - movies 字段名称 数据类型 字段属性 字段大小 作用 必填字段 索引 是否主键 movie_id smallint 2 电影号 是 有（无重复） 是 movie_name nvarchar 50 电

9、影名称 是 无 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 字段名称 数据类型 字段属性 字

10、段大小 作用 必填字段 索引 是否主键 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

11、2 职工号 是 无 是 password smallint 2 职工密码 是 无 leibie smallint 2 职工类型 是 无 依据规范化的设计理念，本管理系统的数据分成上面 4 个表，削减了数据的冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关系表现在下图所示的关系： 2创建登陆窗体模块； （1）窗体模块的功能 登陆窗体 （2）窗体界面的设计 在工程中添加一个窗体，命名为"登陆系统'，用来作为系统登陆窗体。界面 的设计如图 3 所示。 （3）窗体代码 imports public class form1 inherits dim navigator

12、 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 , byval e as handles (0).text = end sub private

13、 sub groupbox1_enter(byval sender as , byval e as handles if = true then = false = false elseif = true then = false = false elseif = true then = false = false end if end sub private sub button1_click(byval sender as , byval e as handles = quot;e:试验运行场程序设计电影院票务系统image登陆界面quot; = false () dim tox1 as

14、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 tox2 = val = quot;initial catalog=ticketbooking;user id=sa;password=;quot; = mycon "通过 mycon 连接对象操作数据库 = "设置命令类型 = quot;select * from workersquot; "设置要执

15、行的命令 try () = mycom catch ex as exception (quot;连接失败quot;) finally () end try (myds, quot;workersquot;) for i = 0 to (quot;workersquot;). - 1 if tox1 = val(quot;workersquot;).rows(i).itemarray(0) then j = 0 exit for else j = 1 end if next for i = 0 to (quot;workersquot;). - 1 if tox2 = val(quot;work

16、ersquot;).rows(i).itemarray(1) then j = 0 exit for else j = 1 end if next if j = 1 then (quot;您的工号或者密码错误quot;, quot;错误提示quot;, , else try = mycon "通过 mycon 连接对象操作数据库 = "设置命令类型 = quot;select leibie from workers where workerid=quot; + cstr(tox1) + quot;and password=quot; + cstr(tox2) + quot;

17、quot; "设置要执行的命令 dim mydataadapter1 as new sqldataadapter = mycom1 dim myds1 as new dataset (myds1, quot;workersquot;) if = true and val(quot;workersquot;).rows(0)(quot;leibiequot;) = 1 then () () elseif = true and val(quot;workersquot;).rows(0)(quot;leibiequot;) = 2 then () () elseif = true and

18、 val(quot;workersquot;).rows(0)(quot;leibiequot;) = 3 then () () else (quot;您超出职责范围 或未选择服务系统，请重新输入！quot;, quot;错误提示quot;, , , end if catch ex as exception end try end if end sub private sub form1_load(byval sender as , byval e as handles = quot;e:试验运行场程序设计电影院票务系统image登陆界面quot; () end sub private sub

19、 button2_click(byval sender as , byval e as handles dim exitform as new form7 if = then () () () end if end sub end class 3 创建售票窗体模块 （1） 窗体模块的功能 为观众供应买票服务。在界面上观众可以观察座位的状况，依据此来选择自己喜爱的座位。不同的座位有不同的价格。此窗体还有退票功能。 （2） 窗体界面的设计 在工程中添加一个窗体，命名为"售票系统'，用来作为仓管人员窗体。界面 的设计如下图所示。 （3） 代码编写 imports public cl

20、ass form2 inherits dim navigator as bindingmanagerbase "用来对记录导航 dim mycon as new sqlconnection "连接对象 dim mycom as new sqlcommand "命令对象 private sub form2_load(byval sender as , byval e as handles "() = quot;e:试验运行场程序设计电影院票务系统image销售界面.swfquot; () = quot;e:试验运行场程序设计电影院票务系统image检票界面

21、下.swfquot; () 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 = quot;initial catalog=ticketbooking;user id=sa;password=;quot; = mycon "通过 mycon 连接对象操作数据库 = "设置命令类型 = quot;select * from moviesquot

22、; "设置要执行的命令quot; try () = mycom (myds, quot;moviesquot;) catch ex as exception (quot;连接失败quot;) finally () end try try for i = 0 to (quot;moviesquot;). - 1 strrow = (quot;moviesquot;).rows(i)(quot;movie_namequot;) combobo next catch ex as exception end try end sub private sub button1_click_1(by

23、val sender as , byval e as handles 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(90

24、00 * rnd() + 1000) try tickethao = tickets_id() moviehao = movieid() = quot;initial catalog=ticketbooking;user id=sa;password=;quot; = mycon3 "通过 mycon 连接对象操作数据库 = "设置命令类型 catch ex as exception end try if tickethao = 0 then try (quot;此座位已售出，请重新选择！quot;, quot;错误quot;) = quot;quot; = quot;qu

25、ot; = quot;quot; = quot;quot; = quot;quot; = quot;quot; catch ex as exception end try else try () = quot;insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (quot; + cstr(tickethao) + quot;,quot; + + quot;,quot; + cstr(moviehao) + quot;,"quot; + + quot;&q

26、uot;,"quot; + + quot;",quot; + + quot;,quot; + cstr(suiji) + quot;)quot; dim sql as string sql = quot;insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (quot; + cstr(tickethao) + quot;,quot; + + quot;,quot; + cstr(moviehao) + quot;,"quot; + +

27、quot;","quot; + + quot;",quot; + + quot;,quot; + cstr(suiji) + quot;)quot; = mycom3 try () (quot;售票胜利！quot;, quot;感谢观看quot;) catch ex as exception msgbox end try catch ex as exception end try () = quot;quot; = quot;quot; = quot;quot; = quot;quot; = quot;quot; = quot;quot; end if revok

28、e_seat() end sub private sub combobox1_selectedindexchanged_1(byval sender as , byval e as handles 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 di

29、m mycom1 as new sqlcommand dim mycom11 as new sqlcommand = quot;initial catalog=ticketbooking;user id=sa;password=;quot; = mycon "通过 mycon 连接对象操作数据库 = "设置命令类型 = mycon = try () = quot;select palydate from movies where movie_name= "quot; + + quot;"quot; = quot;select * from tickets

30、 where movie_name= "quot; + + quot;"quot; = mycom1 = mycom11 (myds1, quot;ticketsquot;) (myds11, quot;moviesquot;) dt1 = (quot;ticketsquot;) dt11 = (quot;moviesquot;) catch ex as exception end try try ifthen (quot;还未出售！quot;) = (0)(quot;palydatequot;) revoke_seat() else showsellinfo(dt1) =

31、 (0)(quot;palydatequot;) end if catch ex as exception end try () end sub private sub button2_click_1(byval sender as , byval e as handles dim tickethao as integer dim mydataadapter4 as new sqldataadapter dim myds4 as new dataset dim dt4 as new datatable dim mycom4 as new sqlcommand dim mycon4 as new

32、 sqlconnection try = quot;initial catalog=ticketbooking;user id=sa;password=;quot; = mycon4 "通过 mycon 连接对象操作数据库 = "设置命令类型 tickethao = tuipiao() catch ex as exception end try if tickethao = 0 then (quot;座位号输入错误，请重新输入！quot;, quot;错误quot;) else try () = quot;delete from tickets where ticketsi

33、d=quot; + cstr(tickethao) + quot;quot; try () (quot;退票胜利！quot;, quot;感谢观看quot;) catch ex as exception msgbox end try catch ex as exception msgbox end try end if () = quot;quot; = quot;quot; = quot;quot; = quot;quot; = quot;quot; = quot;quot; revoke_seat() end sub private sub button3_click_1(byval se

34、nder as , byval e as handles = = if = quot;quot; then (quot;请输入座位号！quot;, quot;提示quot;) end i dim mydataadapter2 as new sqldataadapter dim myds2 as new dataset dim dt2 as new datatable dim mycom2 as new sqlcommand = quot;initial catalog=ticketbooking;user id=sa;password=;quot; = mycon "通过 mycon

35、 连接对象操作数据库 = "设置命令类型 try () = quot;select * from seats where seatid=quot; + + quot;quot; = mycom2 (myds2, quot;seatsquot;) dt2 = (quot;seatsquot;) catch ex as exception end try = (0)(quot;pricequot;) () end sub private sub button4_click(byval sender as , byval e as handles dim exitform as new f

36、orm7 if = then () () () end if end sub end class 4 创建检票界面 （1）创建模块的功能 对进场观众检票，假如发觉有假票或无票观众不允许入内。 （2）创建模块的窗体 在工程中添加一个窗体，命名为"检票系统'，用来作为检票系统窗体。界面 的设计如下图所示。 （3）代码编写 imports public class form3 inherits dim ds1 as new dataset dim sqlda1 as new sqldataadapter dim recordcount as integer private sub

37、form3_load(byval sender as , byval e as handles = quot;e:试验运行场程序设计电影院票务系统image检票界面.swfquot; () = quot;e:试验运行场程序设计电影院票务系统image检票界面下.swfquot; () dim sqlcmd1 as new sqlcommand dim str1 as string = quot;select * from ticketsquot; = sqlcn1 = str1 = sqlcmd1 try () () catch ex as sqlexception msgbox finall

38、y () end try try (ds1) catch ex as sqlexception msgbox end try recordcount = (0). = recordcount end sub private sub button1_click_1(byval sender as , byval e as handles dim i as integer dim flag as boolean = false if = quot;quot; then = quot;请仔细填写票号！quot; () exit sub end if if = quot;quot; then = qu

39、ot;请填写验证码！quot; () exit sub end if for i = 0 to recordcount - 1 if = cstr(0).rows(i)(quot;ticketsidquot;) and = cstr(0).rows(i)(quot;yanzhengmaquot;) then flag = true exit for end if next if flag = true then try = (0).rows(i)(quot;seatidquot;) = (0).rows(i)(quot;movie_namequot;) = (0).rows(i)(quot;p

40、ricequot;) catch ex as exception msgbox end try = quot;此票为真！quot; else = quot;此票为假！quot; end if = recordcount end sub private sub button2_click_1(byval sender as , byval e as handles = quot;quot; = quot;quot; = quot;quot; = quot;quot; = quot;quot; = quot;quot; = quot;quot; () end sub private sub but

41、ton3_click_1(byval sender as , byval e as handles dim exitform as new form7 if = then () () () end if end sub end class 5 创建维护界面 （1）创建模块的功能 给数据库维护工作人员选择维护的系统数据库 （2）创建模块的设计 在工程中添加一个窗体，命名为"维护系统'，用来作为维护系统窗体。界面 的设计如下图所示。 （3）代码编写 public class form8 inherits private sub form8_load(byval sender as

42、 , byval e as handles = quot;e:试验运行场程序设计电影院票务系统image登陆界面.swfquot; () end sub private sub button1_click(byval sender as , byval e as handles dim frm4 as new form4 () () end sub private sub button2_click(byval sender as , byval e as handles dim frm6 as new form6 () () end sub private sub button3_click

43、(byval sender as , byval e as handles dim frm9 as new form9 () () end sub private sub button4_click(byval sender as , byval e as handles dim exitform as new form7 if = then () () () end if end sub end class 1创建影库界面 （1）创建模块的功能 对电影库播放列表的管理 （2）创建模块的设计 在工程中添加一个窗体，命名为"影库系统'，用来作为影库系统窗体。界面 的设计如下图所

44、示。 （3）代码编写 dim sqladapter as new sqldataadapter dim movierow as datarow dim recordcount as integer dim i as integer = 0 dim idnum(2021) as integer dim currentposition as integer sub showposition() if recordcount = 0 then = quot;无记录quot; else currentposition = (dataset11, quot;moviesquot;).position =

45、 (quot;movie_idquot;) idnum(i) = i += 1 = (quot;movie_namequot;) = (quot;actorquot;) = (quot;actressquot;) = (quot;producerquot;) = (quot;palydatequot;) = currentposition + 1 amp; quot;/quot; amp; recordcount end if end sub private sub form4_load(byval sender as , byval e as handles () showposition(

46、) end sub private sub button1_click(byval sender as , byval e as handles if (dataset11, quot;moviesquot;).position gt; 0 then (dataset11, quot;moviesquot;).position -= 1 showposition() else (quot;已到达首记录！quot;, quot;提示信息quot;) end if end sub private sub button2_click(byval sender as , byval e as hand

47、les if (dataset11, quot;moviesquot;).position lt; recordcount - 1 then (dataset11, quot;moviesquot;).position += 1 showposition() else (quot;已到达尾记录！quot;, quot;提示信息quot;) end if end sub private sub button4_click(byval sender as , byval e as handles (dataset11, quot;moviesquot;).position = recordcount - 1 showposition() end sub private sub button5_click(byval sender as , byval e as handles "添加数据 dim j as integer dim flag as boolean = true for j = 0 to i if = cstr(