📄 查询.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form 查询
BackColor = &H00FFFF00&
Caption = " 查询"
ClientHeight = 8490
ClientLeft = 165
ClientTop = 555
ClientWidth = 8640
LinkTopic = "Form1"
Picture = "查询.frx":0000
ScaleHeight = 8490
ScaleWidth = 8640
StartUpPosition = 3 '窗口缺省
Begin VB.Data Data5
Caption = "Data5"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 1320
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 8160
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Text3
Height = 495
Left = 5880
TabIndex = 20
Top = 6600
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Left = 2280
TabIndex = 19
Top = 6600
Width = 2055
End
Begin VB.CommandButton Command3
Caption = "返回主界面"
Height = 495
Left = 6480
TabIndex = 11
Top = 7560
Width = 1215
End
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 8280
Visible = 0 'False
Width = 1215
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 8040
Visible = 0 'False
Width = 1215
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 7680
Visible = 0 'False
Width = 1215
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 7320
Visible = 0 'False
Width = 1140
End
Begin VB.Frame Frame2
Caption = "模糊查找"
Height = 6375
Left = 0
TabIndex = 1
Top = 2160
Width = 8175
Begin VB.TextBox Text1
Height = 495
Left = 3360
TabIndex = 21
Top = 360
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "打开"
Height = 495
Index = 4
Left = 5160
TabIndex = 18
Top = 5400
Width = 975
End
Begin VB.CommandButton Command4
Caption = "末一条"
Height = 495
Index = 3
Left = 4200
TabIndex = 17
Top = 5400
Width = 975
End
Begin VB.CommandButton Command4
Caption = "下一条"
Height = 495
Index = 2
Left = 3240
TabIndex = 16
Top = 5400
Width = 975
End
Begin VB.CommandButton Command4
Caption = "上一条"
Height = 495
Index = 1
Left = 2280
TabIndex = 15
Top = 5400
Width = 975
End
Begin VB.CommandButton Command4
Caption = "第一条"
Height = 495
Index = 0
Left = 1320
TabIndex = 14
Top = 5400
Width = 975
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Bindings = "查询.frx":1DDAE
Height = 2775
Left = 240
TabIndex = 12
Top = 1080
Width = 6255
_ExtentX = 11033
_ExtentY = 4895
_Version = 393216
Rows = 5
Cols = 8
End
Begin VB.CommandButton Command2
Caption = "确定"
Height = 495
Left = 5520
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.Label Label7
Caption = "试卷通过率"
Height = 375
Left = 4680
TabIndex = 23
Top = 4560
Width = 975
End
Begin VB.Label Label6
Caption = "试卷名称"
Height = 375
Left = 1200
TabIndex = 22
Top = 4560
Width = 975
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "请输入要查询的名字"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 120
TabIndex = 5
Top = 480
Width = 2565
End
End
Begin VB.Frame Frame1
Caption = "精确查找"
Height = 2175
Left = 0
TabIndex = 0
Top = 0
Width = 8175
Begin VB.CommandButton Command1
Caption = "确定"
Height = 495
Left = 5160
TabIndex = 9
Top = 840
Width = 1215
End
Begin VB.ComboBox Combo3
Height = 300
Left = 3480
TabIndex = 8
Text = "请选择"
Top = 1680
Width = 1095
End
Begin VB.ComboBox Combo2
Height = 300
Left = 3480
TabIndex = 7
Text = "请选择"
Top = 960
Width = 1095
End
Begin VB.ComboBox Combo1
Height = 300
Left = 3480
TabIndex = 6
Text = "请选择"
Top = 240
Width = 1095
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "请选择月份"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 1320
TabIndex = 4
Top = 1680
Width = 1425
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "请选择年份"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 1320
TabIndex = 3
Top = 960
Width = 1425
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请选择要查询的类别"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 600
TabIndex = 2
Top = 240
Width = 2565
End
End
Begin VB.Label Label5
Caption = "Label5"
Height = 495
Left = 0
TabIndex = 13
Top = 0
Visible = 0 'False
Width = 1215
End
End
Attribute VB_Name = "查询"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Data1.Recordset.FindFirst ("leixing='" & Combo1.Text & "'")
If Data1.Recordset.NoMatch Then
If inta = MsgBox("输入正确的类型！", vbYesNo, "温馨提示") = vbYes Then
Combo1.SetFocus
End If
Else
Data2.Recordset.FindFirst ("nianfen='" & Combo2.Text & " '")
If Data2.Recordset.NoMatch Then
If inta = MsgBox("请输入正确的年份", vbYesNo, "温馨提示") = vbYes Then
Combo2.SetFocus
End If
Else
Data3.Recordset.FindFirst ("yuefen='" & Combo3.Text & "'")
If Data3.Recordset.NoMatch Then
If inta = MsgBox("请输入正确的月份", vbYesNo, "温馨提示") = vbYes Then
Combo3.SetFocus
End If
Else
strSQL = "select * from 试题听力答案 where shijuanmingcheng like '*" & Combo1.Text & "*' and shijuanmingcheng like '*" & Combo2.Text & "*' and shijuanmingcheng like '*" & Combo3.Text & "*'"
Data5.RecordSource = strSQL
Data5.Refresh
If Data5.Recordset.BOF Then
MsgBox "库中没有要查询的内容！", vbOKOnly, "温馨提示"
Else
试题显示.Show
查询.Hide
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Then
inta = MsgBox("输入要查询的信息！", vbYesNo, "温馨提示")
Text1.SetFocus
Else
mohuchaxun = " select * from 试题听力答案 where shijuanmingcheng like'" & "*" & Text1.Text & "*'"
Data4.RecordSource = mohuchaxun
Data4.Refresh
If Data4.Recordset.EOF And Data4.Recordset.BOF Then
inta = MsgBox("没有要查询的内容！", vbYesNo, "温馨提示")
Else
Label5.Caption = Data4.Recordset.Fields("shijuanmingcheng")
Data4.Recordset.FindFirst ("shijuanmingcheng ='" & Label5.Caption & "'")
If Data4.Recordset.NoMatch Then
inta = MsgBox("没有此信息！", vbYesNo, "温馨提示")
Else
For i = 0 To 4
Command4(i).Enabled = True
Next i
End If
Call dateview1
End If
End If
End Sub
Private Sub dateview1()
Text2.Text = Data4.Recordset.Fields("shijuanmingcheng")
Text3.Text = Data4.Recordset.Fields("shijuantongguolv")
End Sub
Private Sub Command3_Click()
查询.Hide
主界面.Show
End Sub
Private Sub Command4_Click(index As Integer)
Select Case index
Case 0
Data4.Recordset.MoveFirst
Case 1
Data4.Recordset.MovePrevious
If Data4.Recordset.BOF Then
Data4.Recordset.MoveFirst
End If
Case 2
Data4.Recordset.MoveNext
If Data4.Recordset.EOF Then
Data4.Recordset.MoveLast
End If
Case 3
Data4.Recordset.MoveLast
Case 4
strSQL = " select * from 试题听力答案 where shijuanmingcheng like'" & "*" & Text1.Text & "*'"
试题显示.Show
查询.Hide
End Select
Call dateview1
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "试题库.mdb"
Data1.RecordSource = "类型"
Data1.Refresh
Data2.DatabaseName = "试题库.mdb"
Data2.RecordSource = "年份"
Data2.Refresh
Data3.DatabaseName = "试题库.mdb"
Data3.RecordSource = "月份"
Data3.Refresh
Data4.DatabaseName = "试题库.mdb"
Data5.DatabaseName = "试题库.mdb"
Call dateview
For i = 0 To 4
Command4(i).Enabled = False
Next i
End Sub
Private Sub dateview()
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("leixing")
Data1.Recordset.MoveNext
Loop
Data2.Recordset.MoveFirst
Do Until Data2.Recordset.EOF
Combo2.AddItem Data2.Recordset.Fields("nianfen")
Data2.Recordset.MoveNext
Loop
Data3.Recordset.MoveFirst
Do Until Data3.Recordset.EOF
Combo3.AddItem Data3.Recordset.Fields("yuefen")
Data3.Recordset.MoveNext
Loop
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -