機房收費系統（二）

[目錄]

機房收費系統敲了一部分，發現了很多之前沒有注意的地方，以前也是態度不夠嚴謹吧；也收穫了一些技巧和經驗。拿來給大家分享一下

發現的問題：

[sql server]轉換varchar值『6000000001』時溢位整數列。超過了其最大整數值。

解決方法：將int型別,轉換為bigint 或 numeric即可。

注意到的細節和技巧：

一、**前面加入magtext sqltext 可判斷連線資料庫是否有問題。

二、理清資料庫表與表之間關係的時候，要把表中各個屬性填寫完整。

三、文字框與資料庫間形成的連線：

mrc.fields(0) = trim(txtsid.text)

mrc.fields(3) = trim(txtaddmoney.text)

對**的分析：

以我的賬戶充值介面**為例，**由以下幾部分構成：

dim mrc as

adodb.recordset
dimmsgtext
asstring
dim txtsql as
string
dim txtrecharge as
string
dim txtname as
string
'判斷是否輸入賬號
if not testtxt(txtsid.text) then
msgbox "請輸入賬號!", vbokonly + vbexclamation, "警告"
txtsid.setfocus
exit sub
end if
'判斷是否輸入充值金額
ifnot
testtxt(txtaddmoney.text) then
msgbox
"請輸入充值金額!", vbokonly + vbexclamation, "警告"
txtaddmoney.setfocus
exit
subend
if'判斷是否輸入賬戶餘額
if not testtxt(txtrecharge.text) then
msgbox "請輸入賬戶餘額!", vbokonly + vbexclamation, "警告"
txtrecharge.setfocus
exit sub
end if
'判斷充值金額是否為空
if txtaddmoney.text = ""
then
msgbox
"請充值!", vbokonly + vbexclamation, "警告"
txtaddmoney.setfocus
exit
subend
if'查詢語句
txtsql = "select * from money_info"
set mrc = executesql(txtsql, msgtext)
'賬戶充值
txtaddmoney.setfocus
msgbox
"充值成功!", vbokonly, "提示"
'新增記錄
mrc.addnew
'給每個字段賦值
mrc.fields(0) = trim(txtsid.text)
mrc.fields(3) = trim(txtaddmoney.text)
'更新資料庫
mrc.update
'關閉資料集物件
mrc.close
me.hide
endsub
private
subform_load()
dim mrc as
adodb.recordset
dim txtsql as
string
dimmsgtext
asstring
txtsql = "select * from money_info"
set mrc = executesql(txtsql, msgtext)
endsub

2）其次是判斷語句；（可以設定一些限制條件）

例：

'判斷是否輸入賬戶餘額

ifnot testtxt(txtrecharge.text) then
msgbox "請輸入賬戶餘額!", vbokonly + vbexclamation, "警告"
txtrecharge.setfocus
exit
subend
if

txtsql = 「select * from money_info」

set mrc = executesql(txtsql, msgtext)

其中涉及到組合查詢：

『組合sql語句

txtsql = 「select * from machineroomuser_info where」

對於**，越簡單越好，多餘的**要盡量去除，對編寫**和理解**有很大的幫助。

機房還有一部分沒有敲，要抓緊時間了；

機房收費系統 登入 二

之前把登入窗體的的思路捋了一下，機房收費系統 登入 一 那會兒的思路還是不是很清晰，現在簡單的說一下，對於使用者的登入，級別對於使用系統中的功能有限制的作用 一般使用者 一級使用者，就是一般的操作使用者，可以用來上機和下機，對於個人賬戶的查詢等 操作員 二級使用者，可以管理一般使用者 管理員 使用者...

機房收費系統

利用幾乎兩個多禮拜的時間，終於把機房收費系統基本完工了。這個過程中，因為有了學生系統做為鋪墊，所以做的時候還算得心應手吧。在其實也遇到了一引些問題，還是好解決的。這個系統到現在為止，也只能說是基本實現了功能，但是還很不健壯，而且漏洞我想還有很多，還有待進一步的除錯與完善。雖然在敲機房收費系統前，把命...

機房收費系統

利用幾乎兩個多禮拜的時間，終於把機房收費系統基本完工了。這個過程中，因為有了學生系統做為鋪墊，所以做的時候還算得心應手吧。在其實也遇到了一引些問題，還是好解決的。這個系統到現在為止，也只能說是基本實現了功能，但是還很不健壯，而且漏洞我想還有很多，還有待進一步的除錯與完善。雖然在敲機房收費系統前，把命...