📄 adfrm.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form adfrm
BorderStyle = 1 'Fixed Single
Caption = "管理员单元"
ClientHeight = 6630
ClientLeft = 45
ClientTop = 330
ClientWidth = 8220
Icon = "adfrm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6630
ScaleWidth = 8220
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 2
Top = 6375
Width = 8220
_ExtentX = 14499
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 9313
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "11:33"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
TextSave = "2004-5-22"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 6600
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "adfrm.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "adfrm.frx":0896
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "adfrm.frx":0CEA
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "adfrm.frx":113E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "adfrm.frx":1592
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "adfrm.frx":19E6
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "adfrm.frx":213A
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 8220
_ExtentX = 14499
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "借阅书籍"
Object.ToolTipText = "借阅书籍"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "归还书籍"
Object.ToolTipText = "归还书籍"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询信息"
Object.ToolTipText = "查询信息"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "登记遗失"
Object.ToolTipText = "登记遗失书籍"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "介绍新书"
Object.ToolTipText = "介绍新书"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关 于"
Object.ToolTipText = "关于"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Object.ToolTipText = "退出系统"
ImageIndex = 7
EndProperty
EndProperty
End
Begin VB.Frame Frame5
Height = 5535
Left = 0
TabIndex = 30
Top = 720
Visible = 0 'False
Width = 8175
Begin VB.Frame Frame8
Height = 4695
Left = 240
TabIndex = 47
Top = 600
Visible = 0 'False
Width = 7695
Begin VB.Data Data9
Caption = "Data9"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 4440
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1320
Visible = 0 'False
Width = 2055
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid6
Bindings = "adfrm.frx":2456
Height = 2655
Left = 120
TabIndex = 55
Top = 1920
Width = 7455
_ExtentX = 13150
_ExtentY = 4683
_Version = 393216
Cols = 4
FixedCols = 0
BackColorBkg = 12648447
FocusRect = 0
HighLight = 0
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = "帐号|书名|借书日期|还书日期"
End
Begin VB.Frame Frame9
Height = 15
Left = 120
TabIndex = 54
Top = 1680
Width = 7455
End
Begin VB.CommandButton Command7
Caption = "检索信息"
Height = 255
Left = 4200
TabIndex = 53
Top = 840
Width = 1095
End
Begin VB.TextBox Text11
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 1560
TabIndex = 52
Top = 840
Width = 2415
End
Begin VB.TextBox Text10
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 1560
MaxLength = 8
TabIndex = 51
Top = 360
Width = 1815
End
Begin VB.OptionButton Option3
Caption = "逾期未还"
Height = 255
Left = 720
TabIndex = 50
Top = 1320
Width = 1215
End
Begin VB.OptionButton Option2
Caption = "书 名"
Height = 255
Left = 720
TabIndex = 49
Top = 840
Width = 975
End
Begin VB.OptionButton Option1
Caption = "帐 号"
Height = 255
Left = 720
TabIndex = 48
Top = 360
Width = 855
End
End
Begin VB.Frame Frame6
Height = 4695
Left = 240
TabIndex = 32
Top = 600
Width = 7695
Begin VB.Data Data8
Caption = "Data8"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 4800
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2040
Visible = 0 'False
Width = 2175
End
Begin VB.CommandButton Command6
Caption = "取消检索"
Height = 255
Left = 4680
TabIndex = 46
Top = 1560
Width = 1095
End
Begin VB.CommandButton Command5
Caption = "书籍检索"
Height = 255
Left = 4680
TabIndex = 45
Top = 960
Width = 1095
End
Begin VB.TextBox Text9
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 1200
TabIndex = 44
Top = 2160
Width = 3015
End
Begin VB.TextBox Text8
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 1200
TabIndex = 43
Top = 1680
Width = 2055
End
Begin VB.ComboBox Combo1
Enabled = 0 'False
Height = 300
ItemData = "adfrm.frx":246A
Left = 1200
List = "adfrm.frx":248C
TabIndex = 42
Top = 1500
Width = 1335
End
Begin VB.TextBox Text7
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 1200
TabIndex = 41
Top = 720
Width = 1935
End
Begin VB.TextBox Text6
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 1200
TabIndex = 40
Top = 240
Width = 3015
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid5
Bindings = "adfrm.frx":24CE
Height = 1935
Left = 120
TabIndex = 39
Top = 2640
Width = 7455
_ExtentX = 13150
_ExtentY = 3413
_Version = 393216
Cols = 10
FixedCols = 0
BackColorBkg = 12648447
FocusRect = 0
HighLight = 0
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = "书名|作者1|作者2|ISBN|主题词|分类|出版社|价格|现有数量|总量"
End
Begin VB.Frame Frame7
Height = 15
Left = 120
TabIndex = 38
Top = 2520
Width = 7455
End
Begin VB.CheckBox Check5
Caption = "出版社"
Height = 255
Left = 240
TabIndex = 37
Top = 2160
Width = 855
End
Begin VB.CheckBox Check4
Caption = "主题词"
Height = 255
Left = 240
TabIndex = 36
Top = 1680
Width = 855
End
Begin VB.CheckBox Check3
Caption = "分 类"
Height = 255
Left = 240
TabIndex = 35
Top = 1200
Width = 855
End
Begin VB.CheckBox Check2
Caption = "作 者"
Height = 255
Left = 240
TabIndex = 34
Top = 720
Width = 855
End
Begin VB.CheckBox Check1
Caption = "书 名"
Height = 255
Left = 240
TabIndex = 33
Top = 240
Width = 855
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -