unit_server_pacs_query.dfm

a program written by delphi about middle layer

object jk_server_pacs_query: Tjk_server_pacs_query
  OldCreateOrder = False
  Pooled = False
  Left = 356
  Top = 269
  Height = 263
  Width = 378
  object adsChis: TADOConnection
    Connected = True
    ConnectionString = 
      'FILE NAME=C:\Program Files\Common Files\System\Ole DB\Data Links' +
      '\chis.udl'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 56
    Top = 40
  end
  object adq_node: TADOQuery
    Connection = adsChis
    Parameters = <
      item
        Name = 'node'
        DataType = ftString
        Size = 1
        Value = ' '
      end>
    SQL.Strings = (
      'declare @node varchar(4)'
      'select @node = :node'
      'select * from jk_zd_node where code = @node'
      '')
    Left = 152
    Top = 40
  end
  object dsp_node: TDataSetProvider
    DataSet = adq_node
    Constraints = True
    Left = 248
    Top = 40
  end
  object adq_pacs_port: TADOQuery
    Connection = adsChis
    Parameters = <>
    SQL.Strings = (
      'select * from jk_param where param_name = '#39'pacs_display_port'#39)
    Left = 152
    Top = 112
  end
  object dsp_pacs_port: TDataSetProvider
    DataSet = adq_pacs_port
    Constraints = True
    Left = 248
    Top = 112
  end
end