unit_server_pacs_conclusion.~dfm

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

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
        Value = Null
      end
      item
        Name = '@chkid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end
      item
        Name = '@memid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@itemcode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@concode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@advcode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@manu'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
        Value = Null
      end
      item
        Name = '@ret'
        DataType = ftInteger
        Direction = pdInputOutput
        Value = 0
      end>
    Left = 144
    Top = 35
  end
end