在日結賬這個窗體中用到了報表(grid++report 報表設計器)
首先 有上期充值卡餘額,當日充值餘額,當日消費金額,當日退款金額,本期充值卡金額
咱們得好好理解 這幾個都是啥,嗯。。。
當日充值金額這個很簡單,就是充值的錢
txtsql = "select sum(addmoney) from recharge_info where date='" & date & "'" '計算充值金額 把金額按照今天的日期都加在一起
set mrcc = executesql(txtsql, msgtext)
然後就是當日的消費金額,也很好理解
txtsql = "select sum(consume) from line_info where ondate='" & date & "'" '計算消費金額
set mrcccc = executesql(txtsql, msgtext)
還有當日退款金額,也很簡單,就是退卡的錢
txtsql = "select sum(cancelcash) from cancelcard_info where date='" & date & "'" '計算退卡金額 把退卡金額按照今天的日期都加在一起
set mrccc = executesql(txtsql, msgtext)
上期充值金額,這個東西吧,還是有點東西的,得好好想想,得考慮一下第一次用,裡面如果沒有資料,怎麼辦,如果有資料,怎麼得到這個資料,對吧,因為是日結賬單,所以資料是 date-1,直接在checkday 表中獲取。
txtsql = "select sum(allcash) from checkday_info where date = '" & date - 1 & "'" '計算上期餘額
set mrc = executesql(txtsql, msgtext)
if isnull(mrc.fields(0)) = true then
sye = 0
else
sye = trim(mrc.fields(0))
end if
然後就是這個本期充值卡金額,看你怎麼理解了我的理解是
本期充值卡餘額=上期充值卡餘額+本期充值金額-本期消費金額-本期退款金額
所以得出的數是乙個負數,也沒有問題,能對上帳就ok
最後就是更新check day表中的資料,就完成了
新增報表的模板**
機房收費系統 結賬
結賬是對這一段時間裡支出的乙個彙總,能清晰的知道自己今天賺了多少錢。但這裡的結賬不是我們單純的認為的那種收費結賬,裡面有很多個環節步驟,就比如說操作員和管理原之間的區別是什麼 操作員 相當於收銀員的型別,錢並不是到他那裡,而是個打工的。管理員 真正的老闆,錢最後彙總到的地方。再就是我們需要對各個表裡...
機房收費系統 之 結賬
結賬,顧名思義就是把錢算一下。這的結賬不是給每乙個卡號結賬,而是給乙個操作員結賬,算一下這個操作員一共賣卡張數,退卡張數,實收金額,應收金額等等。結賬的介面是這個樣子的,其中用到乙個選項卡 這個窗體相比較而言還有有點難度的。別看乙個小小的操作員使用者名稱,它不是一般的combo控制項,對於一般的co...
機房收費系統 之結賬
通過使用者名稱顯示真實姓名 txtsql select from user info where userid comboopuserid.text set mrc executesql txtsql,msgtext combooprealname.text mrc username mrc.clo...