unit_pacs_invoke_conclusion.pas

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

unit Unit_Pacs_Invoke_Conclusion;

interface

uses
  SysUtils, Classes, ScktComp, DB, DBClient, MConnect;

type
  TdmPacsConclusion = class(TDataModule)
    dmc_con_adv: TDCOMConnection;
    cds_con_adv: TClientDataSet;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmPacsConclusion: TdmPacsConclusion;

implementation

{$R *.dfm}

end.