原因
最近在學習機房收費系統的時候，我發現再一次暴躁了，，狂躁症使我崩潰，但是後來在新月的講解下，我慢慢的懂了這是咋回事，既然理解了就很好敲了，所以今天就來說說我的理解
本窗體目的
為了能清楚這一天，操作員賬目的情況，賺了多少錢，進來了多少錢，退了多少錢，每筆錢花在哪了
本窗體的方法
為了很明確的看到每乙個操作員都創造了那些收益，或者進行了什麼樣的流入流出，讓管理員選擇乙個操作員，然後把他賬下的卡數，錢，一一進行顯示，最後彙總一下，看看總共賺了多少錢
本窗體的**
兩部分：一部分是單純顯示資訊部分，即檢視某個操作員下，他的卡數，錢的流動情況，把這些資訊顯示出來，第二個部分就是彙總的部分，這裡涉及到算賬了，算一下這個操作員這一天總共的獲利，是賺了還是賠了呢？
顯示部分的**：注意，因為使用的sstab控制項，所以我用到了select case 語句
以充值資訊舉例：
case 2
dim txtsqls as string
dim msgtext as string
dim mrcs as adodb.recordset
'從recharge_info表中調出資料。
txtsqls = "select * from recharge_info where userid='" & comboopuserid.text & "'and ischeck='未結賬'"
set mrcs = executesql(txtsqls, msgtext)
with mshflexgrid3
.cellalignment = 4
.cols = 4
.rows = 1
.textmatrix(0, 0) = "學號"
.textmatrix(0, 1) = "卡號"
.textmatrix(0, 2) = "日期"
.textmatrix(0, 3) = "時間"
.textmatrix(0, 4) = "充值金額"
end with
if mrcs.recordcount <> 0 then
do while mrcs.eof = false
with mshflexgrid1
.cellalignment = 4
.cols = 4
.rows = .rows + 1
.textmatrix(.rows - 1, 0) = mrcs.fields(1)
.textmatrix(.rows - 1, 1) = mrcs.fields(2)
.textmatrix(.rows - 1, 2) = mrcs.fields(4)
.textmatrix(.rows - 1, 3) = mrcs.fields(5)
.textmatrix(.rows - 1, 4) = mrcs.fields(3)
mrcs.movenext
end with
loop
end if
這是我的理解，對於我來說最難的就是那段顯示的**，好在理解了
機房收費系統結賬窗體
結賬，概括的來說，就讓管理員知道每天機房的金錢收支。詳細的說是把每個操作員一天收支明細列出來讓管理員一目了然。下面我們先來看看結賬的介面，如下圖 經過分析，我們可知道，這就是管理員看操作員一天的工作明細，即售卡，充值，退卡的情況。1 購卡 就是在student info表總查詢沒有結賬的那些新註冊的...
機房收費系統 之 結賬
結賬，顧名思義就是把錢算一下。這的結賬不是給每乙個卡號結賬，而是給乙個操作員結賬，算一下這個操作員一共賣卡張數，退卡張數，實收金額，應收金額等等。結賬的介面是這個樣子的，其中用到乙個選項卡 這個窗體相比較而言還有有點難度的。別看乙個小小的操作員使用者名稱，它不是一般的combo控制項，對於一般的co...
機房收費系統 之結賬
通過使用者名稱顯示真實姓名 txtsql select from user info where userid comboopuserid.text set mrc executesql txtsql,msgtext combooprealname.text mrc username mrc.clo...