在學生資訊管理系統的新增學籍模組中，有學生出生日期和入校日期選項的新增，但是如果對這兩個選項沒有限制條件的話，就會出現這樣的問題：在使用者大量的錄入資料時，如果使用者存在資訊錄入錯誤時，但系統沒有任何的的提示資訊，這樣使用者就很難發現資訊錄入的錯誤，給使用者帶來很大的不便。比如，使用者錄入的資訊（學生的出生日期比學生的入校日期晚），這樣的情況是絕對不允許出現的。
學籍新增窗體
為此我對這學籍新增模組的「出生日期」和「入校日期」選項的**稍做了一些改動，增加了一些輸入資訊的條件限制。見下面**。
private sub cmdok_click()
·······
'判斷出生日期格式是否正確
if not isdate(trim(txtbithdate)) then
msgbox "出生日期應輸入日期格式（yyyy-mm-dd）!", vbokonly + vbexclamation, "警告"
txtbithdate = ""
txtbithdate.setfocus
exit sub
end if
'判斷出生日期是否在允許的範圍內（1990/1/1 - 2000/1/1）
if datevalue(trim(txtbithdate)) < #1/1/1990# or datevalue(trim(txtbithdate)) > #1/1/2000# then
msgbox "請輸入正確的出生日期！", vbokonly, "提示"
txtbithdate.setfocus
txtbithdate = ""
exit sub
end if
txtbithdate = format(txtbithdate, "yyyy-mm-dd")
'判斷入學日期格式是否正確
if not isdate(trim(txtrudate)) then
msgbox "入學日期應輸入日期格式（yyyy-mm-dd）!", vbokonly + vbexclamation, "警告"
txtrudate = ""
txtrudate.setfocus
exit sub
end if
'判斷入學日期是否在允許的範圍內（2008/1/1 - 當日）
if datevalue(trim(txtrudate)) > date or datevalue(trim(txtrudate)) < #1/1/2008# then
msgbox "請輸入正確的入校日期！", vbokonly, "提示"
txtrudate.setfocus
txtrudate = ""
exit sub
end if
·······
end sub
雖然這是乙個很小的問題，但是作為我們軟體設計人員想設計出一款優秀的軟體，必須得考慮到這些細節問題，處處為使用者著想，把我們全心全意的為人們服務的思想落實到我們的實際中。
學生資訊系統錯誤
最近開始敲學生，每次敲完乙個模組就除錯一次，出現了些許問題 1 實時錯誤 3021 實時錯誤 3021 bof或eof中有乙個是 真 或者當前的記錄已經被刪除 出現此錯誤是因為 1.查詢的資料庫記錄為空.可以用 rs.recordcount 來判斷資料是否等於0 2.查詢到資料後,用 del 命令刪...
學生資訊系統求助 學生管理資訊系統 示例
第頁共 頁學生資訊管理資料庫系統設計與開發 一專案說明 一 概述 專案背景 資料庫程式設計 軟體定義 學生資訊管理系統 開發環境 sql server 二 需求分析 問題的提出 學生資訊管理是整個學校管理工作中的關鍵環節之一，涉及到 學生基本資訊管理 成績管理 住宿管理等諸多方面。採用計 算機資訊科...
2 學生資訊系統DOS
學生資訊系統dos include include include include struct student record struct student current null,head null,build null void main void printf n thank you n n...