frmcardmanage.frm
来自「通用书店管理系统」· FRM 代码 · 共 1,276 行 · 第 1/4 页
FRM
1,276 行
VERSION 5.00
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "TODG7.OCX"
Begin VB.Form frmCardManage
Caption = "会员卡管理"
ClientHeight = 6960
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6960
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin VB.Frame Frame2
Height = 1680
Left = 120
TabIndex = 12
Top = 4560
Width = 11625
Begin VB.TextBox txtFields
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 9
Left = 7965
TabIndex = 5
Top = 1095
Width = 2040
End
Begin VB.ComboBox cmbFields
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 7965
TabIndex = 4
Top = 645
Width = 2040
End
Begin VB.TextBox txtFields
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 8
Left = 7965
TabIndex = 3
Top = 165
Width = 2040
End
Begin VB.TextBox txtFields
BackColor = &H80000018&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 7
Left = 4650
Locked = -1 'True
TabIndex = 24
Top = 1110
Width = 2040
End
Begin VB.TextBox txtFields
BackColor = &H80000018&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 6
Left = 4650
Locked = -1 'True
TabIndex = 22
Top = 630
Width = 2040
End
Begin VB.TextBox txtFields
BackColor = &H80000018&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 5
Left = 4650
Locked = -1 'True
TabIndex = 20
Top = 120
Width = 2040
End
Begin VB.TextBox txtFields
BackColor = &H80000018&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 4
Left = 1170
Locked = -1 'True
TabIndex = 18
Top = 1140
Width = 2040
End
Begin VB.TextBox txtFields
BackColor = &H80000018&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 3
Left = 1170
Locked = -1 'True
TabIndex = 16
Top = 630
Width = 2040
End
Begin VB.TextBox txtFields
BackColor = &H80000018&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 2
Left = 1170
Locked = -1 'True
TabIndex = 14
Top = 135
Width = 2040
End
Begin VB.Label Label1
Caption = "新会员号："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 8
Left = 6945
TabIndex = 27
Top = 1230
Visible = 0 'False
Width = 1395
End
Begin VB.Label Label1
Caption = "续卡周期："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 7
Left = 6945
TabIndex = 26
Top = 765
Width = 1395
End
Begin VB.Label Label1
Caption = "续卡费："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 6
Left = 6945
TabIndex = 25
Top = 270
Width = 1395
End
Begin VB.Label Label1
Caption = "会员类型："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 5
Left = 3450
TabIndex = 23
Top = 1245
Width = 1395
End
Begin VB.Label Label1
Caption = "到会日期："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 4
Left = 3465
TabIndex = 21
Top = 765
Width = 1395
End
Begin VB.Label Label1
Caption = "入会日期："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 3
Left = 3465
TabIndex = 19
Top = 270
Width = 1395
End
Begin VB.Label Label1
Caption = "级别："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 2
Left = 315
TabIndex = 17
Top = 1245
Width = 1395
End
Begin VB.Label Label1
Caption = "姓名："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?