第一次機房收費系統，相比之前的學生收費系統來說更加完善，更加具體，也更貼合實際，在做機房的過程中的具有代表性的就是上下機，組合查詢，以及結賬。
結賬，就是收入總和，即操作員的具體操作。
經過分析，我們可知道，這就是管理員看操作員一天的工作明細，即售卡，充值，退卡的情況。
1、 購卡：就是在student_info表總查詢未結賬的那些新註冊的學生卡號等資訊。
2、 充值：在recharge_info表中查詢未結賬的充值資訊。
3、 退卡：在cancelcard_info中查詢未結賬的退卡資訊。
4、 臨時使用者：在student_info表中查詢未結賬的，沒有退卡的臨時使用者。
5、 彙總：將前面所有的資訊彙總起來。用到了student_info 、recharge_info 、cancelcard_info 表。
6、 售卡張數=購卡選項卡的記錄總數。
7、 退卡張數=退卡選項卡的記錄總數。
8、 退卡金額=cancelcard_info表中的金額進行累加。
9、 總售卡數=售卡數-退卡數。
10、 註冊和充值金額=student_info 表中註冊時候的充值金額+recharge_info 表中的充值金額（
11、 臨時收費=臨時收費選項卡記錄中的卡號上機所消費的錢的總和(line_info)（只是用來顯示）
12、應收金額=註冊和充值金額-退卡金額
下面為一段購卡查詢的**
private sub sstab1_click(previoustab as integer)
msfgbuycard.clear
msfgbuycard.rows = 1
dim txtsql as string
dim msgtext as string
dim mrcgk as adodb.recordset '購卡
dim mrccz as adodb.recordset '充值
dim mrctk as adodb.recordset '退卡
dim mrclsyh as adodb.recordset '臨時使用者
'購卡with msfgbuycard
txtsql = "select * from student_info where userid='" & combouserid.text & "'" & "and status ='未結賬'"
set mrcgk = executesql(txtsql, msgtext)
.rows = 1
.cellalignment = 4
.textmatrix(0, 0) = "學號"
.textmatrix(0, 1) = "卡號"
.textmatrix(0, 2) = "日期"
.textmatrix(0, 3) = "時間"
.textmatrix(0, 4) = "金額"
do while mrcgk.eof = false
.rows = .rows + 1
' .cellalignment = 4
.textmatrix(.rows - 1, 0) = trim(mrcgk.fields(0))
.textmatrix(.rows - 1, 1) = trim(mrcgk!studentno)
.textmatrix(.rows - 1, 2) = trim(mrcgk!date)
.textmatrix(.rows - 1, 3) = trim(mrcgk!time)
.textmatrix(.rows - 1, 4) = trim(mrcgk!cash)
mrcgk.movenext
loop
end with
第一次機房之結賬
結賬是做機房遇到的難點之一，難在是第一次接觸結賬計算功能，所以很多情況考慮不夠全面，做之前一定要梳理關係，把結賬的關係梳理清楚，有乙個自己的思路，那麼，做起來還是很簡單的，每乙個功能都有它的套路，只要找到了關鍵的部分，剩下的就是去做了。如 購卡 連線資料庫 txtsql select from st...
第一次機房收費系統 幽夢
經過了分析需求 基本配置。終於開始敲機房了。第一步就是敲模組，我只能按照學生資訊管理系統的模組照葫蘆畫瓢。稍微改改，雖然當時整學生時把模組的 一句一句的查了一遍，但到現在還是不懂。不管怎樣，接著進行吧。於是，正式開始了！0.0 登入 在敲登入窗體時，還是要參考學生資訊管理系統。這第一句 就讓我一頭霧...
第一次機房收費系統總結
1.sub與function的區別 1 sub 過程，不需要返回值 function 函式,可以帶返回值 2 語法 sub subname 引數1,引數2,end sub function functionname 引數1,引數2,functionname 返回值 end function 2.如何...