機房收費系統總結

歷時兩個多月，機房收費系統終於完成了，師傅驗收還算滿意，當然也還存在一些問題，好好總結一下吧，好歹也是兩個多月的努力。

從一般使用者開始，檢視餘額和修改密碼比較簡單，在學生檢視充值記錄和上機記錄檢視中涉及到了匯出excel，這裡在模組定義乙個公共過程就可以了。

public sub toexcel(flex as mshflexgrid)
on error resume next
dim obook as excel.workbook
dim objexlsht as excel.worksheet
dim listrst() as variant
dim lngrows as long
dim lngcols as long
dim intindex1 as integer
dim intindex2 as integer
set obook = oexcel.workbooks.add
set objexlsht = obook.activesheet
lngrows = flex.rows
lngcols = flex.cols
redim listrst(lngrows, lngcols)
for intindex1 = 0 to flex.rows - 1
for intindex2 = 0 to flex.cols - 1
listrst(intindex1, intindex2) = trim(flex.textmatrix(intindex1, intindex2))
next
next
doevents
with objexlsht
oexcel.intersect(.range(.rows(1), .rows(lngrows)), .range(.columns(1), .columns(lngcols))).value = listrst
end with
oexcel.visible = true
oexcel.interactive = true
end sub

學生上機狀態檢視中上機管理的強制下機為操作員的操作，強制下機跟下機相似都需要結賬，查詢時用到了組合查詢前面部落格中寫到了，在這就不重複了。操作員中也有幾個窗體用到了組合查詢和匯出為excel，都是大同小異。管理員的日結賬單和周結賬單類似，用到了報表需要自己動手做。結賬窗體比較複雜，要考慮到多種情況，註冊的金額、充值金額、消費金額、退卡金額等。

機房收費系統總結

機房收費系統總結

機房收費系統總結

機房收費系統總結

相關推薦