sampledbgw.dfm

数据库封装原代码 1. 该代码可以免费使用, 该代码的名字暂时定为"哲别" 2. 如果你需要使用该代码, 请注明该代码的原来作者: Jacky Zhou 3. 如果你发现该代码有bug,可以自己修改

inherited dmSampleDBGW: TdmSampleDBGW
  OldCreateOrder = False
  Left = 800
  Top = 137
  Height = 150
  Width = 215
  object spGetSequence: TStoredProc
    DatabaseName = 'dbname'
    StoredProcName = 'sp_GetSequence;1'
    Left = 56
    Top = 40
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 131840656
      end
      item
        DataType = ftString
        Name = '@strFromID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@strToID'
        ParamType = ptInput
      end>
  end
end