VB497 基于VB客票中心售票系统VB+SQL Server

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

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

 设计MIS时，针对每一个功能，都要按照模块化思想，使输入、处理与输出“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不易出错，而且易于维护。
    报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印分开设计，虽然消耗时间，但易于整个MIS系统的维护。
    （2）.界面必须始终一致
    统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏幕用户就要换一套操作命令与操作方法。
    例如在整个系统可以以问号图标表示帮助，以磁盘图标表示存盘，以打印机图标表示打印等。
    （3）.界面必须使用户随时掌握任务的进展情况
    人机界面应该能够告诉用户软件运行的进度。特别是在需要较长时间的等待时，必须让用户了解工作进展情况，如可以设计已经完成了百分之几的任务进度条等。目前，Windows下的应用软件无论大小，其安装程序几乎均做到了这一点。开发MIS软件时，这一点很值得借鉴。
    （4）.界面友好。使用方便
    多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入(特别是汉字)，而应让用户用鼠标轻松选择。例如，人事管 [资料来源：http://think58.com]

•表是存放数据的容器，被设计成行和列的格式，就像电子表中的那样。每一列叫做一个“字段”，包含特定类型的信息，如姓名或学历。每一行称为一个“记录”，包含与单个实体有关的所有信息，如某个员工的姓名、性别、所在部门、学历等。对于像SQL Server 2000这样的关系数据库管理程序，一个数据库通常包含几个存放相关数据的不同表。
•查询是一个SQL Server 2000对象，它询问数据库中有关数据的问题。根据设计方法的不同，查询能够在数据库中检索并组合来自不同表的数据。例如，可以设计一个查询来告知在公司中工作超过1年的职员有多少。查询还可以对一组数据执行操作，如更新或删除某组记录。
•窗体是一个窗口，它提供一种很方便的途径来查看数据库中已有记录或向数据库中增添新记录。在SQL Server 2000中，可以创建一个窗体，用来同时查阅单个表或多个表中的数据，还可以打印和显示窗体。
•报表是一个SQL Server 2000对象，设计来显示数据，其作用类似于窗体，但主要是用于数据打印，不能输入数据。
• 页是一种特殊类型的窗体，它使用户能够利用Web浏览器查看和编辑SQL Server 2000的表。

Private Sub Cmdexit_Click()
End think58.com [来源：http://think58.com]

End Sub copyright think58 [资料来源：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

[来源：http://www.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 = ""

think58

         Else
            MDIForm1.Show
            Form1.Hide
         End If
       End If
    End If
  End If
End If

think58

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

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

End Sub

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

Adodc4.Recordset.Find cc
If Combo4.Text = "全" Then
   Text2.Text = Int(Val(Text7.Text) * Val(Text8.Text) + 0.5)
Else
   Text2.Text = Int(Val(Text7.Text) * Val(Text8.Text) / 2 + 0.5)
End If
Text2.Refresh
While Not Adodc8.Recordset.EOF
   If Year(Text12) = Year(Date) And Month(Text12) = Combo2.Text And Day(Text12) = Combo3.Text And Text13.Text = Text9.Text And Text25.Text = "F" Then
     sum = sum + 1
   End If
   Adodc8.Recordset.MoveNext
Wend
Text3.Text = sum + 1
Adodc8.Recordset.MoveFirst
While Not Adodc8.Recordset.EOF
   If Year(Text12) = Year(Date) And Month(Text12) = Combo2.Text And Day(Text12) = Combo3.Text And Text13.Text = Text9.Text And Text25.Text = "T" Then
     Text3.Text = Text17.Text
     Adodc8.Recordset.MoveLast
     flag = "T"
   Else
     Adodc8.Recordset.MoveNext 本文来自think58 [资料来源：http://www.THINK58.com]
   End If
Wend
While Not Adodc9.Recordset.EOF
   If Year(Text22.Text) = Year(Date) And Month(Text22.Text) = Combo2.Text And Day(Text22.Text) = Combo3.Text And Text23.Text = Text9.Text Then
     sum = sum + Val(Text24.Text)
   End If
   Adodc9.Recordset.MoveNext 内容来自think58 [资料来源：http://www.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月第一版

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

11、《企业管理的计算机化》 威廉•谢尔  上海科学技术文献出版社  2000年 
think58好，好think58

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