以下具体详见集团数据看板程序

1. 在数据模块单元的创建事件下添加con的连接字符串
procedure TDataFrm.DataModuleCreate(Sender: TObject);
var
str:string;
begin
str:='Provider=SQLOLEDB.1;Password=123456789;Persist Security Info=True;'+
      'User ID=manager;Initial Catalog=gxcj;Data Source=192.168.13.30;';
con1.Connected:=False;
con1.ConnectionString:=str;
con1.LoginPrompt:=False;
con1.Connected:=True;
end;

2. 工程--显示源，把数据窗体放在前面，反正必须在显示数据窗口前运行
uses
  Forms,
  MmainU in 'MmainU.pas' {MainFr},
  DataU in 'DataU.pas' {DataFrm: TDataModule},
  。。。。
begin
  Application.Initialize;
  Application.CreateForm(TMainFr, MainFr);
  Application.CreateForm(TDataFrm, DataFrm);
  。。。。。
 
3. 然后再在要显示数据的窗口用代码控制ADOquery控件
procedure TCjCenterFr.FormShow(Sender: TObject);
var
i: Integer;
begin
  DataFrm.CjSDataQry.Close;
  DataFrm.CjSdataQry.SQL.Clear;
  DataFrm.CjSdataQry.SQL.Add(sql);
  DataFrm.CjSdataQry.open;
  dbgrd1.Columns[1].width:=160;
end;