ルームチャージシステム-Excelテーブルを検索してエクスポート
15:30
时间が过ぎるのはとても速くて、しかし自分の进度は确かに十分に遅くて、多くの学友はすでにソフトワークに入って、自分でまた机房の料金システムのために悩んでいます.進度は遅いが、一つの問題を解決するたびに興奮している.
最初は、学生の情報管理システムを参考にすればいいと言っていましたが、全然考えがありませんでした.しかし、今は、一つを解決すれば、次はいくつかの考えがあります.長い間、突然似たようなフォームがたくさんあるような気がします.進度は急いでいますが、自分が本当に理解すれば、もっと収穫があります.
次は、請求金額照会フォームです.
Excelテーブルのエクスポート:
同様に、金額返却情報照会のフォームのコードも簡単にノックできますし、他のエクスポートExcelテーブルももちろん簡単にできます.
このフォームのコードはとっくに完成しているかもしれませんが、簡単だと言っています.叩いてから見るのは確かに難しくありませんが、本当に自分で完成するのは楽しいです.
时间が过ぎるのはとても速くて、しかし自分の进度は确かに十分に遅くて、多くの学友はすでにソフトワークに入って、自分でまた机房の料金システムのために悩んでいます.進度は遅いが、一つの問題を解決するたびに興奮している.
最初は、学生の情報管理システムを参考にすればいいと言っていましたが、全然考えがありませんでした.しかし、今は、一つを解決すれば、次はいくつかの考えがあります.長い間、突然似たようなフォームがたくさんあるような気がします.進度は急いでいますが、自分が本当に理解すれば、もっと収穫があります.
次は、請求金額照会フォームです.
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テーブルももちろん簡単にできます.
このフォームのコードはとっくに完成しているかもしれませんが、簡単だと言っています.叩いてから見るのは確かに難しくありませんが、本当に自分で完成するのは楽しいです.