【正文】 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ù)字表示，請(qǐng)重新輸入！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é)號(hào)只能用數(shù)字表示，請(qǐng)重新輸入！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ù)字表示，請(qǐng)重新輸入！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。錯(cuò)誤操作39。,mb_ok)。exit。endelse if =false then begin ShowMessage(39。該學(xué)生已經(jīng)存在，請(qǐng)重新填寫39。)。 end elsebegin。(39。insert into 學(xué)生基本信息表(學(xué)號(hào),姓名,民族,出生年,出生月,貫籍,性別,所在系別,所在專業(yè),所在班級(jí),政治面目,家庭住址,郵政編碼,聯(lián)系電話,身份證號(hào)碼,畢業(yè)學(xué)校,現(xiàn)在學(xué)歷,個(gè)人特長(zhǎng),電子郵箱,學(xué)制,外語(yǔ),個(gè)人備注)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ù)已錄入，請(qǐng)查看！39。,39。完成提示39。,mb_ok)。:=39。39。:=39。39。end。end。end.3． 比賽成績(jī)錄入源代碼：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é)號(hào)只能用數(shù)字表示，請(qǐng)重新輸入！39。,39。警告39。,0+64) end。end。procedure (Sender: TObject)。beginbeginwith ADOQuery1 do begin close。 。 (39。select * from 成績(jī)信息表 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。錯(cuò)誤操作39。,mb_ok)。exit。endelse if =false then begin ShowMessage(39。該學(xué)生已經(jīng)存在，請(qǐng)重新填寫39。)。 endelsebegin。(39。insert into 成績(jī)信息表(學(xué)號(hào),姓名,性別,所在系別,所在專業(yè),所在班級(jí),課程名稱,課程代號(hào),學(xué)期,成績(jī),備注內(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ù)已錄入，請(qǐng)查看！39。,39。完成提示39。,mb_ok)。:=39。39。:=39。39。end。end。end。end