VB483 基于VB.NET影院的售票监控管理系统

 Microsoft Windows 操作系统（即，以前的 NT 服务）使您能够创建在它们自己的 Windows 会话中可长时间运行的可执行应用程序。这些服务可以在计算机启动时自动启动，可以暂停和重新启动而且不显示任何用户界面。这使服务非常适合在服务器上使用，或任何时候，为了不影响在同一台计算机上工作的其他用户，需要长时间运行功能时使用。还可以在不同于登录用户的特定用户帐户或默认计算机帐户的安全上下文中运行服务。
    在过去，因为Visual Basic不能够创建可靠的、可伸缩的、服务应用程序，所以这些应用程序通常是由C++创建的。.NET的出现改变了这种状况。虽然我们不能使用C++程序员可以使用的功能，但是.NET Framework已经为此发布了一个命名空间和一个类的集合，这使得VB程序员可以创建作为一种服务运行的托管代码。

think58.com [资料来源：http://THINK58.com]

[来源：http://think58.com]

本系统开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。因此本人结合任务书要求，对MS SQL Server2005数据库管理系统、SQL语言原理、进行了较深入的学习和应用，主要完成对售票监控系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。本文所设计的系统可以满足顾客、影院工作人员和高级管理员三方面的需要。
本系统技术环境：Visual Basic .NET 2005，MS SQL Server 2005 企业版，Windows XP。 think58好，好think58 [来源：http://www.think58.com]

的作用。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
影院的售票监控管理系统是在一个可以发布电影信息，监控系统，即时售票，影票查询，影票设置等功能！依托信息管理系统的优势设计和开发的，通过此平台，影院可以更好的管理售票系统，及时有效的管理售票系统。大大的提供了工作的效率，更好的服务自己的顾客。
随着信息技术的发展，网络技术的日益成熟，信息管理系统的使用将掀起一股热潮，电子商务也随之深入到生活和娱乐的各个领域。传统手工的影院售票管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了影院售票管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。 think58.com [版权所有：http://think58.com]

系统的主要目标和功能
影院网络售票系统的开发目标是运用VB.NET技术和可靠安全的支付手段，为顾客提供影视信息浏览，电子影票购买，为影院提供以电子商务和前台售票相结合的销售模式。
系统主要由用户信息管理模块、监控模块、售票模块三个部分组成 这些模块之间相互联系，相互配合，构成一个完整的售票监控系统。系统结构如图1所示。
（1）用户信息管理模块：主要有显示用于列表，添加用户，删除用户，密码修改等。
（2）监控模块：主要有监控信息编号，用户访问时间，机器名，操作类型，操作员帐号等
（3）售票模块：主要包括影票设置和影票查询两部分，影票设置模块包括添加影片名称，电影放映时间、结束时间、放映厅、座位数、票价等；影票查询部分能显示当前正在出售的影片信息，包括票次、影片信息、剩余票数、位置、票价、放映时间、结束时间等。 think58好，好think58

[来源：http://think58.com]

实现代码如下：
    Private Sub frmUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mycmd As New OleDb.OleDbCommand
        mycmd.CommandText = "select * from admin"
        mycmd.Connection = myConn
        Dim myReader As Data.OleDb.OleDbDataReader
        myReader = mycmd.ExecuteReader()
        While myReader.Read
            ListBox1.Items.Add(myReader.Item(0).ToString)
        End While
        ListBox1.EndUpdate()
        mycmd.Dispose()
        myReader.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

本文来自think58

[来源：http://think58.com]

        '添加
        If Trim(TextBox1.Text) <> "" And Trim(TextBox2.Text) <> "" Then
            Dim i As Int16
            For i = 0 To ListBox1.Items.Count - 1
                If Trim(TextBox1.Text) = Trim(ListBox1.Items(i).ToString()) Then
                    MsgBox("此用户已添加!", , "提示")
                    Exit Sub
                End If
            Next
            Dim strSQl As String = "select * from admin where adminname ='" & Trim(TextBox1.Text) & "'"

内容来自think58

[资料来源：http://THINK58.com]

            Dim myAdapter As New Data.OleDb.OleDbDataAdapter(strSQl, myConn)
            Dim ds As New DataSet
            Dim myRw As DataRow
            myAdapter.Fill(ds, "admin")
            myRw = ds.Tables.Item(0).NewRow ''
            myRw.Item(0) = Trim(TextBox1.Text)
            myRw.Item(1) = Trim(TextBox2.Text)
            ds.Tables.Item(0).Rows.Add(myRw)
            Dim temSQL As New System.Data.OleDb.OleDbCommandBuilder(myAdapter)
            myAdapter.Update(ds, ds.Tables.Item(0).ToString) [资料来源：www.THINK58.com]
            ds.Dispose()
            myAdapter.Dispose()
            ListBox1.Items.Add(Trim(TextBox1.Text))
            MsgBox("添加成功!", , "提示")
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If UserName = Trim(ListBox1.Text) Then
            MsgBox("不能删除正在登录的用户!", , "提示")
            Exit Sub
        End If
        ''
        '以上用的是delete..下面用的是adapter

copyright think58 [资料来源：http://THINK58.com]

        Dim strSQl As String = "select * from admin where adminname='" & Trim(ListBox1.Text) & "'"
        Dim myadapter As New OleDb.OleDbDataAdapter(strSQl, myConn)
        Dim ds As New DataSet
        myadapter.Fill(ds, "admin")
        ds.Tables.Item(0).Rows(0).Delete()
        Dim autoSql As New Data.OleDb.OleDbCommandBuilder(myadapter)
        myadapter.Update(ds, ds.Tables.Item(0).ToString)
        ListBox1.Items.Remove(ListBox1.Text)
End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '修改
        If Trim(TextBox1.Text) <> "" And Trim(TextBox2.Text) <> "" And Trim(TextBox3.Text) <> "" Then copyright think58 [资料来源：http://THINK58.com]
            If Trim(TextBox2.Text) <> Trim(TextBox3.Text) Then
                MsgBox("新密码不对!", , "提示")
                Exit Sub
            End If
            Dim myCmd As New OleDb.OleDbCommand
            Dim myReader As Data.OleDb.OleDbDataReader
            If isPrivs = 3 Then
                myCmd.CommandText = "select * from admin where username='" & UserName & "'"
            Else
                myCmd.CommandText = "select * from admin where adminname='" & UserName & "'" think58
            End If
            myCmd.Connection = myConn
            myReader = myCmd.ExecuteReader()
            myCmd.Dispose()
            myCmd = New OleDb.OleDbCommand
            If myReader.Read Then
                If Trim(myReader.Item(1).ToString) = Trim(TextBox1.Text) Then
                    If isPrivs = 3 Then
                        myCmd.CommandText = "update admin set adminpassword='" & Trim(TextBox2.Text) & "' where adminname='" & UserName & "'" 内容来自think58

[版权所有：http://think58.com]

                    Else
                        myCmd.CommandText = "update admin set adminpassword='" & Trim(TextBox2.Text) & "' where adminname='" & UserName & "'"
                    End If
                    myCmd.Connection = myConn
                    myCmd.ExecuteNonQuery()
                    myCmd.Dispose() copyright think58

[资料来源：http://think58.com]

为了保证测试的质量，将测试过程分成几个阶段，即:代码审查、单元测试、集成测试、确认测试和系统测试。
（1）单元测试
单元测试集中在检查软件设计的最小单位—模块上，通过测试发现实现该模块的实际功能与定义该模块的功能说明不符合的情况，以及编码的错误。
身份认证时候要保证在以下输入情况时候系统能够健康运行：
① 输入用户ID时候键入非法字符，如：•#￥%……等
② 在操作员编码框输入非数字字符，如abc，！•#￥《》
③ 输入的用户ID，或者操作员编码不存在。
④ 输入的用户ID，或者操作员编码与密码不相符合。
⑤ 输入的用户ID，操作员编码不能登陆本模块。
⑥ 输入的信息超过规定字符长度
⑦ 输入的信息有一项为空。
（2）集成测试
集成测试是将模块按照设计要求组装起来同时进行测试，主要目标是发现与接口有关的问题。如一个模块与另一个模块可能有由于疏忽的问题而造成有害影响；把子功能组合起来可能不产生预期的主功能；个别看起来是可以接受的误差可能积累到不能接受的程度；全程数据结构可能有错误等。
（3）确认测试
确认测试的目的是向未来的用户表明系统能够像预定要求那样工作。经集成测试后，已经按照设计把所有的模块组装成一个完整的软件系统，接口错误也已经基本排除了，接着就应该进一步验证软件的有效性，这就是确认测试的任务，即软件的功能和性能如同用户所合理期待的那样。 copyright think58 [资料来源：http://www.THINK58.com]
（4）系统测试
软件开发完成以后，最终还要与系统中其他部分配套运行，进行系统测试。包括恢复测试、安全测试、强度测试和性能测试等。
单独对系统的测试主要从以下几方面入手：
① 功能测试：测试是否满足开发要求，是否提供设计所描述的功能，是否用户的需求都得到满足。功能测试是系统测试最常用和必须的测试，通常还会以正式的软件说明书为测试标准。
② 强度测试及性能测试：测试系统能力最高实际限度，即软件在一些超负荷情况下功能实现的情况。
③ 安全测试：验证安装在系统内的保护机构确实能够对系统进行保护，使之不受各种非常的干扰。针对本系统主要是对权限系统的测试和对无效数据、错数据、和非法数据干扰的能力的测试。
经过上述的测试过程对软件进行测试后，软件基本满足开发的要求，测试宣告结束。

copyright think58 [来源：http://www.think58.com]

[资料来源：http://think58.com]

参考文献
[1] 黄梯云.管理信息系统（修订版）[M].高等教育出版社.2000
[2] 崔强.二维码在未来电子影票中的应用[J].现代电影技术.2008（6）.29-30
[3] 张斌 张显明.基于JSP技术的影院网络售票系统设计[J].电脑知识与技术.2007（24）.129-131
[4] 黄 盛.第三方支付价值分析与发展思考[J].商场现代化.2008（1）.137-138
[5] 于会智.影院联网售票系统的分析与设计[J].商丘职业技术学院学报.2008（2）.49-52
[6] 徐云彪.数据库原理与技术[M].浙江大学出版社.2004
[7] 张湘辉.软件开发的过程与管理[M].清华大学出版社.2006年
[8] 刘寅虓.系统分析之路——软件工程研究院[M].电子工业出版社.2005年
[9] Timothy C.Lethbridge Robert Laganiere编,张红光等译.面向对象软件工程     Object-Oriented Software Engineering[M].机械工业出版社. 2003年
[10]刘香萍，赵雪岩，焦宁等.基于struts框架的网上售票系统的设计与实现[J].计算机工程与设计.2007. 28（20）.5060-5065
[11]张惠玲 孙朝云.基于Delphi7.0网络售票系统设计[J].电脑开发与应用.18（4）.24-25
[12]杨小东 张贵仓等. 基于身份认证的手机支付系统的设计与实现[J].计算机应用.2007.3(1).585-586 think58 [资料来源：http://www.THINK58.com]
[13]杨淋洁.网上售票系统的研究与应用[J].计算机应用.2007.13(10).
[14]冯 军.电影院计算机售票及业务管理系统的应用与发展[J].影视计术.2006(2).49-52
[15] JianMeng YangYang. Application of Mobile 2D Barcode in China[J]. IEEE Xplore.2008(6).1-4
[16]张思奇 孙军 张云凤等.基于BRP思想的剧院售票系统的应用研究[J].大众科技.2007(9).81-82
[17]帅青红.网上售票系统方案[J].西南民族大学学报.2004.30（6）.790-792
[18]XiaoshanLi ZhimingLiu ZhenshengGuo. Formal Ohject-Oriented Analysis and Design of an Online Ticketing System[J].IEEE.2004.259-266
[19]谭跃生 郭辉.Linux下基于IP/TCP的网络售票系统的设计与实现[J].包头钢铁学院学报.2006.22(2).173-176
[20]谭彬等.网络支付体系的安全性分析与研究[J].信息安全与通信保密.2007(11).61-63

内容来自think58 [资料来源：http://THINK58.com]