unit_pacs_invoke_query.dfm

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

object dmPacsQuery: TdmPacsQuery
  OldCreateOrder = True
  Left = 429
  Top = 295
  Height = 277
  Width = 387
  object dmc_query: TDCOMConnection
    ServerGUID = '{4B57C93B-912F-40FE-9AF5-4E118B13D4B9}'
    ServerName = 'jk_server_nls.jk_server_pacs_query'
    Left = 64
    Top = 40
  end
  object cds_query: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_part'
    RemoteServer = dmc_query
    Left = 168
    Top = 40
  end
  object csmit: TClientSocket
    Active = False
    Address = '172.24.33.185'
    ClientType = ctNonBlocking
    Host = '172.24.33.185'
    Port = 12000
    OnRead = csmitRead
    OnError = csmitError
    Left = 64
    Top = 136
  end
  object cds_port: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_pacs_port'
    RemoteServer = dmc_query
    Left = 272
    Top = 40
  end
end