unit2.pas

来自「应对服装行业的生产成本控制系统」· PAS 代码 · 共 108 行

unit Unit2;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, Project1_TLB, StdVcl, Provider, DB, DBTables;

type
  Tfzcbhsglxt = class(TRemoteDataModule, Ifzcbhsglxt)
    Database1: TDatabase;
    Session1: TSession;
    Query1: TQuery;
    DataSetProvider1: TDataSetProvider;
    Query2: TQuery;
    DataSetProvider2: TDataSetProvider;
    Query3: TQuery;
    DataSetProvider3: TDataSetProvider;
    DataSetProvider4: TDataSetProvider;
    Query4: TQuery;
    DataSetProvider5: TDataSetProvider;
    Query5: TQuery;
    DataSetProvider6: TDataSetProvider;
    Query6: TQuery;
    DataSetProvider7: TDataSetProvider;
    Query7: TQuery;
    DataSetProvider8: TDataSetProvider;
    Query8: TQuery;
    Query9: TQuery;
    DataSetProvider9: TDataSetProvider;
    Query10: TQuery;
    DataSetProvider10: TDataSetProvider;
    Query11: TQuery;
    DataSetProvider11: TDataSetProvider;
    DataSetProvider12: TDataSetProvider;
    Query12: TQuery;
    DataSetProvider13: TDataSetProvider;
    Query13: TQuery;
    DataSetProvider14: TDataSetProvider;
    Query14: TQuery;
    DataSetProvider15: TDataSetProvider;
    Query15: TQuery;
    DataSetProvider16: TDataSetProvider;
    Query16: TQuery;
    Query17: TQuery;
    DataSetProvider17: TDataSetProvider;
    Query18: TQuery;
    DataSetProvider18: TDataSetProvider;
    Query19: TQuery;
    DataSetProvider19: TDataSetProvider;
    DataSetProvider20: TDataSetProvider;
    Query20: TQuery;
    DataSetProvider21: TDataSetProvider;
    Query21: TQuery;
    DataSetProvider22: TDataSetProvider;
    Query22: TQuery;
    DataSetProvider23: TDataSetProvider;
    Query23: TQuery;
    DataSetProvider24: TDataSetProvider;
    Query24: TQuery;
    Query25: TQuery;
    DataSetProvider25: TDataSetProvider;
    Query26: TQuery;
    DataSetProvider26: TDataSetProvider;
    Query27: TQuery;
    DataSetProvider27: TDataSetProvider;
    DataSetProvider28: TDataSetProvider;
    Query28: TQuery;
    DataSetProvider29: TDataSetProvider;
    Query29: TQuery;
    DataSetProvider30: TDataSetProvider;
    Query30: TQuery;
    DataSetProvider31: TDataSetProvider;
    Query31: TQuery;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

class procedure Tfzcbhsglxt.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

initialization
  TComponentFactory.Create(ComServer, Tfzcbhsglxt,
    Class_fzcbhsglxt, ciMultiInstance, tmApartment);
end.