unit_server_pacs.~pas

来自「a program written by delphi about middle」· ~PAS 代码 · 共 73 行

unit Unit_Server_Pacs;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComServ, ComObj, VCLCom, StdVcl, bdemts, DataBkr, DBClient,
  MtsRdm, Mtx, jk_pacs_trans_TLB, DB, Provider, ADODB;

type
  Tjk_pacs_trans = class(TMtsDataModule, Ijk_pacs_trans)
    adsChis: TADOConnection;
    adq_ip: TADOQuery;
    dsp_ip: TDataSetProvider;
    adq_register: TADOQuery;
    dsp_register: TDataSetProvider;
    dsp_register_list: TDataSetProvider;
    adq_register_update: TADOQuery;
    adq_register_list: TADOQuery;
    adq_register_listtrans_id: TAutoIncField;
    adq_register_listcheck_id: TIntegerField;
    adq_register_listtrans_status: TStringField;
    adq_register_listdeleted_flag: TStringField;
    adq_register_listcheckintime: TDateTimeField;
    adq_register_listcheckouttime: TDateTimeField;
    adq_register_listtrans_class: TStringField;
    adq_register_listcheck_card_no: TStringField;
    adq_register_listpart: TStringField;
    adq_register_listoccupy_date: TDateTimeField;
    adq_register_listmember_id: TIntegerField;
    adq_register_listname: TStringField;
    adq_register_listsex: TStringField;
    adq_register_listbirthday: TStringField;
    adq_register_listidcard: TStringField;
    adq_register_listenglish_name: TStringField;
    dsp_log: TDataSetProvider;
    ads_log: TADOStoredProc;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  public
    { Public declarations }
  end;

var
  jk_pacs_trans: Tjk_pacs_trans;

implementation

{$R *.DFM}

class procedure Tjk_pacs_trans.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, Tjk_pacs_trans,
    Class_jk_pacs_trans, ciMultiInstance, tmNeutral);
end.