sledsalebill.dfm

详细的ERP设计资料

    inherited ImportAction: TAction
      ImageIndex = 13
      OnExecute = ImportActionExecute
    end
    object LastPrice: TAction
      Caption = #26368#26032#21806#20215
      ImageIndex = 7
      OnExecute = LastPriceExecute
    end
    object DiscountMode: TAction
      Caption = #25240#25187#26041#24335
      OnExecute = DiscountModeExecute
    end
  end
  inherited MainMenu: TMainMenu
    Top = 10
    inherited A3: TMenuItem
      object N7: TMenuItem
        Action = LastPrice
        Caption = #38144#21806#21333#20215#26597#35810
      end
      object N13: TMenuItem
        Action = DiscountMode
      end
    end
  end
  inherited DetailsPopupMenu: TPopupMenu
    Left = 200
    Top = 144
  end
  object ClientName: TADODataSet
    Active = True
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'select ID, Name'#13#10'from DAClient'#13#10'where RecordState<>'#39#21024#38500#39#13#10'and Cli' +
      'entType <>'#39#21378#21830#39
    Parameters = <>
    Left = 125
    Top = 180
  end
  object EmployeeName: TADODataSet
    Active = True
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 173
    Top = 180
  end
  object GoodName: TADODataSet
    Active = True
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select *'#13#10'from DAGoods'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 157
    Top = 283
  end
  object MSUnit: TADODataSet
    Active = True
    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 = 221
    Top = 283
  end
  object DSMSUnit: TDataSource
    DataSet = MSUnit
    Left = 221
    Top = 314
  end
  object DSClientName: TDataSource
    DataSet = ClientName
    Left = 125
    Top = 214
  end
  object DSEmployeeName: TDataSource
    DataSet = EmployeeName
    Left = 173
    Top = 214
  end
  object MSGoalUnit: TADODataSet
    Active = True
    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 = 277
    Top = 283
  end
  object dsMSGoalUnit: TDataSource
    DataSet = MSGoalUnit
    Left = 277
    Top = 314
  end
  object TempAds: TADODataSet
    Connection = CommonData.acnConnection
    Parameters = <>
    Left = 344
    Top = 280
  end
  object adsSalesMaster: TADODataSet
    Tag = 11
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    CommandText = 'select *'#13#10'from SLSaleMaster'#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 = 32
    Top = 184
    object adsSalesMasterID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsSalesMasterCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Visible = False
    end
    object adsSalesMasterCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
      Visible = False
    end
    object adsSalesMasterRecordState: TStringField
      FieldName = 'RecordState'
      Visible = False
      Size = 12
    end
    object adsSalesMasterClientID: TIntegerField
      FieldName = 'ClientID'
      Visible = False
    end
    object adsSalesMasterEmployeID: TIntegerField
      FieldName = 'EmployeID'
      Visible = False
    end
    object adsSalesMasterOriginBillID: TIntegerField
      FieldName = 'OriginBillID'
      Visible = False
    end
    object adsSalesMasterOriginBillTypeID: TIntegerField
      FieldName = 'OriginBillTypeID'
      Visible = False
    end
    object adsSalesMasterPeriodID: TIntegerField
      FieldName = 'PeriodID'
      Visible = False
    end
    object adsSalesMasterBillModeDC: TIntegerField
      FieldName = 'BillModeDC'
      Visible = False
    end
    object adsSalesMasterCode: TStringField
      FieldName = 'Code'
    end
    object adsSalesMasterDate: TDateTimeField
      FieldName = 'Date'
    end
    object adsSalesMasterDiscountRate: TBCDField
      FieldName = 'DiscountRate'
      DisplayFormat = '#,#.00%'
      
      Precision = 19
      Size = 5
    end
    object adsSalesMasterBillMode: TStringField
      FieldName = 'BillMode'
      Size = 16
    end
    object adsSalesMasterTaxRate: TBCDField
      DisplayLabel = #31246#29575
      FieldName = 'TaxRate'
      Precision = 19
      Size = 5
    end
    object adsSalesMasterClearDate: TDateTimeField
      FieldName = 'ClearDate'
    end
    object adsSalesMasterMemo: TStringField
      FieldName = 'Memo'
      Size = 60
    end
    object adsSalesMasterSundryFee: TBCDField
      FieldName = 'SundryFee'
      DisplayFormat = '#,#.00'
      
      Precision = 19
      Size = 5
    end
    object adsSalesMasterIsApportion: TStringField
      FieldName = 'IsApportion'
      Size = 12
    end
    object adsSalesMasterClientName: TStringField
      FieldKind = fkLookup
      FieldName = 'ClientName'
      LookupDataSet = ClientName
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ClientID'
      Lookup = True
    end
    object adsSalesMasterEmployeeName: TStringField
      FieldKind = fkLookup
      FieldName = 'EmployeeName'
      LookupDataSet = EmployeeName
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'EmployeID'
      Lookup = True
    end
    object adsSalesMasterIsDeliver: TStringField
      FieldName = 'IsDeliver'
      Size = 10
    end
    object adsSalesMasterIsTax: TStringField
      FieldName = 'IsTax'
      Size = 10
    end
  end
  object adsSalesDetail: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select *'#13#10'from SLSaleDetail'#13#10'where MasterID = :ID'
    IndexFieldNames = 'ID'
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 18
    Top = 271
    object adsSalesDetailID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsSalesDetailMasterID: TIntegerField
      FieldName = 'MasterID'
      Visible = False
    end
    object adsSalesDetailGoodsID: TIntegerField
      FieldName = 'GoodsID'
      Visible = False
      OnChange = adsSalesDetailGoodsIDChange
    end
    object adsSalesDetailPackUnitID: TIntegerField
      FieldName = 'PackUnitID'
      Visible = False
      OnChange = adsSalesDetailPackUnitIDChange
    end
    object adsSalesDetailGoalUnitID: TIntegerField
      FieldName = 'GoalUnitID'
      Visible = False
    end
    object adsSalesDetailGoodsName: TStringField
      DisplayLabel = #36135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'GoodsName'
      LookupDataSet = GoodName
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoodsID'
      Lookup = True
    end
    object adsSalesDetailQuantity: TBCDField
      DisplayLabel = #25968#37327
      FieldName = 'Quantity'
      OnChange = adsSalesDetailQuantityChange
      currency = True
      Precision = 19
      Size = 5
    end
    object adsSalesDetailPackUnit: TStringField
      DisplayLabel = #21253#35013#21333#20301
      FieldKind = fkLookup
      FieldName = 'PackUnit'
      LookupDataSet = MSUnit
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'PackUnitID'
      Lookup = True
    end
    object adsSalesDetailPriceBase: TBCDField
      DisplayLabel = #21333#20215
      FieldName = 'PriceBase'
      OnChange = adsSalesDetailQuantityChange
      DisplayFormat = '#,#.00'
      
      Precision = 19
    end
    object adsSalesDetailQuantityPcs: TBCDField
      DisplayLabel = #38646#25968
      FieldName = 'QuantityPcs'
      OnChange = adsSalesDetailQuantityChange
      DisplayFormat = '#,#.00'
      
      Precision = 19
      Size = 5
    end
    object adsSalesDetailAmount: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'Amount'
      currency = True
      Precision = 19
      Size = 5
    end
    object adsSalesDetailGoalQuantity: TBCDField
      DisplayLabel = #26631#20934#25968#37327
      FieldName = 'GoalQuantity'
      DisplayFormat = '#,#.00'
      
      Precision = 19
      Size = 5
    end
    object adsSalesDetailGoallUnit: TStringField
      DisplayLabel = #26631#20934#21333#20301
      FieldKind = fkLookup
      FieldName = 'GoallUnit'
      LookupDataSet = MSGoalUnit
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GoalUnitID'
      ReadOnly = True
      Lookup = True
    end
    object adsSalesDetailDiscountRate: TBCDField
      DisplayLabel = #25240#25187#29575
      FieldName = 'DiscountRate'
      currency = True
      Precision = 19
      Size = 5
    end
    object adsSalesDetailDiscount: TBCDField
      DisplayLabel = #25240#25187
      FieldName = 'Discount'
      currency = True
      Precision = 19
    end
    object adsSalesDetailNetAmount: TBCDField
      DisplayLabel = #20928#37329#39069
      FieldName = 'NetAmount'
      currency = True
      Precision = 19
    end
    object adsSalesDetailTaxAmount: TBCDField
      DisplayLabel = #31246#37329
      FieldName = 'TaxAmount'
      currency = True
      Precision = 19
    end
    object adsSalesDetailSundryFee: TBCDField
      DisplayLabel = #38468#21152#36153#29992
      FieldName = 'SundryFee'
      currency = True
      Precision = 19
      Size = 5
    end
    object adsSalesDetailSalesMode: TStringField
      DisplayLabel = #38144#21806#26041#24335
      FieldName = 'SalesMode'
      Size = 16
    end
    object adsSalesDetailTaxrate: TBCDField
      DisplayLabel = #31246#29575
      FieldName = 'Taxrate'
      Precision = 19
      Size = 5
    end
  end
end