unit Unit11;

interface

uses
  Windows,Messages,Dialogs,SysUtils,Forms,
   Classes, DB, ADODB,inifiles,Controls,Variants;

type
  Tmydm = class(TDataModule)
    ADOConnection1: TADOConnection;
    policyquery: TADOQuery;
    insquery: TADOQuery;
    policysrc: TDataSource;
    inssrc: TDataSource;
    query: TADOQuery;
    DataSource1: TDataSource;
    benesrc: TDataSource;
    beneQuery: TADOQuery;
    clasQuery: TADOQuery;
    classrc: TDataSource;
    userQuery: TADOQuery;
    usersrc: TDataSource;
    cust1query: TADOQuery;
    cust1src: TDataSource;
    custquery: TADOQuery;
    custsrc: TDataSource;
    billQuery: TADOQuery;
    Billsrc: TDataSource;
    fanQuery: TADOQuery;
    fansrc: TDataSource;
    back: TADOQuery;
    guo: TADOQuery;
    guosrc: TDataSource;
    find: TADOQuery;
    jpQuery: TADOQuery;
    jpsrc: TDataSource;
    bpQuery: TADOQuery;
    bpsrc: TDataSource;
    reQuery: TADOQuery;
    resrc: TDataSource;
    empQuery: TADOQuery;
    empsrc: TDataSource;
    compQuery: TADOQuery;
    compsrc: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    comprepQuery: TADOQuery;
    comprepsrc: TDataSource;
    comp1Query: TADOQuery;
    comp1src: TDataSource;
    baochaquery: TADOQuery;
    baochasrc: TDataSource;
    billsumQuery: TADOQuery;
    billsumsrc: TDataSource;
    billbaoQuery: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mydm: Tmydm;

implementation
  //uses unit13;
{$R *.dfm}

procedure Tmydm.DataModuleCreate(Sender: TObject);
begin
    with mydm do
    begin
      Cust1query.Active:=true;
      Policyquery.Active:=true;
      Insquery.Active:=true;
      Benequery.Active:=true;
      Clasquery.Active:=true;
      Custquery.Active:=true;
      Query.Active:=true;
      Userquery.Active:=true;
      Fanquery.Active:=true;
      Billquery.Active:=true;
      
    end;
end;

end.