unit11.pas

人寿保险管理系统,没有解压密码

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;
    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;
      guo.Active:=true;
    end;
end;

end.