基于delphi的學生成績管理系統設計與實現-資料下載頁

　　

【正文】 :=true。:=false。:=clgreen。try sqlstr:=39。 where (1=1) 39。if 39。39。 then sqlstr:=sqlstr+39。 and (所在系別 like39。39。39。+39。%39。++39。%39。39。)39。if 39。39。 then sqlstr:=sqlstr+39。and (所在專業 like39。39。39。+39。%39。++39。%39。39。)39。 。if 39。39。 then sqlstr:=sqlstr+39。and (所在班級 like39。39。39。+39。%39。++39。%39。39。)39。 。if 39。39。 then sqlstr:=sqlstr+39。and (學號 like39。39。39。+39。%39。++39。%39。39。)39。 。if 39。39。 thensqlstr:=sqlstr+39。and (姓名 like39。39。39。+39。%39。++39。%39。39。)39。 。 。 。 (39。select * from 學生基本信息表39。)。 (sqlstr)。 。 [1].Text:=39。總共找到 39。+inttostr()+39。 條記錄39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 exceptexit。end。end。procedure (Sender: TObject)。beginif (=tabsheet1)or(=tabsheet2)or(=tabsheet4)thenbegin:=true。:=false 。end。if (=tabsheet3)or(=tabsheet5)thenbegin:=false。:=true。end。end。procedure (Sender: TObject)。beginif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse。end。procedure (Sender: TObject)。beginif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse。end。procedure (Sender: TObject)。beginif =0 thenif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse。end。procedure (Sender: TObject)。beginif =0 thenif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse。end。procedure (Sender: TObject)。beginif 0 thenbeginif messagedlg(39。你確定要刪除該記錄嘛？39。,mtinformation,[mbyes,mbno],0)=mryes then。endelse(39。沒有記錄可刪除或沒有選定要刪除記錄！39。,39。刪除提示39。,mb_ok)。end。procedure (Sender: TObject)。beginif 0 thenbeginif messagedlg(39。你確定要刪除該記錄嘛？39。,mtinformation,[mbyes,mbno],0)=mryes then。endelse(39。沒有記錄可刪除或沒有選定要刪除記錄！39。,39。刪除提示39。,mb_ok)。end。procedure (Sender: TObject)。beginif =0 thenif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelsebegin。(39。你已修改該記錄的信息39。,39。修改提示39。,mb_ok)。endelse(39。沒有記錄可修改或沒有選定要修改記錄！39。,39。修改提示39。,mb_ok)。end。procedure (Sender: TObject)。beginif =0 thenif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelsebegin。(39。你已修改該記錄的信息39。,39。修改提示39。,mb_ok)。endelse(39。沒有記錄可修改或沒有選定要修改記錄！39。,39。修改提示39。,mb_ok)。end。procedure (Sender: TObject)。begin:=true。:=false。(39。select *from 成績信息表39。)。MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 [1].Text:=39。總共找到 39。+inttostr()+39。 條記錄39。end。procedure (Sender: TObject)。begin:=true。:=false。(39。select *from 學生基本信息表39。)。MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。[1].Text:=39。總共找到 39。+inttostr()+39。 條記錄39。end。procedure (Sender: TObject)。begin:=tabsheet5。end。procedure (Sender: TObject)。begin:=tabsheet4。end。procedure (Sender: TObject)。begin(Tform11,form11)。 。end。procedure (Sender: TObject)。begin (Tform12,form12)。 。end。procedure (Sender: TObject)。varstext:string。i:integer。begin:=true。:=false。stext:=。i:=。if i in [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30] then:=39。select * from 學生基本信息表where所在系別 like39。39。39。+39。%39。+stext+39。%39。39。39。[1].Text:=39。總共找到 39。+inttostr()+39。 條記錄39。if =0 then[1].Text:=39。單擊目錄樹只可查詢到各個系別的總體，請使用學生信息查詢39。end。procedure (Sender: TObject)。begin(Tform13,form13)。end。procedure (Sender: TObject)。begin(Tform14,form14)。end。procedure (Sender: TObject)。begin(Tform12,form12)。 。end。procedure (Sender: TObject)。begin:=Tabsheet3。end。procedure (Sender: TObject)。begin:=Tabsheet2。end。procedure (Sender: TObject)。begin(Tform6,form6)。 。end。procedure (Sender: TObject)。begin(Tform9,form9)。 。end。procedure (Sender: TObject)。begin(Tform11,form11)。 。end。38