📄 borrow.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form BorrowFrm
BorderStyle = 3 'Fixed Dialog
Caption = "借阅列表"
ClientHeight = 9045
ClientLeft = 1185
ClientTop = 2100
ClientWidth = 9945
Icon = "borrow.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9045
ScaleWidth = 9945
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture2
Height = 975
Left = 7080
Picture = "borrow.frx":0442
ScaleHeight = 915
ScaleWidth = 2115
TabIndex = 14
Top = 7560
Width = 2175
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 13
Top = 8550
Width = 9945
_ExtentX = 17542
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 3528
MinWidth = 3528
Picture = "borrow.frx":1214
Text = "借图书总数量"
TextSave = "借图书总数量"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 1587
MinWidth = 1587
Text = "0"
TextSave = "0"
Object.ToolTipText = "key1"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3528
MinWidth = 3528
Picture = "borrow.frx":1666
Text = "天海工作室"
TextSave = "天海工作室"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 4586
MinWidth = 4586
Text = "非常感谢使用天海软件!"
TextSave = "非常感谢使用天海软件!"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 3704
MinWidth = 3704
Text = "程序设计：刘海永"
TextSave = "程序设计：刘海永"
EndProperty
EndProperty
End
Begin VB.Frame Frame3
Caption = "条件查询"
ForeColor = &H00FF0000&
Height = 1935
Left = 6720
TabIndex = 6
Top = 3240
Width = 3135
Begin VB.CommandButton CmdLook
Caption = "查找"
Height = 375
Left = 1800
TabIndex = 12
Top = 1320
Width = 975
End
Begin VB.TextBox Text1
Height = 375
Left = 360
TabIndex = 11
Top = 1320
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "按借阅人员"
Height = 375
Index = 3
Left = 1560
TabIndex = 10
Top = 720
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "按图书类别"
Height = 375
Index = 2
Left = 120
TabIndex = 9
Top = 720
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "按图书名称"
Height = 375
Index = 1
Left = 1560
TabIndex = 8
Top = 360
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "按图书编号"
Height = 375
Index = 0
Left = 120
TabIndex = 7
Top = 360
Value = -1 'True
Width = 1335
End
End
Begin VB.Frame Frame2
Caption = "图书查询"
ForeColor = &H00008000&
Height = 1935
Left = 6720
TabIndex = 1
Top = 5400
Width = 3135
Begin VB.CommandButton Command4
Caption = "今日借出图书"
Height = 495
Left = 1680
TabIndex = 5
Top = 480
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "全部借出图书"
Height = 495
Left = 120
TabIndex = 4
Top = 480
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "本月借出图书"
Enabled = 0 'False
Height = 495
Left = 120
TabIndex = 3
Top = 1200
Width = 1335
End
Begin VB.CommandButton CmdExit
Caption = "关闭并退出"
Height = 495
Left = 1680
TabIndex = 2
Top = 1200
Width = 1335
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
DragIcon = "borrow.frx":1AB8
Height = 8520
Left = 0
TabIndex = 0
Top = 0
Width = 6600
_ExtentX = 11642
_ExtentY = 15028
_Version = 393216
BackColor = 16777215
ForeColor = 0
Rows = 8
Cols = 6
FixedCols = 0
BackColorFixed = 0
ForeColorFixed = 16777215
GridColor = 12632256
GridColorFixed = 0
GridColorUnpopulated= 65535
WordWrap = -1 'True
AllowBigSelection= 0 'False
FocusRect = 0
HighLight = 0
AllowUserResizing= 1
FormatString = "图书编号|图书名称|图书类别|读者姓名|借出时间|备注"
_NumberOfBands = 1
_Band(0).Cols = 6
_Band(0).GridLinesBand= 1
_Band(0).GridLineWidthBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Caption = "查询使用注意事项："
Height = 3015
Left = 6720
TabIndex = 15
Top = 120
Width = 3135
End
End
Attribute VB_Name = "BorrowFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Const MARGIN_SIZE = 60 ' 单位为缇
' 数据绑定变量
' 能列排序变量
Private m_iSortCol As Integer
Private m_iSortType As Integer
' 列拖拽变量
Private m_bDragOK As Boolean
Private m_iDragCol As Integer
Private xdn As Integer, ydn As Integer
Private Sub Data_Conn()
Dim sSQL As String
' 设置字符串
sSQL = "select 图书编号,图书名称,图书类别,读者姓名,借出时间,备注 from books where 是否借出=true Order by 图书编号"
' 打开连接
' 使用提供的集合创建 recordset
Set datPrimaryRS = New Recordset
datPrimaryRS.CursorLocation = adUseClient
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -