ydedproductformula.dfm

详细的ERP设计资料

    DataSet = adsYDProductFormula
    Left = 24
    Top = 184
  end
  inherited DetailDataSource: TDataSource
    DataSet = adsYDProductFormulaIn
    Left = 56
    Top = 184
  end
  inherited ActionList: TActionList
    Left = 88
    Top = 184
    object GetDefaultAction: TAction
      Caption = #21462#40664#35748#20998#37197#31995#32479
      ShortCut = 114
      OnExecute = GetDefaultActionExecute
    end
    object CalcCostAction: TAction
      Caption = #35745#31639#25104#26412
      ShortCut = 115
      OnExecute = CalcCostActionExecute
    end
  end
  inherited MainMenu: TMainMenu
    Left = 120
    Top = 184
  end
  object adsYDProductFormula: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'SELECT * FROM YDProductFormulamaster'#13#10'WHERE ID = :ID and RecordS' +
      'tate <>'#39#21024#38500#39
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 24
    Top = 216
    object adsYDProductFormulaID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object adsYDProductFormulaCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object adsYDProductFormulaCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
    end
    object adsYDProductFormulaRecordState: TStringField
      FieldName = 'RecordState'
      Size = 12
    end
    object adsYDProductFormulaDate: TDateTimeField
      FieldName = 'Date'
    end
    object adsYDProductFormulaCode: TStringField
      FieldName = 'Code'
    end
    object adsYDProductFormulaBrief: TStringField
      FieldName = 'Brief'
      Size = 30
    end
    object adsYDProductFormulaFormulaClass: TStringField
      FieldName = 'FormulaClass'
    end
    object adsYDProductFormulaMemo: TMemoField
      FieldName = 'Memo'
      BlobType = ftMemo
    end
  end
  object adsYDProductFormulaIn: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    OnNewRecord = adsYDProductFormulaInNewRecord
    CommandText = 'SELECT * FROM YDProductFormulaDetial'#13#10' WHERE MasterID = :ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 56
    Top = 216
    object adsYDProductFormulaInID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsYDProductFormulaInMasterID: TIntegerField
      FieldName = 'MasterID'
      Visible = False
    end
    object adsYDProductFormulaInGoodsID: TIntegerField
      FieldName = 'GoodsID'
      Visible = False
      OnChange = adsYDProductFormulaInGoodsIDChange
    end
    object adsYDProductFormulaInGoodsName: TStringField
      DisplayLabel = #25237#20837#26448#26009
      FieldKind = fkLookup
      FieldName = 'GoodsName'
      LookupDataSet = CommonData.adsDAGoods
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoodsID'
      Size = 30
      Lookup = True
    end
    object adsYDProductFormulaInUnitId: TIntegerField
      FieldName = 'UnitId'
      Visible = False
    end
    object adsYDProductFormulaInUnitName: TStringField
      DisplayLabel = #25237#20837#21333#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = adsMSUnit
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'UnitId'
      OnChange = adsYDProductFormulaInUnitNameChange
      Lookup = True
    end
    object adsYDProductFormulaInQuantity: TBCDField
      DisplayLabel = #25237#20837#25968#37327
      FieldName = 'Quantity'
      Visible = False
      Precision = 18
      Size = 0
    end
    object adsYDProductFormulaInGoalQuantity: TBCDField
      DisplayLabel = #25237#20837#26631#20934#25968#37327
      FieldName = 'GoalQuantity'
      OnChange = adsYDProductFormulaInGoalQuantityChange
      Precision = 18
      Size = 0
    end
    object adsYDProductFormulaInGoalUnitCost: TBCDField
      DisplayLabel = #25104#26412#21333#20215
      FieldName = 'GoalUnitCost'
      OnChange = adsYDProductFormulaInGoalUnitCostChange
      currency = True
      Precision = 18
      Size = 0
    end
    object adsYDProductFormulaInCost: TBCDField
      DisplayLabel = #25104#26412
      FieldName = 'Cost'
      currency = True
      Precision = 18
      Size = 0
    end
  end
  object adsYDProductFormulaOut: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    OnNewRecord = adsYDProductFormulaOutNewRecord
    CommandText = 'SELECT * FROM YDProductFormulaOut WHERE MasterID = :ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 72
    Top = 312
    object adsYDProductFormulaOututoIncField1: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object IntegerField1: TIntegerField
      FieldName = 'MasterID'
      Visible = False
    end
    object IntegerField2: TIntegerField
      FieldName = 'GoodsID'
      Visible = False
    end
    object StringField1: TStringField
      DisplayLabel = #20135#20986#21830#21697
      FieldKind = fkLookup
      FieldName = 'GoodsName'
      LookupDataSet = CommonData.adsDAGoods
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoodsID'
      Size = 30
      Lookup = True
    end
    object IntegerField3: TIntegerField
      FieldName = 'UnitId'
      Visible = False
    end
    object StringField2: TStringField
      DisplayLabel = #20135#20986#21333#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = CommonData.adsMSUnit
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'UnitId'
      Lookup = True
    end
    object BCDField1: TBCDField
      DisplayLabel = #20135#20986#25968#37327
      FieldName = 'Quantity'
      Visible = False
      Precision = 18
      Size = 0
    end
    object adsYDProductFormulaOutCostRate: TBCDField
      DisplayLabel = #20998#37197#31995#25968
      FieldName = 'CostRate'
      Precision = 18
      Size = 0
    end
    object BCDField2: TBCDField
      DisplayLabel = #20135#20986#26631#20934#25968#37327
      FieldName = 'GoalQuantity'
      OnChange = BCDField2Change
      Precision = 18
      Size = 0
    end
    object BCDField3: TBCDField
      DisplayLabel = #26631#20934#21333#20301#25104#26412
      FieldName = 'GoalUnitCost'
      currency = True
      Precision = 18
      Size = 0
    end
    object BCDField4: TBCDField
      DisplayLabel = #20135#20986#25104#26412
      FieldName = 'Cost'
      currency = True
      Precision = 18
      Size = 0
    end
  end
  object dsYDProductFormulaOut: TDataSource
    DataSet = adsYDProductFormulaOut
    Left = 32
    Top = 312
  end
  object adsFormulaClass: TADODataSet
    Connection = CommonData.acnConnection
    CommandText = 
      'SELECT distinct FormulaClass FROM YDProductFormula'#13#10'WHERE Record' +
      'State<>'#39#21024#38500#39
    Parameters = <>
    Left = 592
    Top = 56
  end
  object adsMSUnit: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'SELECT * FROM MSUnit WHERE RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 208
    Top = 176
  end
  object adrQuery: TADOQuery
    Connection = CommonData.acnConnection
    Parameters = <>
    Left = 536
    Top = 48
  end
  object ADSDAgoods: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'SELECT *  FROM DAGoods '#13#10'WHERE RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 152
    Top = 304
  end
  object DSDAgoods: TDataSource
    DataSet = ADSDAgoods
    Left = 256
    Top = 328
  end
end