前提：
機房最先熟悉的是查詢，，通過查詢，漸漸地明白了機房的整個布局，本來很畏懼橋機房，但有了開始的途徑就覺得一切可以進行了。接下來是我對查詢的簡單理解
內容：查詢是最常見的，所以要熟悉以邪見的資料庫查詢語句的書寫方式，慢慢的熟悉資料庫。
vb中資料庫查詢語句
'任務一：判斷卡號是否為空
if txtcardno.text = "" then
msgbox "請輸入卡號！", vbokonly + vbexclamation, "警告"
else
'任務二：查詢卡號是否存在
txtsql = "select * from student_info where cardno = " & "'" & trim(txtcardno.text) & "'"
set mrc = executesql(txtsql, msgtext)' 對學生表中的資訊進行查詢，並返回資訊
對查詢語句的理解if mrc.eof = true then' 最後一條資訊存在，空值存在，即卡號不存在
msgbox "卡號不存在，請重新輸入卡號！", vbokonly + vbexclamation, "警告"
else
1.定義兩個字串 txtsql 和 msgtext 用來存放查詢語句即返回記錄
2.通過executesql函式進行在順庫中進行查詢
3.set 的用法
set 一般是對vb中除基本資料型別意外的變數進行賦值的語句。set用法連線
（還有其他的使用方法 set 表示將物件引用賦給變數或屬性 如果=號左邊的變數不是以下型別，就要在前面加上set
string、long、integer、single、double、byte、boolean、date、currency、variant、陣列、type
其中type比較特殊，因為它是用來進行自動以變數型別的，用它定義的變數型別的例項進行賦值操作時，無需set）
4.對txtsql語句的理解
雙引號的作用：vb可以識別為字串，
連線符& 前後必須有空格
單引號' 在資料庫需要用到的
接下來是資料庫查詢的語句： select * from 表名稱 where 查詢的條件，
5.定義乙個資料庫記錄集型別的變數
4.顯示問題
文字框顯示，不能修改
'任務三：顯示資訊
txtsid.text = mrc.fields(1)
txtname.text = mrc.fields(2)
txt***.text = mrc.fields(3)
txtdept.text = mrc.fields(4)
txtgrade.text = mrc.fields(5)
txtclass.text = mrc.fields(6)
txtmoney.text = mrc.fields(7)
txtexplain.text = mrc.fields(8)
txtstate.text = mrc.fields(10)
msgbox "成功！", vbokonly + vbexclamation, "提示"
end if
end if
'任務三：顯示資訊
with myflexgrid
.rows = 1
' .cellalignment = 4
' 居中顯示
.textmatrix(0, 0) = "卡號"
.textmatrix(0, 1) = "充值金額"
.textmatrix(0, 2) = "充值時間"
.textmatrix(0, 3) = "充值日期"
.textmatrix(0, 4) = "充值老師"
' 任務四:顯示查詢資料
do while not mrc.eof
' 一直執行到最後條記錄
.rows = .rows + 1
' 可防止空白行的出現
' .cellalignment = 4
' 居中顯示
.textmatrix(.rows - 1, 0) = trim(mrc.fields(2))
.textmatrix(.rows - 1, 1) = trim(mrc.fields(3))
.textmatrix(.rows - 1, 2) = trim(mrc.fields(4))
.textmatrix(.rows - 1, 3) = trim(mrc.fields(5))
.textmatrix(.rows - 1, 4) = trim(mrc.fields(6))
private sub cmdedit_click()
if myflexgrid.text = "" then
msgbox "沒有記錄可以匯出!", vbokonly + vbexclamation, "提示"
else
on error goto err_proc
set xlsheet = xlbook.worksheets(1) '新增工作單元
'向工作單元中新增資料
dim i as long
dim j as integer
with frminqcollectmoney.myflexgrid
for i = 0 to .rows - 1 '行依次增加從0開始 外迴圈，外迴圈每增加1，內迴圈迴圈一周
for j = 0 to .cols - 1 '一行有.cols列 從0開始迴圈
xlsheet.cells(i + 1, j + 1).value = "'" & .textmatrix(i, j) '工作表中採用（x，y）座標，都從1開始
next j
next i
end with
screen.mousepointer = vbdefault '滑鼠指標設為預設狀態
exit sub
err_proc:
screen.mousepointer = vbdefault '滑鼠指標設為預設狀態
msgbox "請確認您的電腦已安裝excel，或是否安裝正確！", vbexclamation, "機房收費系統"
end if
end sub
資料庫連線部分打錯了字母或者未連線資料庫
實時錯誤會提示問題出在**，在資料庫語句附近。改正即可。
總結：機房學習的時候需要不斷重複，多了就會了，重要的是敢於去做，機房查詢和學生的查詢是一樣的所以只要去做就可以了。
機房收費系統（三）
收費系統到今天已經完工了，有些小bug，基本的功能都已實現，這次做機房收費系統中，遇到了很多問題，包括技術上的，包括知識面上的。不怕不知道，就怕不知道。心態問題 在寫 的過程中或者是在畫圖的過程中，心態一定要放平，不要讓一些無所謂的爛七八糟的東西來打擾和影響你的學習。這次寫 中有的時候自己突然心血來...
機房收費系統 功能介紹
一般使用者 學生檢視餘額 輸入卡號查詢卡號對應的學生資訊及餘額。學生檢視上機狀態 輸入卡號查詢學生上機時間 日期，下機時間 日期，消費金額及其餘額。學生充值記錄查詢 輸入卡號查詢歷史充值金額，充值日期，充值時間以及充值教師。學生上機狀態檢視 查詢上機資訊統計。顯示上機的資訊。所有學生下線 全部下線和...
機房收費系統 組合查詢
機房收費系統在磕磕絆絆中過來了，這期間遇到問題，解決問題，最後收穫的特別多，在敲得過程中，不斷的學習新知識，應該說組合查詢是收費系統的乙個小難點了吧，起初我是真的不知道該從 下手，總是有種剪不斷理還亂的感覺，分析分析就繞進去了，我總是把問題想的很複雜，其實只要一句 語句，一切都解決了，根本用不到好多...