frmguestinfo.frm

所在类别： 随书资源/T 工业技术/TP 自动化技术、计算机技术/TP31 计算机软件 其他题名： 作者： 夏邦贵, 刘凡馨等编著 出版者： 机械工业出版社 出版年： 2006 I

VERSION 5.00
Begin VB.Form frmGuestInfo 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "客户信息"
   ClientHeight    =   3600
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3600
   ScaleWidth      =   6690
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "关闭"
      Height          =   375
      Left            =   5880
      TabIndex        =   14
      Top             =   3000
      Width           =   735
   End
   Begin VB.TextBox txtName 
      Height          =   350
      Left            =   1748
      Locked          =   -1  'True
      MaxLength       =   20
      TabIndex        =   6
      Text            =   "Text1"
      Top             =   247
      Width           =   4095
   End
   Begin VB.TextBox txtPWD 
      Height          =   350
      Left            =   1748
      Locked          =   -1  'True
      MaxLength       =   10
      TabIndex        =   5
      Text            =   "Text2"
      Top             =   712
      Width           =   4095
   End
   Begin VB.TextBox txtIdentity 
      Height          =   350
      Left            =   1748
      Locked          =   -1  'True
      MaxLength       =   18
      TabIndex        =   4
      Text            =   "Text3"
      Top             =   1162
      Width           =   4095
   End
   Begin VB.TextBox txtEmail 
      Height          =   350
      Left            =   1748
      Locked          =   -1  'True
      MaxLength       =   50
      TabIndex        =   3
      Text            =   "Text4"
      Top             =   1627
      Width           =   4095
   End
   Begin VB.TextBox txtPhone 
      Height          =   350
      Left            =   1748
      Locked          =   -1  'True
      MaxLength       =   11
      TabIndex        =   2
      Text            =   "Text5"
      Top             =   2092
      Width           =   4095
   End
   Begin VB.TextBox txtPostCode 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   350
      Left            =   1748
      Locked          =   -1  'True
      MaxLength       =   6
      TabIndex        =   1
      Text            =   "Text6"
      Top             =   2542
      Width           =   4095
   End
   Begin VB.TextBox txtAddress 
      Height          =   350
      Left            =   1748
      Locked          =   -1  'True
      MaxLength       =   50
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "Text7"
      Top             =   3007
      Width           =   4095
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "姓名："
      Height          =   180
      Left            =   1208
      TabIndex        =   13
      Top             =   337
      Width           =   540
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "口令："
      Height          =   180
      Left            =   1208
      TabIndex        =   12
      Top             =   787
      Width           =   540
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "身份证："
      Height          =   180
      Left            =   1028
      TabIndex        =   11
      Top             =   1252
      Width           =   720
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "Email："
      Height          =   180
      Left            =   1118
      TabIndex        =   10
      Top             =   1717
      Width           =   630
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "联系地址："
      Height          =   180
      Left            =   848
      TabIndex        =   9
      Top             =   3097
      Width           =   900
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "联系电话："
      Height          =   180
      Left            =   848
      TabIndex        =   8
      Top             =   2167
      Width           =   900
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "邮政编码："
      Height          =   180
      Left            =   848
      TabIndex        =   7
      Top             =   2632
      Width           =   900
   End
End
Attribute VB_Name = "frmGuestInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
    Unload Me
End Sub