mdiform1.frm

实现了

               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   240
            TabIndex        =   26
            Top             =   5160
            Width           =   1695
         End
         Begin VB.Label lblphone 
            Caption         =   "Phone:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   240
            TabIndex        =   25
            Top             =   5760
            Width           =   1455
         End
      End
      Begin VB.TextBox Text2 
         Height          =   495
         Left            =   3600
         TabIndex        =   16
         Text            =   "Text2"
         Top             =   1560
         Width           =   4095
      End
      Begin VB.TextBox Text1 
         Height          =   495
         Left            =   3600
         TabIndex        =   15
         Text            =   "Text1"
         Top             =   960
         Width           =   4095
      End
      Begin VB.TextBox txt3 
         Height          =   495
         Left            =   3600
         TabIndex        =   7
         Top             =   2160
         Width           =   4215
      End
      Begin VB.TextBox txt4 
         Height          =   1215
         Left            =   3600
         TabIndex        =   6
         Top             =   2760
         Width           =   4215
      End
      Begin VB.Frame Gender 
         Caption         =   "Gender"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   480
         TabIndex        =   3
         Top             =   4080
         Width           =   4935
         Begin VB.OptionButton optmale 
            Caption         =   "male"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2160
            TabIndex        =   5
            Top             =   360
            Width           =   1095
         End
         Begin VB.OptionButton optfemale 
            Caption         =   "female"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   3600
            TabIndex        =   4
            Top             =   360
            Width           =   1215
         End
      End
      Begin VB.ComboBox cmb 
         Height          =   300
         Left            =   2160
         TabIndex        =   2
         Top             =   5400
         Width           =   3135
      End
      Begin VB.TextBox txt5 
         Height          =   495
         Left            =   2160
         TabIndex        =   1
         Top             =   5880
         Width           =   3255
      End
      Begin VB.Label Lbl 
         Caption         =   "New  Customer Entriy  form"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   18
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   960
         TabIndex        =   14
         Top             =   240
         Width           =   5295
      End
      Begin VB.Label lbl1 
         Caption         =   "Customer ID:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   13
         Top             =   960
         Width           =   2055
      End
      Begin VB.Label lbl2 
         Caption         =   "Customer Password:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         TabIndex        =   12
         Top             =   1560
         Width           =   3015
      End
      Begin VB.Label lbl3 
         Caption         =   "Customer Name:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         TabIndex        =   11
         Top             =   2160
         Width           =   2895
      End
      Begin VB.Label lbl4 
         Caption         =   "Address:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         TabIndex        =   10
         Top             =   2880
         Width           =   1455
      End
      Begin VB.Label lbl5 
         Caption         =   "Label1"
         Height          =   495
         Left            =   240
         TabIndex        =   9
         Top             =   5400
         Width           =   1695
      End
      Begin VB.Label lbl6 
         Caption         =   "Label1"
         Height          =   375
         Left            =   240
         TabIndex        =   8
         Top             =   6120
         Width           =   1455
      End
   End
   Begin VB.Menu Nce 
      Caption         =   "New Customer Entry"
   End
   Begin VB.Menu Cd 
      Caption         =   "Customer Details"
   End
   Begin VB.Menu Resvat 
      Caption         =   "Reservation"
   End
   Begin VB.Menu Ck 
      Caption         =   "Checkout"
   End
   Begin VB.Menu Exit 
      Caption         =   "Exit"
   End
End
Attribute VB_Name = "Menuform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Nce_Click()

End Sub