datashare.pas

来自「企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载」· PAS 代码 · 共 73 行

///////////////////////////////////
//模块名称：共用数据模块
//参数说明：query1,query2无编辑功能
//          Equery1,Equery2有编辑功能
///////////////////////////////////
unit datashare;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  Tdatashare_frm = class(TDataModule)
    Dbs: TDatabase;
    Common_Query: TQuery;
    UnitInfo_Query: TQuery;
    Query1: TQuery;
    Query2: TQuery;
    PersonalAccount_Query: TQuery;
    BeforRegister_Query: TQuery;
    RetireAccount_Query: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    BreakInfo_Query: TQuery;
    Query5: TQuery;
    Query6: TQuery;
    RetireAccountBat_Query: TQuery;
    Query7: TQuery;
    Query8: TQuery;
    Query9: TQuery;
    Query10: TQuery;
    Query11: TQuery;
    Query12: TQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  datashare_frm: Tdatashare_frm;

implementation

{$R *.dfm}

procedure Tdatashare_frm.DataModuleCreate(Sender: TObject);
begin
   Common_Query.DatabaseName :=Dbs.DatabaseName ;
   Query1.DatabaseName :=Dbs.DatabaseName ;
   Query2.DatabaseName :=Dbs.DatabaseName ;
   Query3.DatabaseName :=Dbs.DatabaseName ;
   Query4.DatabaseName :=Dbs.DatabaseName ;
   Query5.DatabaseName :=Dbs.DatabaseName ;
   Query6.DatabaseName :=Dbs.DatabaseName ;
   Query7.DatabaseName :=Dbs.DatabaseName ;
   Query8.DatabaseName :=Dbs.DatabaseName ;
   Query9.DatabaseName :=Dbs.DatabaseName ;
   Query10.DatabaseName:=Dbs.DatabaseName ;
   Query11.DatabaseName :=Dbs.DatabaseName ;
   Query12.DatabaseName :=Dbs.DatabaseName ;
   unitinfo_query.DatabaseName :=Dbs.DatabaseName ;
   PersonalAccount_Query.DatabaseName :=Dbs.DatabaseName ;
   BeforRegister_Query.DatabaseName :=Dbs.DatabaseName ;
   RetireAccount_Query.DatabaseName :=Dbs.DatabaseName ;
   RetireAccount_Query.DatabaseName :=Dbs.DatabaseName ;
   BreakInfo_Query.DatabaseName :=Dbs.DatabaseName ;
end;

end.