📄 adfrm.frm
字号:
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "书库清单"
Top = 240
Visible = 0 'False
Width = 2055
End
Begin VB.Frame Frame2
Height = 15
Left = 120
TabIndex = 17
Top = 2040
Width = 7935
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Bindings = "adfrm.frx":250B
Height = 1335
Left = 240
TabIndex = 13
Top = 2400
Width = 7695
_ExtentX = 13573
_ExtentY = 2355
_Version = 393216
Cols = 4
FixedCols = 0
BackColorBkg = 12648447
FocusRect = 0
HighLight = 0
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = "帐号|书名|借书日期|还书日期"
End
Begin VB.CommandButton Command2
Caption = "书籍借出"
Height = 255
Left = 5280
TabIndex = 12
Top = 1560
Width = 1095
End
Begin VB.TextBox Text3
BackColor = &H8000000F&
Enabled = 0 'False
Height = 270
Left = 3480
MaxLength = 13
TabIndex = 11
Top = 1545
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "用户确定"
Height = 255
Left = 4920
TabIndex = 9
Top = 840
Width = 975
End
Begin VB.TextBox Text2
Height = 270
IMEMode = 3 'DISABLE
Left = 960
MaxLength = 7
PasswordChar = "*"
TabIndex = 6
Top = 825
Width = 1335
End
Begin VB.TextBox Text1
Height = 270
Left = 960
MaxLength = 8
TabIndex = 5
Top = 345
Width = 1335
End
Begin VB.Label Label9
Caption = "书籍信息"
Height = 255
Left = 240
TabIndex = 16
Top = 3840
Width = 975
End
Begin VB.Label Label8
Caption = "借阅信息"
Height = 255
Left = 240
TabIndex = 15
Top = 2160
Width = 1215
End
Begin VB.Label Label7
Caption = "请输入书籍的ISBN"
Height = 255
Left = 1920
TabIndex = 10
Top = 1560
Width = 1455
End
Begin VB.Label Label4
Caption = "已借本数"
Height = 255
Left = 3120
TabIndex = 8
Top = 840
Width = 855
End
Begin VB.Label Label3
Caption = "用户名"
Height = 255
Left = 3120
TabIndex = 7
Top = 360
Width = 735
End
Begin VB.Label Label2
Caption = "密 码"
Height = 255
Left = 360
TabIndex = 4
Top = 840
Width = 735
End
Begin VB.Label Label1
Caption = "帐 号"
Height = 255
Left = 360
TabIndex = 3
Top = 360
Width = 735
End
End
Begin VB.Frame Frame12
Height = 5535
Left = 0
TabIndex = 75
Top = 720
Visible = 0 'False
Width = 8175
Begin VB.Data Data14
Caption = "Data14"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 6120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "新书介绍单"
Top = 5040
Visible = 0 'False
Width = 1935
End
Begin VB.CommandButton Command12
Caption = "取消"
Height = 255
Left = 4080
TabIndex = 83
Top = 4680
Width = 1095
End
Begin VB.CommandButton Command11
Caption = "登记新书介绍"
Height = 255
Left = 2040
TabIndex = 82
Top = 4680
Width = 1215
End
Begin VB.TextBox Text15
Height = 2655
Left = 1320
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 81
Top = 1800
Width = 5295
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "adfrm.frx":251F
Left = 2520
List = "adfrm.frx":2541
TabIndex = 79
Top = 960
Width = 1455
End
Begin VB.TextBox Text14
Height = 270
Left = 2520
TabIndex = 78
Top = 480
Width = 2655
End
Begin VB.Label Label23
Caption = "书籍简介"
Height = 255
Left = 1320
TabIndex = 80
Top = 1560
Width = 855
End
Begin VB.Label Label22
Caption = "分 类"
Height = 255
Left = 1320
TabIndex = 77
Top = 1005
Width = 615
End
Begin VB.Label Label21
Caption = "书 名"
Height = 255
Left = 1320
TabIndex = 76
Top = 495
Width = 615
End
End
Begin VB.Frame Frame11
Height = 5535
Left = 0
TabIndex = 62
Top = 720
Visible = 0 'False
Width = 8175
Begin VB.CommandButton Command10
Caption = "遗失书籍登记"
Enabled = 0 'False
Height = 255
Left = 3120
TabIndex = 69
Top = 3600
Width = 1575
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid8
Bindings = "adfrm.frx":2583
Height = 2295
Left = 120
TabIndex = 68
Top = 1080
Width = 7815
_ExtentX = 13785
_ExtentY = 4048
_Version = 393216
Cols = 4
FixedCols = 0
BackColorBkg = 12648447
HighLight = 2
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = "帐号|书名|借书日期|还书日期"
End
Begin VB.Data Data13
Caption = "Data13"
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 = 600
Visible = 0 'False
Width = 2295
End
Begin VB.Data Data12
Caption = "Data12"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 2880
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 600
Visible = 0 'False
Width = 2295
End
Begin VB.Data Data11
Caption = "Data11"
Connect = "Access"
DatabaseName = "F:\vb程序1\vb程序1\V_Library.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "书库清单"
Top = 600
Visible = 0 'False
Width = 2295
End
Begin VB.CommandButton Command9
Caption = "身份确认"
Height = 255
Left = 5520
TabIndex = 67
Top = 360
Width = 1095
End
Begin VB.TextBox Text13
Height = 270
IMEMode = 3 'DISABLE
Left = 3960
MaxLength = 7
PasswordChar = "*"
TabIndex = 66
Top = 345
Width = 1335
End
Begin VB.TextBox Text12
Height = 270
Left = 1680
TabIndex = 65
Top = 345
Width = 1455
End
Begin VB.Label Label20
Caption = "（罚款额为书籍价格的2倍）"
Height = 255
Left = 4800
TabIndex = 74
Top = 4680
Width = 2415
End
Begin VB.Label Label19
BorderStyle = 1 'Fixed Single
Height = 255
Left = 3720
TabIndex = 73
Top = 4680
Width = 855
End
Begin VB.Label Label18
BorderStyle = 1 'Fixed Single
Height = 255
Left = 3720
TabIndex = 72
Top = 4200
Width = 855
End
Begin VB.Label Label17
Caption = "应付罚款"
Height = 255
Left = 3000
TabIndex = 71
Top = 4680
Width = 735
End
Begin VB.Label Label16
Caption = "书籍价格"
Height = 255
Left = 3000
TabIndex = 70
Top = 4200
Width = 735
End
Begin VB.Label Label15
Caption = "密 码"
Height = 255
Left = 3360
TabIndex = 64
Top = 360
Width = 615
End
Begin VB.Label Label14
Caption = "帐 号"
Height = 255
Left = 1080
TabIndex = 63
Top = 360
Width = 615
End
End
End
Attribute VB_Name = "adfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private FormOldWidth As Long
'保存窗体的原始宽度
Private FormOldHeight As Long
'保存窗体的原始高度
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -