【正文】 declarations } 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。學(xué)號只能用數(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 學(xué)生基本信息表 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。該學(xué)生已經(jīng)存在，請重新填寫39。)。 end elsebegin。(39。insert into 學(xué)生基本信息表(學(xué)號,姓名,民族,出生年,出生月,貫籍,性別,所在系別,所在專業(yè),所在班級,政治面目,家庭住址,郵政編碼,聯(lián)系電話,身份證號碼,畢業(yè)學(xué)校,現(xiàn)在學(xué)歷,個人特長,電子郵箱,學(xué)制,外語,個人備注)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。學(xué)號只能用數(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。該學(xué)生已經(jīng)存在，請重新填寫39。)。 endelsebegin。(39。insert into 成績信息表(學(xué)號,姓名,性別,所在系別,所在專業(yè),所在班級,課程名稱,課程代號,學(xué)期,成績,備注內(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