unit2.dfm

来自「Delphi_7.0数据库开发源代码。有内容十一章节」· DFM 代码 · 共 61 行

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 178
  Top = 281
  Height = 157
  Width = 194
  object StoredProc1: TStoredProc
    DatabaseName = 'IBLocal'
    StoredProcName = 'MAIL_LABEL'
    Left = 120
    Top = 24
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CUST_NO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'LINE1'
        ParamType = ptOutput
        Value = '                                        '
      end
      item
        DataType = ftString
        Name = 'LINE2'
        ParamType = ptOutput
        Value = Null
      end
      item
        DataType = ftString
        Name = 'LINE3'
        ParamType = ptOutput
        Value = '                                        '
      end
      item
        DataType = ftString
        Name = 'LINE4'
        ParamType = ptOutput
        Value = '                                        '
      end
      item
        DataType = ftString
        Name = 'LINE5'
        ParamType = ptOutput
        Value = Null
      end
      item
        DataType = ftString
        Name = 'LINE6'
        ParamType = ptOutput
        Value = Null
      end>
  end
  object DataSource1: TDataSource
    DataSet = StoredProc1
    Left = 40
    Top = 24
  end
end