【正文】 reate和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫的操作。 SQL的集合特性允許一條 SQL 語句的結(jié)果作為另一條 SQL 語句的輸入。 所有關(guān)系數(shù)據(jù)庫的公共語言：由于所有主要的關(guān)系數(shù)據(jù)庫管理系統(tǒng)都支持 SQL語言，用戶可將使用 SQL的技能從一個 RDBMS 關(guān)系數(shù)據(jù)庫管理系統(tǒng) 轉(zhuǎn)到另一個，所有用 SQL 編寫的程序都是可以移植的。 圖 2 系統(tǒng)功能結(jié)構(gòu)圖 5． 2 程序流程圖如下 費模塊 本系統(tǒng)的發(fā)卡收費模塊提供固定用戶注冊發(fā)卡、臨時用戶發(fā)卡、固定收費用戶、程序的退出出口。 type Tfrm_gdyhzcfk class TForm GroupBox1: TGroupBox。 czxm: TEdit。 cxsm: TComboBox。 Label7: TLabel。 Label11: TLabel。 BitBtn2: TBitBtn。 procedure BitBtn2Click Sender: TObject 。 procedure tmhExit Sender: TObject 。 procedure cphmKeyDown Sender: TObject。 var Key: Word。 Shift: TShiftState 。 procedure zzKeyDown Sender: TObject。 var Key: Word。 Shift: TShiftState 。 private Private declarations public Public declarations end。 var Key: Char 。..39。 end。 procedure Sender: TObject。 end。 then begin : rightstr 39。 end。 Shift: TShiftState 。 var Key: Word。 procedure Sender: TObject。 end。 begin if key 13 then 。 Shift: TShiftState 。 var Key: Word。 procedure Sender: TObject。 end。 begin if key 13 then 。39。steven 提示 39。 end。車主姓名不能為空！ 39。 。39。steven 提示39。 end。電話不能為空！ 39。 。 : 39。 .AsString: 。++39。,16 。您確定輸入無誤嗎！ 39。 frm_e。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_mByName 39。cphm39。 .AsString: trim 。 frm_mByName 39。]。 frm_mByName 39。lxdh39。 .AsString: trim 。,39。 end。steven 提示 39。 procedure Sender: TObject。 end。請輸入卡號尾數(shù) 39。 。 : 39。 sender 。 begin bz: 3。請輸入車牌號碼 :39。 procedure Sender: TObject 。 then cxstr: 39。+trim ,9 。 cxfield: 39。 cxfield: 39。 cxfield: 39。 cxstr: cxstr+39。 qu: 39。+cxfield+39。cxstr39。 procedure Sender: TObject 。 end。請輸入車庫車位 39。 。 Shift: TShiftState 。 begin close。 begin frm_led: true。 procedure Sender: TObject 。]。]？！ 39。 frm_e。tmh39。 try frm_SQL。]已收過費，不可刪除！ 39。 exit。+str+39。,64 。 end。 try Tfrm_clsfsz, frm_clsfsz 。 end else begin 39。,48 。 procedure Sender: TObject 。 var Key: Word。 end. 款和統(tǒng)計報表打印系統(tǒng)功能 報表打印系統(tǒng)主要實現(xiàn)個人收費資料打印和全體收費資料打印。 type Tfrm_grjktj class TForm Panel2: TPanel。 t2: TDateTimePicker。 BitBtn2: TBitBtn。 procedure BitBtn2Click Sender: TObject 。 procedure t1KeyDown Sender: TObject。 var Key: Word。 Shift: TShiftState 。 $R *.dfm procedure Sender: TObject 。currenttime39。]+1。 startdate,enddate:Tdatetime。 strend: datetostr +39。 enddate: strtodatetime strend 。 .AsString: 。 39。zrq39。 .Value: 1。 39。gd_zfbc39。 .Value: 1。 39。 39。ls_sfbc39。 .Value: 1。 39。ls_39。 .Value: 39。 rep_grion: 39。個人交款統(tǒng)計報表 39。 rep_grion: 39。收費員代碼： 39。+。 rep_gression: 39。gd_zfje39。 .Value。 rep_gression: 39。gd_zfjlh39。 .Value。 rep_gression: 39。ls_zfbc39。 .Value。 rep_grion: 39。gd_sfje39。 rep_gression: 39。 .Value。ls_sfje39。 .Value+ 39。gd_zfje39。 rep_gression: 39。 .Value。gd_zfje39。ls_zfje39。 rep_grion: 39。] 。 end。 end。 begin if key 13 then 。 Shift: TShiftState 。 var Key: Word。 procedure Sender: TObject。 end。 Shift: TShiftState 。 begin if key 13 then 。 end。 procedure Sender: TObject。 var Key: Word。 procedure Sender: TObject 。 rep_griew。+datetimetostr [39。 frm_e。ls_sfje39。gd_sfje39。 .Value+ 39。ls_zfje39。 .Value。 rep_gression: 39。gd_sfje39。 . 39。gd_zfje39。 .Value。ls_39。 rep_gression: 39。 .Value。ls_sfbc39。 rep_gression: 39。 .Value。gd_min39。 rep_gression: 39。 .Value。gd_sfje39。 rep_grion: 39。+strend。統(tǒng)計起日期 :39。+。 。 39。 .Value: 1。ls_zfbc39。 39。 .Value: 1。 .Value: 39。gd_39。 39。 .Value: 1。gd_sfbc39。 39。 .Value: startdate。code39。 39。+timetostr 。 39。 procedure Sender: TObject 。 : [39。 frm_。 var frm_grjktj: Tfrm_grjktj。 procedure t2KeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 procedure FormCreate Sender: TObject 。 Label2: TLabel。 t1: TDateTimePicker。下面顯示個人收費資料打印運行效果圖如下： 其各控件的設(shè)計代碼如下： unit grjktj。 begin if key 13 then 。 end。 end。,39。 finally 。 系統(tǒng)應(yīng)用設(shè)置的運行效果圖如下： 其各控件的設(shè)計代碼如下： procedure Sender: TObject 。 。 ,39。 messagebox ,pchar 39。steven 提示 39?？ㄌ?[39。tmh39。delete gdcl_czda where tmh :tmh39。steven 提示 39。您真的要刪除卡號[39。 begin if not then begin str: query1[39。 。 procedure Sender: TObject。 end。 procedure Sender: TObject。請輸車庫車位 :39。 begin bz: 4。 。 。+cxfield。+ 39。 。 end。 end。 end。tmh39。 else cxstr: rightstr 39。 begin if bz 1 and trim 39。 。請輸入車牌號 39。 end。 : 39。 procedure Sender: TObject 。請輸入卡號： 39。 begin bz: 1。 begin frm_led: true。 。添加成功 39。,16 。 except 39。 frm_mByName 39。 .AsString: trim 。ckcw39。 .AsString: [39。qcms39。 frm_mByName 39。 .AsString: trim 。tmh39。 frm_e。steven提示 39。 end。 ,39。 if not frm_ then begin messagebox ,pchar 39。 frm_mByName 39。 end。steven 提示 39。39。 。車牌號不能為空！ 39。 end。steven 提示39。39。 ?？ㄌ柌荒芸眨?39。 procedure Sender: TObject 。 var Key: Word。 Shift: TShiftState 。 begin if key 13 then 。 end。 procedure Sender: TObject。 var Key: Word。 Shift: TShiftState 。 begin if key 13 then 。 end。 procedure Sender: TObject。+,9 。 begin if 39。 Shift: TShiftState 。 begin close。,8]。 begin ch: [39。 implementation uses sjmk, main。 procedure FormClose Sender: TObject。 procedure bzKeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 procedure qcmsKeyDown Sender: TObject。 Shift: TShiftState 。 var Key: Word。 var Key: Word。 procedure tmhKeyPress Sender: TObject。 bz: TEdit。 Label8: TLabel