📄 main.frm
字号:
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "已经借的图书"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 210
Left = 4800
TabIndex = 6
Top = 240
Width = 1365
End
End
Begin VB.Frame Frame1
Caption = "基本信息"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4215
Left = 840
TabIndex = 3
Top = 720
Width = 4095
Begin VB.TextBox txtFa
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 345
Left = 1200
TabIndex = 51
Text = "Text1"
Top = 3645
Width = 1335
End
Begin VB.Frame Frame5
Caption = "Frame5"
Height = 135
Left = 3720
TabIndex = 31
Top = 0
Width = 15
End
Begin VB.TextBox txtZhiCheng
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 30
Text = "Text1"
Top = 3000
Width = 1695
End
Begin MSComctlLib.ImageList ImageList1
Left = 5400
Top = 4200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":1E16
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":226A
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":26BE
Key = ""
EndProperty
EndProperty
End
Begin VB.TextBox txtDepart
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 13
Text = "Text1"
Top = 2400
Width = 1695
End
Begin VB.TextBox txtClass
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 12
Text = "Text1"
Top = 1800
Width = 1695
End
Begin VB.TextBox txtName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 11
Text = "Text1"
Top = 1200
Width = 1695
End
Begin VB.TextBox txtBookId
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 1
Text = "Text1"
Top = 600
Width = 1695
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "元"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 12
Left = 2640
TabIndex = 52
Top = 3720
Width = 210
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "共计欠费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 11
Left = 240
TabIndex = 50
Top = 3720
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "职 称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 9
Left = 240
TabIndex = 29
Top = 3120
Width = 735
End
Begin VB.Image Image2
Height = 480
Left = 3240
Picture = "Main.frx":2B12
Top = 600
Width = 480
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "部 门"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 3
Left = 240
TabIndex = 10
Top = 2520
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "班 级"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 2
Left = 240
TabIndex = 9
Top = 1920
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 1
Left = 240
TabIndex = 8
Top = 1320
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "借书证号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 0
Left = 240
TabIndex = 7
Top = 720
Width = 840
End
End
Begin VB.Line Line3
BorderColor = &H80000016&
BorderStyle = 6 'Inside Solid
X1 = 2880
X2 = 13920
Y1 = 600
Y2 = 600
End
Begin VB.Menu MnuFile
Caption = "控制(&C)"
Begin VB.Menu FenMnu
Caption = "图书分类(&F)"
Shortcut = ^F
End
Begin VB.Menu s5
Caption = "-"
End
Begin VB.Menu AddMnu
Caption = "添加新书(&A)"
Shortcut = ^A
End
Begin VB.Menu EditMnu
Caption = "编辑图书(&E)"
Shortcut = ^E
End
Begin VB.Menu s1
Caption = "-"
End
Begin VB.Menu EditIdMnu
Caption = "编辑借书证(&J)"
Shortcut = ^J
End
Begin VB.Menu s2
Caption = "-"
End
Begin VB.Menu ExitMnu
Caption = "退出(&X)"
End
End
Begin VB.Menu ToolMnu
Caption = "工具(&T)"
Begin VB.Menu LoginMnu
Caption = "登录(&D)"
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -