📄 frm_members.frm
字号:
Left = 6600
TabIndex = 15
Top = 1800
Width = 1575
_ExtentX = 2778
_ExtentY = 503
_Version = 393216
AutoTab = -1 'True
MaxLength = 10
Format = "mm/dd/yyyy"
Mask = "##/##/####"
PromptChar = "_"
End
Begin VB.Label lbl_add
BackStyle = 0 'Transparent
Caption = "Address"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 4560
TabIndex = 28
Top = 360
Width = 735
End
Begin VB.Label lbl_sex
BackStyle = 0 'Transparent
Caption = "Sex"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 27
Top = 1845
Width = 495
End
Begin VB.Label lbl_phone
BackStyle = 0 'Transparent
Caption = "Phone no."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 26
Top = 1485
Width = 975
End
Begin VB.Label lbl_mail
BackStyle = 0 'Transparent
Caption = "Email address"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 25
Top = 1140
Width = 1335
End
Begin VB.Label lbl_lname
BackStyle = 0 'Transparent
Caption = "Last name"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 24
Top = 780
Width = 975
End
Begin VB.Label lbl_fname
BackStyle = 0 'Transparent
Caption = "First name"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 23
Top = 420
Width = 1095
End
Begin VB.Label lbl_birth
BackStyle = 0 'Transparent
Caption = "Birthdate(mm/dd/yyyy)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 4560
TabIndex = 22
Top = 1840
Width = 1935
End
End
Begin VB.Frame Fra_library
Caption = "Library info."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 1455
Left = -74760
TabIndex = 1
Top = 2520
Width = 8415
Begin VB.TextBox txt_deposite
Alignment = 1 'Right Justify
ForeColor = &H00400000&
Height = 285
Left = 6480
Locked = -1 'True
TabIndex = 7
Top = 240
Width = 1695
End
Begin VB.TextBox txt_bookhnd
Alignment = 1 'Right Justify
ForeColor = &H00400000&
Height = 285
Left = 6480
Locked = -1 'True
TabIndex = 6
Top = 600
Width = 1695
End
Begin VB.TextBox txt_note
DataField = "Note"
ForeColor = &H00400000&
Height = 285
Left = 2640
Locked = -1 'True
MaxLength = 70
TabIndex = 5
Tag = "8"
Top = 960
Width = 2655
End
Begin VB.TextBox txt_memid
Alignment = 1 'Right Justify
ForeColor = &H00400000&
Height = 285
Left = 6960
Locked = -1 'True
TabIndex = 4
Top = 960
Width = 1215
End
Begin MSMask.MaskEdBox msk_expr
Height = 285
Left = 2640
TabIndex = 2
Top = 600
Width = 1575
_ExtentX = 2778
_ExtentY = 503
_Version = 393216
MaxLength = 10
Format = "mm/dd/yyyy"
Mask = "##/##/####"
PromptChar = "_"
End
Begin MSMask.MaskEdBox msk_join
Height = 285
Left = 2640
TabIndex = 3
Top = 240
Width = 1575
_ExtentX = 2778
_ExtentY = 503
_Version = 393216
AutoTab = -1 'True
MaxLength = 10
Format = "mm/dd/yyyy"
Mask = "##/##/####"
PromptChar = "_"
End
Begin VB.Label lbl_note
BackStyle = 0 'Transparent
Caption = "Special note"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 13
Top = 1000
Width = 1215
End
Begin VB.Label lbl_join
BackStyle = 0 'Transparent
Caption = "Date of join(mm/dd/yyyy)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 12
Top = 300
Width = 2295
End
Begin VB.Label lbl_expr
BackStyle = 0 'Transparent
Caption = "Date of expire(mm/dd/yyyy)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 11
Top = 645
Width = 2535
End
Begin VB.Label lbl_depo
BackStyle = 0 'Transparent
Caption = "Deposits"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 5160
TabIndex = 10
Top = 270
Width = 855
End
Begin VB.Label lbl_bookin
BackStyle = 0 'Transparent
Caption = "Book in hand"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 5160
TabIndex = 9
Top = 630
Width = 1215
End
Begin VB.Label lbl_mid
BackStyle = 0 'Transparent
Caption = "Member ID"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 5760
TabIndex = 8
Top = 1020
Width = 1095
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -