机房收费系统之结账

流程图

部分代码

Private Sub SSTab1_Click(PreviousTab As Integer)
    Dim mrcCan As ADODB.Recordset
    Dim MsgText As String
    Dim txtSQL As String
    Dim mrcReC As ADODB.Recordset
    Dim mrcStu As ADODB.Recordset
    Dim mrc As ADODB.Recordset
  Select Case SSTab1.Tab
  Case 0
        myFlexgrid1.Clear
        myFlexgrid1.Rows = 2
        '表格的首行
        With myFlexgrid1
        .CellAlignment = 4
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "日期"
        .TextMatrix(0, 3) = "时间"

       End With
       '连接数据库
        txtSQL = "select *from student_Info where userID='" & Trim(cmbUserId.Text) & "'"
        Set mrcStu = ExecuteSQL(txtSQL, MsgText)

        myFlexgrid1.Rows = myFlexgrid1.Rows - 1
        Do While Not mrcStu.EOF
        With myFlexgrid1
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrcStu.Fields(1))
        .TextMatrix(.Rows - 1, 1) = Trim(mrcStu.Fields(0))
        .TextMatrix(.Rows - 1, 2) = Trim(mrcStu.Fields(12))
        .TextMatrix(.Rows - 1, 3) = Trim(mrcStu.Fields(13