mainform.frm

一个小型的旅行社管理系统

VERSION 5.00
Begin VB.Form MainFORM 
   Caption         =   "MainForm"
   ClientHeight    =   4815
   ClientLeft      =   -10185
   ClientTop       =   2310
   ClientWidth     =   6855
   FillColor       =   &H00808080&
   LinkTopic       =   "Form1"
   Picture         =   "MainFORM.frx":0000
   ScaleHeight     =   4815
   ScaleWidth      =   6855
   StartUpPosition =   2  'CenterScreen
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎使用本系统！"
      BeginProperty Font 
         Name            =   "方正舒体"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808080&
      Height          =   1095
      Left            =   720
      TabIndex        =   1
      Top             =   960
      Width           =   5895
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "返回"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00404040&
      Height          =   375
      Left            =   5040
      TabIndex        =   0
      Top             =   3840
      Width           =   855
   End
   Begin VB.Menu MANAGE 
      Caption         =   "管理(M)"
      Begin VB.Menu 景点管理 
         Caption         =   "景点管理(I)"
         Index           =   1
      End
      Begin VB.Menu 导游管理 
         Caption         =   "导游管理(T)"
         Index           =   1
      End
      Begin VB.Menu 游客管理 
         Caption         =   "游客管理(V)"
      End
   End
   Begin VB.Menu 查询 
      Caption         =   "查询(S)"
      Begin VB.Menu 景点_导游查询 
         Caption         =   "景点-- >导游查询"
         Index           =   1
      End
      Begin VB.Menu 导游_景点查询 
         Caption         =   "导游-->景点查询"
         Index           =   1
      End
      Begin VB.Menu 游客_景点导游查询 
         Caption         =   "游客-->景点导游查询"
      End
   End
   Begin VB.Menu 打印报表 
      Caption         =   "打引报表"
      Begin VB.Menu 景点信息报表 
         Caption         =   "景点信息报表"
      End
      Begin VB.Menu 导游信息报表 
         Caption         =   "导游信息报表"
      End
      Begin VB.Menu 游客信息报表 
         Caption         =   "游客信息报表"
      End
   End
   Begin VB.Menu 用户安全维护 
      Caption         =   "用户安全维护"
   End
End
Attribute VB_Name = "MainFORM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label1_Click()
Unload Me
End Sub


Private Sub 导游_景点查询_Click(Index As Integer)
导游景点查询.Show
End Sub

Private Sub 导游管理_Click(Index As Integer)
DYOUFORM.Show
End Sub

Private Sub 导游信息报表_Click()
DataReport2.Show
End Sub

Private Sub 景点_导游查询_Click(Index As Integer)
景点导游查询.Show
End Sub

Private Sub 景点管理_Click(Index As Integer)
JDFORM.Show
End Sub

Private Sub 景点信息报表_Click()
DataReport1.Show
End Sub

Private Sub 用户安全维护_Click()
MMFORM.Show
End Sub

Private Sub 游客_景点导游查询_Click()
游客景点导游查询.Show
End Sub

Private Sub 游客管理_Click()
YOUKFORM.Show
End Sub


Private Sub 游客信息报表_Click()
DataReport3.Show
End Sub