VB492 基于VB的上海铁路局客票中心售票系统

一个大型的计算机管理系统必须有一个正确的设计指导思想，通过合理的选择数据结构，操作系统以及开发环境，构成一个完善的网络系统，才能充分发挥计算机信息管理优势。现代化的车站售票是集预定车票、售票 、退票、车次查询、报表及其他各种服务，车站售票组织庞大，服务项目多，信息量大，要想提高劳动生产，降低成本，提高服务质量和管理水平，进而促进经济效益，必须借助计算机来进行现代化的信息管理。
第一章简要介绍了本系统的设计总体线路。第二章概述了管理信息系统的相关理论，第三章对本系统进行了系统分析和设计，包括功能需求描述、数据库设计等内容。第四章介绍了本系统的具体实现。最后一章对本系统开发过程中结论及使用过程中的体会进行了总结。 think58 [资料来源：www.THINK58.com]

问题的提出
一个大型的计算机管理系统必须有一个正确的设计指导思想，通过合理的选择数据结构，操作系统以及开发环境，构成一个完善的网络系统，才能充分发挥计算机信息管理优势。现代化的车站售票是集预定车票、售票 、退票、车次查询、报表及其他各种服务，车站售票组织庞大，服务项目多，信息量大，要想提高劳动生产，降低成本，提高服务质量和管理水平，进而促进经济效益，必须借助计算机来进行现代化的信息管理。
传统手工的客票中心售票管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了客票中心售票管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。 think58.com [资料来源：http://think58.com]

信息作为生产力中最活跃的因素，很早就在人类经济生活中发挥着不可替代的作用，但把信息纳入企业经营管理系统中高效处理和应用是在计算机发明以后的50年代末。
目前人们所提到的管理信息系统，通常是指以计算机为工具，对管理信息进行收集、存贮、检索、加工和传递，使其应用于组织机构及企业管理领域的“人－机系统”，该系统是70年代初“后工业经济”时代的产物，在企业管理信息系统在其发展的初期，是单一的人—机系统，系统功能简单，效率低，对管理的作用有限。
进入2 0世纪80年代末，随着计算机网络和通信技术的大力发展，企业管理信息系统进入网络化的发展时期。世界发达国家已建立起了完善的先进的管理信息系统体系，在其社会经济发展领域中发挥着巨大的作用。
我国的管理信息系统大发展是在80年代末90年代初，国家相继建立起了“金卡”、“金关”、金桥“工程，多数企事业单位建立了局域网和广域网管理信息系统。随着世界经济和我国经济逐步向知识经济迈进，无论是基于工业经济的管理信息系统，还是面向少数专家和管理人员的专家系统 (ES)或决策支持系统 (DSS)，其处理对象和服务对象，自身的系统结构，处理能力，都有了进一步的发展。

think58好，好think58 [资料来源：THINK58.com]

在ADO2.0中包含了数据绑定、可视化设计工具以及OLE DB数据源书写模板等新的内容。在Visual Basic6.0中，ADO的数据环境设计器(Data Environment Designer)取代了Visual Basic 5.0中的RDO的用户连接设计器(User Connection Designer)。User Connection对象只支持ODBC数据源，而Data Environment对象可以连接所有的OLE DB数据源o
    ADO对象模型定义了一个可编程的分层的对象集合，它支持部件对象模型(COM)和OLE DB数据源。与其他的数据访问对象相比，包含在ADO的对象少得多，也更加容易使用。
ADO对象模型中包含了3个一般用途的对象：Connection、Command和Recordset。程序开发人员可以创建这些对象并且使用这些对象访问数据库。在ADO对象模型中还有其他几个对象，例如Field、Property、Error和Parameter，它们是作为前面3个对象的子对象进行访问的。
1、ADO数据控件的功能
ADO data控件使用ActiveX数据对象（ADO）来快速建立数据约束控件和数据提供者之间的连接，并快速创建记录集，然后将数据通过数据约束控件提供给用户，其中数据约束控件可以是任何具有“数据源”属性的控件，而数据提供者可以是符合OLE DB规范的数据源。使用Visual Basic的类模块也可以很方便的创建子集的数据提供者。在Visual Basic6.0中，可以使用ADO数据控件实现下面一些功能： [资料来源：http://www.THINK58.com]
 连接一个本地数据库或远程数据库。
 打开一个指定的数据库表，或定义一个基于结构化查询语言(SQL)的查询、存储过程或者是该数据库中表的视图的记录集合。
 将数据字段的数值传递给数据绑定的控件，可以在这些控件中显示或更改这些数值。
 添加新的记录，或者根据对显示在绑定的控件中的数据的任何更改来更新一个数据库。
2、 ADO数据控件的属性
    ADO数据控件与Visual Basic的内部数据控件(Data)和远程数据控件(RDC)很相似，它允许使用ADO快速地创建与数据库的连接。
    与Data控件类似，为了实现对数据库的访问，ADO数据控件提供了几个属性，这些属性定义了怎样连接数据库以及同什么样的数据库相连接。
    Connection String属性：是一个字符串，可以包含进行一个连接所需的所有设置值，在该字符串中所传递的参数是与驱动程序相关的。例如，ODBC驱动程序允许该字符串包含驱动程序、提供者、默认的数据库、服务器、用户名称以及密码等。
ADO支持Connection String属性的4个参数，而且这4个参数将不经过ADO的处理直接送到数据源。这四个参数的属性如下表3.1所示： [资料来源：http://think58.com]

Private Sub Cmdexit_Click()
End think58

[资料来源：www.THINK58.com]

End Sub

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

Private Sub Cmdok_Click()
Dim username1 As String, username2 As String
username1 = Text1.Text
If Option1.Value Then
   Set Text3.DataSource = Adodc1
   Text3.DataField = "口令"
   Adodc1.Recordset.MoveFirst
   If username1 <> "" Then
      username2 = "用户名='" & username1 & "'"
      Adodc1.Recordset.Find username2
      If Adodc1.Recordset.EOF Then
        MsgBox "用户名错误请重输", 16, "错误"
      Else
        If Text2.Text <> Text3.Text Then
           MsgBox "密码错误请重输", 16, "错误"
           Text2.Text = ""
        Else
           MDIForm1.Show think58.com [资料来源：http://think58.com]
           Form1.Hide
        End If
      End If
  End If
Else
  If Option2.Value Then
     Set Text3.DataSource = Adodc2
     Text3.DataField = "口令"
     Adodc2.Recordset.MoveFirst
    If username1 <> "" Then
       username2 = "工号='" & username1 & "'"
       Adodc2.Recordset.Find username2
       If Adodc2.Recordset.EOF Then
         MsgBox "用户名错误请重输", 16, "错误"
       Else
         If Text2.Text <> Text3.Text Then
            MsgBox "密码错误请重输", 16, "错误"
            Text2.Text = "" copyright think58 [来源：http://www.think58.com]
         Else
            MDIForm1.Show
            Form1.Hide
         End If
       End If
    End If
  End If
End If think58.com

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

4.2售票管理界面编码设计
   [资料来源：http://think58.com]

图4.3“售票管理”功能界面

copyright think58

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

Dim flag As String
Private Sub Cmdfind_Click()
Dim zm As String
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
zm = "select 发车时刻表.车次,途径表.站名,车型,发车时间,检票口,发车时刻表.站名 as 班车 from 发车时刻表,途径表,车辆 where 发车时刻表.车次=途径表.车次 and 发车时刻表.车辆编号=车辆.车辆编号 and 途径表.站名='" & Combo1.Text & "'order by 发车时间 asc"
Adodc1.RecordSource = zm think58

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

参考文献
1、《Visual Basic 6.0数据库开发指南》   王福成、周铁柱、黄淼云等编著  清华大学出版社  2000年6月第一版
2、《ASP.NET入门经典：VB.NET编程篇》  崔洪斌等译  清华大学出版社  2002年05月第一版
3、《VB.NET编程实例详解(含盘)》  王华杰编著  中国铁道出版社  2002年04月第一版
4、《VB.NET高级编程》  康博译  清华大学出版社  2002年03月第一版
5、《Instant VB.NET实例解析VB.NET应用编程》  张龙卿编写  北京希望电子出版社  2002年01月第一版
6、《XML 编程--使用 VB 和 ASP》  [美]Mark Wilson,[美]Tracey Wilson著,  健莲科技译  中国电力出版社  2001年06月第一版
7、《数据库设计与编程实例详解》   电子工业出版社    2001年02月第一版
8、《编程技巧及故障排除即时通 (VB 篇)》  清华天则工作室编著  兵器工业出版社  2001年02月第一版
9、《引人入胜 Install Shield 6.x/VB/VC/Delphi 安装程序设计与制作 （含盘）》  张君编著  上海书店  2000年11月第一版
10、《VB6.0中文版教程》  新智工作室编著  电子工业出版社  2000年03月第一版 think58.com

[资料来源：www.THINK58.com]

11、《企业管理的计算机化》 威廉•谢尔  上海科学技术文献出版社  2000年 
[资料来源：http://THINK58.com]