【導讀】為給高校田徑運動會管理提供有益的借鑒，設計開發(fā)了一個基于B/S和C/S混合模式的高校運動會管理系統(tǒng)——信息采集與項目編排。系統(tǒng)通過用delphi面向?qū)ο蟮木幊汰h(huán)境編寫高校運動會管理系統(tǒng)系統(tǒng)，利用軟件工程原理，采用生命周期方法學，根據(jù)3NF的關系模式設計數(shù)據(jù)庫表。主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面，實現(xiàn)了運動員成績數(shù)據(jù)庫的創(chuàng)建及運動員成績的輸入、瀏覽、維護和統(tǒng)計，使得系統(tǒng)具有功能強大，界面友好的特點。經(jīng)過測試，系統(tǒng)能正常地運行，并達到了預期效果。在國內(nèi)，計算機在運動會管理方面的應用越來越深入，廣東省第十一屆運動會電子信息服務系統(tǒng)通過整合硬件平臺、網(wǎng)絡通信平臺、數(shù)據(jù)庫平臺、工具平臺、應用軟件平臺將省運會各類資源有機、高效地集成到一起，形成一個完整的、開放的、結(jié)構化的、先進的工作平臺。在這個統(tǒng)一的平臺基礎上，實現(xiàn)了廣東省第十一屆運動會電子信息服務系統(tǒng)的完整的應用。

　　

【正文】 end。var Form6: TForm6。 Picture1:Tpicture。implementationuses Unit1。{$R *.dfm}procedure (Sender: TObject)。begin:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject。 var Key: Char)。begin if not (key in[39。039。..39。939。,8])then begin key:=0。 (39。郵政編碼只能用數(shù)字表示，請重新輸入！39。,39。警告39。,0+64) end。end。procedure (Sender: TObject。 var Key: Char)。begin if not (key in[39。039。..39。939。,8])then begin key:=0。 (39。學號只能用數(shù)字表示，請重新輸入！39。,39。警告39。,0+64) end。end。procedure (Sender: TObject。 var Key: Char)。begin if not (key in[39。039。..39。939。,8])then begin key:=0。 (39。聯(lián)系電話只能用數(shù)字表示，請重新輸入！39。,39。警告39。,0+64) end。end。procedure (Sender: TObject)。beginwith ADOQuery1 do begin close。 。 (39。select * from 學生基本信息表 where =:a39。)。 (39。a39。).Value:=Trim()。 Open。 end。 if (=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 if =false then begin ShowMessage(39。該學生已經(jīng)存在，請重新填寫39。)。 end elsebegin。(39。insert into 學生基本信息表(學號,姓名,民族,出生年,出生月,貫籍,性別,所在系別,所在專業(yè),所在班級,政治面目,家庭住址,郵政編碼,聯(lián)系電話,身份證號碼,畢業(yè)學校,現(xiàn)在學歷,個人特長,電子郵箱,學制,外語,個人備注)39。+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。)。(39。139。).value:=39。39。++39。39。(39。239。).value:=39。39。++39。39。(39。339。).value:=39。39。++39。39。(39。439。).value:=39。39。++39。39。(39。539。).value:=39。39。++39。39。(39。639。).value:=39。39。++39。39。(39。739。).value:=39。39。++39。39。(39。839。).value:=39。39。++39。39。(39。939。).value:=39。39。++39。39。(39。1039。).value:=39。39。++39。39。(39。1139。).value:=39。39。++39。39。(39。1239。).value:=39。39。++39。39。(39。1339。).value:=39。39。++39。39。(39。1439。).value:=39。39。++39。39。(39。1539。).value:=39。39。++39。39。(39。1639。).value:=39。39。++39。39。(39。1739。).value:=39。39。++39。39。(39。1839。).value:=39。39。++39。39。(39。1939。).value:=39。39。++39。39。(39。2039。).value:=39。39。++39。39。(39。2139。).value:=39。39。++39。39。(39。2239。).value:=39。39。++39。39。(39。數(shù)據(jù)已錄入，請查看！39。,39。完成提示39。,mb_ok)。:=39。39。:=39。39。end。end。end.3． 比賽成績錄入源代碼：unit Unit9。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, DB, ADODB。type TForm9 = class(TForm) GroupBox1: TGroupBox。 Label1: TLabel。 Edit1: TEdit。 Label2: TLabel。 Label3: TLabel。 Edit2: TEdit。 Label4: TLabel。 ComboBox1: TComboBox。 Label5: TLabel。 Label6: TLabel。 Edit3: TEdit。 Label7: TLabel。 Edit4: TEdit。 Label8: TLabel。 Edit5: TEdit。 Label9: TLabel。 Edit6: TEdit。 Panel1: TPanel。 Label10: TLabel。 Edit7: TEdit。 Label11: TLabel。 Edit8: TEdit。 Label12: TLabel。 Memo1: TMemo。 Panel2: TPanel。 GroupBox2: TGroupBox。 SpeedButton1: TSpeedButton。 GroupBox3: TGroupBox。 SpeedButton2: TSpeedButton。 GroupBox4: TGroupBox。 SpeedButton3: TSpeedButton。 ComboBox2: TComboBox。 ADOQuery1: TADOQuery。 procedure SpeedButton3Click(Sender: TObject)。 procedure SpeedButton2Click(Sender: TObject)。 procedure Edit1KeyPress(Sender: TObject。 var Key: Char)。 procedure SpeedButton1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form9: TForm9。implementation{$R *.dfm}procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。end。procedure (Sender: TObject。 var Key: Char)。begin if not (key in[39。039。..39。939。,8])then begin key:=0。 (39。學號只能用數(shù)字表示，請重新輸入！39。,39。警告39。,0+64) end。end。procedure (Sender: TObject)。beginbeginwith ADOQuery1 do begin close。 。 (39。select * from 成績信息表 where =:a39。)。 (39。a39。).Value:=Trim()。 Open。 end。 if (=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 if =false then begin ShowMessage(39。該學生已經(jīng)存在，請重新填寫39。)。 endelsebegin。(39。insert into 成績信息表(學號,姓名,性別,所在系別,所在專業(yè),所在班級,課程名稱,課程代號,學期,成績,備注內(nèi)容)39。+39。values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11)39。)。(39。139。).value:=39。39。++39。39。(39。239。).value:=39。39。++39。39。(39。339。).value:=39。39。++39。39。(39。439。).value:=39。39。++39。39。(39。539。).value:=39。39。++39。39。(39。639。).value:=39。39。++39。39。(39。739。).value:=39。39。++39。39。(39。839。).value:=39。39。++39。39。(39。939。).value:=39。39。++39。39。(39。1039。).value:=39。39。++39。39。(39。1139。).value:=39。39。++39。39。(39。數(shù)據(jù)已錄入，請查看！39。,39。完成提示39。,mb_ok)。:=39。39。:=39。39。end。end。end。end