menuform-[customer details].frm

实现了

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6855
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   10305
   LinkTopic       =   "Form1"
   ScaleHeight     =   6855
   ScaleWidth      =   10305
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdclose 
      Caption         =   "Close"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2520
      TabIndex        =   12
      Top             =   6240
      Width           =   1575
   End
   Begin VB.PictureBox Picture1 
      Height          =   6015
      Left            =   0
      ScaleHeight     =   5955
      ScaleWidth      =   10035
      TabIndex        =   0
      Top             =   0
      Width           =   10095
      Begin VB.PictureBox Picture3 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   4695
         Left            =   3000
         ScaleHeight     =   4665
         ScaleWidth      =   6825
         TabIndex        =   4
         Top             =   1320
         Width           =   6855
         Begin VB.HScrollBar HScroll1 
            Height          =   375
            Left            =   0
            TabIndex        =   13
            Top             =   4320
            Width           =   6855
         End
         Begin VB.CommandButton cmdphoneno 
            Caption         =   "Phone No."
            Height          =   375
            Left            =   5760
            TabIndex        =   11
            Top             =   0
            Width           =   1095
         End
         Begin VB.CommandButton cmdcountry 
            Caption         =   "Country"
            Height          =   375
            Left            =   4680
            TabIndex        =   10
            Top             =   0
            Width           =   1215
         End
         Begin VB.CommandButton cmdgender 
            Caption         =   "Gender"
            Height          =   375
            Left            =   3600
            TabIndex        =   9
            Top             =   0
            Width           =   1095
         End
         Begin VB.CommandButton cmdaddress 
            Caption         =   "Address"
            Height          =   375
            Left            =   2520
            TabIndex        =   8
            Top             =   0
            Width           =   1095
         End
         Begin VB.CommandButton cmdcustomername 
            Caption         =   "Customer Name"
            Height          =   375
            Left            =   1080
            TabIndex        =   7
            Top             =   0
            Width           =   1455
         End
         Begin VB.CommandButton cmdcustomerid 
            Caption         =   "Customerid"
            Height          =   375
            Left            =   0
            TabIndex        =   6
            Top             =   0
            Width           =   1095
         End
      End
      Begin VB.PictureBox Picture2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   4695
         Left            =   0
         ScaleHeight     =   4665
         ScaleWidth      =   2745
         TabIndex        =   3
         Top             =   1320
         Width           =   2775
         Begin MSComctlLib.TreeView trvlcountry 
            Height          =   4215
            Left            =   240
            TabIndex        =   5
            Top             =   120
            Width           =   2175
            _ExtentX        =   3836
            _ExtentY        =   7435
            _Version        =   393217
            Style           =   7
            Appearance      =   1
         End
      End
      Begin VB.Label lblcotcntvtcd 
         Caption         =   "Click on the country names to view the customers details"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   240
         TabIndex        =   2
         Top             =   840
         Width           =   8055
      End
      Begin VB.Label lblcwcd 
         Caption         =   "Country Wise Customer Details"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1320
         TabIndex        =   1
         Top             =   120
         Width           =   9360
      End
   End
   Begin VB.Menu Nce 
      Caption         =   "New Customer Entry"
   End
   Begin VB.Menu Cd 
      Caption         =   "Customer Details"
   End
   Begin VB.Menu Resvt 
      Caption         =   "Reservation"
   End
   Begin VB.Menu Chk 
      Caption         =   "Checkout"
   End
   Begin VB.Menu exit 
      Caption         =   "Exit"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub trvlcountry_BeforeLabelEdit(Cancel As Integer)

End Sub