ydedformula.dfm

详细的ERP设计资料

    Top = 274
  end
  inherited ActionList: TActionList
    Left = 299
    Top = 7
    inherited DeleteDetailAction: TAction [9]
      ImageIndex = -1
    end
    inherited NewDetailAction: TAction [10]
    end
    inherited SaveAsAction: TAction [11]
      ImageIndex = 11
    end
    inherited SubmitAction: TAction [12]
      ImageIndex = 8
    end
    inherited SendAsMailAction: TAction [13]
      ImageIndex = 8
    end
    inherited ImportAction: TAction [14]
      ImageIndex = 13
    end
    object DiscountMode: TAction [15]
      Caption = #25240#25187#26041#24335'(&D)'
      Hint = #35774#32622#24403#21069#21333#25454#30340#25240#25187#26041#24335
      ImageIndex = 7
    end
    inherited FindAction: TAction [16]
    end
    inherited CloseAction: TAction [17]
    end
    object FormulaAssembleAct: TAction
      Caption = #32452#21512'(&A)'
      OnExecute = FormulaAssembleActExecute
    end
  end
  inherited MainMenu: TMainMenu
    Left = 336
    Top = 10
    inherited EditMenuItem: TMenuItem
      object N41: TMenuItem [8]
        Action = FormulaAssembleAct
      end
    end
  end
  inherited DetailsPopupMenu: TPopupMenu
    Left = 376
    Top = 16
  end
  object ClientName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 146
    Top = 32
  end
  object EmployeeName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 197
    Top = 32
  end
  object GoodName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select *'#13#10'from DAGoods'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 91
    Top = 239
  end
  object GoodsOut: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select *'#13#10'from DAGoods'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 173
    Top = 239
  end
  object dsGoodsOut: TDataSource
    DataSet = GoodsOut
    Left = 173
    Top = 274
  end
  object DSClientName: TDataSource
    DataSet = ClientName
    Left = 149
    Top = 65
  end
  object DSEmployeeName: TDataSource
    DataSet = EmployeeName
    Left = 197
    Top = 65
  end
  object TempAds: TADODataSet
    Connection = CommonData.acnConnection
    Parameters = <>
    Left = 272
    Top = 239
  end
  object adsMaster: TADODataSet
    Tag = 11
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    CommandText = 
      'select *'#13#10'from YDFormulaMaster'#13#10'where RecordState<>'#39#21024#38500#39' and ID=:' +
      'ID'
    IndexFieldNames = 'ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 96
    Top = 32
    object adsMasterID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsMasterCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Visible = False
    end
    object adsMasterCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
      Visible = False
    end
    object adsMasterRecordState: TStringField
      FieldName = 'RecordState'
      Visible = False
      Size = 12
    end
    object adsMasterClientID: TIntegerField
      FieldName = 'ClientID'
      Visible = False
    end
    object adsMasterPeriodID: TIntegerField
      FieldName = 'PeriodID'
      Visible = False
    end
    object adsMasterEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
      Visible = False
    end
    object adsMasterOriginID: TIntegerField
      FieldName = 'OriginID'
      Visible = False
    end
    object adsMasterOriginTable: TStringField
      FieldName = 'OriginTable'
      Visible = False
      Size = 30
    end
    object adsMasterBillAffix: TBytesField
      FieldName = 'BillAffix'
      Visible = False
      Size = 50
    end
    object adsMasterCode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'Code'
    end
    object adsMasterDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'Date'
    end
    object adsMasterBillMode: TStringField
      DisplayLabel = #19994#21153#31867#21035
      FieldName = 'BillMode'
      Size = 16
    end
    object adsMasterBrief: TStringField
      DisplayLabel = #19994#21153#25688#35201
      FieldName = 'Brief'
      Size = 30
    end
    object adsMasterClearDate: TDateTimeField
      DisplayLabel = #32467#31639#26085#26399
      FieldName = 'ClearDate'
    end
    object adsMasterSundryFee: TBCDField
      FieldName = 'SundryFee'
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsMasterClientName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'ClientName'
      LookupDataSet = ClientName
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ClientID'
      Lookup = True
    end
    object adsMasterApportion: TStringField
      DisplayLabel = #20998#25674#35828#26126
      FieldName = 'Apportion'
      Size = 40
    end
    object adsMasterDeliver: TStringField
      DisplayLabel = #36865#36135
      FieldName = 'Deliver'
      Size = 40
    end
    object adsMasterMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 60
    end
    object adsMasterEmployee: TStringField
      FieldKind = fkLookup
      FieldName = 'Employee'
      LookupDataSet = EmployeeName
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'EmployeeID'
      Lookup = True
    end
    object adsMasterModeDC: TIntegerField
      FieldName = 'ModeDC'
      Visible = False
    end
    object adsMasterModeC: TIntegerField
      FieldName = 'ModeC'
      Visible = False
    end
    object adsMasterWarehouseID: TIntegerField
      FieldName = 'WarehouseID'
      Visible = False
    end
  end
  object adsDetail: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select  *  '#13#10'from YDFormulaDetail'#13#10'where MasterID = :ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 50
    Top = 239
    object adsDetailID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsDetailMasterID: TIntegerField
      FieldName = 'MasterID'
      Visible = False
    end
    object adsDetailGoodsID: TIntegerField
      DisplayLabel = #25237#20837#26448#26009'ID'
      FieldName = 'GoodsID'
      OnChange = adsDetailGoodsIDChange
    end
    object adsDetailGoodsName: TStringField
      DisplayLabel = #25237#20837#26448#26009#21517#31216
      FieldKind = fkLookup
      FieldName = 'GoodsName'
      LookupDataSet = GoodName
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoodsID'
      Lookup = True
    end
    object adsDetailGoodsSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'GoodsSpec'
      Size = 30
    end
    object adsDetailQuantity: TBCDField
      DisplayLabel = #25237#20837#25968#37327
      FieldName = 'Quantity'
      OnChange = adsDetailQuantityChange
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsDetailPackUnitID: TIntegerField
      DisplayLabel = #25237#20837#21333#20301'ID'
      FieldName = 'PackUnitID'
      Visible = False
    end
    object adsDetailPackUnitName: TStringField
      DisplayLabel = #25237#20837#21333#20301
      FieldKind = fkLookup
      FieldName = 'PackUnitName'
      LookupDataSet = AdsPackunit
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'PackUnitID'
      Lookup = True
    end
    object adsDetailPriceBase: TBCDField
      DisplayLabel = #25104#26412#21333#20215
      FieldName = 'PriceBase'
      OnChange = adsDetailQuantityChange
      DisplayFormat = '#,#.000'
      EditFormat = '#.#'
      Precision = 19
    end
    object adsDetailPriceCost: TBCDField
      FieldName = 'PriceCost'
      Precision = 19
      Size = 5
    end
    object adsDetailAmount: TBCDField
      DisplayLabel = #25237#20837#37329#39069
      FieldName = 'Amount'
      currency = True
      Precision = 19
      Size = 5
    end
    object adsDetailGoodsOutID: TIntegerField
      DisplayLabel = #20135#20986#20135#21697'ID'
      FieldName = 'GoodsOutID'
      OnChange = adsDetailGoodsOutIDChange
    end
    object adsDetailGoodsOut: TStringField
      DisplayLabel = #20135#20986#20135#21697
      FieldKind = fkLookup
      FieldName = 'GoodsOut'
      LookupDataSet = GoodsOut
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoodsOutID'
      Lookup = True
    end
    object adsDetailGoalQuantity: TBCDField
      DisplayLabel = #20135#20986#25968#37327
      FieldName = 'GoalQuantity'
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsDetailGoalUnitID: TIntegerField
      DisplayLabel = #20135#20986#21333#20301'ID'
      FieldName = 'GoalUnitID'
      Visible = False
    end
    object adsDetailGoalUnitName: TStringField
      DisplayLabel = #20135#20986#21333#20301
      FieldKind = fkLookup
      FieldName = 'GoalUnitName'
      LookupDataSet = GoalUnit
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoalUnitID'
      Lookup = True
    end
    object adsDetailTaxAmount: TBCDField
      DisplayLabel = #31995#25968
      FieldName = 'TaxAmount'
      DisplayFormat = '#,#.00'
      Precision = 19
    end
    object adsDetailSundryFee: TBCDField
      DisplayLabel = #24635#25104#26412
      FieldName = 'SundryFee'
      DisplayFormat = '#,#.00'
      EditFormat = '#.#'
      currency = True
      Precision = 19
      Size = 5
    end
    object adsDetailQuantityPcs: TBCDField
      DisplayLabel = #21333#20301#25104#26412
      FieldName = 'QuantityPcs'
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object adsDetailMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Memo'
      Size = 30
    end
    object adsDetailDiscount: TBCDField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'Discount'
      Visible = False
      currency = True
      Precision = 19
    end
  end
  object adsGoodsSpec: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select *'#13#10'from DAGoods'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 132
    Top = 239
    object adsGoodsSpecID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object adsGoodsSpecCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object adsGoodsSpecCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
    end
    object adsGoodsSpecRecordState: TStringField
      FieldName = 'RecordState'
      Size = 12
    end
    object adsGoodsSpecUpid: TIntegerField
      FieldName = 'Upid'
    end
    object adsGoodsSpecName: TStringField
      FieldName = 'Name'
      Size = 60
    end
    object adsGoodsSpecMemo: TStringField
      FieldName = 'Memo'
      Size = 60
    end
    object adsGoodsSpecLevelCode: TStringField
      FieldName = 'LevelCode'
      Size = 30
    end
  end
  object dsGoodName: TDataSource
    DataSet = GoodName
    Left = 132
    Top = 274
  end
  object GoalUnit: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'select ID, Name, ExchangeRate, GoalUnitID, IsGoalUnit'#13#10'from    M' +
      'SUnit'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 238
    Top = 239
  end
  object dsGoalUnit: TDataSource
    DataSet = GoalUnit
    Left = 238
    Top = 274
  end
  object AdsPackunit: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'select ID, Name, ExchangeRate, GoalUnitID, IsGoalUnit'#13#10'from    M' +
      'SUnit'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 205
    Top = 239
  end
  object dsPackunit: TDataSource
    DataSet = AdsPackunit
    Left = 205
    Top = 274
  end
  object DataSource1: TDataSource
    DataSet = GoodsOut
    Left = 93
    Top = 274
  end
  object FormulaAssembleADS: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    CommandText = 
      'select   b.ID,  a.GoodsID, '#13#10'b.BillMode ['#28165#21333#31867#21035'],b.brief as ['#28165#21333#21517#31216']' +
      ', '#13#10'b.Code as ['#32534#21495'],b.Date ['#26085#26399'],c.name ['#25237#20837#26448#26009'], '#13#10'a.Quantity ['#25237#20837#25968#37327 +
      '],d.name ['#21333#20301'],b.RecordState  ['#28165#21333#29366#24577'] '#13#10'from YDFormulaDetail  a '#13#10 +
      'left outer join  YDFormulaMaster b on b.ID=a.MasterID  '#13#10'left ou' +
      'ter join  DAGoods c  on             c.ID=a.GoodsID '#13#10'left outer ' +
      'join  MSUnit    d   on             d.ID=c.UnitID '#13#10'WHERE b.RECOR' +
      'DSTATE<>'#39#21024#38500#39#13#10'order by a.ID DESC '
    Parameters = <>
    Left = 232
    Top = 428
    object FormulaAssembleADSID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object FormulaAssembleADSGoodsID: TIntegerField
      FieldName = 'GoodsID'
      Visible = False
    end
    object FormulaAssembleADSDSDesigner: TStringField
      FieldName = #28165#21333#31867#21035
      Size = 16
    end
    object FormulaAssembleADSDSDesigner2: TStringField
      FieldName = #28165#21333#21517#31216
      Size = 30
    end
    object FormulaAssembleADSDSDesigner3: TStringField
      FieldName = #32534#21495
    end
    object FormulaAssembleADSDSDesigner4: TDateTimeField
      FieldName = #26085#26399
    end
    object FormulaAssembleADSDSDesigner5: TStringField
      FieldName = #25237#20837#26448#26009
      Size = 60
    end
    object FormulaAssembleADSDSDesigner6: TBCDField
      FieldName = #25237#20837#25968#37327
      DisplayFormat = '#,#.00'
      Precision = 19
      Size = 5
    end
    object FormulaAssembleADSDSDesigner7: TStringField
      FieldName = #21333#20301
    end
    object FormulaAssembleADSDSDesigner8: TStringField
      FieldName = #28165#21333#29366#24577
      Size = 12
    end
  end
  object FormulaAssembleDS: TDataSource
    DataSet = FormulaAssembleADS
    Left = 278
    Top = 426
  end
end