機房收費系統之日結賬單

2021-09-22 21:16:53 字數 1272 閱讀 8975

在日結賬這個窗體中用到了報表(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...