機房收費 查詢 檢視學生餘額

最近在敲機房的檢視學生餘額，雖然看到很多人的物件視窗，知道怎麼弄「舞台」上的東西，可是「幕後」的東西一點頭緒都沒有，一行**的思路都沒有。

經過看小夥伴的機房給我的啟示，突然發現怎麼如此的簡單。自己怎麼都沒有想到和學生的**沒有什麼差別啊！

定義-判斷語句-查詢語句-給文字框賦值（優化的地方：限制文字框的輸入只能為數字）

**：

dim mrc as adodb.recordset '建立資料庫連線

dim txtsql as string
dim msgtext as string

private sub cmdinquire_click()

if text1.text = "" then '判斷是否輸入了卡號
end if
txtsql = "select * from student_info where cardno = '" & text1.text & "'" '調出sql語句
set mrc = executesql(txtsql, msgtext) '執行查詢語句
if mrc.eof = true then '判斷記錄集是否存在
text1.text = ""
txtclass.text = "" '所有的文字框清空
txt***.text = ""
txtgrade.text = ""
txtmaigar.text = ""
txtmoney.text = ""
txtname.text = ""
txtother.text = ""
txtstuno.text = ""
txttype.text = ""
text1.setfocus '控制項獲得焦點？？？
exit sub
end if
'在相應的文字框中新增資訊
txtstuno.text = mrc.fields(1)
txtname.text = mrc.fields(2)
txt***.text = mrc.fields(3)
txtgrade.text = mrc.fields(5)
txtclass.text = mrc.fields(6)
txtother.text = mrc.fields(8)
txtmaigar.text = mrc.fields(4)
txttype.text = mrc.fields(14)
txtmoney.text = mrc.fields(7)
txtstuno.enabled = false
txtname.enabled = false
txt***.enabled = false
txtgrade.enabled = false
txtclass.enabled = false
txtother.enabled = false
txtmaigar.enabled = false
txttype.enabled = false
txtmoney.enabled = false
end sub

private sub text1_keypress(keyascii as integer)

if keyascii < 48 or keyascii > 57 then '限制文字框只能輸入數字
keyascii = 0
end if
end sub

txtsql = "select * from student_info where cardno = '" & text1.text & "'" '調出sql語句

set mrc = executesql(txtsql, msgtext) '執行查詢語句
txtsql = "select * from student_info where cardno = '" & text1.text & "'" '調出sql語句
set mrc = executesql(txtsql, msgtext) '執行查詢語句

第一次機房收費系統 學生檢視餘額

前言 剛開始進行機房感覺哪個窗體都特別難，無從下手的感覺，其實每接觸乙個新的專案都會有這個感覺，但是後邊你仔細想想其中的邏輯，就會發現，他其實和學生差不了多少。只要邏輯搞清楚就行。剛開始看見這個窗體，知道怎麼給他安排的整整齊齊的，但是對於寫 還真的是一點頭緒都沒有，後邊就看其他人寫的部落格，畫出來了...

機房收費總結 學生上機狀態查詢

所有學生下機 private sub cmdallstudown click txtsql delete from online info set mrc executesql txtsql,msgtext 將查詢內容顯示在 控制項中 with myflexgrid rows 2 兩行 cellal...

機房系統 查詢餘額窗體

其實這個窗體是最簡單的，也是最基礎的，它用到的主要內容就是查詢資料，所以弄清資料庫的關係和掌握資料庫操作的語句很重要。下面我來說說這個窗體的整體思路，既然是查詢，那麼肯定少不了判斷條件，其次是查詢的基本操作，光查詢完還不行，還得把查詢的內容顯示出來。可能還是不清楚，下面請看這張思維導圖，一看就懂。怎...