电影票售票管理系统

电影票售票管理系统内容摘要：

id 数字 回帖 用户序号 ip 文本 发帖用户地址 replies 数字 回帖数量 views 数字 被浏览次数 技术学院毕业设计（论文） 14 表 32评论表 Newpost表 表 reply 储存用户对影片的评论回复 ，如表 33 所示： reply表 字段名称 数据类型 replyid 自动编号 回复 帖子序号 subject 文本 回复 帖 子 标题 ip 文本 回复用户的 ip地址 userid 数字 回帖用户序号 message 备注 回复帖子内容 postid 数字 原帖序号 postdate 日期 /时间 回帖 日期 表 33回复表 reply表 表 xinxi 表 信息表用来储存电影的资源信息价格以及放映时间如 表 34 所示： Xinxi表 字段名称 数据类型 categoryid 数字 productid 数字 name 文本 price 数字 image 文本 detail 备注 表 34 信息表 xinxi 表 文本 list 用来储存用户订购的名单 ，如果用户通过登录进入电影商城，点击购买，会出现订单界面，需要用户填 写姓名、地址、影票数量、价格以及联系电话，填写完成后，我们系统会在文本中生成订单形式以便查询和保存。 如图 38所示： 电影票售票管理系统 15 图 38文本结构图 文件夹组织结构 每个网站都会有相应的文件夹组织结构， 因为 网页不是很多，可以将图片、公共类或者 程序资源文件放在相应的文件夹中，而网页可以直接放在网站的根目录下。 电影票售票管理系统就是按照 此 的文件夹组织结构排列的，如图 39 所示： 技术学院毕业设计（论文） 16 图 39电影票售票管理系统文件夹的组织结构图 公共类设计 在开发项目过程中以类的形式来组织、封装一些 常用的方法和事件，不仅可以提高代码的重用率，也大大方便了代码的管理。 本系统中创建了一个公共类 设计，用 vb 语言绑定 Access 数据库管理员和用户的身份判定， 判断业主登录和管理员登录。 具体代码如下： Protected Sub logo_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。 data source= amp。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。 amp。 Trim() amp。 39。 and gllb=39。 amp。 amp。 39。 Dim cmd As New OleDbCommand = sqlcmd = con Dim dr As OleDbDataReader dr = () If () = True Then If (1) = Then Session(curuserid) = (0) Session(curname) = If = 用户 Then If = Then 电影票售票管理系统 17 (script language=39。 Javascript39。 alert(39。 amp。 请输入用户名39。 )。 / amp。 script) Else Session(username) = Session(password) = End If Else () End If If = 管理员 Then If = Then (script language=39。 Javascript39。 alert(39。 amp。 请输入用户名39。 )。 / amp。 script) Else Session(username) = Session(password) = End If Else () End If Else = 密码不正确 = True = End If Else = 没有这个用户。 或者用户类型不正确。 = True End If () () End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles End Sub End Class 技术学院毕业设计（论文） 18 第 四 章 电影票售票 管理系统部 分功能详细设计 登录模块概述 并不是任何人都可以登录 电影售票 管理系统，默认是不允许匿名登录的，只有输入正确的用户名和密码才能登录 电影票售票 管理系统进行相关操作，这是需要通过登录模块验证登录用户的合法性。 登录模块是 电影票售票 管理系统的第一道安全屏障，登录模块运行结果如图 41 所示 ： 图 41登录的界面 登录模块实现过程 输入账号和密码等信息无误后，单击“登录”按钮，进行登录。 程序首先会判断输入登录身份调用公共类中相应的方法验证账号和密码是否正确，如果登录的账号和密码正确，则会转向与登录身份相符合的页面。 关键代码如下： Protected Sub logo_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。 data source= amp。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。 amp。 Trim() amp。 39。 and gllb=39。 amp。 amp。 39。 Dim cmd As New OleDbCommand = sqlcmd = con Dim dr As OleDbDataReader dr = () If () = True Then If (1) = Then Session(curuserid) = (0) Session(curname) = If = 用户 Then 电影票售票管理系统 19 If = Then (script language=39。 Javascript39。 alert(39。 amp。 请输入用户名39。 )。 / amp。 script) Else Session(username) = Session(password) = End If Else () End If If = 管理员 Then If = Then (script language=39。 Javascript39。 alert(39。 amp。 请输入用户名39。 )。 / amp。 script) Else Session(username) = Session(password) = End If Else () End If Else = 密码不正确 = True = End If Else = 没有这个用户。 或者用户类型不正确。 = True End If () () 注册模块实现过程 如没有您的信息和用户名密码，可以通过注册来实现你的权限，注册代码如下： Imports Imports Partial Class reg Inherits Protected Sub ok_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = provider=。 data source= amp。 (App_Data\) Dim sqlcmd1 = select * from userinfo where username=39。 amp。 amp。 39。 Dim cmd As New OleDbCommand = sqlcmd1 = con () Dim dr As OleDbDataReader dr = () If () Then = 很抱歉，已经有人注册了这个名字。 请更换用户名 技术学院毕业设计（论文） 20 = True Else () Dim sqlcmd2 = insert into userinfo(username,pw,) values(39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ) = sqlcmd2 () = 恭喜你注册成功 ! = True End If () End Sub Protected Sub Reset_Click(ByVal sender As Object, ByVal e As ) Handles = = = = End Sub End Class 管理员模块设计概述 在电影售票 管理系统中，管理员模块具有最高权限，管理员通过登录模块成功登录之后可以对 用户信息 、 电影资源的 信息、评选 回复 信息、 发表评论 信息 和管理员密码等进行管理，使系统维护起来。