📄 frmborrowbrowse.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 FrmBorrowBrowse
Caption = "借阅关系浏览"
ClientHeight = 7515
ClientLeft = 60
ClientTop = 345
ClientWidth = 11490
Icon = "FrmBorrowBrowse.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7515
ScaleWidth = 11490
StartUpPosition = 1 '所有者中心
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 4455
Left = 480
TabIndex = 13
Top = 2880
Width = 10815
_ExtentX = 19076
_ExtentY = 7858
_Version = 393216
End
Begin VB.Frame Frame1
Caption = "查询条件"
Height = 1695
Left = 480
TabIndex = 1
Top = 960
Width = 8775
Begin VB.CheckBox Check1
Caption = "执行模糊查询"
Height = 180
Left = 360
TabIndex = 10
Top = 1320
Width = 2895
End
Begin VB.TextBox TxtReaderName
Appearance = 0 'Flat
Height = 270
Left = 5520
TabIndex = 9
Top = 840
Width = 2415
End
Begin VB.TextBox TxtReaderNo
Appearance = 0 'Flat
Height = 270
Left = 1320
TabIndex = 7
Top = 840
Width = 2415
End
Begin VB.TextBox TxtBookName
Appearance = 0 'Flat
Height = 270
Left = 5520
TabIndex = 5
Top = 360
Width = 2415
End
Begin VB.TextBox TxtBookNo
Appearance = 0 'Flat
Height = 270
Left = 1320
TabIndex = 4
Top = 360
Width = 2415
End
Begin VB.Label Label4
Caption = "姓名"
Height = 255
Left = 4440
TabIndex = 8
Top = 840
Width = 855
End
Begin VB.Label Label3
Caption = "借书证号"
Height = 255
Left = 360
TabIndex = 6
Top = 840
Width = 735
End
Begin VB.Label Label2
Caption = "书名"
Height = 255
Left = 4440
TabIndex = 3
Top = 360
Width = 855
End
Begin VB.Label Label1
Caption = "图书编号"
Height = 255
Left = 360
TabIndex = 2
Top = 360
Width = 1335
End
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 11490
_ExtentX = 20267
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "借书记录"
ImageIndex = 1
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "所有借书"
Text = "所有借书记录"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "今日借书"
Text = "今日借书记录"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "还书记录"
ImageIndex = 3
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 2
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "所有还书"
Text = "所有还书记录"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "今日还书"
Text = "今日还书记录"
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
ImageIndex = 2
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭"
ImageIndex = 4
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 4440
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBorrowBrowse.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBorrowBrowse.frx":0626
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBorrowBrowse.frx":0942
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBorrowBrowse.frx":0C5E
Key = ""
EndProperty
EndProperty
End
Begin VB.Label LblResult
ForeColor = &H000000FF&
Height = 735
Left = 9480
TabIndex = 12
Top = 1560
Width = 1815
End
Begin VB.Label Label5
Caption = "查询结果"
ForeColor = &H8000000D&
Height = 255
Left = 9720
TabIndex = 11
Top = 1080
Width = 1335
End
End
Attribute VB_Name = "FrmBorrowBrowse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub DisplayFlexGrid(SQL As String)
Dim rs As ADODB.Recordset
Dim strRel As String
Set rs = ExecuteSQL(SQL)
With MSFlexGrid1
.Cols = 9
.Rows = 1
.TextMatrix(0, 1) = "图书编号"
.TextMatrix(0, 2) = "书名"
.TextMatrix(0, 3) = "借书证号"
.TextMatrix(0, 4) = "姓名"
.TextMatrix(0, 5) = "读者类别"
.TextMatrix(0, 6) = "剩余量"
.TextMatrix(0, 7) = "借书日期"
.TextMatrix(0, 8) = "是否已还"
.ColWidth(0) = 500
.ColWidth(1) = 1000
.ColWidth(2) = 2200
.ColWidth(3) = 1000
.ColWidth(4) = 1000
.ColWidth(5) = 800
.ColWidth(6) = 800
.ColWidth(7) = 1200
.ColWidth(8) = 800
Do While Not rs.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = rs.Fields("图书编号")
.TextMatrix(.Rows - 1, 2) = rs.Fields("书名")
.TextMatrix(.Rows - 1, 3) = rs.Fields("借书证号")
.TextMatrix(.Rows - 1, 4) = rs.Fields("姓名")
.TextMatrix(.Rows - 1, 5) = rs.Fields("读者类别")
.TextMatrix(.Rows - 1, 6) = rs.Fields("剩余量")
.TextMatrix(.Rows - 1, 7) = rs.Fields("借阅日期")
.TextMatrix(.Rows - 1, 8) = rs.Fields("是否已还")
rs.MoveNext
Loop
strRel = "共查到 " & rs.RecordCount & " 条记录"
LblResult.Caption = strRel
rs.Close
Set rs = Nothing
End With
End Sub
Private Sub Form_Load()
With MSFlexGrid1
.Cols = 9
.Rows = 1
.TextMatrix(0, 1) = "图书编号"
.TextMatrix(0, 2) = "书名"
.TextMatrix(0, 3) = "借书证号"
.TextMatrix(0, 4) = "姓名"
.TextMatrix(0, 5) = "读者类别"
.TextMatrix(0, 6) = "剩余量"
.TextMatrix(0, 7) = "借书日期"
.TextMatrix(0, 8) = "是否已还"
.ColWidth(0) = 500
.ColWidth(1) = 1000
.ColWidth(2) = 2200
.ColWidth(3) = 1000
.ColWidth(4) = 1000
.ColWidth(5) = 800
.ColWidth(6) = 800
.ColWidth(7) = 1200
.ColWidth(8) = 800
End With
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim SQL As String
Select Case Button.Index
Case 4
If Trim(TxtBookNo.Text) = "" And Trim(TxtBookName.Text) = "" And Trim(TxtReaderNo.Text) = "" And Trim(TxtReaderName.Text) = "" Then
SQL = "SELECT book.图书编号,书名,剩余量,借阅日期,是否已还,姓名,reader.借书证号,姓名,读者类别 FROM borrow,book,reader"
SQL = SQL & " WHERE book.图书编号 = borrow.图书编号 AND reader.借书证号 = borrow.借书证号"
Else
SQL = "SELECT book.图书编号,书名,剩余量,借阅日期,是否已还,姓名,reader.借书证号,姓名,读者类别 FROM borrow,book,reader"
SQL = SQL & " WHERE book.图书编号 = borrow.图书编号 AND reader.借书证号 = borrow.借书证号"
If Check1.Value = 0 Then
If Trim(TxtBookNo.Text) <> "" Then
SQL = SQL & " AND book.图书编号='" & TxtBookNo.Text & "'"
End If
If Trim(TxtBookName.Text) <> "" Then
SQL = SQL & " AND book.书名 ='" & TxtBookName.Text & "'"
End If
If Trim(TxtReaderNo.Text) <> "" Then
SQL = SQL & " AND reader.借书证号='" & TxtReaderNo.Text & "'"
End If
If Trim(TxtReaderName.Text) <> "" Then
SQL = SQL & " AND reader.姓名='" & TxtReaderName.Text & "'"
End If
Else
If Trim(TxtBookNo.Text) <> "" Then
SQL = SQL & " AND book.图书编号 LIKE '%" & TxtBookNo.Text & "%'"
End If
If Trim(TxtBookName.Text) <> "" Then
SQL = SQL & " AND book.书名 LIKE '%" & TxtBookName.Text & "%'"
End If
If Trim(TxtReaderNo.Text) <> "" Then
SQL = SQL & " AND reader.借书证号 LIKE '%" & TxtReaderNo.Text & "%'"
End If
If Trim(TxtReaderName.Text) <> "" Then
SQL = SQL & " AND reader.姓名 LIKE '%" & TxtReaderName.Text & "%'"
End If
End If
End If
DisplayFlexGrid (SQL)
Case 6
Unload Me
End Select
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Dim SQL As String
Select Case ButtonMenu.Key
Case "所有借书"
SQL = "SELECT book.图书编号,书名,剩余量,借阅日期,是否已还,姓名,reader.借书证号,姓名,读者类别 FROM borrow,book,reader"
SQL = SQL & " WHERE book.图书编号 = borrow.图书编号 AND reader.借书证号 = borrow.借书证号"
SQL = SQL & " AND 是否已还 = FALSE"
DisplayFlexGrid (SQL)
Case "今日借书"
SQL = "SELECT book.图书编号,书名,剩余量,借阅日期,是否已还,姓名,reader.借书证号,姓名,读者类别 FROM borrow,book,reader"
SQL = SQL & " WHERE book.图书编号 = borrow.图书编号 AND reader.借书证号 = borrow.借书证号"
SQL = SQL & " AND 是否已还 = FALSE AND 借阅日期= #" & Date & "#"
DisplayFlexGrid (SQL)
Case "所有还书"
SQL = "SELECT book.图书编号,书名,剩余量,借阅日期,是否已还,姓名,reader.借书证号,姓名,读者类别 FROM borrow,book,reader"
SQL = SQL & " WHERE book.图书编号 = borrow.图书编号 AND reader.借书证号 = borrow.借书证号"
SQL = SQL & " AND 是否已还 = TRUE"
DisplayFlexGrid (SQL)
Case "今日还书"
SQL = "SELECT book.图书编号,书名,剩余量,借阅日期,是否已还,姓名,reader.借书证号,姓名,读者类别 FROM borrow,book,reader"
SQL = SQL & " WHERE book.图书编号 = borrow.图书编号 AND reader.借书证号 = borrow.借书证号"
SQL = SQL & " AND 是否已还 = TRUE AND 归还日期= #" & Date & "#"
DisplayFlexGrid (SQL)
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -