【正文】 nd。procedure (Sender: TObject。 。39。錯(cuò)誤操作39。 end elsebegin。39。39。839。39。39。39。end.超級管理員登陸模塊代碼procedure (Sender: TObject)。procedure (Sender: TObject)。 :=true。39。39。039。,8])then begin key:=0。,39。39。39。(39。39。39。839。39。39。1639。39。39。39。39。信息不完整！39。++39。).value:=39。:=39。)thenbegin(39。39。)or(=39。,39。beginif then:=trueelse:=false。39。39。++39。if 39。)。end.用戶管理模塊代碼procedure (Sender: TObject)。begin:=tabsheet2。39。end。where (用戶名 like39。) or (聯(lián)系電話 like39。) or (所在系別 like39。)39。39。,39。沒有用戶可刪除或沒有選定要?jiǎng)h除用戶！39。信息提示39。)or (=39。if =tabsheet2 thenbeginif (=39。)or (=39。)or(=39。)or (=39。) or (=39。,39。) then INC(Number)。//獲取字符串中字符39。varh,k,t,r:string。39。錯(cuò)誤操作39。,39。39。密碼不匹配！39。endelse(39。 end else begin :=true。,39。查詢完畢！39。Provider=。 :=(39。,39。 AId:integer。 QryTmp[39。beginAddClass(0,nil)。,39。begin strName:=inputbox(39。var strName:string。end。 if assigned() then AddDataToDB(myNode,) else AddDataToDB(myNode,nil)。 then exit。 if strName=39。 :=39。 (39。)。39。procedure (Sender: TObject)。procedure (Sender: TObject)。:=false。:=true。end。begin:=true。39。 :=39。39。) or (姓名 like39。) or (所在專業(yè) like39。) or (貫籍 like39。)39?？偣舱业?39。procedure (Sender: TObject)。39。 :=39。39。%39。%39。%39。%39。 exit。39。:=clgreen。39。39。%39。39。 :=39。:=true。)or (=39。)thenbegin(39。39。39。)or(=39。)or (=39。39。信息不完整！39。end。)or(=39。)thenbegin(39。修改提示39。)or (=39。)thenbegin(39。修改提示39。,39。begin(Tform11,form11)。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。if =0 then[1].Text:=39。begin:=Tabsheet3。end。她認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。end。begin(Tform12,form12)。[1].Text:=39。stext:=。procedure (Sender: TObject)。select *from 學(xué)生基本信息表39。查詢完畢！39。,mb_ok)。)or (=39。)or (=39。,mb_ok)。)or (=39。beginif =0 thenif (=39。沒有記錄可刪除或沒有選定要?jiǎng)h除記錄！39。39。39。)or (=39。end。39。39。)or (=39。)or (=39。beginif (=tabsheet1)or(=tabsheet2)or(=tabsheet4)thenbegin:=true。+inttostr()+39。+39。and (學(xué)號 like39。if 39。%39。procedure (Sender: TObject)。 條記錄39。沒有查詢條件！39。39。39。39。39。39。 [1].Text:=39。 。39。)。%39。%39。%39。%39。39。 [1].Text:=39。 。:=true。:=false。:=true。:=false。end。procedure (Sender: TObject)。update 數(shù)據(jù)處理錄入表 set CName=39。,39。 。,39。,39。)。 if strName=39。 then exit。 AddDataToDB(myNode,)。 end。var strName:string。 :=myLabel。where FatherId=39。end。var strName:string。CName39。 myNode:TTreeNode。39。if =39。 :=clpurple。你已修改該用戶的信息39。錯(cuò)誤操作39。39。修改提示39。exit。39。 end。,TempStr)。begin TempStr:=EmailAddr。)or (=39。)or(=39。)or (=39。end。)or (=39。,mb_ok)。)or (=39。 。,39。procedure (Sender: TObject)。)。%39。%39。%39。39。 end。select *from 用戶表 where 用戶名=39。procedure (Sender: TObject)。39。 。++39。39。if 39。varstr:string。procedure (Sender: TObject)。endelsebegin。beginif =0 thenif (=39。39。) or (=39。數(shù)據(jù)已錄入，請查看！39。++39。(39。39。39。,39。39。1839。39。39。1039。39。39。239。該學(xué)生已經(jīng)存在，請重新填寫39。39。).Value:=Trim()。939。begin if not (key in[39。end。39。39。 end else showmessage(39。procedure (Sender: TObject)。39。39。39。1039。39。39。239。 endelseif not (IsVaildEmailAddr()) then begin ShowMessage(39。39。39。end。,39。,TempStr)=1))then Result:=False//如果剩余的子串當(dāng)中不含有字符39。)) then Result:=False//如果字符39。var Number,I:integer。:=39。 end else showmessage(39。密碼39。procedure (Sender: TObject)。）第二章 學(xué)生成績管理系統(tǒng)設(shè)計(jì)分析 應(yīng)用需求分析 學(xué)生成績管理系統(tǒng)主要提供成績查詢，方便管理的網(wǎng)上的信息查閱平臺，學(xué)生可以通過該系統(tǒng)查閱與自己相關(guān)信息。因此，開發(fā)這樣的一套成績管理系統(tǒng)成為很有必要的事情。目錄 1摘 要 2第一章 系統(tǒng)的需求分析2 成績管理系統(tǒng)的背景分析2 開發(fā)學(xué)生成績管理系統(tǒng)的必要性2 學(xué)生成績管理系統(tǒng)開發(fā)環(huán)境需求3 Access2003技術(shù)簡介 3 Delphi特點(diǎn) 3第二章 學(xué)生成績管理系統(tǒng)設(shè)計(jì)分析 3 應(yīng)用需求分析 系統(tǒng)管理員進(jìn)入學(xué)生成績管理系統(tǒng)的主要功能學(xué)生進(jìn)行學(xué)生成績管理系統(tǒng)的主要功能 數(shù)據(jù)流程圖 3 系統(tǒng)功能模塊劃分 4 系統(tǒng)數(shù)據(jù)庫設(shè)計(jì) 4 系統(tǒng)的ER圖 4 數(shù)據(jù)庫表格設(shè)計(jì) 5第三章 學(xué)生成績管理系統(tǒng)程序設(shè)計(jì)代碼 7 7 8 9 13 14 17 21 28 29第四章 設(shè)計(jì)總結(jié) 47總結(jié) 47致謝 47參 考 文 獻(xiàn) 摘 要在現(xiàn)今信息時(shí)代，生活速度的加快，使得人們越來越向信息化、數(shù)字化發(fā)展，管理信息系統(tǒng)（MIS）是一個(gè)由人、計(jì)算機(jī)等組成的能進(jìn)行信息的收集、傳遞、儲存、加工、維護(hù)和使用的系統(tǒng)，必然能代替過去大量、繁雜的手工操作。學(xué)生成績管理系統(tǒng)提供了強(qiáng)大的學(xué)生成績管理功能，方便系統(tǒng)管理員對學(xué)生成績等信息的添加、修改、刪除、查詢、留言等操作，同時(shí)一樣的方便學(xué)生對自己各科成績查詢，學(xué)習(xí)交流。系統(tǒng)管理員可以實(shí)現(xiàn)以上的所有功能，還有對學(xué)生的添加、刪除、修改，教師的添加、刪除、修改等相關(guān)操作。begin(Tform4,form4)。)。密碼錯(cuò)誤或用戶不存在！39。39。 //Number用于給字符39。39。.39。警告39。procedure (Sender: TObject)。)or(=39。)thenbegin(39。您輸入的電子郵件地址格式不合法!39。).value:=39。(39。++39。).value:=39。(39。:=39。:=39。begin:=0。密碼錯(cuò)誤或管理員身份不存在！39。:=39。:=39。procedure (Sender: TObject。039。,8])then begin key:=0。 Open。)or (=39。)。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。完成提示39。:=39。)or (=39。139。39。,39。39。)or(=39。39。beginif then:=trueelse:=false。begintrystr:=39。39。39。%39。 。 except exit。begin。39。end。)or (39。++39。++39。++39。 (sql)。beginif =tabsheet1 thenbeginif 0 thenbegin。刪除提示39。 (39。39。exit。39。procedure (Sender: TObject)。39。39。39。 Number:=0。//獲取字符39。 end。)or (=39。endelseif hk thenbegin(39。,mb_ok)。)or (=39。,mb_ok)。,39。 :=clpurple。39。39。 myLabel:TLabel。).AsString)。 myNode:TTreeNode。procedure (CurrNode,FatherNode: TTreeNode)。+inttostr(AId))。 。 myNode:TTreeNode。procedure (Sender: TObject)。 :=true。 myNode:=(,strName)。39。 strName:=trim(strName)。39。提示39。 (39。請輸入新的名稱： 39。+39。begin (Tform6,form6)。procedure (Sender: TObject)。:=false。:=true。:=false。end。 (39?？偣舱业?39。)or (39。++39。++39。++39。++39。 (sql)。 :=39。 (39?？偣舱业?39。)or (39。+39。+39。+39。+39。,39。 :=39。var sqlstr:string。39。39。39。%39。 條記錄39。:=false 。39。39。)or(=39。)or (=39。procedure (Sender: TObject)。39。)or(=39。)or (=39。,39。39。39。endelse(39。39。39。endelse(39。,39。)。begin:=tabsheet4?？偣舱业?39。 。procedure (Sender: TObject)。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他細(xì)心而又耐心的輔導(dǎo)。 。procedure (Sender: TObject)。 條記錄39。i:=。procedure (Sender: TObject)。查詢完畢！39。,MB_OK or MB_ICONINFORMATION)。,39。39。39。,39。39。39。,mb_ok)。)thenbegin(39。)or(=39。39。39。)or (=39。) or (=39。39。39。if (=tabsheet3)or(=tabsheet5)thenbegin:=false。39。%39。+39。and (所在班級 like39。if 39。:=false。 :=39。,mb_ok)。++39。++39。++39。++39。)or (39。 條記錄39。39。end。 [1].Text:=39。39。39。39。39。)or (39。 條記錄39。3