實現功能.
這部分讓自己學到了很多技術上的東西
,尤其是程式與資料庫互動出現的問題
,因為**基本上都是重複的都是是
"增刪改查
".下面說說自己遇到的問題
.問題一：
adlockoptimistic
與update
、adlockbatchoptimistic
與updatebatch。
因為弄混了兩者的區別，讓自己開始的時候狠狠地糾結了一把。
問題二：
在敲學生資訊管理系統時出現上述問題一般都是資料庫連線有問題，大家可以重點檢查與資料庫連線有關的語句。提醒大家一點，向下面的過程中，一定要注意
where
後面的空格！
private sub cmdinquire_click()
dim txtsql as string
dim msgtext as string
dim dd(4) as boolean
dim objrs as adodb.recordset
txtsql = "select * from result_info where " '連線資料庫
'選擇學號
if check1(0).value then
if trim(txtsid.text) = "" then
msgbox "學號不能為空，請輸入學號！！！", vbokonly + vbexclamation, "警告"
txtsid.setfocus
exit sub
else
if not isnumeric(trim(txtsid.text)) then
msgbox "請輸入數字！！！", vbokonly + vbexclamation, "警告"
exit sub
txtsid.setfocus
txtsid.selstart = 0
txtsid.sellength = len(txtsid.text)
end if
dd(0) = true
txtsql = txtsql & "student_id= '" & trim(txtsid.text) & "'"
end if
end if
出現上述錯誤，主要是輸入長度或資料型別與資料庫的設定不一致。這樣在將資料寫入資料庫時就會出現錯誤。避免這種錯誤的方法可以根據資料庫的需要來顯示使用者輸入的長度和格式。
比如：限制使用者只能輸入數字，最大輸入長度為
20.
public sub lmtlong(txt as string, n as integer) '限制輸入長度
if len(trim(txt)) >= n then
keyascii = 0
msgbox "最多輸入" & n & "位！！！", vbexclamation + vbokonly, "警告"
end if
end sub
public sub lmtnumber(a as integer) '只能輸入數字
if (a >= 48 and a <= 57) or a = 8 then
else
a = 0
msgbox "請輸入數字！！", vbokonly + vbexclamation, "警告"
end if
end sub問題四：
當資料庫中沒有記錄時，再次載入就會出現這個問題，解決方法：提前進行判斷，如果資料為空則提示新增資料。
private sub modifycoursemenu_click()
dim txtsql as string
dim msgtext as string
dim objrs as adodb.recordset
txtsql = "select * from course_info "
set objrs = executesql(txtsql, msgtext)
if objrs.eof and objrs.bof then
msgbox "資料為空，請先新增資料", vbokonly + vbexclamation, "警告"
exit sub
else
frmmodifycourseinfo.show
sbstatusbar.panels(1) = frmmodifycourseinfo.caption
end if
end sub
問題五：
這個問題糾結了很久，使用書籤時如果刪除最後一條記錄時就會報錯。大家解決的方法也各不相同，我一開始採用的是：進行判斷，如果是最後一條記錄時則提醒然後刪除並解除安裝窗體。
if str2 = vbok then
if objrs.recordcount = 1 then
objrs.delete
msgbox "記錄已經完全刪除請新增資訊！！", vbokonly + vbexclamation, "警告"
unload me
else
objrs.movenext
if objrs.eof then
objrs.movefirst
mybookmark = objrs.bookmark
objrs.movelast
objrs.delete
objrs.bookmark = mybookmark
call viewdata
else
mybookmark = objrs.bookmark
objrs.delete
objrs.moveprevious
objrs.bookmark = mybookmark
call viewdata
' end if
end if
else
objrs.bookmark = mybookmark
call viewdata
end if
可是，如果資料庫裡的資料一開始只有兩條時，則還是會出現問題
4。現在我也沒有解決，希望大家給點指點。
問題六：
主要當對某個表進行操作時，如果這個表被關閉了，就會出現這個錯誤。
問題七：
當更新資料時是直接更新好還是先刪除在寫入的好？
上述問題都是在做學生管理系統時遇到的一些主要問題。當然問題肯定不止這些，其他的一些細節問題，我們將在下面文章中講述。
細說學生管理系統（一）
管理系統算是自己敲得第乙個完整的軟體 雖然很爛 雖然它連雞窩都不算 雖然有原始碼參考 但是通過這個小小的軟體還是讓自己學到了很多 學會了如何從乙個程式設計師的角度思考問題 如何站在使用者的角度思考問題.下面就說說自己在做整個軟體過程中的一些收穫 分為三部分 一 前期工作。二 實現過程。三 除錯，打包...
第二週 學生管理系統
public class stumanagerelse if 0 equals input islogin true if admin equals adminname 123456 equals adminpassword else else if islogin system.out.print...
學生管理系統
include stdio.h include include include struct student void print void void display struct student head struct student creat q next null display head ...