ルームチャージシステム-Excelテーブルを検索してエクスポート

2476 ワード

15:30
时间が过ぎるのはとても速くて、しかし自分の进度は确かに十分に遅くて、多くの学友はすでにソフトワークに入って、自分でまた机房の料金システムのために悩んでいます.進度は遅いが、一つの問題を解決するたびに興奮している.
最初は、学生の情報管理システムを参考にすればいいと言っていましたが、全然考えがありませんでした.しかし、今は、一つを解決すれば、次はいくつかの考えがあります.長い間、突然似たようなフォームがたくさんあるような気がします.進度は急いでいますが、自分が本当に理解すれば、もっと収穫があります.
次は、請求金額照会フォームです.
Private Sub CmdOK_Click()
    Dim mrc As ADODB.Recordset
    Dim Msgtext As String
    Dim TxtSQL As String
    
    '      
        TxtSQL = "select * from ReCharge_Info where date >='" & DTPicker1.Value & "'" & " And date <= '" & DTPicker2.Value & "'"
        Set mrc = ExecuteSQL(TxtSQL, Msgtext)
        
        If Not mrc.EOF = False Then
            MsgBox "   !", vbOKOnly + vbExclamation, "  "
        Else
        
        With MyFlexGrid
        .Rows = 2
        .CellAlignment = 4
        .TextMatrix(1, 0) = "  "
        .TextMatrix(1, 1) = "    "
        .TextMatrix(1, 2) = "    "
        .TextMatrix(1, 3) = "    "
        .TextMatrix(1, 4) = "    "
        .TextMatrix(1, 5) = "    "
        
        Do While Not mrc.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = mrc!cardno
            .TextMatrix(.Rows - 1, 1) = mrc!addmoney
            .TextMatrix(.Rows - 1, 2) = mrc!Date
            .TextMatrix(.Rows - 1, 3) = mrc!Time
            .TextMatrix(.Rows - 1, 4) = mrc!UserID
            .TextMatrix(.Rows - 1, 5) = mrc!Status
            
            mrc.MoveNext
        Loop
        End With
        End If
        mrc.Close
End Sub

Excelテーブルのエクスポート:
Private Sub CmdExcel_Click()
    Dim app As Excel.Application
    Dim book As Excel.Workbook
    Dim sheet As Excel.Worksheet
    
    Set app = New Excel.Application
    Set book = app.Workbooks.Add
    Set sheet = book.Worksheets.Add
    
    Dim row As Single
    Dim col As Single
    
    With MyFlexGrid
    
        For row = 0 To .Rows - 1
            For col = 0 To .col - 1
                sheet.Cells(row + 1, col + 1).Value = .TextMatrix(row, col)
                Next col
            Next row
       End With
       
       app.Visible = True
       Exit Sub
End Sub

同様に、金額返却情報照会のフォームのコードも簡単にノックできますし、他のエクスポートExcelテーブルももちろん簡単にできます.
このフォームのコードはとっくに完成しているかもしれませんが、簡単だと言っています.叩いてから見るのは確かに難しくありませんが、本当に自分で完成するのは楽しいです.