开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
RemoteDM.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

RemoteDM.pas：源码内容
  1. unit RemoteDM;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComServ, ComObj, VCLCom, StdVcl, DataBkr, AppServTwo_TLB, Db,
  8.   DBTables, Provider, DBXpress, FMTBcd, SqlExpr;
  10. type
  11.   TRdmCount = class(TRemoteDataModule, IRdmCount)
  12.     DataSetProvider1: TDataSetProvider;
  13.     SQLConnection1: TSQLConnection;
  14.     SQLDataSet1: TSQLDataSet;
  15.     SQLDataSet1DEPT_NO: TStringField;
  16.     SQLDataSet1EMP_NO: TSmallintField;
  17.     SQLDataSet1FIRST_NAME: TStringField;
  18.     SQLDataSet1HIRE_DATE: TSQLTimeStampField;
  19.     SQLDataSet1JOB_CODE: TStringField;
  20.     SQLDataSet1JOB_COUNTRY: TStringField;
  21.     SQLDataSet1JOB_GRADE: TSmallintField;
  22.     SQLDataSet1LAST_NAME: TStringField;
  23.     SQLDataSet1PHONE_EXT: TStringField;
  24.     SQLDataSet1SALARY: TFMTBCDField;
  25.   protected
  26.     class procedure UpdateRegistry(Register: Boolean; const ClassID,
  27.       ProgID: string); override;
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   RdmCount: TRdmCount;
  35. implementation
  37. {$R *.DFM}
  39. class procedure TRdmCount.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
  40. begin
  41.   if Register then
  42.   begin
  43.     inherited UpdateRegistry(Register, ClassID, ProgID);
  44.     EnableSocketTransport(ClassID);
  45.     EnableWebTransport(ClassID);
  46.   end else
  47.   begin
  48.     DisableSocketTransport(ClassID);
  49.     DisableWebTransport(ClassID);
  50.     inherited UpdateRegistry(Register, ClassID, ProgID);
  51.   end;
  52. end;
  54. initialization
  55.   TComponentFactory.Create(ComServer, TRdmCount,
  56.     Class_RdmCount, ciMultiInstance);
  57. end.