大家先來看一下它的視窗布局
年級是預設載入的，但是當我們選擇年級時，如果此年級已經設定好了課程，那麼在已經選擇課程中應該顯示出來，當我們單擊設定課程時，此年級的所有課程也應該顯示，當然這些都很簡單
第乙個顯示所選課程我們只需在單擊選擇年級時，執行
listselectcourse(1).clear '先清空列表
'從年級課程裡查詢出相同年級的資訊，將課程名稱新增到列表裡
txtsql = "select*from gradecourse_info where grade='" & combogra.text & "'"
set mrc = executesql(txtsql, msgtext)
if not mrc.eof then
for i = 1 to mrc.recordcount
listselectcourse(1).additem mrc.fields(1)
mrc.movenext
next
end if
mrc.close
'先將以前的課程清空，在重新新增所有課程
listallcourse(0).clear
listallcourse(0).enabled = true
listselectcourse(1).enabled = true
cmdmodify.enabled = true
txtsql = "select * from course_info"
set mrc = executesql(txtsql, msgtext) '新增資訊
while (mrc.eof = false)
listallcourse(0).additem mrc.fields(1)
mrc.movenext
wend
mrc.close
txtsql = "select * from gradecourse_info where grade='" & combogra.text & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof then '如果是新新增的年級則將已選的課程新增進去
for i = 1 to listselectcourse(1).listcount
mrc.addnew
mrc.fields(0) = trim(combogra.text)
mrc.fields(1) = trim(listselectcourse(1).list(i - 1))
mrc.update
next
mrc.close
msgbox "設定課程成功"
else
mrc.close '如果是已存在的年級就將這個年級刪除再重新新增
txtsql = "delete from gradecourse_info where grade='" & combogra.text & "'"
set mrc = executesql(txtsql, msgtext)
txtsql = "select * from gradecourse_info"
set mrc = executesql(txtsql, msgtext)
for i = 1 to listselectcourse(1).listcount
mrc.addnew
mrc.fields(0) = trim(combogra.text)
mrc.fields(1) = trim(listselectcourse(1).list(i - 1))
mrc.update
next
mrc.close
'mrcc.close
msgbox "設定課程成功"
end if
學生資訊管理系統之年級課程設定
大家先來看一下它的視窗布局 年級是預設載入的，但是當我們選擇年級時，如果此年級已經設定好了課程，那麼在已經選擇課程中應該顯示出來，當我們單擊設定課程時，此年級的所有課程也應該顯示，當然這些都很簡單 第乙個顯示所選課程我們只需在單擊選擇年級時，執行 listselectcourse 1 clear 先...
課程設計 學生資訊管理系統
煙台大學計算機與控制工程學院 檔名稱 lulu.cpp 完成日期 2015年12月31日 版本號 v1.o 問題描述 學生資訊管理系統 include include include include include xinxi.h using namespace std int main head1...
學生資訊管理系統
學生資訊管理系統，顧名思義就是為了管理學生的相關資訊做的一款軟體。雖然這次有原始碼供我們參考，但是從中我學習到了如何從開始到完工去做一款軟體，下邊我從做一項軟體專案的前後順序來總結我的學生資訊管理系統。一，分析需求 首先在做這款軟體是，我們先想象乙個成品，他的功能有哪些，每個功能完成哪項任務，這就是...