毕业设计.frm

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

VERSION 5.00
Begin VB.Form 登录主界面 
   AutoRedraw      =   -1  'True
   Caption         =   "登录主界面"
   ClientHeight    =   7140
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10740
   LinkTopic       =   "Form1"
   ScaleHeight     =   7140
   ScaleWidth      =   10740
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   495
      Index           =   1
      Left            =   9720
      TabIndex        =   5
      Top             =   6600
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "进入"
      Height          =   495
      Index           =   0
      Left            =   8760
      TabIndex        =   4
      Top             =   6600
      Width           =   975
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   0
      Top             =   6720
   End
   Begin VB.Label Label7 
      BackColor       =   &H00FF0000&
      Caption         =   "QQ:412694196"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   975
      Left            =   1680
      TabIndex        =   8
      Top             =   4560
      Width           =   6735
   End
   Begin VB.Label Label6 
      BackColor       =   &H00FF0000&
      Caption         =   "程序设计：贺芙蓉"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   1215
      Left            =   1680
      TabIndex        =   7
      Top             =   3360
      Width           =   6735
   End
   Begin VB.Label Label5 
      BackColor       =   &H00FF0000&
      Caption         =   "欢迎进入车票预订系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   1575
      Left            =   1680
      TabIndex        =   6
      Top             =   1800
      Width           =   6735
   End
   Begin VB.Label Label4 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Label4"
      Height          =   375
      Left            =   9360
      TabIndex        =   3
      Top             =   0
      Width           =   1455
   End
   Begin VB.Label Label2 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Label2"
      Height          =   375
      Left            =   7080
      TabIndex        =   2
      Top             =   0
      Width           =   1215
   End
   Begin VB.Label Label3 
      BackColor       =   &H00E0E0E0&
      Caption         =   "现在时间："
      Height          =   375
      Index           =   2
      Left            =   8280
      TabIndex        =   1
      Top             =   0
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackColor       =   &H00E0E0E0&
      Caption         =   "今日日期："
      Height          =   375
      Index           =   0
      Left            =   6120
      TabIndex        =   0
      Top             =   0
      Width           =   975
   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(Index As Integer)
Form2.Show
登录主界面.Hide
End Sub

Private Sub Command2_Click(Index As Integer)
Unload Me
End
End Sub

Private Sub Form_Load()
Dim i As Integer, k As Single
登录.Show
ScaleMode = 3
k = 5
For i = 1 To 767
Line (0, i)-(1023, 2), RGB(0, 0, k * i)
Next
End Sub


Private Sub Timer1_Timer()
Label2.Caption = Date$
Label4.Caption = Time$
End Sub