wsedsales.dfm

详细的ERP设计资料

      EditFormat = '00'
      MaxValue = 100
      Precision = 19
      Size = 5
    end
    object adsSalesMasterIsTax: TStringField
      FieldName = 'IsTax'
      Size = 6
    end
    object adsSalesMasterTaxRate: TBCDField
      FieldName = 'TaxRate'
      DisplayFormat = '00%'
      EditFormat = '00'
      MaxValue = 100
      Precision = 19
      Size = 5
    end
    object adsSalesMasterIsDeliver: TStringField
      FieldName = 'IsDeliver'
      Size = 6
    end
    object adsSalesMasterOriginBillID: TIntegerField
      FieldName = 'OriginBillID'
    end
    object adsSalesMasterOriginBillTypeID: TIntegerField
      FieldName = 'OriginBillTypeID'
    end
    object adsSalesMasterPeriodID: TIntegerField
      FieldName = 'PeriodID'
    end
    object adsSalesMasterClearDate: TDateTimeField
      FieldName = 'ClearDate'
    end
    object adsSalesMasterMemo: TStringField
      FieldName = 'Memo'
      Size = 50
    end
    object adsSalesMasterSundryFee: TBCDField
      FieldName = 'SundryFee'
      Precision = 19
    end
    object adsSalesMasterIsApportion: TStringField
      FieldName = 'IsApportion'
      Size = 12
    end
    object adsSalesMasterBillMode: TStringField
      FieldName = 'BillMode'
      Size = 12
    end
    object adsSalesMasterBillModeDC: TIntegerField
      FieldName = 'BillModeDC'
    end
  end
  object adsSalesDetail: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterInsert = adsSalesDetailAfterInsert
    BeforePost = adsSalesDetailBeforePost
    CommandText = 'SELECT * FROM SLSaleDetail WHERE MasterID = :ID'
    IndexFieldNames = 'MasterID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 34
    Top = 279
    object adsSalesDetailStringField1: TStringField
      DisplayLabel = #36135#21697#21517#31216
      DisplayWidth = 25
      FieldKind = fkLookup
      FieldName = 'GoodName'
      LookupDataSet = ADOTable3
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoodsID'
      Lookup = True
    end
    object adsSalesDetailQuantity: TBCDField
      DisplayLabel = #38144#21806#25968#37327
      FieldName = 'Quantity'
      OnChange = adsSalesDetailQuantityChange
      Precision = 19
      Size = 5
    end
    object adsSalesDetailSaleDangWei: TStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 8
      FieldKind = fkLookup
      FieldName = 'SaleDangWei'
      LookupDataSet = ADOTable4
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'PackUnitID'
      Lookup = True
    end
    object adsSalesDetailPriceBase: TBCDField
      DisplayLabel = #38144#21806#21333#20215
      DisplayWidth = 12
      FieldName = 'PriceBase'
      OnChange = adsSalesDetailQuantityChange
      currency = True
      Precision = 19
    end
    object adsSalesDetailAmount: TBCDField
      DisplayLabel = #37329#39069
      DisplayWidth = 10
      FieldName = 'Amount'
      ReadOnly = True
      currency = True
      Precision = 19
      Size = 5
    end
    object adsSalesDetailDiscountRate: TBCDField
      DisplayLabel = #25240#25187#29575
      DisplayWidth = 8
      FieldName = 'DiscountRate'
      OnChange = adsSalesDetailQuantityChange
      Precision = 19
      Size = 5
    end
    object adsSalesDetailDiscount: TBCDField
      DisplayLabel = #25240#25187#37329#39069
      DisplayWidth = 16
      FieldName = 'Discount'
      ReadOnly = True
      currency = True
      Precision = 19
    end
    object adsSalesDetailNetAmount: TBCDField
      DisplayLabel = #38144#21806#20928#20215
      DisplayWidth = 16
      FieldName = 'NetAmount'
      ReadOnly = True
      currency = True
      Precision = 19
    end
    object adsSalesDetailTexrate: TBCDField
      DisplayLabel = #31246#29575
      DisplayWidth = 8
      FieldName = 'Texrate'
      OnChange = adsSalesDetailQuantityChange
      Precision = 19
      Size = 5
    end
    object adsSalesDetailTaxAmount: TBCDField
      DisplayLabel = #31246#37329
      DisplayWidth = 16
      FieldName = 'TaxAmount'
      ReadOnly = True
      currency = True
      Precision = 19
    end
    object adsSalesDetailGoalQuantity: TBCDField
      DisplayLabel = #26631#20934#25968#37327
      FieldName = 'GoalQuantity'
      Precision = 19
      Size = 5
    end
    object adsSalesDetailMasterID: TIntegerField
      FieldName = 'MasterID'
      Visible = False
    end
    object adsSalesDetailID: TAutoIncField
      FieldName = 'ID'
      Visible = False
    end
    object adsSalesDetailPackUnitID: TIntegerField
      DisplayLabel = #38144#21806#21333#20301'ID'
      FieldName = 'PackUnitID'
      Visible = False
    end
    object adsSalesDetailGoodsID: TIntegerField
      DisplayLabel = #36135#21697#21517#31216
      FieldName = 'GoodsID'
      LookupDataSet = ADOTable3
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoodsID'
      LookupCache = True
      Visible = False
      OnChange = adsSalesDetailGoodsIDChange
    end
    object adsSalesDetailSalesMode: TStringField
      DisplayLabel = #38144#21806#26041#24335
      FieldName = 'SalesMode'
      Size = 12
    end
    object adsSalesDetailSundryFee: TBCDField
      DisplayLabel = #38468#21152#36153#29992
      FieldName = 'SundryFee'
      Precision = 19
      Size = 5
    end
  end
  object ADOTable1: TADOTable
    Tag = 22
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    OnFilterRecord = ADOTable3FilterRecord
    TableName = 'DAClient'
    Left = 355
    Top = 220
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 455
    Top = 220
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 455
    Top = 300
  end
  object ADOTable2: TADOTable
    Tag = 22
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    OnFilterRecord = ADOTable3FilterRecord
    TableName = 'MSEmployee'
    Left = 390
    Top = 265
  end
  object ADOTable3: TADOTable
    Tag = 22
    Active = True
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    OnFilterRecord = ADOTable3FilterRecord
    TableName = 'DAGoods'
    Left = 155
    Top = 290
    object ADOTable3ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOTable3CreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object ADOTable3CreateUserID: TIntegerField
      FieldName = 'CreateUserID'
    end
    object ADOTable3RecordState: TStringField
      FieldName = 'RecordState'
      Size = 12
    end
    object ADOTable3Name: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object ADOTable3Code: TStringField
      FieldName = 'Code'
    end
    object ADOTable3Spec: TStringField
      FieldName = 'Spec'
    end
    object ADOTable3BarCode: TStringField
      FieldName = 'BarCode'
    end
    object ADOTable3GoodsClassID: TIntegerField
      FieldName = 'GoodsClassID'
    end
    object ADOTable3UnitID: TIntegerField
      FieldName = 'UnitID'
    end
    object ADOTable3StockMax: TBCDField
      FieldName = 'StockMax'
      Precision = 18
      Size = 0
    end
    object ADOTable3StockMin: TBCDField
      FieldName = 'StockMin'
      Precision = 18
      Size = 0
    end
    object ADOTable3PricePurchase: TBCDField
      FieldName = 'PricePurchase'
      Precision = 19
    end
    object ADOTable3PriceSales: TBCDField
      FieldName = 'PriceSales'
      Precision = 19
    end
    object ADOTable3GoodsPictrue2: TBlobField
      FieldName = 'GoodsPictrue'
    end
  end
  object ADOTable4: TADOTable
    Tag = 22
    Active = True
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    OnFilterRecord = ADOTable3FilterRecord
    IndexFieldNames = 'GoalUnitID'
    MasterFields = 'UnitID'
    MasterSource = DataSource3
    TableName = 'MSUnit'
    Left = 280
    Top = 265
    object ADOTable4ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOTable4Name: TStringField
      FieldName = 'Name'
    end
    object ADOTable4ExchangeRate: TStringField
      FieldName = 'ExchangeRate'
      FixedChar = True
      Size = 10
    end
    object ADOTable4GoalUnitID: TIntegerField
      FieldName = 'GoalUnitID'
    end
    object ADOTable4IsGoalUnit: TBooleanField
      FieldName = 'IsGoalUnit'
    end
    object ADOTable4RecordState: TStringField
      FieldName = 'RecordState'
      Size = 12
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 215
    Top = 270
  end
end