form5.frm

该系统包括：前台做了客户查询

VERSION 5.00
Begin VB.Form 预订信息 
   Caption         =   "预订信息"
   ClientHeight    =   7110
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10830
   LinkTopic       =   "Form5"
   ScaleHeight     =   7110
   ScaleWidth      =   10830
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "返回"
      Height          =   495
      Left            =   9360
      TabIndex        =   1
      Top             =   6600
      Width           =   1455
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FF8080&
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   7095
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10815
   End
End
Attribute VB_Name = "预订信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form2.Show
预订信息.Hide
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "  衡阳交通票务中心为了方便广大市民、学生出行，经申请由衡阳铁路局授权认证，联网代售衡阳铁路局客票业务。" _
+ Chr(13) + "   联网销售发往全国各地的坐号票、软硬卧车票、学生票、集体票、往返票及异地售票业务，并提供车票预定、上门送票业务！" _
+ Chr(13) + "预定咨询电话：[phone]" _
+ Chr(13) + "                      订票须知" _
+ Chr(13) + "如何预订火车票" _
+ Chr(13) + "1、 预订火车票最好提前3~5天进行；" _
+ Chr(13) + "2、 火车票预订需要预付款，预付款为参考票价的20%及每张票的窗口费（5元/张）；关于预付款支付及退款说明" _
+ Chr(13) + "3、 火车票预订的手续费（亦称窗口费）为5元/张，不含配送费，配送费收费标准依据预定地区配送价目表执行；" _
+ Chr(13) + "4、 预定火车票时请务必参考预定系统时公布的缺票信息，系统暂未将缺票信息屏蔽；" _
+ Chr(13) + "5、 在支付预付款确认预定火车票后,在订单未处理半小时内不能取消, 在未出票前需要退票,请电话联系客户人员；" _
+ Chr(13) + "6、 在出票后，如不再需要该预定的车票，则预付款不再退还。其退票由代售点去当地车站代退，车站收取的退票手续费由代售点承担，目前车站收取的手续费为票价的20%。" _

End Sub