tourist.frm

tourist管理系统

VERSION 5.00
Object = "{6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0"; "SYSINFO.OCX"
Begin VB.MDIForm Tourist 
   BackColor       =   &H8000000C&
   Caption         =   "Tourist"
   ClientHeight    =   6165
   ClientLeft      =   2265
   ClientTop       =   2205
   ClientWidth     =   9015
   LinkTopic       =   "MDIForm1"
   Picture         =   "Tourist.frx":0000
   Begin SysInfoLib.SysInfo SysInfo1 
      Left            =   4200
      Top             =   2760
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.Menu mnuAdd 
      Caption         =   "添加"
      Begin VB.Menu mnuNOPERATOR 
         Caption         =   "职员"
      End
      Begin VB.Menu mnuNCRUISE 
         Caption         =   "行程"
      End
      Begin VB.Menu mnuNCUSTOMER 
         Caption         =   "客户"
      End
   End
   Begin VB.Menu mnuUpdata 
      Caption         =   "修改"
      Begin VB.Menu mnuUOPERATOR 
         Caption         =   "职员"
      End
      Begin VB.Menu mnuUCRUISE 
         Caption         =   "行程"
      End
      Begin VB.Menu mnuUCUSTOMER 
         Caption         =   "客户"
      End
   End
   Begin VB.Menu mnuDelete 
      Caption         =   "删除"
      Begin VB.Menu mnuDCUSTOMER 
         Caption         =   "客户"
      End
   End
   Begin VB.Menu mnuFind 
      Caption         =   "查询"
      Begin VB.Menu mnuOneFind 
         Caption         =   "唯一查询"
      End
      Begin VB.Menu mnuMoreFind 
         Caption         =   "模糊查询"
      End
   End
   Begin VB.Menu mnuReport 
      Caption         =   "报表"
      Begin VB.Menu mnuCUSTReport 
         Caption         =   "客户报表"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助"
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Tourist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Tourist.WindowState = 2
End Sub

Private Sub mnuCUSTReport_Click()
If Forms.Count > 1 Then Unload Forms(1)
Report.Show
End Sub

Private Sub mnuDCUSTOMER_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load CUSTOMER
CUSTOMER.cmdDelete.Visible = True
CUSTOMER.Caption = "删除客户"
End Sub

Private Sub mnuExit_Click()
Unload Tourist
End Sub

Private Sub mnuHelp_Click()
Select Case SysInfo1.OSPlatform
      Case 0
         MsgEnd = "Unidentified"
         MsgBox "System: " & MsgEnd
      Case 1
         Shell "c:\windows\hh.exe " + App.Path + "\Tourist.chm", vbNormalFocus
         MsgEnd = "Windows 95, ver. " & CStr(SysInfo1.OSVersion)
      Case 2
         Shell "c:\windows\hh.exe " + App.Path + "\Tourist.chm", vbNormalFocus
         MsgEnd = "Windows NT, ver. " & CStr(SysInfo1.OSVersion)
    End Select
End Sub

Private Sub mnuMoreFind_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load MoreFind
End Sub

Private Sub mnuNCRUISE_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load CRUISE
CRUISE.cmdAdd.Visible = True
CRUISE.Caption = "新行程"
CRUISE.Frame1.Visible = False
End Sub

Private Sub mnuNCUSTOMER_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load CUSTOMER
CUSTOMER.cmdAdd.Visible = True
CUSTOMER.Caption = "新客户"
CUSTOMER.Frame1.Visible = False
End Sub

Private Sub mnuNOPERATOR_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load OPERATOR
OPERATOR.cmdAdd.Visible = True
OPERATOR.Caption = "新职员"
OPERATOR.Frame1.Visible = False
End Sub

Private Sub mnuOneFind_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load OneFind
End Sub

Private Sub mnuUCRUISE_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load CRUISE
CRUISE.cmdUpdata.Visible = True
CRUISE.Caption = "修改行程"
End Sub

Private Sub mnuUCUSTOMER_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load CUSTOMER
CUSTOMER.cmdUpdata.Visible = True
CUSTOMER.Caption = "修改客户"
End Sub

Private Sub mnuUOPERATOR_Click()
If Forms.Count > 1 Then Unload Forms(1)
Load OPERATOR
OPERATOR.cmdUpdata.Visible = True
OPERATOR.Caption = "修改职员"
OPERATOR.Frame1.Visible = True
End Sub