1.DM:
procedure TDataModule2.DataModuleCreate(Sender: TObject);
var con:string;
begin
try
con:='Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;Initial Catalog=QXWeb;Data Source=AQQ';
ADOConnection1.ConnectionString :=CON;
ADOConnection1.Connected :=true;
except
end;
end;
2.另一个文件 :
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
VAR
sql1:string;
begin
sql1:='select b.uid,g.gid from BUser b,gonggao g';
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Add(sql1);
DataModule2.ADOQuery1.Open;
end;