【正文】 Controls, Forms, Dialogs, StdCtrls, Buttons,strutils。 Label2: TLabel。 Label1: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 ckcw: TEdit。 zz: TEdit。 dhhm: TEdit。 qcms: TEdit。 BitBtn1: TBitBtn。 Label9: TLabel。 var Key: Char 。 procedure tmhKeyDown Sender: TObject。 Shift: TShiftState 。 procedure czxmKeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 procedure cxsmKeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 procedure ckcwKeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 procedure dhhmKeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 procedure BitBtn1Click Sender: TObject 。 var Action: TCloseAction 。 var frm_gdyhzcfk: Tfrm_gdyhzcfk。 $R *.dfm procedure Sender: TObject。 var ch: set of char。039。939。 if not key in ch then key: 0。 procedure Sender: TObject 。 end。 var Key: Word。 begin if key 13 then sender 。 procedure Sender: TObject 。39。00000000039。 。 end。 var Key: Word。 begin if key 13 then 。 procedure Sender: TObject。 Shift: TShiftState 。 end。 var Key: Word。 begin if key 13 then 。 procedure Sender: TObject。 Shift: TShiftState 。 end。 var Key: Word。 begin if key 13 then 。 procedure Sender: TObject。 Shift: TShiftState 。 end。 var Key: Word。 begin if key 13 then 。 procedure Sender: TObject。 Shift: TShiftState 。 end。 begin if trim 39。 then begin 39。,39。,48 。 exit。 if trim 39。 then begin 39。,39。,48 。 exit。 if trim 39。 then begin 39。,39。,48 。 exit。 if trim 39。 then begin 39。,39。,48 。 exit。 //判斷是否有該臨時(shí)卡號(hào) frm_e。select * from lscl_fkjl where tmh :tmh and wcsj is null39。tmh39。 frm_?？ㄌ?hào) [39。]作臨時(shí)卡時(shí)正用，不可轉(zhuǎn)化成固定卡！ 39。steven 提示 39。 exit。 if messagebox ,39。,39。,4+32+256 7 then exit。 frm_。 : 39。 frm_mByName 39。 .AsString: 。czxm39。 frm_mByName 39。 .AsString: trim 。cxsm39。 frm_mByName 39。 .AsString: trim 。zcsj39。currenttime39。 frm_mByName 39。 .AsString: trim 。zz39。 frm_mByName 39。 .AsString: trim 。bz39。 try frm_SQL。添加失敗，卡號(hào)有重 39。steven 提示 39。 exit。 39。,39。,64 。 end。 var Action: TCloseAction 。 。 end. 5． 2． 2 綜合查詢(xún)模塊 綜合查詢(xún)模塊包括固定用戶(hù)注冊(cè)查詢(xún)、目前停車(chē)情況瀏覽、個(gè)人收費(fèi)查詢(xún)，全體收費(fèi)查詢(xún)、車(chē)輛進(jìn)出查詢(xún)、收費(fèi)設(shè)置查詢(xún) 其中固定用戶(hù)注冊(cè)查詢(xún)運(yùn)行效果圖如下： 其各控件的設(shè)計(jì)代碼如下： procedure Sender: TObject 。 : 39。 : 39。 sender 。 end。 begin bz: 2。請(qǐng)輸入車(chē)主姓名 39。請(qǐng)輸入車(chē)主姓名 :39。 。 procedure Sender: TObject 。 : 39。 : 39。 sender 。 end。 var cxstr,cxfield:string。39。39。00000000039。 case bz of 1: cxfield: 39。 2: begin cxstr: trim 。czxm39。 3: begin cxstr: trim 。cphm39。 4: begin cxstr: trim 。ckcw39。 end。%39。 qur。select * from gdcl_czda 39。where 39。 like :cxstr order by 39。 39。 .Value: cxstr。 end。 begin bz: 1。 。 procedure Sender: TObject 。 : 39。 : 39。 sender 。 end。 var Key: Word。 begin if key 13 then sender 。 procedure Sender: TObject 。 end。 var Action: TCloseAction 。 。 end。 var str:string。tmh39。 if messagebox ,pchar 39。+str+39。 ,39。,4+32+256 7 then exit。 : 39。 frm_mByName 39。 .AsString: query1[39。]。 except messagebox ,pchar 39。+str+39。 ,39。,16 。 end?？ㄌ?hào) [39。]已刪除！39。steven 提示 39。 。 end。 end. 置模塊 管理設(shè)置模塊包括系統(tǒng)應(yīng)用設(shè)置、更改用戶(hù)口令、更改登陸用戶(hù)、鎖定系統(tǒng) 幫助模塊包括幫助主題等。 begin if trim then begin : false。 。 end。設(shè)置口令錯(cuò)！ 39。steven 提示 39。 。 end。 begin close。 procedure Sender: TObject。 Shift: TShiftState 。 end。根據(jù)查詢(xún)結(jié)果的不同和統(tǒng)計(jì)結(jié)果的不同，可打印相應(yīng)的成績(jī)報(bào)表。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DB, ADODB, DBTables。 d1: TDateTimePicker。 d2: TDateTimePicker。 Label1: TLabel。 BitBtn1: TBitBtn。 p1: TStoredProc。 procedure BitBtn1Click Sender: TObject 。 procedure d1KeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 procedure d2KeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 private Private declarations public Public declarations end。 implementation uses login,grjkbb,sjmk。 begin frm_e。 : [39。]。currenttime39。 end。 var strstart,strend:string。 begin strstart: datetostr +39。+timetostr 。 39。 startdate: strtodatetime strstart 。 。code39。 39。 .AsString: 。qrq39。 39。 .Value: enddate。gd_sfje39。 39。 .Value: 1。gd_zfje39。 39。 .Value: 1。gd_min39。 39。 .Value: 1。gd_zfjlh39。39。ls_sfje39。 39。 .Value: 1。ls_zfje39。 39。 .Value: 1。ls_min39。 39。 .Value: 1。ls_zfjlh39。39。 try Trep_grjkbb, rep_grjkbb 。用戶(hù)單位 :39。 rep_grion: 39。 rep_grion: 39。+strstart。止日期 :39。 rep_grion: 39。+。收費(fèi)員姓名： 39。 rep_gression: 39。 .Value。gd_sfbc39。 rep_gression: 39。 .Value。gd_zfbc39。 rep_gression: 39。 .Value。gd_39。 rep_grion: 39。 .Value。ls_sfje39。 rep_gression: 39。 .Value。ls_zfje39。 rep_gression: 39。 .Value。ls_min39。 rep_gression: 39。 .Value。ls_zfjlh39。 rep_gression: 39。 . 39。 .Value。ls_sfje39。ls_zfje39。 rep_gression: 39。 .Value+ 39。 .Value。gd_sfbc39。ls_sfbc39。 rep_gression: 39。 .Value+ 39。 .Value。gd_zfbc39。ls_zfbc39。 rep_gression: 39。 . 39。 .Value+ 39。 . 39。 .Value。 frm_。 打印時(shí)間： 39。currenttime39。 。 finally 。 end。 begin close。 procedure Sender: TObject。 Shift: TShiftState 。 end。 var Key: Word。 begin if key 13 then 。 procedure Sender: TObject。 Shift: TShiftState 。 end。 var Key: Word。 begin if key 13 then 。 end. 關(guān)鍵問(wèn)題 OOP 簡(jiǎn)介 每一個(gè)軟件開(kāi)發(fā)人員都會(huì)經(jīng)常聽(tīng)到，看到“面向?qū)ο蟆边@個(gè)詞，程序員也