【正文】 (Sender: TObject)。begin inherited。 if not then else (39。這已經(jīng)是最后一條記錄39。,39。提示39。)。end。//末記錄按鈕procedure (Sender: TObject)。begin inherited。 if not then else (39。已經(jīng)是末記錄了！39。,39。提示39。)。end。//新建按鈕xxx 大學(xué) xxx 學(xué)院 畢業(yè)論文( 設(shè)計) 31 procedure (Sender: TObject)。begin inherited。 if not then exit。 。//數(shù)據(jù)控件發(fā)生變化 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。//使按鈕發(fā)生變化 :=true。 :=false。 :=false。end。//保存按鈕procedure (Sender: TObject)。begin inherited。 if =dsBrowse then exit。 try 。 // 使數(shù)據(jù)控件不可用 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。xxx 大學(xué) xxx 學(xué)院 畢業(yè)論文( 設(shè)計) 32 使按鈕發(fā)生變化 :=True。 :=false。 :=True。 :=True。 except (39。保存數(shù)據(jù)出錯39。,39。提示39。)。 。 raise。 exit。 end。end。//刪除按鈕procedure (Sender: TObject)。begin inherited。//首先檢查是否選中要刪除的車輛，然后詢問是否確定刪除 if (39。PlateNo39。).AsString=39。39。 then begin (39。沒有選擇要刪除的車輛39。,39。提示39。)。 exit。 end。 if (39。是否確定要刪除該條信息 39。,39。提示39。,mb_yesno)=idyes then 。end。//修改按鈕procedure (Sender: TObject)。begin inherited。 將相應(yīng)控件變?yōu)榭梢孕薷? :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。xxx 大學(xué) xxx 學(xué)院 畢業(yè)論文( 設(shè)計) 33 //使按鈕發(fā)生變化 :=false。 :=true。 :=false。 :=false。end。procedure (Sender: TObject)。begin inherited。 if =dsBrowse then 。 try if =39。是39。then (39。IfReview39。).AsInteger:=0 else (39。IfReview39。).AsInteger:=1。 except 。 end。end。//點(diǎn)擊保險否編輯框，改變編輯框的值procedure (Sender: TObject)。begin inherited。 if =dsBrowse then 。 try if =39。是39。 then (39。IfInsure39。).AsInteger:=0 else (39。IfInsure39。).AsInteger:=1。 except 。 end。end。車輛檔案查詢 代碼unit qryVehicleRecord。uses DataModual。//主程序調(diào)用開始function gfunOpenVehicleRecord():integer。begin frmVehicleRecord:=(nil)。 。 Result:=0。xxx 大學(xué) xxx 學(xué)院 畢業(yè)論文( 設(shè)計) 34 。end。//過程重寫，實現(xiàn)多肽procedure 。begin (39。查詢車輛檔案表出錯39。,39。錯誤39。)。end。//點(diǎn)擊單選按鈕發(fā)生的時間procedure (Sender: TObject)。begin inherited。 :=false。 :=false。 :=false。 case Tradiobutton(sender).Tag of 1: //按車牌號查詢 begin :=true。 :=false。 :=false。 。 (39。select * from VehicleRecord where PlateNo=:PlateNo39。)。 (39。PlateNo39。).Value:=。 。 end。 2: //按駕駛員姓名查詢 begin :=false。 :=true。 :=false。 。 (39。select * from VehicleRecord a, DriverRecord b where = and DriverName=:DriverName39。)。(39。DriverName39。).Value:=。 。 end。 3: //按車輛類型查詢 begin :=false。 :=false。 :=true。 。 (39。select * from VehicleRecord a, DCType b where xxx 大學(xué) xxx 學(xué)院 畢業(yè)論文( 設(shè)計) 35 = and TypeName=:TypeName39。)。 (39。TypeName39。).Value:=。 。 end。 4: //已異動車輛查詢 begin :=false。 :=false。 :=false。 。 (39。select * from VehicleRecord a, VehicleTransaction b where =39。)。 。 end。 5: //已報廢車輛查詢 begin :=false。 :=false。 :=false。 。 (39。select * from VehicleRecord a, VehicleScrap b where =39。)。 。 end。 6: //沒有年檢車輛車輛查詢 begin :=false。 :=false。 :=false。 。 (39。select * from VehicleRecord where IfReview=039。)。 。 end。 7: //沒有保險車輛查詢 begin :=false。 :=false。 :=false。 。 (39。select * from VehicleRecord where IfInsure=039。)。 。 end。 end。end。//打開表單時，打開表，并添加車輛號，駕駛員名稱，車輛類型到相應(yīng)的 bobox xxx 大學(xué) xxx 學(xué)院 畢業(yè)論文( 設(shè)計) 36 procedure (Sender: TObject)。begin inherited。 。 。 。 if then 。 try 。 except (39。打開車輛檔案表出錯39。,39。錯誤39。)。 exit。 end。//讀取車牌號到 bobox1 中 while not do begin ((39。PlateNo39。).AsString)。 。 end。 if then 。 try 。 except (39。查詢駕駛員基本表出錯39。,39。錯誤39。)。 exit。 end。 //讀取駕駛員名稱到 bobox2 中 while not do begin ((39。DriverName39。).AsString)。 。 end。 if then 。 try 。 except (39。查詢車輛類型表出錯39。,39。錯誤39。)。 exit。 end。 // 讀取車輛類型到 bobox3 中 while not do begin ((39。TypeName39。).AsString)。 。xxx 大學(xué) xxx 學(xué)院 畢業(yè)論文( 設(shè)計) 37 end。 :=0。 :=0。 :=0。end。//當(dāng)車牌號改變時，查詢相應(yīng)的車輛記錄procedure (Sender: TObject)。begin inherited。 。 (39。select * from VehicleRecord where PlateNo=:PlateNo39。)。 (39。PlateNo39。).Value:=。 。end。//當(dāng)駕駛員名稱改變時，查詢相應(yīng)的車輛記錄procedure (Sender: TObject)。begin inherited。 。 (39。select * from VehicleRecord a, DriverRecord b where = and DriverName=:DriverName39。)。 (39。DriverName39。).Value:=。 。end。//當(dāng)車輛類型改變時，查詢相應(yīng)的車輛記錄procedure (Sender: TObject)。begin inherited。 。 (39。select * from VehicleRecord a, DCType b where = and TypeName=:TypeName39。)。 (39。TypeName39。).Value:=。 。end。//表單關(guān)閉，釋放所有查詢procedure (Sender: TObject。 var Action: TCloseAction)。begin inherited。 if then 。 if then 。 if then 。end。end；