form2.frm

客运售票系统vb+access

VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00FF8080&
   Caption         =   "功能选择"
   ClientHeight    =   5700
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   8745
   LinkTopic       =   "Form2"
   ScaleHeight     =   5700
   ScaleWidth      =   8745
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command8 
      Caption         =   "用户管理"
      Height          =   375
      Left            =   840
      TabIndex        =   6
      Top             =   4200
      Width           =   1575
   End
   Begin VB.CommandButton Command7 
      Caption         =   "站点流量统计"
      Height          =   375
      Left            =   840
      TabIndex        =   5
      Top             =   3600
      Width           =   1575
   End
   Begin VB.CommandButton Command6 
      Caption         =   "线路售票统计"
      Height          =   375
      Left            =   840
      TabIndex        =   4
      Top             =   3000
      Width           =   1575
   End
   Begin VB.CommandButton Command5 
      Caption         =   "每天售票统计"
      Height          =   375
      Left            =   840
      TabIndex        =   3
      Top             =   2400
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Caption         =   "班次管理"
      Height          =   375
      Left            =   840
      TabIndex        =   2
      Top             =   1200
      Width           =   1575
   End
   Begin VB.CommandButton Command3 
      Caption         =   "售票管理"
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   600
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "线路管理"
      Height          =   375
      Left            =   840
      TabIndex        =   0
      Top             =   1800
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Left            =   4680
      TabIndex        =   7
      Top             =   120
      Width           =   1935
   End
   Begin VB.Menu a 
      Caption         =   "系统管理"
      Begin VB.Menu a1 
         Caption         =   "用户管理"
      End
   End
   Begin VB.Menu b 
      Caption         =   "系统帮助"
   End
   Begin VB.Menu c 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub a1_Click()
Form3.Show
End Sub

Private Sub b_Click()
Form5.Show
End Sub

Private Sub c_Click()
End
End Sub

Private Sub Command1_Click()

If jb <> "管理员" Then
MsgBox "你不是管理员"

Exit Sub
End If

frm1.Show
End Sub

Private Sub Command2_Click()

If jb <> "管理员" Then
MsgBox "你不是管理员"

Exit Sub
End If
frm4.Show
End Sub

Private Sub Command3_Click()
frm2.Show
End Sub

Private Sub Command4_Click()
frm3.Show
End Sub

Private Sub Command5_Click()
If jb <> "管理员" Then
MsgBox "你不是管理员"

Exit Sub
End If


Form4.Show
End Sub

Private Sub Command6_Click()
If jb <> "管理员" Then
MsgBox "你不是管理员"

Exit Sub
End If

Form6.Show
End Sub

Private Sub Command7_Click()

If jb <> "管理员" Then
MsgBox "你不是管理员"

Exit Sub
End If
Form7.Show
End Sub

Private Sub Command8_Click()

If jb <> "管理员" Then
MsgBox "你不是管理员"

Exit Sub
End If

Form3.Show
End Sub

Private Sub Form_Load()
Label1.Caption = jb
End Sub