【正文】 end。 Shift: TShiftState 。 procedure Sender: TObject。 begin if key 13 then 。 var Key: Word。 end。 Shift: TShiftState 。 procedure Sender: TObject。 begin if key 13 then 。 var Key: Word。 end。 procedure Sender: TObject 。 end。 rep_griew。] 。+datetimetostr [39。 rep_grion: 39。 frm_e。ls_zfje39。ls_sfje39。gd_zfje39。gd_sfje39。 .Value。 .Value+ 39。 rep_gression: 39。ls_zfje39。gd_zfje39。 .Value。 .Value+ 39。 rep_gression: 39。ls_sfje39。gd_sfje39。 .Value。 . 39。 rep_gression: 39。gd_zfje39。gd_sfje39。 .Value。 rep_grion: 39。ls_39。 .Value。 rep_gression: 39。ls_zfbc39。 .Value。 rep_gression: 39。ls_sfbc39。 .Value。 rep_gression: 39。gd_zfjlh39。 .Value。 rep_gression: 39。gd_min39。 .Value。 rep_gression: 39。gd_zfje39。 .Value。 rep_gression: 39。gd_sfje39。+。 rep_grion: 39。收費員代碼： 39。+strend。 rep_grion: 39。統(tǒng)計起日期 :39。個人交款統(tǒng)計報表 39。+。 rep_grion: 39。 。 .Value: 39。 39。ls_39。 .Value: 1。 39。ls_zfbc39。 .Value: 1。 39。ls_sfbc39。 .Value: 1。 39。 .Value: 39。 39。gd_39。 .Value: 1。 39。gd_zfbc39。 .Value: 1。 39。gd_sfbc39。 .Value: 1。 39。zrq39。 .Value: startdate。 39。code39。 .AsString: 。 39。 enddate: strtodatetime strend 。+timetostr 。 strend: datetostr +39。 39。 startdate,enddate:Tdatetime。 procedure Sender: TObject 。]+1。 : [39。currenttime39。 frm_。 $R *.dfm procedure Sender: TObject 。 var frm_grjktj: Tfrm_grjktj。 Shift: TShiftState 。 procedure t2KeyDown Sender: TObject。 var Key: Word。 Shift: TShiftState 。 procedure t1KeyDown Sender: TObject。 var Key: Word。 procedure BitBtn2Click Sender: TObject 。 procedure FormCreate Sender: TObject 。 BitBtn2: TBitBtn。 Label2: TLabel。 t2: TDateTimePicker。 t1: TDateTimePicker。 type Tfrm_grjktj class TForm Panel2: TPanel。下面顯示個人收費資料打印運行效果圖如下： 其各控件的設計代碼如下： unit grjktj。 end. 款和統(tǒng)計報表打印系統(tǒng)功能 報表打印系統(tǒng)主要實現(xiàn)個人收費資料打印和全體收費資料打印。 begin if key 13 then 。 var Key: Word。 end。 procedure Sender: TObject 。 end。,48 。,39。 end else begin 39。 finally 。 try Tfrm_clsfsz, frm_clsfsz 。 系統(tǒng)應用設置的運行效果圖如下： 其各控件的設計代碼如下： procedure Sender: TObject 。 end。 。,64 。 ,39。+str+39。 messagebox ,pchar 39。 exit。steven 提示 39。]已收過費，不可刪除！ 39?？ㄌ?[39。 try frm_SQL。tmh39。tmh39。delete gdcl_czda where tmh :tmh39。 frm_e。steven 提示 39。]？！ 39。您真的要刪除卡號[39。]。 begin if not then begin str: query1[39。 procedure Sender: TObject 。 。 begin frm_led: true。 procedure Sender: TObject。 begin close。 end。 Shift: TShiftState 。 procedure Sender: TObject。 。請輸車庫車位 :39。請輸入車庫車位 39。 begin bz: 4。 end。 。 procedure Sender: TObject 。 。cxstr39。+cxfield。+cxfield+39。+ 39。 qu: 39。 。 cxstr: cxstr+39。 end。 cxfield: 39。 end。 cxfield: 39。 end。 cxfield: 39。tmh39。+trim ,9 。 else cxstr: rightstr 39。 then cxstr: 39。 begin if bz 1 and trim 39。 procedure Sender: TObject 。 。請輸入車牌號碼 :39。請輸入車牌號 39。 begin bz: 3。 end。 sender 。 : 39。 : 39。 procedure Sender: TObject 。 。請輸入卡號： 39。請輸入卡號尾數(shù) 39。 begin bz: 1。 end。 begin frm_led: true。 procedure Sender: TObject。 。steven 提示 39。添加成功 39。 end。,16 。,39。 except 39。 .AsString: trim 。 frm_mByName 39。lxdh39。 .AsString: trim 。 frm_mByName 39。ckcw39。]。 .AsString: [39。 frm_mByName 39。qcms39。 .AsString: trim 。 frm_mByName 39。cphm39。 .AsString: trim 。 frm_mByName 39。tmh39。insert gdcl_czda Tmh,Czxm,Cphm,Cxsm,Qcms,zcsj,Ckcw,Zz,Lxdh,Bz values :Tmh,:Czxm,:Cphm,:Cxsm,:Qcms,:zcsj,:Ckcw,:Zz,:Lxdh,:Bz 39。 frm_e。 frm_e。steven提示 39。您確定輸入無誤嗎！ 39。 end。,16 。 ,39。++39。 if not frm_ then begin messagebox ,pchar 39。 .AsString: 。 frm_mByName 39。 : 39。 end。 。steven 提示 39。電話不能為空！ 39。39。 end。 。steven 提示39。車牌號不能為空！ 39。39。 end。 。steven 提示39。車主姓名不能為空！ 39。39。 end。 。steven 提示 39。卡號不能空！ 39。39。 procedure Sender: TObject 。 begin if key 13 then 。 var Key: Word。 end。 Shift: TShiftState 。 procedure Sender: TObject。 begin if key 13 then 。 var Key: Word。 end。 Shift: TShiftState 。 procedure Sender: TObject。 begin if key 13 then 。 var Key: Word。 end。 Shift: TShiftState 。 procedure Sender: TObject。 begin if key 13 then 。 var Key: Word。 end。 Shift: TShiftState 。 procedure Sender: TObject。 end。+,9 。 then begin : rightstr 39。 begin if 39。 end。 Shift: TShiftState 。 procedure Sender: TObject。 begin close。 end。,8]。..39。 begin ch: [39。 var Key: Char 。 implementation uses sjmk, main。 private Private declarations public Public declarations end。 procedure FormClose Sender: TObject。 Shift: TShiftState 。 procedure bzKeyDown Sender: TObject。 var Key: Word。 Shift: TShiftState 。 procedure zzKeyDown Sender: TObject。 var Key: Word。 Shift: TShiftState 。 procedure qcmsKeyDown Sender: TObject。 var Key: Word。 Shift: TShiftState 。 procedure cphmKeyDown Sender: TObject。 var Key: Word。 procedure tmhExit Sender: TObject 。 var Key: Word。 procedure BitBtn2Click Sender: TObject 。 procedure tmhKeyPress Sender: TObject。 BitBtn2: TBitBtn。 bz: TEdit。 Label11: TLabel。 Label8: TLabel。 Label7: TLabel。 Label6: TLabel。 cxsm: TComboBox。 cphm: TEdit。 czxm: TEdit。 tmh: TEdit。 type Tfrm_gdyhzcfk class TForm GroupBox1: TGroupBox。 其運行效果圖如下： 其新建的程序代碼如下： unit gdyhzcfk。 圖 2 系統(tǒng)功能結構圖 5． 2 程序流程圖如下 費模塊 本系統(tǒng)的發(fā)卡收費模塊提供固定用戶注冊發(fā)卡、臨時用戶發(fā)卡、固定收費用戶、程序的退出出口。 結構設計 Sys 系統(tǒng)表 字段名 類型 說明 備注 索引、約束 Pass Char 8 系統(tǒng)設置口令