jk_unit_frmpacscommunication.dfm

a program written by delphi about middle layer

object frmPacsCommunication: TfrmPacsCommunication
  Left = 428
  Top = 192
  Width = 225
  Height = 480
  BorderIcons = [biSystemMenu]
  Caption = 'PACA'#36890#35759#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShortCut = FormShortCut
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 217
    Height = 49
    Align = alTop
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 0
    object Label1: TLabel
      Left = 69
      Top = 22
      Width = 60
      Height = 13
      Caption = #31471#21475#29366#24577#65306
    end
    object lblStatus: TLabel
      Left = 140
      Top = 22
      Width = 73
      Height = 13
      AutoSize = False
      Caption = 'lblStatus'
    end
    object btnConnect: TButton
      Left = 4
      Top = 16
      Width = 53
      Height = 25
      Caption = #36830#25509
      TabOrder = 0
      OnClick = btnConnectClick
    end
  end
  object pclog: TPageControl
    Left = 0
    Top = 49
    Width = 217
    Height = 404
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #25968#25454#36890#35759#35760#24405
      object lbcomm: TListBox
        Left = 0
        Top = 0
        Width = 209
        Height = 373
        Align = alClient
        BevelInner = bvNone
        BevelOuter = bvNone
        Ctl3D = False
        ItemHeight = 13
        ParentCtl3D = False
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = #32593#32476#36830#25509#35760#24405
      ImageIndex = 1
      object lbconn: TListBox
        Left = 0
        Top = 0
        Width = 209
        Height = 373
        Align = alClient
        BevelInner = bvNone
        BevelOuter = bvNone
        Ctl3D = False
        ItemHeight = 13
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 0
      end
    end
  end
  object dmc_query: TDCOMConnection
    ServerGUID = '{4B57C93B-912F-40FE-9AF5-4E118B13D4B9}'
    ServerName = 'jk_server_nls.jk_server_pacs_query'
    Left = 72
    Top = 272
  end
  object cds_query: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_node'
    RemoteServer = dmc_query
    Left = 112
    Top = 272
  end
  object cds_port: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_pacs_port'
    RemoteServer = dmc_query
    Left = 152
    Top = 272
  end
  object pacsClient: TClientSocket
    Active = False
    Address = '172.24.33.185'
    ClientType = ctNonBlocking
    Host = '172.24.33.185'
    Port = 12000
    OnConnect = pacsClientConnect
    OnDisconnect = pacsClientDisconnect
    OnError = pacsClientError
    Left = 111
    Top = 320
  end
  object tmPacsConn: TTimer
    Interval = 60000
    OnTimer = tmPacsConnTimer
    Left = 72
    Top = 320
  end
  object PopupMenu1: TPopupMenu
    Left = 152
    Top = 320
    object N1: TMenuItem
      Caption = #28165#38500#36830#25509#35760#24405
      OnClick = N1Click
    end
  end
end