📄 会员信息.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form 会员信息
Caption = "会员信息"
ClientHeight = 7845
ClientLeft = 3060
ClientTop = 2175
ClientWidth = 9990
LinkTopic = "Form2"
ScaleHeight = 11010
ScaleWidth = 15240
Begin TabDlg.SSTab SSTab1
Height = 7815
Left = 0
TabIndex = 0
Top = 0
Width = 9915
_ExtentX = 17489
_ExtentY = 13785
_Version = 393216
TabHeight = 520
ForeColor = 16711680
TabCaption(0) = "会员信息录入"
TabPicture(0) = "会员信息.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "txtID"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame1"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "会员信息查询"
TabPicture(1) = "会员信息.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Command5"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Frame4"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Command3"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Frame3"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
TabCaption(2) = "会员信息修改"
TabPicture(2) = "会员信息.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Command8"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Frame6"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Command7"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Command6"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Frame5"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Command12"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).ControlCount= 6
Begin VB.CommandButton Command12
Caption = ">>删除该会员<<"
Enabled = 0 'False
Height = 615
Left = -69600
TabIndex = 73
Top = 6840
Width = 1815
End
Begin VB.Frame Frame1
Caption = "会员加入信息"
Height = 5775
Left = 240
TabIndex = 47
Top = 600
Width = 9495
Begin VB.ComboBox txtMem_type
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
ItemData = "会员信息.frx":0054
Left = 600
List = "会员信息.frx":0061
TabIndex = 77
Top = 5040
Width = 3255
End
Begin VB.ComboBox txtGender
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
ItemData = "会员信息.frx":0083
Left = 5520
List = "会员信息.frx":008D
TabIndex = 76
Top = 5040
Width = 3255
End
Begin VB.TextBox txtMem_ID
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 72
Top = 2400
Width = 3255
End
Begin VB.TextBox txtMem_addr
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 56
Top = 600
Width = 3255
End
Begin VB.TextBox txtMem_tel
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 55
Top = 1560
Width = 3255
End
Begin VB.TextBox txtMem_mail
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 54
Top = 2400
Width = 3255
End
Begin VB.TextBox txtReg_admin
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 53
Top = 3240
Width = 3255
End
Begin VB.TextBox txtReg_date
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 52
Top = 4200
Width = 3255
End
Begin VB.TextBox txtMem_money
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 51
Top = 4080
Width = 3255
End
Begin VB.TextBox txtMem_name
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 50
Top = 1440
Width = 3255
End
Begin VB.TextBox txtPassword
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
IMEMode = 3 'DISABLE
Left = 600
PasswordChar = "*"
TabIndex = 49
Top = 3240
Width = 3255
End
Begin VB.TextBox txtCard_id
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 48
Top = 600
Width = 3255
End
Begin VB.Label Label37
Caption = "[*]"
ForeColor = &H00FF0000&
Height = 255
Left = 5640
TabIndex = 83
Top = 3000
Width = 255
End
Begin VB.Label Label35
Caption = "[*]"
ForeColor = &H00FF0000&
Height = 255
Left = 720
TabIndex = 82
Top = 3000
Width = 255
End
Begin VB.Label Label34
Caption = "[*]"
ForeColor = &H00FF0000&
Height = 255
Left = 960
TabIndex = 81
Top = 2040
Width = 255
End
Begin VB.Label Label33
Caption = "[*]"
ForeColor = &H00FF0000&
Height = 255
Left = 1200
TabIndex = 80
Top = 4680
Width = 255
End
Begin VB.Label Label30
Caption = "[*]"
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 79
Top = 360
Width = 255
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "会员编号"
Height = 195
Left = 360
TabIndex = 68
Top = 360
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "姓名"
Height = 195
Left = 360
TabIndex = 67
Top = 1200
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "证件号"
Height = 195
Left = 360
TabIndex = 66
Top = 2040
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "金额"
Height = 195
Left = 360
TabIndex = 65
Top = 3840
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "密码"
Height = 195
Left = 360
TabIndex = 64
Top = 3000
Width = 360
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "性别"
Height = 195
Left = 5040
TabIndex = 63
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -