📄 adfrm.frm
字号:
Begin VB.Frame Frame10
Height = 4695
Left = 240
TabIndex = 56
Top = 600
Visible = 0 'False
Width = 7695
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid7
Bindings = "adfrm.frx":24E2
Height = 3735
Left = 240
TabIndex = 57
Top = 720
Width = 7335
_ExtentX = 12938
_ExtentY = 6588
_Version = 393216
Cols = 3
FixedCols = 0
BackColorBkg = 12648447
FocusRect = 0
HighLight = 0
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = "帐号|书名|有否"
End
Begin VB.CommandButton Command8
Caption = "刷新数据库"
Height = 255
Left = 4080
TabIndex = 61
Top = 360
Width = 1215
End
Begin VB.OptionButton Option6
Caption = "无预约书"
Height = 255
Left = 2880
TabIndex = 60
Top = 360
Width = 1095
End
Begin VB.OptionButton Option5
Caption = "有预约书"
Height = 255
Left = 1680
TabIndex = 59
Top = 360
Width = 1095
End
Begin VB.OptionButton Option4
Caption = "全部"
Height = 255
Left = 720
TabIndex = 58
Top = 360
Width = 855
End
Begin VB.Data Data10
Caption = "Data10"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 5520
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "书库清单"
Top = 120
Visible = 0 'False
Width = 2055
End
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 5175
Left = 120
TabIndex = 31
Top = 240
Width = 7935
_ExtentX = 13996
_ExtentY = 9128
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 3
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "书籍查询"
Object.ToolTipText = "查询书籍情况"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "借书查询"
Object.ToolTipText = "查询读者借书情况"
ImageVarType = 2
EndProperty
BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "预订书查询"
Object.ToolTipText = "浏览预订书信息"
ImageVarType = 2
EndProperty
EndProperty
End
End
Begin VB.Frame Frame3
Height = 5535
Left = 0
TabIndex = 18
Top = 720
Visible = 0 'False
Width = 8175
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid3
Height = 1815
Left = 120
TabIndex = 19
Top = 3600
Width = 7935
_ExtentX = 13996
_ExtentY = 3201
_Version = 393216
Cols = 4
FixedCols = 0
BackColorBkg = 12648447
FocusRect = 0
HighLight = 0
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = "帐号|书名|借书日期|还书日期"
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid4
Bindings = "adfrm.frx":24F7
Height = 2415
Left = 600
TabIndex = 26
Top = 600
Width = 7455
_ExtentX = 13150
_ExtentY = 4260
_Version = 393216
Cols = 4
FixedCols = 0
BackColorBkg = 12648447
HighLight = 2
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = "帐号|书名|借书日期|还书日期"
End
Begin VB.Data Data7
Caption = "Data7"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 6360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "预订书单"
Top = 3240
Visible = 0 'False
Width = 1815
End
Begin VB.Data Data6
Caption = "Data6"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 4560
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "读者名单"
Top = 3240
Visible = 0 'False
Width = 1815
End
Begin VB.Data Data5
Caption = "Data5"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 1 'ODBC 游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 2640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3240
Visible = 0 'False
Width = 1935
End
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 720
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "书库清单"
Top = 3240
Visible = 0 'False
Width = 1935
End
Begin VB.Frame Frame4
Height = 15
Left = 0
TabIndex = 29
Top = 3120
Width = 8175
End
Begin VB.CommandButton Command4
Caption = "归还书籍"
Enabled = 0 'False
Height = 255
Left = 6480
TabIndex = 27
Top = 240
Width = 855
End
Begin VB.CommandButton Command3
Caption = "身份确认"
Height = 255
Left = 5520
TabIndex = 25
Top = 240
Width = 855
End
Begin VB.TextBox Text4
Height = 270
Left = 1200
MaxLength = 8
TabIndex = 24
Top = 225
Width = 1695
End
Begin VB.TextBox Text5
Height = 270
IMEMode = 3 'DISABLE
Left = 3600
MaxLength = 7
PasswordChar = "*"
TabIndex = 23
Top = 225
Width = 1575
End
Begin VB.Label Label13
Caption = "选择要还的书籍，单击《归还书籍》按钮进行还书操作。"
Height = 2415
Left = 120
TabIndex = 28
Top = 600
Width = 375
End
Begin VB.Label Label12
Caption = "密 码"
Height = 255
Left = 3000
TabIndex = 22
Top = 240
Width = 615
End
Begin VB.Label Label11
Caption = "帐 号"
Height = 255
Left = 600
TabIndex = 21
Top = 240
Width = 615
End
Begin VB.Label Label10
Caption = "还书情况"
Height = 255
Left = 120
TabIndex = 20
Top = 3360
Width = 855
End
End
Begin VB.Frame Frame1
Height = 5535
Left = 0
TabIndex = 1
Top = 720
Width = 8175
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid2
Height = 1335
Left = 240
TabIndex = 14
Top = 4080
Width = 7695
_ExtentX = 13573
_ExtentY = 2355
_Version = 393216
Cols = 9
FixedCols = 0
BackColorBkg = 12648447
FocusRect = 0
HighLight = 0
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = "书名|作者1|作者2|ISBN|主题词|分类|出版社|价格|总量"
End
Begin VB.TextBox Text17
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 3960
TabIndex = 86
Top = 840
Width = 855
End
Begin VB.TextBox Text16
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 3960
TabIndex = 85
Top = 360
Width = 855
End
Begin VB.Data Data15
Caption = "Data15"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 6480
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "预订书单"
Top = 1560
Visible = 0 'False
Width = 1575
End
Begin VB.CheckBox Check6
Caption = "预约书借阅"
Height = 255
Left = 480
TabIndex = 84
Top = 1560
Width = 1215
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 5880
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "读者名单"
Top = 1200
Visible = 0 'False
Width = 2055
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 5880
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 720
Visible = 0 'False
Width = 2055
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 5880
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -