組合框內新增資訊（additem屬性）
private sub form_load()
combograde.additem
"初中一年級"
combograde.additem
"初中二年級"
combograde.additem
"初中三年級"
combograde.additem
"高中一年級"
combograde.additem
"高中二年級"
combograde.additem
"高中三年級"
end sub
if
not testtxt(txtclassno.text) then
msgbox "請輸入班號！", vbokonly + vbexclamation, "警告"
txtclassno.setfocus
exit
subend
ifif
not testtxt(combograde.text) then
msgbox "請選擇年級！", vbokonly + vbexclamation, "警告"
combograde.setfocus
exit
subend
ifif
not testtxt(txtdirector.text) then
msgbox "請輸入班主任姓名！", vbokonly + vbexclamation, "警告"
txtdirector.setfocus
exit
subend
ifif
not testtxt(txtclassroom.text) then
'如果沒有檢測到txt，那麼
msgbox "請輸入教室房間號！", vbokonly + vbexclamation, "警告"
txtclassroom.setfocus
exit
subend
if
public
function testtxt(txt as
string) as
boolean
if trim(txt) = ""
then
testtxt = false
else
testtxt = true
endif
endfunction
if
not isnumeric(trim(txtclassno.text)) then
msgbox
"請輸入數字！", vbokonly + vbexclamation, "警告"
txtclassno.setfocus
exit
subend
if
public
function executesql(byval sql as
string, msgstring as
string) as adodb.recordset
'execute sql and return recordset
dim cnn as adodb.connection
dim rst as adodb.recordset
dim stokens() as
string
onerror
goto executesql_error
stokens = split(sql)
set cnn = new adodb.connection
cnn.open connectstring
if instr("insert,delete,update", ucase$(stokens(0))) then
cnn.execute sql
msgstring = stokens(0) & " query successful"
else
set rst = new adodb.recordset
rst.open trim$(sql), cnn, adopenkeyset, adlockoptimistic
set executesql = rst
msgstring = "查詢到" & rst.recordcount & "條記錄"
endif
executesql_exit:
set rst = nothing
set cnn = nothing
exit
function
executesql_error:
msgstring = "查詢錯誤：" & _
err.description
resume executesql_exit
endfunction
if
not (mrc.eof and mrc.bof) then
mrc.movefirst
endifwhile (mrc.eof = false)
if (trim(mrc.fields(0)) = trim(txtclassno.text)) then
msgbox
"班號已經存在，請重新輸入班號！", vbokonly + vbexclamation, "警告"
txtclassno.text = ""
txtclassno.setfocus
exit
subelse
mrc.movenext
endifwend
mrc.addnew
mrc.fields(0) = trim(txtclassno.text)
mrc.fields(1) = trim(combograde.text)
mrc.fields(2) = trim(txtdirector.text)
mrc.fields(3) = trim(txtclassroom.text)
mrc.update
mrc.close
msgbox "新增班級資訊成功！", vbokonly + vbexclamation, "新增班級資訊"
學生資訊管理系統之
習學生資訊管理系統的時候，對於資訊的修改很多時候都用到了 書籤的功能 mybookmark 對刪除記錄顯示記錄起到了承上啟下的巨大作用。所以說書籤最懂你的心。書籤顧名思義就是做標記，讓我們更好的控制使用資料表，通過書籤我們可以隨意的跳到我們想要看的記錄下 前提是你的給你的目的記錄標記書籤 此外書籤還...
學生資訊管理系統之優化二
查詢窗體核取方塊優化 核取方塊取消勾選之後文字框中的內容和查詢的內容也被清空 check 取消後面的內容隨之取消 private sub check1 click if not check1.value then txtsid.text with myflexgrid rows 2 cellalig...
學生資訊管理系統（二）刪除資訊
1.先分析下刪除的過程。假設現在已經新增了記錄,3個記錄.當前顯示第乙個記錄時,刪除.指標向下移動顯示第二個記錄。第二個同理。但當前顯示第三個記錄時,刪除第三個,指標指向eof,這不是是我們想要的，我們要的是刪除第三個記錄後，顯示第乙個記錄。圖1解 如下 1 private sub deleteco...