X
xxy888
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tprintvendor1.FormCreate(Sender: TObject);
var
adoquery1: TADOQuery;
begin
adoquery1 := TADOQuery.Create(nil);
adoquery1.Connection:=aimsform.ADOConnectionMSSQL;
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('Select fldvendorcode,fldvendorname1 From tblvendor');
adoquery1.Active:=true;
QRDBText1.DataSet:=adoquery1;
QRDBText1.DataField:='fldvendorcode';
end;
var
adoquery1: TADOQuery;
begin
adoquery1 := TADOQuery.Create(nil);
adoquery1.Connection:=aimsform.ADOConnectionMSSQL;
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('Select fldvendorcode,fldvendorname1 From tblvendor');
adoquery1.Active:=true;
QRDBText1.DataSet:=adoquery1;
QRDBText1.DataField:='fldvendorcode';
end;