📄 frmbookinfo.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmBookInfo
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "图书信息管理"
ClientHeight = 6120
ClientLeft = 2565
ClientTop = 3090
ClientWidth = 10695
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 6120
ScaleWidth = 10695
Begin VB.CommandButton CmdCancel
Cancel = -1 'True
Caption = "返回"
Height = 375
Left = 9000
TabIndex = 8
Top = 5520
Width = 1215
End
Begin VB.Frame FrameQuery
BackColor = &H00FFC0C0&
Caption = "查询图书信息"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 4815
Left = 480
TabIndex = 1
Top = 600
Width = 9855
Begin VB.TextBox TextQueryAth
Height = 375
Left = 6840
MultiLine = -1 'True
TabIndex = 23
Top = 720
Width = 2775
End
Begin VB.TextBox TextQueryName
Height = 375
Left = 2040
TabIndex = 22
Top = 720
Width = 2775
End
Begin VB.OptionButton Option2
BackColor = &H00FFC0C0&
Caption = "按作者查询："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 5040
TabIndex = 16
Top = 840
Width = 1935
End
Begin VB.OptionButton Option1
BackColor = &H00FFC0C0&
Caption = "按书名查询："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 15
Top = 840
Value = -1 'True
Width = 2415
End
Begin VB.CommandButton CmdQuery
Caption = "查询"
Height = 375
Left = 8400
TabIndex = 14
Top = 1320
Width = 1215
End
Begin MSComctlLib.ListView LvBkResult
Height = 2655
Left = 240
TabIndex = 25
Top = 2040
Width = 9375
_ExtentX = 16536
_ExtentY = 4683
View = 3
Arrange = 2
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "图书详细信息"
Object.Width = 2540
EndProperty
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "请选择查许类型并填写查询关键字："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 240
TabIndex = 20
Top = 360
Width = 4815
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "查询结果："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 240
TabIndex = 19
Top = 1680
Width = 1335
End
End
Begin VB.Frame FrameAdd
BackColor = &H00FFC0C0&
Caption = "添加图书信息"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 4815
Left = 480
TabIndex = 2
Top = 600
Width = 9855
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 480
TabIndex = 26
Top = 3240
Width = 2055
_ExtentX = 3625
_ExtentY = 661
_Version = 393216
Format = 20119553
CurrentDate = 38875
End
Begin VB.CommandButton CmdQueryType
Caption = "查看已有类别"
Height = 375
Left = 7920
TabIndex = 24
Top = 3240
Width = 1455
End
Begin VB.TextBox TextPrsNum
Height = 375
Left = 4560
TabIndex = 17
Top = 2280
Width = 3135
End
Begin VB.TextBox TextBkType
Height = 375
Left = 4560
TabIndex = 12
Top = 3240
Width = 3135
End
Begin VB.TextBox TextBkPress
Height = 375
Left = 4560
TabIndex = 9
Top = 1320
Width = 3135
End
Begin VB.CommandButton CmdAddOk
Caption = "添加"
Height = 375
Left = 7920
TabIndex = 5
Top = 4320
Width = 1455
End
Begin VB.TextBox TextBkAuthor
Height = 375
Left = 480
MultiLine = -1 'True
TabIndex = 4
Top = 2280
Width = 2775
End
Begin VB.TextBox TextBkName
Height = 375
Left = 480
TabIndex = 3
Top = 1320
Width = 2775
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "请输入需要添加图书的详细信息："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 480
TabIndex = 21
Top = 360
Width = 4575
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "图书版本号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 4560
TabIndex = 18
Top = 1920
Width = 1695
End
Begin VB.Label Label5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -