?? 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
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
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 = 24
Top = 720
Width = 2775
End
Begin VB.TextBox TextQueryName
Height = 375
Left = 2040
TabIndex = 23
Top = 720
Width = 2775
End
Begin VB.OptionButton Option2
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 = 17
Top = 840
Width = 2415
End
Begin VB.OptionButton Option1
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 = 16
Top = 840
Value = -1 'True
Width = 2415
End
Begin VB.CommandButton CmdQuery
Caption = "查詢"
Height = 375
Left = 8400
TabIndex = 15
Top = 1320
Width = 1215
End
Begin MSComctlLib.ListView LvBkResult
Height = 2655
Left = 240
TabIndex = 26
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
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 = 21
Top = 360
Width = 4815
End
Begin VB.Label Label7
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 = 1680
Width = 1335
End
End
Begin VB.Frame FrameAdd
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 VB.CommandButton CmdQueryType
Caption = "查看已有類別"
Height = 375
Left = 7920
TabIndex = 25
Top = 3240
Width = 1455
End
Begin VB.TextBox TextPrsNum
Height = 375
Left = 4560
TabIndex = 18
Top = 2280
Width = 3135
End
Begin VB.TextBox TextBkType
Height = 375
Left = 4560
TabIndex = 13
Top = 3240
Width = 3135
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 480
TabIndex = 12
Top = 3240
Width = 2175
_ExtentX = 3836
_ExtentY = 661
_Version = 393216
Format = 19726337
CurrentDate = 37987
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
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 = 22
Top = 360
Width = 4575
End
Begin VB.Label Label6
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 = 19
Top = 1920
Width = 1695
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -