我有一個FORM 有個ADOQUERY 另一個UNIT專門做DB 的動作 有一斷程式如下 WITH TADOQUERY的名稱 DO BEGIN END; 請問FORM中的ADOQUERY 如何用傳值方式 傳給UNIT使用

unit YoutUnit;    // ...    procedure DoSomething(qry: TADOQuery);
begin
  with qry do
  begin
    // ...
  end;
end;

然後要呼叫時, 就

uses YoutUnit;    procedure TForm1.Button1Click(Sender: TObject);
begin
  DoSomething(ADOQuery1);
end;

-- He just never quits.

您好： 首先，UNIT必須先USES FORM的UNIT 然後就可以透過FROM.ADOQuery.fieldbyname(欄位名稱).asxxxx來取用 ~~應無所住而生其心~~

hagar兄 出現錯誤了 unit Udbupdate; interface uses Classes, Windows, SysUtils, Forms, Messages,Dialogs; procedure selectTb(qry:tadoquery;var tb:string); 以上為我部分程式 [Error] Udbupdate.pas(23): Undeclared identifier: 'tadoquery'

加入紅色部份 其它有類似的狀況, 可以查 Help 看它是定義在哪個 Unit, 然後在 uses 中加入該 unit 即可.

unit Udbupdate;    interface    uses
  Classes, Windows, SysUtils, Forms, Messages,Dialogs, ADODB;    

-- He just never quits.

procedure Ttest_sqlm.btn_testClick(Sender: TObject); var qry1,tb1,d_cond:string; begin qry1:='test_sqlm.site_data'; =======>為form裡面的adoquery tb1:='abc'; d_cond:='a=''aa1'''; selectTb(qry1,tb1); DelTb(tb1,d_cond); end; 出現 [Error] frm_testdbm.pas(45): Incompatible types: 'TADOQuery' and 'String' 那form中的tadoquery的值 何傳過去

感恩喔 還是有問題 procedure Ttest_sqlm.btn_testClick(Sender: TObject); var qry1,tb1,d_cond:string; begin qry1:='test_sqlm.site_data'; =======>為form裡面的adoquery tb1:='abc'; d_cond:='a=''aa1'''; selectTb(qry1,tb1); DelTb(tb1,d_cond); end; 出現 [Error] frm_testdbm.pas(45): Incompatible types: 'TADOQuery' and 'String' 那form中的tadoquery的值 何傳過去

procedure Ttest_sqlm.btn_testClick(Sender: TObject);
var
  qry1: TADOQuery;
  tb1, d_cond: string;
begin
    qry1 := test_sqlm.site_date;
    tb1 := 'abc';
    d_cond := 'a=''aa1''';
    selectTb(qry1, tb1);
    DelTb(tb1, d_cond);
end;

-- He just never quits.

可否介紹一些delphi書籍 我想去買來 增加自己的實力