unit_pacs_conclusion.dfm

a program written by delphi about middle layer

      Width = 50
      Height = 19
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
      Text = 'edtPort'
    end
    object Button3: TButton
      Left = 677
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20851#38381#31995#32479
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 677
      Top = 40
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20445#23384#26085#24535
      TabOrder = 4
      OnClick = Button4Click
    end
    object edtregip: TEdit
      Left = 57
      Top = 40
      Width = 114
      Height = 19
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
      ParentCtl3D = False
      TabOrder = 5
      Text = 'edtregip'
    end
    object edtregport: TEdit
      Left = 216
      Top = 40
      Width = 50
      Height = 19
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 6
      Text = 'edtregport'
    end
    object Button5: TButton
      Left = 494
      Top = 40
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #25253#21040'.'#21551#21160
      TabOrder = 7
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 568
      Top = 40
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20572#27490
      TabOrder = 8
      OnClick = Button6Click
    end
  end
  object ssConServer: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnAccept = ssConServerAccept
    OnClientConnect = ssConServerClientConnect
    OnClientDisconnect = ssConServerClientDisconnect
    OnClientRead = ssConServerClientRead
    OnClientError = ssConServerClientError
    Left = 16
    Top = 96
  end
  object cds_ip: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'ds_ip'
    RemoteServer = dmcRegisterServer
    Left = 56
    Top = 136
  end
  object cds_con: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_conclusion'
    RemoteServer = dmcRegisterServer
    Left = 96
    Top = 136
  end
  object popOpt: TPopupMenu
    Left = 56
    Top = 96
    object N1: TMenuItem
      Caption = #26029#24320
      OnClick = N1Click
    end
  end
  object tmPacsTrans: TTimer
    Interval = 5000
    OnTimer = tmPacsTransTimer
    Left = 56
    Top = 224
  end
  object ssRegisterTrans: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ssRegisterTransConnect
    OnDisconnect = ssRegisterTransDisconnect
    OnRead = ssRegisterTransRead
    OnError = ssRegisterTransError
    Left = 16
    Top = 224
  end
  object dmcRegisterServer: TDCOMConnection
    ServerGUID = '{82E1B983-7511-43BA-8FD3-EE820DF2639B}'
    ServerName = 'jk_pacs_trans.jk_pacs_trans'
    Left = 16
    Top = 256
  end
  object cds_register_list: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_register_list'
    RemoteServer = dmcRegisterServer
    OnReconcileError = cds_register_listReconcileError
    Left = 96
    Top = 256
  end
  object cds_register: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_register'
    RemoteServer = dmcRegisterServer
    Left = 56
    Top = 256
  end
  object cds_register_update: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_register_update'
    RemoteServer = dmcRegisterServer
    Left = 56
    Top = 296
  end
  object tmConServer: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = tmConServerTimer
    Left = 96
    Top = 96
  end
  object tmRegConn: TTimer
    Enabled = False
    Interval = 15000
    OnTimer = tmRegConnTimer
    Left = 96
    Top = 224
  end
  object PopupMenu1: TPopupMenu
    Left = 16
    Top = 344
    object N2: TMenuItem
      Caption = #28165#38500#36830#25509#35760#24405
      OnClick = N2Click
    end
  end
  object tm1: TTimer
    Enabled = False
    Interval = 50000
    OnTimer = tm1Timer
    Left = 88
    Top = 344
  end
  object SaveLog: TSaveDialog
    Filter = 'RTF'#25991#20214#65288'*.RTF'#65289'|*.RTF|'#20840#37096'|*.*'
    Left = 88
    Top = 384
  end
  object tmResend: TTimer
    Enabled = False
    OnTimer = tmResendTimer
    Left = 136
    Top = 224
  end
  object SkinData1: TSkinData
    Active = False
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcSpin, xcPanel, xcGroupBox, xcStatusBar, xcTab, xcTrackBar, xcSystemMenu]
    Options = [xoPreview, xoToolbarBK]
    Skin3rd.Strings = (
      'TCategoryButtons=scrollbar'
      'TPngBitBtn=pngbitbtn'
      'TVirtualStringTree=scrollbar'
      'TVirtualDrawTree=scrollbar'
      'TTBXDockablePanel=Panel'
      'TAdvPanelGroup=scrollbar'
      'TComboboxex=combobox'
      'TRxSpeedButton=speedbutton'
      'THTMLViewer=scrollbar'
      'TDBCtrlGrid=scrollbar'
      'TfrSpeedButton=speedbutton'
      'TfrTBButton=speedbutton'
      'TControlBar=Panel'
      'TTBDock=Panel'
      'TTBToolbar=Panel'
      'TImageEnMView=scrollbar'
      'TImageEnView=scrollbar'
      'TAdvMemo=scrollbar'
      'TDBAdvMemo=scrollbar'
      'TcxDBLookupComboBox=combobox'
      'TcxDBComboBox=combobox'
      'TcxDBDateEdit=combobox'
      'TcxDBImageComboBox=combobox'
      'TcxDBCalcEdit=combobox'
      'TcxDBBlobEdit=combobox'
      'TcxDBPopupEdit=combobox'
      'TcxDBFontNameComboBox=combobox'
      'TcxDBShellComboBox=combobox'
      'TRxLookupEdit=combobox'
      'TRxDBLookupCombo=combobox'
      'TRzGroup=panel'
      'TRzButton=button'
      'TRzBitbtn=bitbtn'
      'TRzMenuButton=menubtn'
      'TRzCheckGroup=CheckGroup'
      'TRzRadioGroup=Radiogroup'
      'TRzButtonEdit=Edit'
      'TRzDBRadioGroup=Radiogroup'
      'TRzDBRadioButton=Radiobutton'
      'TRzDateTimeEdit=combobox'
      'TRzColorEdit=combobox'
      'TRzDateTimePicker=combobox'
      'TRzDBDateTimeEdit=combobox'
      'TRzDbColorEdit=combobox'
      'TRzDBDateTimePicker=combobox'
      'TLMDButton=bitbtn'
      'TLMDGroupBox=Groupbox'