機房收費系統 之結賬

2021-08-31 13:22:57 字數 1119 閱讀 2603

'通過使用者名稱顯示真實姓名


txtsql = "select * from user_info where userid='" & comboopuserid.text & "'"


set mrc = executesql(txtsql, msgtext)


combooprealname.text = mrc!username


mrc.close
購卡選項卡的重要**：

if sstab1.tab = 0 then


'將查詢的內容顯示在**控制項中


with myfgbuycard(0)


.rows = 1


.cellalignment = 4


.textmatrix(0, 0) = "???"


.textmatrix(0, 1) = "????"


.textmatrix(0, 2) = "????"


.textmatrix(0, 3) = "???"


'判斷是否移動到資料集物件的最後一條


do while not mrc1.eof


.rows = .rows + 1


.cellalignment = 4


.textmatrix(.rows - 1, 0) = trim(mrc1.fields(1))


.textmatrix(.rows - 1, 1) = trim(mrc1.fields(0))


.textmatrix(.rows - 1, 2) = trim(mrc1.fields(13))


.textmatrix(.rows - 1, 3) = trim(mrc1.fields(14))


'移動到下一條記錄


mrc1.movenext


loop


end with


end if
算錢那一部分我主要用到了多條迴圈語句：

do while not mrc.eof 


語句塊loop

機房收費系統 之 結賬

結賬，顧名思義就是把錢算一下。這的結賬不是給每乙個卡號結賬，而是給乙個操作員結賬，算一下這個操作員一共賣卡張數，退卡張數，實收金額，應收金額等等。結賬的介面是這個樣子的，其中用到乙個選項卡 這個窗體相比較而言還有有點難度的。別看乙個小小的操作員使用者名稱，它不是一般的combo控制項，對於一般的co...

機房收費系統之」結賬「

根據使用者名稱選姓名 txtsql select from user info where userid trim combousername.text set mrc executesql txtsql,msgtext comboname.text mrc.fields 3 mrc.close 根...

機房收費系統之結賬

工程 部件 控制項 microsoft tabbed dialog control 6.0 購卡 card info 表中未結賬,當前操作員的卡號資訊 充值 recahrge info 表中未結賬的,該操作員的充值資訊 退卡 cancelcard info表中 未結賬，該操作員的退卡資訊 臨時使用者...