機房收費系統資料連線的過程是，首先odbc驅動器和後台資料庫伺服器建立連線，然後用**和odbc建立連線，然後**通過odbc來對資料庫伺服器中的資料進行操作，連線**如下：
public function connectstring() as string
'建立遠端伺服器資料連線
connectstring = "provider=sqloledb;data source=192.168.24.176;initial catalog=computerroomcharge_sys;uid=sa;pwd=123456"
'connectstring = "filedsn = computercharge.dsn; uid = sa; pwd = 123456 " 這裡是建立本地資料連線
end function
public function executesql(byval sql as string) as adodb.recordset
dim ojbcnn as connection
dim objrst as recordset
dim arry() as string
on error goto executesql_error
arry() = split(sql)
set objcnn = new connection
objcnn.open connectstring
'判斷是否不是查詢語句
if instr("delete,insert,update", ucase(arry(0))) then
objcnn.execute sql
msgbox "操作成功", vbokonly + vbexclamation, "提示"
else
set objrst = new recordset
objrst.open trim(sql), objcnn, adopenkeyset, adlockoptimistic
set executesql = objrst
end if
'錯誤處理語句
executesql_exit:
set objrst = nothing
set objcnn = nothing
exit function
executesql_error:
msgbox "資料庫查詢出現錯誤", vbokonly + vbexclamation, "提示"
resume executesql_exit
機房收費系統總結
歷時兩個多月，機房收費系統終於完成了，師傅驗收還算滿意，當然也還存在一些問題，好好總結一下吧，好歹也是兩個多月的努力。從一般使用者開始，檢視餘額和修改密碼比較簡單，在學生檢視充值記錄和上機記錄檢視中涉及到了匯出excel，這裡在模組定義乙個公共過程就可以了。public sub toexcel fl...
機房收費系統總結
再敲之前 是有說過要好好的先研究一下機房收費系統的原理，以及其中各步驟的相關邏輯關係。當然向很多時候一樣我沒有好好的去理解當時 說的話，很隨意的將每一項功能都點了一下就著手幹了。沒過多久的 開了一次會，問我怎麼做的。是不是三種許可權都試了 一般使用者 操作員 管理員 說實話當時我都沒有想到不同的許可...
機房收費系統總結
經過二十天的艱苦奮鬥我的機房收費系統最終敲完了，在回家之前又讓師傅驗收了一邊最終通過，自己當時感覺那叫乙個興奮呀，最終能夠高高興興回家了，太好了。當時興奮過頭導致沒有寫總結，以致回到家後才寫總結。我在做機房收費系統時。感覺最讓人頭疼的就是結賬 算錢，儘管自己是個理科生。但是這算賬真不敢恭維，那真叫個...