第一次機房收費系統 收取金額查詢

一、思維導圖

二、如何導圖excel

三、**展示

private sub cmdinquiry_click()

dim mrc as adodb.recordset
dim txtsql as string
dim msgtext as string
'查詢選定範圍裡的資料
txtsql = "select * from recharge_info where date > '" & begindate.value & "' and date < '" & enddate.value & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof then '無資料時提示
exit sub
end if
with mshflexgrid1 '有資料逐個載入
.rows = 1
.cellalignment = 4
.textmatrix(0, 0) = "卡號"
.textmatrix(0, 1) = "充值金額"
.textmatrix(0, 2) = "充值日期"
.textmatrix(0, 3) = "充值時間"
.textmatrix(0, 4) = "充值操作員"
.textmatrix(0, 5) = "結賬狀態"
do while not mrc.eof '迴圈載入
.rows = .rows + 1
.cellalignment = 4
.textmatrix(.rows - 1, 0) = trim(mrc.fields(2))
.textmatrix(.rows - 1, 1) = trim(mrc.fields(3))
.textmatrix(.rows - 1, 2) = trim(mrc.fields(4))
.textmatrix(.rows - 1, 3) = trim(mrc.fields(5))
.textmatrix(.rows - 1, 4) = trim(mrc.fields(6))
.textmatrix(.rows - 1, 5) = trim(mrc.fields(7))
mrc.movenext
loop
end with
end sub

機房收費系統之收取金額和退還金額查詢

收取金額流程圖 實現 private sub cmdexport click call exporttoexcel msflexgrid1 end sub private sub cmdinquery click dim txtsql,msgtext as string dim mrc as ado...

第一次機房收費系統 幽夢

經過了分析需求 基本配置。終於開始敲機房了。第一步就是敲模組，我只能按照學生資訊管理系統的模組照葫蘆畫瓢。稍微改改，雖然當時整學生時把模組的 一句一句的查了一遍，但到現在還是不懂。不管怎樣，接著進行吧。於是，正式開始了！0.0 登入 在敲登入窗體時，還是要參考學生資訊管理系統。這第一句 就讓我一頭霧...

第一次機房收費系統總結

1.sub與function的區別 1 sub 過程，不需要返回值 function 函式,可以帶返回值 2 語法 sub subname 引數1,引數2,end sub function functionname 引數1,引數2,functionname 返回值 end function 2.如何...