【正文】 :=false。 while not do begin myNode:=(FatherNode,(39。 (39。Persist Security Info=False39。 :=39。var QryTmp:TADOQuery。 end。,MB_OK or MB_ICONINFORMATION)。 MessageBox(handle,39。39。select *from 用戶表 where 用戶名=39。 exit。請輸入姓名,不能為空！39。begin:=。 :=clteal。 :=clteal。 :=clpurple。 :=clpurple。beginif =tabsheet1 thenbegin :=true。修改提示39。,mb_ok)。 (39。)。,mb_ok)。endelseif tr thenbegin(39。,39。)or (=39。)or (=39。)or (=39。) or (=39。)or(=39。if =tabsheet2 then if =0 then begint:=。沒有用戶可修改或沒有選定要修改用戶！39。,39。 endelse 。endelseif not (IsVaildEmailAddr()) then begin ShowMessage(39。,39。,mb_ok)。)thenbegin(39。)or (=39。)or (=39。)or (=39。)or(=39。 if (=39。procedure (Sender: TObject)。 //以上的判斷都通過，則表示地址字符串為合法 end。.39。.39。在字符串當(dāng)中的位置 delete(TempStr,1,I)。39。39。39。39。計數(shù) TempStr:String。function IsVaildEmailAddr(EmailAddr:String):boolean。exit。信息不完整！39。39。39。39。39。39。exit。信息不完整！39。39。39。39。39。39。 end。錯誤操作39。39。39。39。39。39。 end。錯誤操作39。39。39。39。39。39。procedure (Sender: TObject)。,39。select * from 用戶表 39。begin :=tabsheet1。,mb_ok)。endelse(39。你已刪除該用戶的信息39。,mb_ok)。endelse(39。你已刪除該用戶的信息39。end。 :=39。 :=39。 :=39。select * from 用戶表39。 end。,39。39。+39。39。+39。39。+39。39。+39。39。+39。39。+39。)then sql:=39。)or (39。)or (39。beginif (39。begin。39。提示39。)。++39。 (39。,MB_OK or MB_ICONINFORMATION)。 then begin MessageBox(handle,39。procedure (Sender: TObject)。end。end。end。end。 :=39。 :=39。 :=39。select * from 課程資源表39。)39。%39。and (課程代號 like39。)39。%39。and (課程名稱 like39。)39。%39。and (所在班級 like39。)39。%39。and (所在專業(yè) like39。 。++39。39。if 39。procedure (Sender: TObject)。end。beginif then:=trueelse:=false。procedure (Sender: TObject)。end。,mb_ok)。endelse(39。你已修改該記錄的信息39。exit。信息不完整！39。39。39。procedure (Sender: TObject)。,mb_ok)。)thenbegin(39。) or (=39。)or(=39。end。錯誤操作39。39。39。39。39。,mb_ok)。(39。39。39。439。39。39。239。39。)。(39。,mb_ok)。) thenbegin(39。) or (=39。)or(=39。end。:=39。:=39。end。end。:=39。數(shù)據(jù)已錄入，請查看！39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14,:15,:16,:17,:18,:19,:20,:21,:22)39。endelse if =false then begin ShowMessage(39。,39。) or(=39。)or (=39。)or (=39。)or (=39。)or(=39。 if (=39。a39。 (39。end。聯(lián)系電話只能用數(shù)字表示，請重新輸入！39。..39。procedure (Sender: TObject。,39。939。 var Key: Char)。警告39。,8])then begin key:=0。begin if not (key in[39。begin。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。begin:=39。 :=39。 :=true。 。,39。 。end。end。 }end。procedure (Sender: TObject)。endend。:=39。:=39。:=39。:=39。:=39。完成提示39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。++39。(39。).value:=39。insert into 用戶表(用戶名,密碼,性別,出生年,出生月,聯(lián)系地址,聯(lián)系電話,郵政編碼,電子郵箱,所在系別,所在班級,個人愛好,用戶頭像,用戶備注)values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14)39。 。)。,mb_ok)。endelse if hk thenbegin(39。,39。)or (=39。)or (=39。)or (=39。)or(=39。if (=39。 Open。)。beginwith ADOQuery1 do begin close。,0+64) end。 (39。039。end。電話號碼只能用數(shù)字表示，請重新輸入！39。..39。procedure (Sender: TObject。 //以上的判斷都通過，則表示地址字符串為合法 end。.39。.39。在字符串當(dāng)中的位置 delete(TempStr,1,I)。39。39。39。39。計數(shù) TempStr:String。function IsVaildEmailAddr(EmailAddr:String):boolean。39。39。39。39。39。procedure (Sender: TObject)。end.新用戶注冊模塊代碼procedure (Sender: TObject)。begin。begin。 :=39。 :=true。 。密碼不能為空！39。提示39。39。,39。 。end。end。end。因為關(guān)系數(shù)據(jù)庫中的二維表格可以很清楚地描述數(shù)據(jù)之間的聯(lián)系。學(xué)生記錄的添加是考慮到重復(fù)問題，也就是說，在添加學(xué)生過程中，有可能出現(xiàn)學(xué)號重復(fù)，所以在設(shè)計數(shù)據(jù)庫時，我特別考慮到這一點，加入了學(xué)生記錄這一實體。 、學(xué)生進行學(xué)生成績管理系統(tǒng)的主要功能是：實現(xiàn)學(xué)生自己的成績查詢，自己登錄密碼的修改，個人信息的查詢的基本功能。Delphi（特點：其運行速度快、查詢效率高、界面友好、可操作性強。Access的優(yōu)點在于它能使用數(shù)據(jù)表示圖或定義窗體手機信息，數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。本文根據(jù)學(xué)校的成績管理現(xiàn)狀和要求，從理論和應(yīng)用的角度論述了學(xué)生成績管理系統(tǒng)的特點、功能、設(shè)計思路，并給出關(guān)鍵技術(shù)實現(xiàn)的步驟。計算機已經(jīng)不僅是在科技山應(yīng)用，而且在生活中也是同樣得到廣泛的應(yīng)用。這些優(yōu)點能夠條學(xué)生成績管理的效率，也是進企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。學(xué)生成績管理系統(tǒng)是一個教育單位不可缺少的部分，它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要，所以學(xué)生成績管理系統(tǒng)應(yīng)該能夠成為用戶提供充足的信息和快捷的信息查詢手段，對學(xué)生來說可以輕松查閱自己在校的成績及信息等。計算機的最大好處在于它能夠進行信息管理。本文通過用delphi面向?qū)ο蟮木幊汰h(huán)境編寫學(xué)生成績管理系統(tǒng)，利用軟件工程原理，采用生命周期方法學(xué)，根據(jù)3NF的關(guān)系模式設(shè)計數(shù)據(jù)庫表，用模塊化設(shè)計方式將系統(tǒng)的各個功能模塊層層分解，設(shè)計出系統(tǒng)的模塊化結(jié)構(gòu)，并根據(jù)系統(tǒng)的具體要求和需要實現(xiàn)的功能，詳細(xì)地定義了各個模塊的具體功能。對于一所學(xué)校來說，如何利用計算機改變每次考試結(jié)束后老師們統(tǒng)計大量的學(xué)生成績時的繁重任務(wù)？如何消除因時間緊所產(chǎn)生的統(tǒng)計結(jié)果錯誤百出？設(shè)計出學(xué)生成績管理系統(tǒng)就是一個很好的解決方法。由于本人水平有限，程序中不足之處在所難免，敬請各位老師批評指正關(guān)鍵字： 成績管理，軟件工程，delphi第一章 系統(tǒng)的需求分析 成績管理系統(tǒng)的背景分析當(dāng)今時代是飛速發(fā)展的信息時代，在各行業(yè)中離不開信息處理，這正是計算機廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。管理信息室驚醒信息的采集、存儲、加工、維護和使用的系統(tǒng)，它是隨著科學(xué)理論和技術(shù)科學(xué)的發(fā)展而形成的。作為計算機應(yīng)用的一部分，使用計算機對學(xué)生成績信息進行管理，有著手工管理過無法比擬的優(yōu)點，例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本價低等。 開發(fā)學(xué)生成績管理系統(tǒng)的必要性 在21世紀(jì)的科技時代，科技突飛猛進，在過去的九年間，各科學(xué)領(lǐng)域取得的成就足以證明科學(xué)的質(zhì)的飛躍。根據(jù)各個學(xué)校自身情況開發(fā)一個學(xué)生成績管理系統(tǒng)，其目的是提高學(xué)校對學(xué)生的成績科學(xué)化管理。 Access2003技術(shù)簡介 Access2003 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息一共查詢、存儲和檢索。如上所述，Access作為關(guān)系數(shù)據(jù)庫來發(fā)工具具備了許多優(yōu)點，可以再一個數(shù)據(jù)包中用時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。 、系統(tǒng)管理員進入學(xué)生成績管理系統(tǒng)的主要功能是：實現(xiàn)學(xué)生的添加，學(xué)生的修改，學(xué)生的查詢，學(xué)生成績的錄入，學(xué)生成績的添加，學(xué)生成績的修改，學(xué)生成績的刪除等基本功能。在本系統(tǒng)中課程是核心，也是基本，沒有了課程其它的也就沒有什么意義了。在這里，我選用的是關(guān)系數(shù)據(jù)庫。begin 。用戶名39。{檢索數(shù)據(jù)庫中對應(yīng)用戶名的密碼項} if =39。,39。 then (39。,mb_ok) else if results= then begin (Tform10,form10)。)。39。end.退出系統(tǒng)模塊代碼procedure (Sender: TObject)。procedure (Sender: TObject)。end。end。:=39。:=39。:=39。:=39。:=39。end。39。 for I:=1 to Length(TempStr) do begin if (TempStr [I]=39。 if ((Number =0)or(Number 1)) then Result:=False//如果不含有字符39。)or (TempStr [length(TempStr)]=39。的位置在字符串開頭或者末尾，則不合法 else begin I:=pos(39。39。后面的剩余子串 if (Length(TempStr)3) then Result:=False //如果剩余子串的長度小于3,則不合法 else begin if ((pos(39。,TempStr)=length(TempStr)) or (pos(39?；蛘咂湮恢迷?/子串的開頭或者末尾，則不合法 else Result:=True。 end。039。 (39。,0+64) end。begin if not (key in[39。,8])then begin key:=0。警告39。varh,k:string。select * from 用戶表 where =:a39。).Value:=Trim()。k:=。39。39。39。39。信息不完整！39。exit。錯誤操作39。該用戶已經(jīng)存在，請重新填寫39。)。(39。139。39。39。339。39。39。539。39。39。739。39。39。939。39。39。1139。39。39。1339。39。,39。39。39。39。39。39。39。end。:=true。:=275。begin 。管理員39。{檢索數(shù)據(jù)庫中對應(yīng)用戶名的密碼項} if results1= then begin (Tform7