📄 form4.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form4
Caption = "Form4"
ClientHeight = 3075
ClientLeft = 60
ClientTop = 465
ClientWidth = 4680
LinkTopic = "Form4"
ScaleHeight = 10995
ScaleWidth = 15240
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "卫生检查情况查询"
Height = 5295
Left = 1200
TabIndex = 0
Top = 1680
Width = 9135
Begin VB.CommandButton Command1
Caption = "返回"
Height = 735
Left = 7920
TabIndex = 4
Top = 2520
Width = 1095
End
Begin VB.CommandButton find
Caption = "搜索"
Height = 375
Left = 4800
TabIndex = 2
Top = 600
Width = 1335
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1560
TabIndex = 1
Top = 600
Width = 1575
End
Begin MSFlexGridLib.MSFlexGrid findgrid1
Height = 3615
Left = 600
TabIndex = 3
Top = 1320
Width = 7095
_ExtentX = 12515
_ExtentY = 6376
_Version = 393216
Cols = 22
End
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Change()
End Sub
Private Sub find_Click()
'先删除findgrid表中原先的内容
With findgrid1
'get current row
currow = .row
'delete current row
While .Rows > 2
.RemoveItem currow
Wend
If .Rows > 1 Then
.Rows = .Rows - 1
End If
End With
If findgrid1.Rows < 8 Then
findgrid1.Rows = 8
End If
'再添加搜索结果到findgrid表中
Dim DB As ADO_connection
Dim SQL As String
Dim rs As ADODB.Recordset
Set DB = New ADO_connection
SQL = "select health.Sroom,health.Sdormitory,H1,H2,H3,H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H15,H16,H17,H18,health.Wno from health " + _
"where Sroom = " + " '" + Combo1.List(Combo1.ListIndex) + "'"
'查询出符合条件的记录集
DB.ReadDB rs, SQL
findgrid1.Rows = findgrid1.Rows - 7
'逐条取记录集中的记录，直到记录取完为止
While rs.EOF = False
'为表findgrid添加1行
findgrid1.Rows = findgrid1.Rows + 1
'将一条记录的值赋给表中当前行的每个单元
findgrid1.TextMatrix(findgrid1.Rows - 1, 0) = rs.Fields("Sroom")
findgrid1.TextMatrix(findgrid1.Rows - 1, 1) = rs.Fields("Sdormitory")
findgrid1.TextMatrix(findgrid1.Rows - 1, 2) = rs.Fields("H1")
findgrid1.TextMatrix(findgrid1.Rows - 1, 3) = rs.Fields("H2")
findgrid1.TextMatrix(findgrid1.Rows - 1, 4) = rs.Fields("H3")
findgrid1.TextMatrix(findgrid1.Rows - 1, 5) = rs.Fields("H4")
findgrid1.TextMatrix(findgrid1.Rows - 1, 6) = rs.Fields("H5")
findgrid1.TextMatrix(findgrid1.Rows - 1, 7) = rs.Fields("H6")
findgrid1.TextMatrix(findgrid1.Rows - 1, 8) = rs.Fields("H7")
findgrid1.TextMatrix(findgrid1.Rows - 1, 9) = rs.Fields("H8")
findgrid1.TextMatrix(findgrid1.Rows - 1, 10) = rs.Fields("H9")
findgrid1.TextMatrix(findgrid1.Rows - 1, 11) = rs.Fields("H10")
findgrid1.TextMatrix(findgrid1.Rows - 1, 12) = rs.Fields("H11")
findgrid1.TextMatrix(findgrid1.Rows - 1, 13) = rs.Fields("H12")
findgrid1.TextMatrix(findgrid1.Rows - 1, 14) = rs.Fields("H13")
findgrid1.TextMatrix(findgrid1.Rows - 1, 15) = rs.Fields("H14")
findgrid1.TextMatrix(findgrid1.Rows - 1, 16) = rs.Fields("H15")
findgrid1.TextMatrix(findgrid1.Rows - 1, 17) = rs.Fields("H16")
findgrid1.TextMatrix(findgrid1.Rows - 1, 18) = rs.Fields("H17")
findgrid1.TextMatrix(findgrid1.Rows - 1, 19) = rs.Fields("H18")
findgrid1.TextMatrix(findgrid1.Rows - 1, 20) = rs.Fields("Wno")
'取下一条记录
rs.MoveNext
Wend
'保证表findgrid始终保持8行以上，以保持表界面的美观
If findgrid1.Rows < 8 Then
findgrid1.Rows = 8
End If
End Sub
'设置界面上的初始值
Private Sub form_load()
row = 1
'查询出s表中所有的学号值，并设置在combo1的下拉框中
Dim DB As ADO_connection
Dim SQL As String
Dim rs As ADODB.Recordset
Set DB = New ADO_connection
SQL = "select Sno from Student"
DB.ReadDB rs, SQL
While rs.EOF = False
'将一个学号值添加到combo1中
Combo1.AddItem rs.Fields("Sno")
'取下一个值
rs.MoveNext
Wend
Set DB = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'设置表MSFlexGrid1各单元格的宽度
findgrid1.ColWidth(0) = 1000
findgrid1.ColWidth(1) = 1000
findgrid1.ColWidth(2) = 1000
findgrid1.ColWidth(3) = 1000
findgrid1.ColWidth(4) = 1000
findgrid1.ColWidth(5) = 1000
findgrid1.ColWidth(6) = 1000
findgrid1.ColWidth(7) = 1000
findgrid1.ColWidth(8) = 1000
findgrid1.ColWidth(9) = 1000
findgrid1.ColWidth(10) = 1000
findgrid1.ColWidth(11) = 1000
findgrid1.ColWidth(12) = 1000
findgrid1.ColWidth(13) = 1000
findgrid1.ColWidth(14) = 1000
findgrid1.ColWidth(15) = 1000
findgrid1.ColWidth(16) = 1000
findgrid1.ColWidth(17) = 1000
findgrid1.ColWidth(18) = 1000
findgrid1.ColWidth(19) = 1000
findgrid1.ColWidth(20) = 1000
'设置表scgrid各单元格的名称
findgrid1.TextMatrix(0, 0) = "寝室号"
findgrid1.TextMatrix(0, 1) = "宿舍号"
findgrid1.TextMatrix(0, 2) = "第一周"
findgrid1.TextMatrix(0, 3) = "第二周"
findgrid1.TextMatrix(0, 4) = "第三周"
findgrid1.TextMatrix(0, 5) = "第四周"
findgrid1.TextMatrix(0, 6) = "第五周"
findgrid1.TextMatrix(0, 7) = "第六周"
findgrid1.TextMatrix(0, 8) = "第七周"
findgrid1.TextMatrix(0, 9) = "第八周"
findgrid1.TextMatrix(0, 10) = "第九周"
findgrid1.TextMatrix(0, 11) = "第十周"
findgrid1.TextMatrix(0, 12) = "第十一周"
findgrid1.TextMatrix(0, 13) = "第十二周"
findgrid1.TextMatrix(0, 14) = "第十三周"
findgrid1.TextMatrix(0, 15) = "第十四周"
findgrid1.TextMatrix(0, 16) = "第十五周"
findgrid1.TextMatrix(0, 17) = "第十六周"
findgrid1.TextMatrix(0, 18) = "第十七周"
findgrid1.TextMatrix(0, 19) = "第十八周"
findgrid1.TextMatrix(0, 20) = "检察员工号"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -