流程圖

部分程式碼

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))

        mrcStu.MoveNext
        End With
        Loop
        'mrcStu.Update
        mrcStu.Close
  Case 1
        myFlexgrid2.Clear
        myFlexgrid2.Rows = 2
        '表格的首行
        With myFlexgrid2
        .CellAlignment = 4
        .TextMatrix(0, 0) = "學號"
        .TextMatrix(0, 1) = "卡號"
        .TextMatrix(0, 2) = "充值金額"
        .TextMatrix(0, 3) = "日期"
        .TextMatrix(0, 4) = "時間"

       End With
       '連線資料庫
        txtSQL = "select *from ReCharge_Info where userID='" & Trim(cmbUserId.Text) & "'"
        Set mrcReC = ExecuteSQL(txtSQL, MsgText)

        myFlexgrid2.Rows = myFlexgrid2.Rows - 1
        Do While Not mrcReC.EOF
        With myFlexgrid2
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrcReC.Fields(1))
        .TextMatrix(.Rows - 1, 1) = Trim(mrcReC.Fields(2))
        .TextMatrix(.Rows - 1, 2) = Trim(mrcReC.Fields(3))
        .TextMatrix(.Rows - 1, 3) = Trim(mrcReC.Fields(4))
        .TextMatrix(.Rows - 1, 4) = Trim(mrcReC.Fields(5))

        mrcReC.MoveNext
        End With
        Loop
        mrcReC.Close
  Case 2
        myFlexgrid3.Clear
        myFlexgrid3.Rows = 2
        '表格的首行
        With myFlexgrid3
        .CellAlignment = 4
        .TextMatrix(0, 0) = "學號"
        .TextMatrix(0, 1) = "卡號"

        .TextMatrix(0, 2) = "日期"
        .TextMatrix(0, 3) = "時間"
        .TextMatrix(0, 4) = "退卡金額"
       End With
       '連線資料庫
        txtSQL = "select *from CancelCard_Info where userID='" & Trim(cmbUserId.Text) & "'"
        Set mrcCan = ExecuteSQL(txtSQL, MsgText)

        myFlexgrid3.Rows = myFlexgrid3.Rows - 1
        Do While Not mrcCan.EOF
        With myFlexgrid3
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrcCan.Fields(0))
        .TextMatrix(.Rows - 1, 1) = Trim(mrcCan.Fields(1))
        .TextMatrix(.Rows - 1, 2) = Trim(mrcCan.Fields(2))
        .TextMatrix(.Rows - 1, 3) = Trim(mrcCan.Fields(3))
        .TextMatrix(.Rows - 1, 4) = Trim(mrcCan.Fields(4))

        mrcCan.MoveNext
        End With
        Loop
        mrcCan.Close
  Case 3
        myFlexgrid4.Clear
        myFlexgrid4.Rows = 2
        '表格的首行
        With myFlexgrid4
        .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) & "'and type='" & "臨時使用者" & "'"
        Set mrcStu = ExecuteSQL(txtSQL, MsgText)

        myFlexgrid4.Rows = myFlexgrid4.Rows - 1
        Do While Not mrcStu.EOF
        With myFlexgrid4
        .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))

        mrcStu.MoveNext
        End With
        Loop
        mrcStu.Close
  Case 4
        '計算售卡張數
        txtSQL = "select count(*) from student_Info where userID='" & Trim(cmbUserId.Text) & "'and Ischeck='" & "未結賬" & "'"
        Set mrcStu = ExecuteSQL(txtSQL, MsgText)

        txtSellCardCount.Text = Trim(mrcStu.Fields(0))
        '計算退卡張數
        txtSQL = "select count(*) from CancelCard_Info where userID='" & Trim(cmbUserId.Text) & "'and status='" & "未結賬" & "'"
        Set mrcCan = ExecuteSQL(txtSQL, MsgText)
        txtQuitCardcount.Text = Val(mrcCan.Fields(0))
        '計算充值金額(不區分固定還是臨時使用者)
        txtSQL = "select sum(addmoney) from ReCharge_Info where userID='" & Trim(cmbUserId.Text) & "'and status = '" & "未結賬" & "'"
        Set mrcReC = ExecuteSQL(txtSQL, MsgText)

        If IsNull(mrcReC.Fields(0)) Then        '無記錄
            txtRechargeMoney.Text = "0"
        Else
            txtRechargeMoney.Text = mrcReC.Fields(0)
        End If

        '計算退卡金額

        txtSQL = "select sum(CancelCash) from CancelCard_Info where userID = '" & Trim(cmbUserId.Text) & "'and status = '" & "未結賬" & "'"
        Set mrcCan = ExecuteSQL(txtSQL, MsgText)

        If IsNull(mrcCan.Fields(0)) Then       '無記錄
            txtQuitCardMoney.Text = "0"
        Else
            txtQuitCardMoney.Text = mrcCan.Fields(0)
        End If

        '計算臨時收費金額
        txtSQL = "select sum(addmoney)as sum from student_info ,ReCharge_Info where student_info.cardno=recharge_info.cardno and student_info.cardno = '" & Trim(cmbUserId.Text) & "'  and ischeck = '未結賬' and type = '臨時使用者'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)

        If IsNull(mrc.Fields(0)) Then       '無記錄
            txtTemReceiveMoney.Text = "0"
        Else
            txtTemReceiveMoney.Text = mrc.Fields(0)
        End If

        '計算應收金額
        txtShouldGainMoney.Text = Val(txtRechargeMoney.Text) - Val(txtQuitCardMoney.Text)
        '計算總售卡數
        txtAllCardCount.Text = Val(txtSellCardCount) - Val(txtQuitCardcount)
  Case 5
        Unload Me
  End Select
End Sub

  ps:在這個地方我使用了select語句，其實也可以用if語句

總結

      結賬中的購卡、充值、退卡，以及臨時使用者是簡單的資料庫的呼叫，表格的顯示；但是彙總的部分就涉及了一些邏輯計算，以及邏輯關係，因此要好好注意這部分，會讓自己對資料庫有更多的瞭解。感謝大家的支援，若是有需要修改的地方歡迎大家指出~~