bug
一:組合框不可輸入
表與表之間都是相互聯絡的,它們都是通過乙個或幾個字段進行連線的,因此這些用來連線的字段不能隨便進行更改。(改後表與表間就聯絡不起來了)
下面我們以frmaddsinfo
中的班號為例:班號應先判定是否有班號,不可直接輸入,
因為班號是由班級資訊表中的班號確定的,不能隨便更改。
源**:
private sub form_load()
dim mrc as adodb.recordset
dim txtsql as string
dim msgtext as string
dim i as integer
combo***.additem "男"
combo***.additem "女"
txtsql = "select * from class_info "
set mrc = executesql(txtsql, msgtext)
for i = 1 to mrc.recordcount
comboclassno.additem mrc.fields(0)
mrc.movenext
next i
mrc.close
end sub
改後**:
private subcboclassnum_dropdown()
dim mrs as adodb.recordset
dim strsql as string
dim msgtext as string
dim i as integer
cboclassnum.clear
strsql = "select * from class_info"
set mrs = executesql(strsql, msgtext)
if mrs.eof then
msgbox "
請先新增班號!", vbexclamation + vbokonly, "
提示"
frmaddsinfo.hide
frmaddclassinfo.show
exit sub
else
for i = 1 to mrs.recordcount
cboclassnum.additem mrs.fields(0)
mrs.movenext
next
mrs.close
end if
end sub
學生管理系統之BUG(3)
bug三 原 中的刪除存在乙個問題 當你刪除最後乙個後,它沒有清除顯示內容且沒有提示,所以當你再單擊刪除時就會出現問題。我們對它的刪除方法進行了修改,通過它的recordcount屬性來判斷是否到了最後一條記錄,如果刪除最後一條後會進行提示,並解除安裝窗體。下面我們以frmmodifysinfo中 ...
1 學生管理系統
編號功能 0退出系統 1錄入學生資訊,呼叫insert 函式 2查詢學生資訊,呼叫search函式 3刪除學生資訊,呼叫delete 函式 4修改學生資訊,呼叫modify 函式 5排序功能,呼叫sort 函式 6統計人數功能,呼叫total 函式 7顯示所有學生資訊,呼叫show 函式 1.3.1...
學生資訊管理系統的Bug
今天在除錯學生資訊系統的時候出現了錯誤。public function executesql byval sql as string,msgstring as string as adodb.recordset dim cnn as adodb.connection dim rst as adodb...