unit_server_pacs_conclusion.dfm

a program written by delphi about middle layer

object jk_server_pacs_conclusion: Tjk_server_pacs_conclusion
  OldCreateOrder = False
  Pooled = False
  Left = 403
  Top = 281
  Height = 315
  Width = 389
  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 = 51
    Top = 36
  end
  object dsp_conclusion: TDataSetProvider
    DataSet = ado_conclusion
    Constraints = True
    Left = 230
    Top = 36
  end
  object adq_ip: TADOQuery
    Connection = adsChis
    Parameters = <>
    SQL.Strings = (
      'select * from jk_param')
    Left = 144
    Top = 120
  end
  object ds_ip: TDataSetProvider
    DataSet = adq_ip
    Constraints = True
    Left = 231
    Top = 119
  end
  object ado_conclusion: TADOStoredProc
    Connection = adsChis
    ProcedureName = 'jk_pacs_trans_con_adv;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
      end
      item
        Name = '@chkid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
      end
      item
        Name = '@memid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
      end
      item
        Name = '@itemcode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
      end
      item
        Name = '@concode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
      end
      item
        Name = '@advcode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
      end
      item
        Name = '@manu'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
      end>
    Left = 144
    Top = 35
  end
end