~{NRPhR*WT;-Pr:E#,Hg9{~}DBgridEH.dataset := tquery,~{DGC4OBCf5D4zBk;a75;X~}-1
~{J9SC~}adoquery~{TrC;SPNJLb#,T-O5M3J9SC~}Tquery~{SC~}datamodule~{M3R;9\@m~},
~{TuQySC~}adoquery~{4zBkK|#,6/L,=(A"5DJ1:rR*IhVC~}adoquery~{5D~}connectionstring~{6xTZ~}tquery~{@oCfC;SP~}connectionstring,~{Ub8vSPC;SP:C5D=b>v0l7(#?~}
~{P;P;~}procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
var
i: integer;
begin
if DataCol = 0 then
begin
i := DBGridEh1.DataSource.DataSet.RecNo;
DBGridEh1.Canvas.TextOut(rect.Left, rect.Top, IntToStr(i));
end;
end;
~{J9SC~}adoquery~{TrC;SPNJLb#,T-O5M3J9SC~}Tquery~{SC~}datamodule~{M3R;9\@m~},
~{TuQySC~}adoquery~{4zBkK|#,6/L,=(A"5DJ1:rR*IhVC~}adoquery~{5D~}connectionstring~{6xTZ~}tquery~{@oCfC;SP~}connectionstring,~{Ub8vSPC;SP:C5D=b>v0l7(#?~}
~{P;P;~}procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
var
i: integer;
begin
if DataCol = 0 then
begin
i := DBGridEh1.DataSource.DataSet.RecNo;
DBGridEh1.Canvas.TextOut(rect.Left, rect.Top, IntToStr(i));
end;
end;
当dbgrideh.datasource := tAdoquery 的时候下面的代码返回的recno=1,2,3,4...系统设计的时候使用tquery,现在改很cool的。
我想用tadoquery代替它,但ado要设connection,Tquery没有提供这个。
如果用adoquery.datasource:=tquery.datasource不行,请问有没有其它办法?
谢谢