學生資訊管理系統的Bug

今天在除錯學生資訊系統的時候出現了錯誤。

public function executesql(byval sql as string, msgstring as string) as adodb.recordset

dim cnn as adodb.connection
dim rst as adodb.recordset
dim stocken() as string
on error goto executesql_error
stocken = split(sql)
set cnn = new adodb.connection
cnn.open connectionstring
'如果是簡單的插入更新刪除操作，則直接執行
if instr("insert,update,delete", ucase$(sql)) then
cnn.execute sql
msgstring = stocken(0) & "執行成功"
else '如果是查詢語句查詢的記錄量大所以要儲存到記錄集中。
set rst = new adodb.recordset
rst.open trim$(sql), cnn, adopenkeyset, adlockoptimistic
set executesql = rst
msgstring = "查詢到" & rst.recordcount & "條記錄"
end if
executesql_exit:
set cnn = nothing
set rst = nothing
exit function
executesql_error: '錯誤跳轉
msgstring = "查詢到錯誤：" & err.description
resume executesql_exit
end function

當除錯修改密碼的窗體時出現：

是因為再修改使用者密碼的窗體中只能是對當前使用者的密碼進行修改，並且在不同的窗體中要考慮到變數命名的一致性，所以要定乙個全域性變數來對乙個控制項的控制。

還出現了很多功能不完整的錯誤，是自己**邏輯上的錯誤了。當然還會有很多的缺陷。打算把學生資訊管理系統理解透徹了再去做機房收費系統，別人做的很雖然很快。但我要慢慢來。加油！

學生資訊管理系統的Bug

今天在除錯學生資訊系統的時候出現了錯誤。public function executesql byval sql as string,msgstring as string as adodb.recordset dim cnn as adodb.connection dim rst as adodb...

學生資訊管理系統的Bug

今天在除錯學生資訊系統的時候出現了錯誤。public function executesql byval sql as string,msgstring as string as adodb.recordset dim cnn as adodb.connection dim rst as adodb...

學生資訊管理系統

學生資訊管理系統，顧名思義就是為了管理學生的相關資訊做的一款軟體。雖然這次有原始碼供我們參考，但是從中我學習到了如何從開始到完工去做一款軟體，下邊我從做一項軟體專案的前後順序來總結我的學生資訊管理系統。一，分析需求 首先在做這款軟體是，我們先想象乙個成品，他的功能有哪些，每個功能完成哪項任務，這就是...