【正文】 :banj,:rxsj,:bysj,:xuel,:waiyu,:sfjy,:dhua,:beiz)39。)。 (39。number39。).Value := 。 (39。name39。).Value := 。 (39。sex39。).Value := 。 (39。bothday39。).Value :=。 (39。minz39。).Value := 。 (39。zzmm39。).Value :=。 (39。jg39。).Value := 。 (39。zhuanye39。).Value := 。 (39。banj39。).Value := 。 (39。rxsj39。).Value :=。 (39。bysj39。).Value := 。 (39。xuel39。).Value := 。 (39。waiyu39。).Value := 。 (39。sfjy39。).Value := 。 (39。dhua39。).Value := 。 (39。beiz39。).Value := 。 Prepared:=True。 ExecSQL。 end。 END else if ActionCD=39。update39。 then begin With DO begin Close。 。 (39。update 畢業(yè)生基本信息表39。)。//修改畢業(yè)生基本信息 (39。set 姓名=:姓名1,性別=:性別1,出生日期=:出生日期1,民族=:民族1,政治面貌=:政治面貌1,39。)。 (39。籍貫=:籍貫1,專業(yè)=:專業(yè)1,班級=:班級1,入學時間=:入學時間1,畢業(yè)時間=:畢業(yè)時間1,39。)。 (39。學歷=:學歷1,外語語種=:外語語種1,是否就業(yè)=:是否就業(yè)1,聯(lián)系電話=:聯(lián)系電話,備注=:備注139。)。 (39。Where 學號=:學號139。)。 [0].Value:=。 [1].Value:=。 [2].Value:=。 [3].Value:=。 [4].Value:=。 [5].Value:=。 [6].Value:=。 [7].Value:=。 [8].Value:=。 [9].Value:=。 [10].Value:=。 [11].Value:=。 [12].Value:=。 [13].Value:=。 [14].Value:= 。 //[15].Value:=(39。學號39。).AsString。 [15].Value:=。 Prepared:=true。 ExecSQL。 end。 end。end。（iii）判斷學號是否已經(jīng)存在procedure (Sender: TObject)。begin inherited。 if (39。39。) and (=false) then //如果基礎(chǔ)信息不為空 begin With do begin CLose。 。 (39。Select * from 畢業(yè)生基本信息表 where 學號 = :number39。)。 (39。number39。).Value := Trim()。 Open。 end。 if 0 then begin (39。該學號的學生已經(jīng)存在,請重新輸入.39。,39。提示39。,64)。 。 。 Exit。 end。end。end。 就業(yè)信息管理模塊程序代碼（就業(yè)信息管理模塊程序代碼與畢業(yè)生信息管理模塊代碼處理過程相似，可參照其處理過程） 就業(yè)數(shù)據(jù)管理模塊程序代碼（1） 已就業(yè)學生列表“查詢”按鈕事件procedure (Sender: TObject)。begin//按畢業(yè)時間查詢if(=True)and =False)and(=False)then begin with do begin close。 。 (39。select * from 畢業(yè)生基本信息表39。)。 (39。where 畢業(yè)時間=:a and 是否就業(yè)=:b39。)。 (39。a39。).Value:=trim()。 (39。b39。).Value:=39。是39。 open end。 if 0 then begin := 。 j:=。 //統(tǒng)計已就業(yè)人數(shù) end else begin := nil。 j:=0。 (39。尚未有該畢業(yè)時間的已就業(yè)的學生,請查證.39。,39。提示39。,64)。 。 end。 end。//按畢業(yè)時間及專業(yè)查詢if(=True)and (=True)and(=False)then begin with do begin close。 。 (39。select * from 畢業(yè)生基本信息表39。)。 (39。where 畢業(yè)時間=:a and 專業(yè)=:b and 是否就業(yè)=:c39。)。 (39。a39。).Value:=trim()。 (39。b39。).Value:=trim()。 (39。c39。).Value:=39。是39。 open end。 if 0 then begin := 。 j:=。 end else begin := nil。 j:=0。 (39。尚未有該畢業(yè)時間的已就業(yè)的學生,請查證.39。,39。提示39。,64)。 。 end。 end。//按畢業(yè)時間及專業(yè)班級查詢if (=True)and (=True)and(=True)then begin with do begin close。 。 (39。select * from 畢業(yè)生基本信息表39。)。 (39。where 畢業(yè)時間=:a and 專業(yè)=:b and 班級=:c and 是否就業(yè)=:d39。)。 (39。a39。).Value:=trim()。 (39。b39。).Value:=trim()。 (39。c39。).Value:=trim()。 (39。d39。).Value:=39。是39。 open end。 if 0 then begin := 。 j:=。 end else begin := nil。 j:=0。 (39。尚未有該畢業(yè)時間的已就業(yè)的學生,請查證.39。,39。提示39。,64)。 。 end。 end。end。（2） 未就業(yè)學生列表“查詢”按鈕事件的處理過程同上（3） “統(tǒng)計”按鈕事件procedure (Sender: TObject)。begin :=inttostr(j+w)+39。(人)39。 //統(tǒng)計總?cè)藬?shù) :=inttostr(j)+39。(人)39。 //已就業(yè)人數(shù) :=inttostr(w)+39。(人)39。 //未就業(yè)人數(shù) :=FloatToStrF(j/(j+w)*100,ffFixed,4,2)+39。%39。 //就業(yè)率end。 系統(tǒng)管理模塊程序代碼（1） 數(shù)據(jù)備份處理過程procedure (Sender: TObject)。var dir:string。 m:integer。begin try if then begin dir:=+39。.bak39。 :=39。正在備份數(shù)據(jù)39。 With do begin :=crHourGlass。 Close。 。 (39。backup database JYGLXT to disk=39。+39。39。39。39。+dir+39。39。39。39。)。 //備份數(shù)據(jù)庫 ExecSQL。 for m:=0 to 10000 do :=m。 := crDefault。 end。 showmessage(39。備份成功39。)。 end。 :=0。 except := crDefault。 showmessage(39。備份失敗39。)。 end。 :=39。數(shù)據(jù)備份39。end。（2） 數(shù)據(jù)恢復procedure (Sender: TObject)。var dir:string。 m:integer。begin try if then begin dir:=。 :=39。正在恢復數(shù)據(jù)39。 With do begin :=crHourGlass。 Close。 。 //選擇要恢復的數(shù)據(jù)庫 (39。use master restore database JYGLXT from disk=39。+39。39。39。39。+dir+39。39。39。39。)。 ExecSQL。 Close。 。 (39。use JYGLXT 39。)。 ExecSQL 。 for m:=0 to 10000 do :=m。 := crDefault。 end。 showmessage(39?；謴统晒?9。)。 end。 :=0。 except := crDefault。 showmessage(39。恢復失敗39。)。 end。 :=39。數(shù)據(jù)恢復39。end。44