frmborrowbooks.frm
来自「通用书店管理系统」· FRM 代码 · 共 1,152 行 · 第 1/4 页
FRM
1,152 行
_StyleDefs(49) = "Named:id=36:Selected"
_StyleDefs(50) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(51) = "Named:id=37:Caption"
_StyleDefs(52) = ":id=37,.parent=34,.alignment=2"
_StyleDefs(53) = "Named:id=38:HighlightRow"
_StyleDefs(54) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(55) = "Named:id=39:EvenRow"
_StyleDefs(56) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
_StyleDefs(57) = "Named:id=40:OddRow"
_StyleDefs(58) = ":id=40,.parent=33"
_StyleDefs(59) = "Named:id=41:RecordSelector"
_StyleDefs(60) = ":id=41,.parent=34"
_StyleDefs(61) = "Named:id=42:FilterBar"
_StyleDefs(62) = ":id=42,.parent=33"
End
End
Begin VB.Frame Frame1
Caption = "会员信息"
Height = 1740
Index = 0
Left = 165
TabIndex = 1
Top = 165
Width = 11595
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 = 8835
Locked = -1 'True
TabIndex = 9
Top = 255
Width = 2295
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 = 8835
Locked = -1 'True
TabIndex = 8
Top = 705
Width = 2295
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 = 5070
Locked = -1 'True
TabIndex = 7
Top = 1200
Width = 2295
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 = 5070
Locked = -1 'True
TabIndex = 6
Top = 705
Width = 2295
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 = 1365
Locked = -1 'True
TabIndex = 5
Top = 1185
Width = 2295
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 = 1365
Locked = -1 'True
TabIndex = 4
Top = 690
Width = 2295
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 = 1
Left = 5070
Locked = -1 'True
TabIndex = 3
Top = 240
Width = 2295
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 = 0
Left = 1365
TabIndex = 0
Top = 225
Width = 2295
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 = 375
Index = 7
Left = 7620
TabIndex = 17
Top = 315
Width = 1695
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 = 660
Index = 6
Left = 7620
TabIndex = 16
Top = 750
Width = 1110
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 = 375
Index = 5
Left = 3750
TabIndex = 15
Top = 1275
Width = 1620
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 = 375
Index = 4
Left = 3750
TabIndex = 14
Top = 795
Width = 1620
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 = 375
Index = 3
Left = 150
TabIndex = 13
Top = 1275
Width = 1620
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 = 375
Index = 2
Left = 165
TabIndex = 12
Top = 780
Width = 1620
End
Begin VB.Label Label1
Caption = "姓名："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?