frm_main.frm

一个长途汽车站收费管理系统

VERSION 5.00
Begin VB.Form frm_Main 
   Caption         =   "长途汽车信息管理系统"
   ClientHeight    =   1545
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4350
   LinkTopic       =   "Form1"
   ScaleHeight     =   1545
   ScaleWidth      =   4350
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu menuSystem 
      Caption         =   "系统"
      Begin VB.Menu systemadduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu menuchangepwd 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu menubusline 
      Caption         =   "线路信息"
      Begin VB.Menu menubuslineedit 
         Caption         =   "编辑"
      End
      Begin VB.Menu menubuslineque 
         Caption         =   "查询"
      End
   End
   Begin VB.Menu menubus 
      Caption         =   "汽车信息"
      Begin VB.Menu menubusedit 
         Caption         =   "编辑"
      End
      Begin VB.Menu menubusque 
         Caption         =   "查询"
      End
   End
   Begin VB.Menu menuticket 
      Caption         =   "车票信息"
      Begin VB.Menu menuticketedit 
         Caption         =   "编辑"
      End
      Begin VB.Menu menuticketque 
         Caption         =   "查询"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub exit_Click()
Unload Me

End Sub

Private Sub Form_Load()
Me.Hide
frm_Login.Show
End Sub

Private Sub menubusedit_Click()
frm_bus.Show
End Sub

Private Sub menubuslineedit_Click()
frm_busline.Show
End Sub

Private Sub menubuslineque_Click()
frm_quelineinfo.Show
End Sub

Private Sub menubusque_Click()
frm_quebusinfo.Show
End Sub

Private Sub menuchangepwd_Click()
frm_edituser.Username.Text = CurrentUser
frm_edituser.Show
End Sub

Private Sub menuticketedit_Click()
frm_ticket.Show
End Sub

Private Sub menuticketque_Click()
frm_queticketinfo.Show
End Sub

Private Sub systemadduser_Click()
frm_adduser.Show

End Sub