📄 frmmain.frm
字号:
BackColor = &H80000018&
Height = 270
Left = 1440
Locked = -1 'True
TabIndex = 22
Top = 2520
Width = 1815
End
Begin VB.TextBox TxtBookNo
Appearance = 0 'Flat
BackColor = &H0080FF80&
Height = 270
Left = 1440
Locked = -1 'True
MaxLength = 6
TabIndex = 16
Top = 2040
Width = 1815
End
Begin VB.Frame Frame2
Height = 135
Left = 360
TabIndex = 14
Top = 1680
Width = 8175
End
Begin VB.TextBox TxtBorrowedCount
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = 1440
Locked = -1 'True
TabIndex = 13
Top = 1200
Width = 1815
End
Begin VB.TextBox TxtReaderName
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = 5040
Locked = -1 'True
TabIndex = 12
Top = 720
Width = 2175
End
Begin VB.TextBox TxtReaderNo
Appearance = 0 'Flat
BackColor = &H0080FF80&
Height = 270
Left = 1440
Locked = -1 'True
TabIndex = 11
Top = 720
Width = 1815
End
Begin VB.Label Label24
Caption = "注意：如果要还书请先进行读者登陆"
ForeColor = &H000000FF&
Height = 255
Index = 1
Left = -70800
TabIndex = 56
Top = 1200
Width = 3255
End
Begin VB.Label Label24
Caption = "注意：如果要借书请先进行读者登陆"
ForeColor = &H000000FF&
Height = 255
Index = 0
Left = 4200
TabIndex = 55
Top = 1200
Width = 3255
End
Begin VB.Label Label23
Caption = "库存量"
Height = 255
Left = 4320
TabIndex = 53
Top = 3480
Width = 735
End
Begin VB.Label Label22
Caption = "借阅日期"
Height = 255
Left = -70800
TabIndex = 50
Top = 3480
Width = 1095
End
Begin VB.Label Label21
Caption = "借阅天数"
Height = 255
Left = -74520
TabIndex = 49
Top = 3960
Width = 855
End
Begin VB.Label Label20
Caption = "图书编号"
Height = 255
Left = -74520
TabIndex = 45
Top = 2040
Width = 975
End
Begin VB.Label Label19
Caption = "名称"
Height = 255
Left = -74520
TabIndex = 44
Top = 2520
Width = 975
End
Begin VB.Label Label18
Caption = "作者"
Height = 255
Left = -70800
TabIndex = 43
Top = 2640
Width = 1095
End
Begin VB.Label Label17
Caption = "出版社"
Height = 255
Left = -74520
TabIndex = 42
Top = 3000
Width = 975
End
Begin VB.Label Label16
Caption = "类别"
Height = 255
Left = -70800
TabIndex = 41
Top = 3060
Width = 1095
End
Begin VB.Label Label15
Caption = "价钱"
Height = 255
Left = -74520
TabIndex = 40
Top = 3480
Width = 975
End
Begin VB.Label Label14
Caption = "读者编号"
Height = 255
Left = -74640
TabIndex = 34
Top = 720
Width = 975
End
Begin VB.Label Label13
Caption = "姓名"
Height = 255
Left = -70800
TabIndex = 33
Top = 720
Width = 1335
End
Begin VB.Label Label5
Caption = "已借图书"
Height = 255
Index = 1
Left = -74640
TabIndex = 32
Top = 1200
Width = 1215
End
Begin VB.Label Label12
Caption = "注意：输入书号后，请按回车。"
ForeColor = &H000000FF&
Height = 255
Left = 3600
TabIndex = 27
Top = 2040
Width = 3255
End
Begin VB.Label Label11
Caption = "价钱"
Height = 255
Left = 480
TabIndex = 21
Top = 3480
Width = 975
End
Begin VB.Label Label10
Caption = "类别"
Height = 255
Left = 4320
TabIndex = 20
Top = 3000
Width = 735
End
Begin VB.Label Label9
Caption = "出版社"
Height = 255
Left = 480
TabIndex = 19
Top = 3000
Width = 975
End
Begin VB.Label Label8
Caption = "作者"
Height = 255
Left = 4320
TabIndex = 18
Top = 2520
Width = 1095
End
Begin VB.Label Label7
Caption = "名称"
Height = 255
Left = 480
TabIndex = 17
Top = 2520
Width = 975
End
Begin VB.Label Label6
Caption = "图书编号"
Height = 255
Left = 480
TabIndex = 15
Top = 2040
Width = 975
End
Begin VB.Label Label5
Caption = "已借书本"
Height = 255
Index = 0
Left = 360
TabIndex = 10
Top = 1200
Width = 1215
End
Begin VB.Label Label4
Caption = "姓名"
Height = 255
Left = 4200
TabIndex = 9
Top = 720
Width = 1335
End
Begin VB.Label Label3
Caption = "读者编号"
Height = 255
Left = 360
TabIndex = 8
Top = 720
Width = 975
End
End
Begin VB.Frame Frame1
Height = 2775
Left = 240
TabIndex = 1
Top = 1080
Width = 1335
Begin VB.CommandButton CmdExit
Caption = "退出"
Height = 855
Left = 240
Picture = "FrmMain.frx":0342
Style = 1 'Graphical
TabIndex = 3
Top = 1560
Width = 855
End
Begin VB.CommandButton CmdLogin
Caption = "登陆"
Height = 855
Left = 240
Picture = "FrmMain.frx":0784
Style = 1 'Graphical
TabIndex = 2
Top = 360
Width = 855
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 9480
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":0A8E
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":0DAA
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":10C6
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":13E2
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":16FE
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":1A1A
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":22F6
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":2BD2
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":2EEE
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":320A
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 11670
_ExtentX = 20585
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "借书"
Object.ToolTipText = "借阅图书"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "还书"
Object.ToolTipText = "归还图书"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "读者添加"
Object.ToolTipText = "办理借书证"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -