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 book as excel.workbook
dim sheet as excel.worksheet
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
exit sub
end sub
同樣，金額退還資訊查詢的窗體的**也就很容易的就可以敲出來了，其他的匯出excel表當然也很容易的完成的。
可能這個窗體的**很早就完成了，都說很簡單，敲完再看確實不難，但是真正自己完成它還是很開心的。
機房收費系統 匯出Excel表
前言 機房收費系統進行了很長時間，其中很典型的乙個功能就是匯出excel 很多窗體都需要實現這個功能。主要內容 首先需要在vb的 工程 引用 microsoft excel 15.0object library 然後從vb中的mshflexgrid中匯出資料，實現如下 private sub cmd...
機房收費系統 組合查詢
機房收費系統在磕磕絆絆中過來了，這期間遇到問題，解決問題，最後收穫的特別多，在敲得過程中，不斷的學習新知識，應該說組合查詢是收費系統的乙個小難點了吧，起初我是真的不知道該從 下手，總是有種剪不斷理還亂的感覺，分析分析就繞進去了，我總是把問題想的很複雜，其實只要一句 語句，一切都解決了，根本用不到好多...
機房收費系統 組合查詢
關於組合查詢，真的是乙個令人頭疼的東西，但是當自己突然間的做出來時，卻莫名的有種貌似又不是很難得感覺。昨天弄了整整一下午，今天的下午終於在除錯了兩個小時做出來了。首先是查到了一些關於組合查詢的部落格，有乙個共同的特點就是都要獲得使用者所選的欄位名並轉化成資料庫表中的欄位名，這樣實現了人機共同語言的轉...