組合SQL 的參數小元件

發文回覆瀏覽次數：813

推到 Plurk!

推到 Facebook!

liorex
初階會員

發表：19
回覆：60
積分：32
註冊：2002-08-20

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-06-10 00:52:38

IP:61.64.xxx.xxx 未訂閱

有時候需要自己組SQL 的時候常常因為沒有名稱的識別方式要自己對參數位置需要很小心所以寫了小元件來幫忙 Example

    procedure TForm1.Button2Click(Sender: TObject);
const
  mSQl = 'Insert into  Test (TEST1,TEST2,TEST3 ) ' 
         ' values (:TEST1,:TEST2,:TEST3) ' ;
begin
  RexSqlMakeer1.InitSQL:= mSQl ;
  with RexSqlMakeer1 do
  begin
     ParamByname('TEST1').asInteger := 123;
     ParamByname('TEST2').asstring := 'RexTest';
     ParamByname('TEST3').asFloat := 123.999;
     Memo1.text := MakeSQL;
  end;    end;

---------------------- 一切有為法如夢幻泡影如露亦如電應做如是觀 ----------------------

附加檔案：51570_comp+Example.exe

系統時間：2024-05-12 1:46:29

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！