datamodule.dfm

这是一个三层的进销存系统

object Data: TData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 213
  Top = 151
  Height = 168
  Width = 556
  object ADOConnection: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 20
  end
  object QGetdata: TADOQuery
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    Parameters = <>
    Left = 182
    Top = 20
  end
  object CDSgetdata: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPgetdata'
    Left = 258
    Top = 20
  end
  object DSPgetdata: TDataSetProvider
    DataSet = QGetdata
    Left = 333
    Top = 20
  end
  object Qcommon: TADOQuery
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    Parameters = <>
    Left = 107
    Top = 20
  end
  object Sgetoutnumber: TADOStoredProc
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    ProcedureName = 'pgetoutNumber;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@billtype'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@outNumber'
        Attributes = [paNullable]
        DataType = ftWideString
        Direction = pdInputOutput
        Size = 50
        Value = Null
      end>
    Left = 409
    Top = 20
  end
  object Sgetinnumber: TADOStoredProc
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    ProcedureName = 'pGetinNumber;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Billtype'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@InNumBer'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 484
    Top = 20
  end
  object Spurchasedetail: TADOStoredProc
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    ProcedureName = 'pprocess;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@totalitemid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 24
    Top = 84
  end
  object CDSpurchasedetail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPpurchasedetail'
    Left = 124
    Top = 84
  end
  object DSPpurchasedetail: TDataSetProvider
    DataSet = Spurchasedetail
    UpdateMode = upWhereKeyOnly
    Left = 224
    Top = 84
  end
end