對於資訊查詢部分,這部分功能相對來說比較簡單,主要包括查詢學籍,查詢成績兩大部分。主要就用到了msflexgrid控制項。
對於這一塊的功能,我感覺dd(4)這個布林型變數陣列用的比較好。這一變數只要用作標記作用。選擇一種方式查詢,選擇哪一種,還是選擇多種方式查詢資訊,通過dd()的標記,都能很好的記錄作用。
原先一直都感覺布林型變數挺簡單的,真的沒想到,它還能在學生管理這樣的系統中起到很大作用。
if trim(txtname.text) = "" thenmsgbox "姓名不能為空", vbokonly + vbexclamation, "警告"
txtname.setfocus
exit sub
else
dd(1) = true
if dd(0) then
'從result_info表中找出滿足student_id=txtsid和student_name=txtname的記錄
txtsql = txtsql & " and student_name ='" & txtname.text & "'"
else
'從result_info表中找出滿student_name=txtname的記錄
txtsql = txtsql & "student_name='" & txtname.text & "'"
end if
end if
提起布林型變數,當轉換其他的數值型別為boolean值時,0會轉成false,而其他的指責變成true。當轉換boolean值為其他的資料型別時,false成為0,而true成為-1.
對於msflexgrid控制項的textmatrix屬性的性質。
mshflexgrid.textmatrix( i ,j )=string
表示的是設定mshflexgrid第i行,第j列的文字內容(注意標題算第一行)
str=mshflexgrid.textmatrix(2,3)
表示取得mshflexgrid的第二行,第三列的文字內容
txtsql = txtsql & "order by student_id"
set mrc = executesql(txtsql, msgtext)
with myflexgrid
.rows = 2
.cellalignment = 4
.textmatrix(1, 0) = "考試編號"
.textmatrix(1, 1) = "學號"
.textmatrix(1, 2) = "姓名"
.textmatrix(1, 3) = "班號"
.textmatrix(1, 4) = "課程名稱"
.textmatrix(1, 5) = "分數"
do while not mrc.eof
.rows = .rows + 1
.cellalignment = 4
.textmatrix(.rows - 1, 0) = mrc.fields(0)
.textmatrix(.rows - 1, 1) = mrc.fields(1)
.textmatrix(.rows - 1, 2) = mrc.fields(2)
.textmatrix(.rows - 1, 3) = mrc.fields(3)
.textmatrix(.rows - 1, 4) = mrc.fields(4)
.textmatrix(.rows - 1, 5) = mrc.fields(5)
mrc.movenext
loop
end with
學生資訊查詢系統
在上週的學習中,重點在於學生系統,從中經歷過的錯誤在此總結,然後在明天的總結中,以 並茂的方式,給親們呈現出來。從源 的程式中,最先出現的錯誤是,鏈結不上資料庫,報沒有設定with變數設定。之後,出現的乙個錯誤是變數未定義。在這中間,出現最多的使者兩種錯誤。在學生的系統能執行之後,又開始了新的問題,...
學生資訊管理系統
學生資訊管理系統,顧名思義就是為了管理學生的相關資訊做的一款軟體。雖然這次有原始碼供我們參考,但是從中我學習到了如何從開始到完工去做一款軟體,下邊我從做一項軟體專案的前後順序來總結我的學生資訊管理系統。一,分析需求 首先在做這款軟體是,我們先想象乙個成品,他的功能有哪些,每個功能完成哪項任務,這就是...
學生資訊管理系統
1.背景描述 學校招生辦在錄取當年新生時為新生建立了乙個新生基礎資訊類studentbase,其中包含每位新生的基本資料 學號 long mnum 姓名 char mname 20 性別 int m 其中0表示男,1表示女 年齡 int mage 住址 char maddr 30 新生主修專業所在系...