📄 frmreaderqueue.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmreaderqueue
BorderStyle = 1 'Fixed Single
Caption = "查询读者资料"
ClientHeight = 2700
ClientLeft = 45
ClientTop = 435
ClientWidth = 9750
Icon = "frmreaderqueue.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 2700
ScaleWidth = 9750
Begin VB.CommandButton cmdexit
Cancel = -1 'True
Caption = "退 出"
Height = 375
Left = 8400
TabIndex = 12
Top = 1680
Width = 1095
End
Begin VB.CommandButton Cmdqueue
Caption = "查 询"
Default = -1 'True
Height = 375
Left = 8400
TabIndex = 11
Top = 840
Width = 1095
End
Begin VB.Frame Frame1
Caption = "请选择并输入查询条件"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 240
TabIndex = 13
Top = 120
Width = 7935
Begin VB.ComboBox combox读者状态
Height = 300
ItemData = "frmreaderqueue.frx":19862
Left = 5400
List = "frmreaderqueue.frx":1986F
Style = 2 'Dropdown List
TabIndex = 7
Top = 960
Width = 2295
End
Begin VB.ComboBox combox读者类别
Height = 300
Left = 1560
Style = 2 'Dropdown List
TabIndex = 5
Top = 960
Width = 2295
End
Begin VB.CheckBox chk读者状态
Caption = "读者状态："
Height = 255
Left = 4200
TabIndex = 6
Top = 960
Width = 1215
End
Begin VB.TextBox txt读者姓名
Height = 375
Left = 5400
TabIndex = 3
Top = 360
Width = 2295
End
Begin VB.CheckBox chk读者姓名
Caption = "读者姓名："
Height = 255
Left = 4200
TabIndex = 2
Top = 420
Width = 1215
End
Begin VB.CheckBox chk办证日期
Caption = "办证日期："
Height = 255
Left = 360
TabIndex = 8
Top = 1620
Width = 1215
End
Begin VB.CheckBox chk读者类别
Caption = "读者类别："
Height = 255
Left = 360
TabIndex = 4
Top = 960
Width = 1215
End
Begin VB.TextBox txt读者编号
Height = 375
Left = 1560
TabIndex = 1
Top = 360
Width = 2295
End
Begin VB.CheckBox chk读者编号
Caption = "读者编号："
Height = 255
Left = 360
TabIndex = 0
Top = 420
Width = 1215
End
Begin MSComCtl2.DTPicker DTP办证日期
Height = 300
Index = 0
Left = 1560
TabIndex = 9
Top = 1560
Width = 2295
_ExtentX = 4048
_ExtentY = 529
_Version = 393216
Format = 25296897
CurrentDate = 38842
End
Begin MSComCtl2.DTPicker DTP办证日期
Height = 300
Index = 1
Left = 5400
TabIndex = 10
Top = 1560
Width = 2295
_ExtentX = 4048
_ExtentY = 529
_Version = 393216
Format = 25296897
CurrentDate = 38842
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ">>"
Height = 180
Left = 4560
TabIndex = 14
Top = 1560
Width = 180
End
End
Begin VB.PictureBox Picbg1
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1440
Left = 8520
Picture = "frmreaderqueue.frx":19885
ScaleHeight = 1440
ScaleWidth = 1440
TabIndex = 15
Top = -600
Width = 1440
End
End
Attribute VB_Name = "frmreaderqueue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdqueue_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
Dim bf(4) As Boolean
Dim i As Integer
For i = 0 To 5 - 1 Step 1
bf(i) = False
Next i
sql = "select * from dzxxb where "
'判断是否选择按编号查询
If chk读者编号.Value = 1 Then
If Trim(txt读者编号.Text) = "" Then
MsgBox "读者编号不能为空！", vbOKOnly + vbExclamation, "警告"
txt读者编号.SetFocus
Exit Sub
Else
bf(0) = True
'组合查询语句
sql = sql & " 读者编号 like '" & Trim(txt读者编号.Text) & "%'"
End If
End If
'判断是否按姓名查询
If chk读者姓名.Value = 1 Then
If Trim(txt读者姓名.Text) = "" Then
MsgBox "读者姓名不能为空！", vbOKOnly + vbExclamation, "警告"
txt读者姓名.SetFocus
Exit Sub
Else
bf(1) = True
If bf(0) Then
'组和查询语句
sql = sql & " and 读者姓名 like '" & Trim(txt读者姓名.Text) & "%'"
Else
sql = sql & " 读者姓名 like'" & Trim(txt读者姓名.Text) & "%'"
End If
End If
End If
'判断是否选择按读者类别查询
If chk读者类别.Value = 1 Then
If Trim(combox读者类别.Text) = "" Then
MsgBox "读者类别不能为空！", vbOKOnly + vbExclamation, "警告"
combox读者类别.SetFocus
Exit Sub
Else
bf(2) = True
'组合查询语句
If bf(0) Or bf(1) Then
'组和查询语句
sql = sql & " and 读者类别 = '" & Trim(combox读者类别.Text) & "'"
Else
sql = sql & " 读者类别 = '" & Trim(combox读者类别.Text) & "'"
End If
End If
End If
'判断是否按combox读者状态查询
If chk读者状态.Value = 1 Then
If Trim(combox读者状态.Text) = "" Then
MsgBox "读者状态不能为空！", vbOKOnly + vbExclamation, "警告"
combox读者状态.SetFocus
Exit Sub
Else
bf(3) = True
If bf(0) Or bf(1) Or bf(2) Then
'组和查询语句
sql = sql & " and 读者状态 = '" & Trim(combox读者状态.Text) & "'"
Else
sql = sql & " 读者状态='" & Trim(combox读者状态.Text) & "'"
End If
End If
End If
'判断是否选择按办证日期查询
If chk办证日期.Value = 1 Then
If DateDiff("d", DTP办证日期(0).Value, DTP办证日期(1).Value) < 0 Then
MsgBox "<<这符号的左边日期要早于或等于右边的日期,请修改！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
bf(4) = True
If bf(0) Or bf(1) Or bf(2) Or bf(3) Then
'组合查询语句
sql = sql & "and DateDiff( 'd','" & DTP办证日期(0).Value & "', 办证日期) >=0 and DateDiff( 'd','" & DTP办证日期(1).Value & "',办证日期) <=0 "
Else
sql = sql & " DateDiff( 'd','" & DTP办证日期(0).Value & "', 办证日期) >=0 and DateDiff( 'd','" & DTP办证日期(1).Value & "',办证日期) <=0 "
End If
End If
'判断是否设置查询方式
If (bf(0) Or bf(1) Or bf(2) Or bf(3) Or bf(4)) = False Then
MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
Call frmreadermanage.readerList_update
Exit Sub
End If
'查询所有满足条件的内容
sql = sql & " order by 读者编号"
Set rs = TransactSQL(sql)
If rs.EOF = True Then
MsgBox "没有找到要查询的信息", vbOKOnly
Else
With frmreadermanage.readerGrid
.Rows = 1
Do While Not rs.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rs.Fields(0)
.TextMatrix(.Rows - 1, 1) = rs.Fields(1)
.TextMatrix(.Rows - 1, 2) = rs.Fields(2)
.TextMatrix(.Rows - 1, 3) = rs.Fields(3)
.TextMatrix(.Rows - 1, 4) = rs.Fields(4)
.TextMatrix(.Rows - 1, 5) = rs.Fields(5)
.TextMatrix(.Rows - 1, 6) = rs.Fields(6)
.TextMatrix(.Rows - 1, 7) = rs.Fields(7)
.TextMatrix(.Rows - 1, 8) = rs.Fields(8)
.TextMatrix(.Rows - 1, 9) = rs.Fields(9)
.TextMatrix(.Rows - 1, 10) = rs.Fields(10)
.TextMatrix(.Rows - 1, 11) = rs.Fields(11)
.TextMatrix(.Rows - 1, 12) = rs.Fields(12)
.TextMatrix(.Rows - 1, 13) = rs.Fields(13)
.TextMatrix(.Rows - 1, 14) = rs.Fields(14)
.TextMatrix(.Rows - 1, 15) = rs.Fields(15)
.TextMatrix(.Rows - 1, 16) = rs.Fields(16)
rs.MoveNext
Loop
End With
Unload Me
End If
rs.Close
End Sub
Private Sub Form_Load()
Call fullpic(Me, Picbg1) '背景图
'读者类别加入到cmbo类别编号组合框中
user = "admin"
Me.Left = (frmmain.ScaleWidth - Me.Width) / 2
Me.Top = (frmmain.ScaleHeight - Me.Height) / 2
Dim rs As New ADODB.Recordset
Dim sqlType As String
sqlType = "select 读者类别 from dzlbb order by 读者类别"
Set rs = TransactSQL(sqlType)
If Not rs.EOF Then
While Not rs.EOF
combox读者类别.AddItem rs(0)
rs.MoveNext
Wend
rs.Close
End If
DTP办证日期(0).Value = Trim(Year(Now)) & "-" & Trim(Month(Now)) & "-" & Trim(day(Now))
DTP办证日期(1).Value = Trim(Year(Now)) & "-" & Trim(Month(Now)) & "-" & Trim(day(Now))
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmreadermanage.Show
frmreadermanage.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -