机房收费系统 —— 修改信息

#前言
敲完之后，忘了是谁问我修改信息的怎么弄的？我仔细想了想，自己没有弄这个呀！于是又开始了一个command的奋斗，但是自己一点思路都没有，在csdn找，只有组合查询的问题，难道大家都会这个吗？还是都没有发现呢！
后来问的日子，找到了思路。

#正文
##步骤
首先这个功能是修改查到的表格的信息，在学生基本信息维护的窗体中。

查询的一串信息中，选中要修改的信息。

此时出现一个新的窗体

在这里修改即可

##代码：
在学生基本信息维护窗体的修改command中

If tmpselect = True Then
        TmpCardno = myFlexGrid.TextMatrix(myFlexGrid.RowSel, 0)        '选择一行数据
        frmmodifystu.Show                                                '显示修改信息窗体                                                               '显示修改信息窗体
    Else
        MsgBox "请先选择数据，再进行修改！", , "温馨提示"
        Exit Sub
    End If

同时，在学生信息维护窗体添加一个sub过程

Private Sub myFlexGrid_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

    tmpselect = True

End Sub

然后是新建的窗体，即修改窗体代码：

Private Sub Command1_Click()
     Dim txtsql As String
     Dim msgtext As String
     Dim mrc As ADODB.Recordset
      
    txtsql = "select * from student_Info where cardno='" & Trim(TmpCardno) & "'"
    Set mrc = executeSQL(txtsql, msgtext)
      
    If Not (mrc.BOF Or mrc.EOF) Then
        mrc.Fields(0) = Trim(txtCardno.Text)
        mrc.Fields(1) = Trim(txtstuno.Text)
        mrc.Fields(2) = Trim(txtName.Text)
        mrc.Fields(3) = Trim(Combogender.Text)
        mrc.Fields(4) = Trim(txtMajor.Text)
        mrc.Fields(5) = Trim(txtGrade.Text)
        mrc.Fields(6) = Trim(txtClass.Text)
        mrc.Fields(7) = Trim(txtMoney.Text)
        mrc.Fields(8) = Trim(txtOther.Text)
        mrc.Fields(10) = Trim(txtState.Text)
        mrc.Fields(14) = Trim(ComboType.Text)
        mrc.Update
        mrc.Close
     End If
    Me.Hide
    '修改信息后，重新加载到基本信息维护窗体的查询结果中
    frmstucare.cmdOK.Value = True
    
    
End Sub

Public Sub tmpLoad()
 Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
       
    txtsql = "select * from student_Info where cardno='" & Trim(TmpCardno) & "'"
    Set mrc = executeSQL(txtsql, msgtext)
      
    If mrc.EOF Then
        MsgBox "加载信息不存在，请确认后重新操作！", , "温馨提示"
    Else
        txtstuno.Text = mrc!studentNo
        txtName.Text = mrc!studentName
        Combogender.Text = mrc!sex
        txtMajor.Text = mrc!department
        txtGrade.Text = mrc!grade
        txtClass.Text = mrc!Class
        txtCardno.Text = mrc!cardno
        txtMoney.Text = mrc!cash
        txtState.Text = mrc!Status
        txtOther.Text = mrc!explain
        ComboType.Text = mrc!Type
        mrc.Close
    End If
End Sub

谁有更好的方法欢迎提出！