backpbunit.dfm

一个图书批发商的通用软件

        FieldName = 'BookId'
        PopupHeight = 160
        PopupWidth = 200
      end
      object dxDBGrid1BookName: TdxDBGridColumn
        Caption = #21517#31216
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 109
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookName'
      end
      object dxDBGrid1BookEdition: TdxDBGridColumn
        Caption = #29256#21035
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 69
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookEdition'
      end
      object dxDBGrid1BookCount: TdxDBGridMaskColumn
        Caption = #25968#37327
        HeaderAlignment = taCenter
        Width = 53
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookCount'
      end
      object dxDBGrid1addBook: TdxDBGridMaskColumn
        Caption = #21152#25439
        HeaderAlignment = taCenter
        Width = 32
        BandIndex = 0
        RowIndex = 0
        FieldName = 'addBook'
      end
      object dxDBGrid1BookPrice: TdxDBGridCurrencyColumn
        Caption = #21333#20215
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 59
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookPrice'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1Discount: TdxDBGridMaskColumn
        Caption = #25240#25187
        HeaderAlignment = taCenter
        Width = 46
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Discount'
      end
      object dxDBGrid1TotalMoney: TdxDBGridCurrencyColumn
        Caption = #30721#27915
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 70
        BandIndex = 0
        RowIndex = 0
        FieldName = 'TotalMoney'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1RealMoney: TdxDBGridCurrencyColumn
        Caption = #23454#27915
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'RealMoney'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1HousePos: TdxDBGridExtLookupColumn
        Caption = #24211#20301
        HeaderAlignment = taCenter
        Visible = False
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'HousePos'
        PopupHeight = 160
        PopupWidth = 200
      end
      object dxDBGrid1Bundles: TdxDBGridColumn
        Caption = #21253'+'#20876
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 78
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Bundles'
      end
    end
  end
  object Panel3: TPanel
    Left = 681
    Top = 192
    Width = 100
    Height = 242
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 6
    object bbtnAdd: TBitBtn
      Left = 18
      Top = 20
      Width = 76
      Height = 25
      Caption = #22686#21152
      Enabled = False
      TabOrder = 0
      OnClick = bbtnAddClick
    end
    object bbtnDelete: TBitBtn
      Left = 18
      Top = 85
      Width = 76
      Height = 25
      Caption = #21024#38500
      Enabled = False
      TabOrder = 1
      OnClick = bbtnDeleteClick
      NumGlyphs = 2
    end
    object bbtnEdit: TBitBtn
      Left = 18
      Top = 52
      Width = 75
      Height = 25
      Caption = #20462#25913
      Enabled = False
      TabOrder = 2
      OnClick = bbtnEditClick
    end
  end
  object dxBarManager1: TdxBarManager
    Scaled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Bars = <
      item
        AllowClose = False
        AllowCustomizing = False
        AllowQuickCustomizing = False
        AllowReset = False
        Caption = #24037#20855#26639
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 164
        FloatTop = 129
        FloatClientWidth = 33
        FloatClientHeight = 88
        ItemLinks = <
          item
            Item = dxBarLargeButton1
            Visible = True
          end
          item
            Item = dxBarLargeButton3
            Visible = True
          end
          item
            Item = dxBarLargeButton2
            Visible = True
          end
          item
            Item = dxBarLargeButton6
            Visible = True
          end
          item
            Item = dxBarLargeButton4
            Visible = True
          end>
        Name = #24037#20855#26639
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end>
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    LargeImages = dmData.ImageList
    PopupMenuLinks = <>
    Style = bmsFlat
    UseSystemFont = True
    Left = 356
    DockControlHeights = (
      0
      0
      26
      0)
    object dxBarLargeButton1: TdxBarLargeButton
      Caption = #22686#21152
      Category = 0
      Hint = #22686#21152
      Visible = ivAlways
      OnClick = dxBarLargeButton1Click
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 0
    end
    object dxBarLargeButton2: TdxBarLargeButton
      Caption = #20445#23384
      Category = 0
      Hint = #20445#23384
      Visible = ivAlways
      OnClick = dxBarLargeButton2Click
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 1
    end
    object dxBarLargeButton3: TdxBarLargeButton
      Caption = #21024#38500
      Category = 0
      Hint = #21024#38500
      Visible = ivAlways
      OnClick = dxBarLargeButton3Click
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 2
    end
    object dxBarLargeButton5: TdxBarLargeButton
      Caption = #21047#26032
      Category = 0
      Hint = #21047#26032
      Visible = ivAlways
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 5
    end
    object dxBarLargeButton6: TdxBarLargeButton
      Caption = #25171#21360
      Category = 0
      Hint = #25171#21360
      Visible = ivAlways
      OnClick = dxBarLargeButton6Click
      GlyphLayout = glLeft
      LargeImageIndex = 6
    end
    object dxBarLargeButton4: TdxBarLargeButton
      Caption = #36864#20986
      Category = 0
      Hint = #36864#20986
      Visible = ivAlways
      OnClick = dxBarLargeButton4Click
      AutoGrayScale = False
      GlyphLayout = glLeft
      LargeImageIndex = 3
    end
  end
  object dssubs: TDataSource
    DataSet = qryBackSubs
    Left = 236
    Top = 316
  end
  object qryBackSubs: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    AfterOpen = qryBackSubsAfterOpen
    BeforePost = qryBackSubsBeforePost
    AfterPost = qryBackSubsAfterPost
    Parameters = <>
    SQL.Strings = (
      'Select * From tbBackSubs where BackType='#39'1'#39)
    Left = 272
    Top = 316
    object qryBackSubsId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object qryBackSubsUnitId: TWideStringField
      FieldName = 'UnitId'
      Size = 50
    end
    object qryBackSubsSaleId: TWideStringField
      FieldName = 'SaleId'
      Size = 50
    end
    object qryBackSubsBookName: TWideStringField
      FieldName = 'BookName'
      Size = 50
    end
    object qryBackSubsBookEdition: TWideStringField
      FieldName = 'BookEdition'
      Size = 50
    end
    object qryBackSubsBookCount: TIntegerField
      FieldName = 'BookCount'
    end
    object qryBackSubsAddBook: TIntegerField
      FieldName = 'AddBook'
    end
    object qryBackSubsBookId: TWideStringField
      FieldName = 'BookId'
      Size = 50
    end
    object qryBackSubsBookPrice: TBCDField
      FieldName = 'BookPrice'
      Precision = 19
    end
    object qryBackSubsDiscount: TBCDField
      FieldName = 'Discount'
      Precision = 19
    end
    object qryBackSubsTotalMoney: TBCDField
      FieldName = 'TotalMoney'
      Precision = 19
    end
    object qryBackSubsRealMoney: TBCDField
      FieldName = 'RealMoney'
      Precision = 19
    end
    object qryBackSubsHousePos: TWideStringField
      FieldName = 'HousePos'
      Size = 50
    end
    object qryBackSubsBundles: TWideStringField
      FieldName = 'Bundles'
      Size = 50
    end
    object qryBackSubsBackType: TWideStringField
      FieldName = 'BackType'
      Size = 50
    end
  end
  object dsPublish: TDataSource
    DataSet = qryPublish
    Left = 96
    Top = 64
  end
  object qryPublish: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From tbPublish')
    Left = 588
    Top = 172
  end
  object qryBackUnit: TADOQuery
    Connection = dmData.adcDatabase
    AfterPost = qryBackUnitAfterPost
    Parameters = <>
    SQL.Strings = (
      'Select * From tbBackUnit where BackType='#39'1'#39)
    Left = 216
    Top = 32
  end
  object dsdbEdit: TDataSource
    Left = 392
    Top = 172
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    StoreInDFM = True