其實這個窗體是最簡單的，也是最基礎的，它用到的主要內容就是查詢資料，所以弄清資料庫的關係和掌握資料庫操作的語句很重要。下面我來說說這個窗體的整體思路，既然是查詢，那麼肯定少不了判斷條件，其次是查詢的基本操作，光查詢完還不行，還得把查詢的內容顯示出來。可能還是不清楚，下面請看這張思維導圖，一看就懂。
怎麼樣，是不是一下清晰了好多，下面我們再來看看具體的**：
private
sub cmdok_click()
dim txtsql as
string
dim msgtext as
string
dim mrc as adodb.recordset
'判斷是否輸入卡號
if trim(txtcardno.text) = ""
then
msgbox "請輸入卡號！", vbokonly + vbexclamation, "提示"
exit
subend
if'判斷卡號是否為數字
ifnot isnumeric(trim(txtcardno.text)) then
msgbox "卡號請輸入數字！", vbokonly + vbexclamation, "警告"
txtcardno.text = ""
exit
subend
if'資料庫中查詢卡號
txtsql = "select * from student_info where cardno= '" & txtcardno.text & "'"
set mrc = executesql(txtsql, msgtext)
'判斷資料庫中是否有此卡號
if mrc.eof = true
then
msgbox "沒有此卡號，請重新輸入", vbokonly + vbexclamation, "警告！"
mrc.close
exit
subend
if'將資料庫的資料顯示到窗體上
txtsid.text = mrc!studentno
txtname.text = mrc!studentname
txt***.text = mrc!***
txtdept.text = mrc!department
txtgrade.text = mrc!grade
txtclass.text = mrc!class
txtstate.text = mrc!status
txtexplain.text = mrc!explain
txtbalance.text = mrc!cash
endsub
機房收費 查詢 檢視學生餘額
最近在敲機房的檢視學生餘額，雖然看到很多人的物件視窗，知道怎麼弄 舞台 上的東西，可是 幕後 的東西一點頭緒都沒有，一行 的思路都沒有。經過看小夥伴的機房給我的啟示，突然發現怎麼如此的簡單。自己怎麼都沒有想到和學生的 沒有什麼差別啊！定義 判斷語句 查詢語句 給文字框賦值 優化的地方 限制文字框的輸...
機房之一般使用者查詢餘額
介面 當前卡號登入上機，label顯示當前登入的卡號，各個文字框設定成不可編輯 流程圖 實現 private sub form load lblcardno.caption 卡號 username dim mrc as adodb.recordset dim txtsql as string dim...
機房收費系統結賬窗體
結賬，概括的來說，就讓管理員知道每天機房的金錢收支。詳細的說是把每個操作員一天收支明細列出來讓管理員一目了然。下面我們先來看看結賬的介面，如下圖 經過分析，我們可知道，這就是管理員看操作員一天的工作明細，即售卡，充值，退卡的情況。1 購卡 就是在student info表總查詢沒有結賬的那些新註冊的...