【正文】 品研發(fā)中心．Delphi [M]．電子工業(yè)出版社．2002[12]張成華．Delphi 6實際開發(fā)100例[M]．清華大學出版社．2001 [13]吳中福．軟件工程[M]．重慶大學出版社．2003[14]李堅．數(shù)據(jù)倉庫與決策支持[M]．第三版．國防工業(yè)出版社．2003[15]陳明 . 軟件工程學教程[M] .科技出版社，2002[16]飛思科技產(chǎn)品研發(fā)中心 . Delphi6開發(fā)者手冊[M] . 電子工業(yè)出版社, 2002 [17]Delphi程序設計導論[J].,（9）：25～55[18]申旻 . Delphi高手突破[M] . 清華大學出版社，2002，302[19][J].,01：41～51[20]趙福云. 用Delphi設計數(shù)據(jù)庫應用的幾點體會[J].Delphi ：18～19 附 錄以下是部分源代碼1登陸界面源代碼：unit Unit2。 Label2: TLabel。 Panel2: TPanel。 SpeedButton4: TSpeedButton。 Panel3: TPanel。 Panel7: TPanel。 procedure SpeedButton2Click(Sender: TObject)。var Form2: TForm2。begin 。用戶名39。{檢索數(shù)據(jù)庫中對應用戶名的密碼項} if =39。,39。 then (39。,mb_ok) else if results= then begin (Tform10,form10)。)。39。end.2． 運動員基本信息錄入界面unit Unit6。 Edit1: TEdit。 Label4: TLabel。 Label6: TLabel。 Edit4: TEdit。 ComboBox4: TComboBox。 Edit6: TEdit。 Edit8: TEdit。 Edit10: TEdit。 Edit11: TEdit。 Edit13: TEdit。 Memo2: TMemo。 Edit15: TEdit。 GroupBox4: TGroupBox。 ADOQuery1: TADOQuery。 procedure SpeedButton4Click(Sender: TObject)。 procedure Edit1KeyPress(Sender: TObject。 private { Private declarations } public { Public declarations } end。{$R *.dfm}procedure (Sender: TObject)。39。39。39。39。39。39。39。39。procedure (Sender: TObject)。 var Key: Char)。939。,39。procedure (Sender: TObject。..39。學號只能用數(shù)字表示，請重新輸入！39。end。039。 (39。,0+64) end。 。 (39。 end。39。39。39。39。39。信息不完整！39。exit。 end elsebegin。+39。139。39。39。339。39。39。539。39。39。739。39。39。939。39。39。1139。39。39。1339。39。39。1539。39。39。1739。39。39。1939。39。39。2139。39。39。(39。,mb_ok)。39。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, DB, ADODB。 Label2: TLabel。 ComboBox1: TComboBox。 Label7: TLabel。 Label9: TLabel。 Edit7: TEdit。 Memo1: TMemo。 GroupBox3: TGroupBox。 ComboBox2: TComboBox。 procedure Edit1KeyPress(Sender: TObject。var Form9: TForm9。procedure (Sender: TObject)。39。39。39。39。begin if not (key in[39。,8])then begin key:=0。警告39。beginbeginwith ADOQuery1 do begin close。)。 Open。)or(=39。) or (=39。)or (=39。)or (=39。)or(=39。,39。endelse if =false then begin ShowMessage(39。values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11)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。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。insert into 成績信息表(學號,姓名,性別,所在系別,所在專業(yè),所在班級,課程名稱,課程代號,學期,成績,備注內(nèi)容)39。)。,mb_ok)。) thenbegin(39。)or(=39。)or (=39。)or (=39。)or(=39。 if (=39。a39。 (39。end。學號只能用數(shù)字表示，請重新輸入！39。..39。procedure (Sender: TObject。39。39。39。39。begin。 procedure SpeedButton1Click(Sender: TObject)。 procedure SpeedButton3Click(Sender: TObject)。 GroupBox4: TGroupBox。 GroupBox2: TGroupBox。 Edit8: TEdit。 Panel1: TPanel。 Label8: TLabel。 Label6: TLabel。 Edit2: TEdit。 Label1: TLabel。end。39。,39。39。2239。39。39。2039。39。39。1839。39。39。1639。39。39。1439。39。39。1239。39。39。1039。39。39。839。39。39。639。39。39。439。39。39。239。39。)。(39。該學生已經(jīng)存在，請重新填寫39。錯誤操作39。39。39。39。39。39。39。).Value:=Trim()。select * from 學生基本信息表 where =:a39。procedure (Sender: TObject)。,39。939。 var Key: Char)。警告39。,8])then begin key:=0。begin if not (key in[39。,0+64) end。 (39。039。end。39。39。39。39。39。39。39。39。39。 Picture1:Tpicture。 procedure Edit10KeyPress(Sender: TObject。 procedure Edit9KeyPress(Sender: TObject。 Edit16: TEdit。 GroupBox5: TGroupBox。 GroupBox3: TGroupBox。 Edit14: TEdit。 Memo1: TMemo。 Edit12: TEdit。 Label17: TLabel。 Edit9: TEdit。 Edit7: TEdit。 Edit5: TEdit。 ComboBox3: TComboBox。 Label7: TLabel。 Label5: TLabel。 Label3: TLabel。type TForm6 = class(TForm) GroupBox1: TGroupBox。39。 :=true。 end else showmessage(39。,39。,mb_ok) else if =39。 then (39。密碼39。 。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。{$R *.dfm}procedure (Sender: TObject)。 procedure SpeedButton1Click(Sender: TObject)。 ADOTable1: TADOTable。 Panel5: TPanel。 Label6: TLabel。 SpeedButton2: TSpeedButton。 Panel1: TPanel。type TForm2 = class(TForm) Image1: TImage。我還要感謝我的同學，沒有他們的支持和鼓勵，我不可能愉快的度過我的大運動員活。其次我要感謝計算機學院所有的老師們，沒有他們平時的教導，我不會順利完成我的畢業(yè)設計。在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。整個系統(tǒng)除了用戶登錄外，主要有顯示模塊、查詢模塊、添加模塊、修改模塊、刪除模塊、統(tǒng)計模塊和匯總模塊七個模塊。另外，在整個開發(fā)的過程中，時間也比較倉促。加強后臺管理系統(tǒng)的建設，各項操作由程序執(zhí)行，方便、準確，又節(jié)省人工。是各個代表隊的名次能及時更新 系統(tǒng)的改進與提高由于各種原因，本系統(tǒng)有許多缺點。4．運動員資料查詢。2．信息管理。 成績修改模塊的設計與實現(xiàn) 運動員成績的錄入難免錯誤，因此有了這個成績修改模塊，主要是為了更正信息的可靠性，運動員基本信息的修改模塊跟此雷同，就不多詳細一一介紹了。 界面設計如下：查詢分精確查詢和模糊查詢，精確查詢只要輸入運動員的學號信息，方可調(diào)出運動員的所有成績信息。◎ “錄入”按鈕用于新增運動員記錄，在運動員信息表中新增記錄，從而數(shù)據(jù)表中的記錄數(shù)目會自動增加。密碼和用戶名都正確，則進入成績管理系統(tǒng)主界面；如果用戶名不存在或密碼不正確，則退出。（2） 用戶身份進行驗證。如果身份合法，則將用戶導向系統(tǒng)的主頁面并記錄用戶的