data_unit.~dfm

一个很不错的仓库管理系统,能容进各种软件中去,

object data: Tdata
  OldCreateOrder = False
  Left = 363
  Top = 195
  Height = 369
  Width = 499
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=silk;Data Source=SERVER'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 16
  end
  object proc: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'sp_GenOrdinal;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@name'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@value'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 9
        Value = Null
      end>
    Left = 88
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = proc
    Left = 24
    Top = 72
  end
  object goods_name: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'usrproduct'
    Left = 88
    Top = 120
  end
  object DataSource4: TDataSource
    DataSet = goods_name
    Left = 24
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = old_quantity
    Left = 24
    Top = 168
  end
  object old_quantity: TADOTable
    Connection = ADOConnection1
    TableName = 'v_storage'
    Left = 88
    Top = 168
  end
end