机房收费系统——学生基本信息维护（组合查询，选中整行）

前言

机房的小难点之一就是组合查询，刚开始完全没有思路，看了看他人的博客，就感觉豁然开朗其实是很简单的，流程图一画出来就简单多了，剩下的就是代码设计。

定义函数，使text属性中字符与数据库相对应

Public Function Field(i As String) As String
    '定义函数，使text属性中的字符与数据库相对应
    Select Case i
        Case "卡号"
    Field = "cardno"
        Case "学号"
    Field = "studentno"
        Case "姓名"
    Field = "studentname"
        Case "性别"
    Field = "sex"
        Case "系别"
    Field = "depart"
        Case "年级"
    Field = "grade"
        Case "班级"
    Field = "class"
        Case "与"
    Field = "and"
        Case "或"
    Field = "or"
    
  End Select
End Function

组合查询代码

Private Sub cmdContent_Click()
    Dim txtSQL, Msgtext As String
    Dim mrc_stu As ADODB.Recordset
    
    txtSQL = "select * from student_info where"
    
    If Combo1.Text = "" Or Combo4.Text = "" Or txtContent1.Text = "" Then
        MsgBox "请输入要查询的内容", 0 + 48, "警告"
        Exit Sub
    Else
        txtSQL = txtSQL & " " & Field(Combo1.Text) & "" & Combo4.Text & " '" & Trim(txtContent1.Text) & "'"
        
        
        If Combo7.Text <> "" Then
            
            If Combo2.Text = "" Or Combo5.Text = "" Or txtContent2.Text = "" Then
                MsgBox "请将第二行内容补充完整", 0 + 48, "警告"
                Exit Sub
            Else
                txtSQL = txtSQL & " " & Field(Combo7.Text) & " " & Field(Combo2.Text) & " " & Combo5.Text & " '" & Trim(txtContent2.Text) & "'"
                
                    If Combo8.Text <> "" Then
                        If Combo3.Text = "" Or Combo6.Text = "" Or txtContent3.Text = "" Then
                        
                        MsgBox "请将第三行内容补充完整", 0 + 48, "警告"
                        Exit Sub
                        Else
                        txtSQL = txtSQL & " " & Field(Combo8.Text) & " " & Field(Combo3.Text) & "" & Combo6.Text & " '" & Trim(txtContent3.Text) & "'"
                        End If
                    End If
            End If
        End If
    End If
    
    Set mrc_stu = ExecuteSQL(txtSQL, Msgtext)
    
    If mrc_stu.EOF Then
        MsgBox "没有数据", 0 + 48, "警告"
        
        txtContent1.Text = ""
        txtContent2.Text = ""
        txtContent3.Text = ""
        txtContent1.SetFocus
        myflexgrid.Clear
        
        Exit Sub
    Else
        With myflexgrid
            .Rows = 1
            .TextMatrix(0, 0) = "学号"
            .TextMatrix(0, 1) = "姓名"
            .TextMatrix(0, 2) = "卡号"
            .TextMatrix(0, 3) = "金额"
            .TextMatrix(0, 4) = "系别"
            .TextMatrix(0, 5) = "年级"
            .TextMatrix(0, 6) = "班级"
            .TextMatrix(0, 7) = "性别"
            .TextMatrix(0, 8) = "状态"
            .TextMatrix(0, 9) = "备注"
            .TextMatrix(0, 10) = "类型"
            .TextMatrix(0, 11) = "日期"
            .TextMatrix(0, 12) = "时间"
        
        Do While Not mrc_stu.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrc_stu.Fields(2))
            .TextMatrix(.Rows - 1, 1) = Trim(mrc_stu.Fields(1))
            .TextMatrix(.Rows - 1, 2) = Trim(mrc_stu.Fields(0))
            .TextMatrix(.Rows - 1, 3) = Trim(mrc_stu.Fields(7))
            .TextMatrix(.Rows - 1, 4) = Trim(mrc_stu.Fields(4))
            .TextMatrix(.Rows - 1, 5) = Trim(mrc_stu.Fields(5))
            .TextMatrix(.Rows - 1, 6) = Trim(mrc_stu.Fields(6))
            .TextMatrix(.Rows - 1, 7) = Trim(mrc_stu.Fields(3))
            .TextMatrix(.Rows - 1, 8) = Trim(mrc_stu.Fields(10))
            .TextMatrix(.Rows - 1, 9) = Trim(mrc_stu.Fields(8))
            .TextMatrix(.Rows - 1, 10) = Trim(mrc_stu.Fields(14))
            .TextMatrix(.Rows - 1, 11) = Trim(mrc_stu.Fields(12))
            .TextMatrix(.Rows - 1, 12) = Trim(mrc_stu.Fields(13))
            mrc_stu.MoveNext
            Loop
        End With
    End If
mrc_stu.Close
        
             
End Sub

修改命令

单击选中整行
MSHFlexGrid控件右击属性页

添加标识

Private Sub myflexgrid_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    '判断鼠标所在行，并添加*
    With myflexgrid
        If .MouseRow Then
            .TextMatrix(.MouseRow, 13) = "*"
            Exit Sub
        End If
    End With
End Sub

如图：

修改命令

Private Sub cmdRevise_Click()
    Dim n As Integer
    Dim m As Integer
    
   
    
    If myflexgrid.TextMatrix(myflexgrid.RowSel, 13) <> "*" Then
    
            MsgBox "请选择数据", 0 + 48, "警告"
            Exit Sub
        Else
        
            SetParent frmRSInformation.hWnd, frmmenu.hWnd
            frmRSInformation.Show
    
            With frmSNDefend.myflexgrid
                frmRSInformation.txtSID.Text = .TextMatrix(.RowSel, 0)
                frmRSInformation.txtName.Text = .TextMatrix(.RowSel, 1)
                frmRSInformation.txtCardNo.Text = .TextMatrix(.RowSel, 2)
                frmRSInformation.txtMoney.Text = .TextMatrix(.RowSel, 3)
                frmRSInformation.txtDept.Text = .TextMatrix(.RowSel, 4)
                frmRSInformation.txtGrade.Text = .TextMatrix(.RowSel, 5)
                frmRSInformation.txtClass.Text = .TextMatrix(.RowSel, 6)
                frmRSInformation.cboSex.Text = .TextMatrix(.RowSel, 7)
                frmRSInformation.txtStatus.Text = .TextMatrix(.RowSel, 8)
                frmRSInformation.txtExplain.Text = .TextMatrix(.RowSel, 9)
                frmRSInformation.cboType.Text = .TextMatrix(.RowSel, 10)
            
            End With
        End If
    
End Sub

来源：CSDN

作者：王卫——David

链接：https://blog.csdn.net/wangwei021933/article/details/104065432