saleunit.~dfm

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

        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      Enabled = False
      TabOrder = 0
      OnDblClick = bbtnEditClick
      DataSource = dssubs
      Filter.Criteria = {00000000}
      OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
      object dxDBGrid1BookId: TdxDBGridExtLookupColumn
        Caption = #32534#21495
        HeaderAlignment = taCenter
        Width = 53
        BandIndex = 0
        RowIndex = 0
        OnChange = dxDBGrid1BookIdChange
        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
        Alignment = taCenter
        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 = 57
        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 = 53
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookPrice'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1Discount: TdxDBGridMaskColumn
        Caption = #25240#25187
        HeaderAlignment = taCenter
        Width = 48
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Discount'
      end
      object dxDBGrid1TotalMoney: TdxDBGridCurrencyColumn
        Caption = #30721#27915
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 72
        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 = 77
        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 = 79
        BandIndex = 0
        RowIndex = 0
        FieldName = 'HousePos'
        PopupHeight = 160
        PopupWidth = 200
      end
      object dxDBGrid1Bundles: TdxDBGridColumn
        Alignment = taRightJustify
        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 = 249
    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 = qrySaleSubs
    Left = 236
    Top = 316
  end
  object qrySaleSubs: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    AfterOpen = qrySaleSubsAfterOpen
    BeforePost = qrySaleSubsBeforePost
    AfterPost = qrySaleSubsAfterPost
    Parameters = <>
    SQL.Strings = (
      'Select * From tbSaleSubs')
    Left = 272
    Top = 316
  end
  object dsCient: TDataSource
    DataSet = qryClient
    Left = 96
    Top = 64
  end
  object qryClient: TADOQuery
    Active = True
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From tbClient')
    Left = 588
    Top = 172
  end
  object qrySaleUnit: TADOQuery
    Connection = dmData.adcDatabase
    AfterPost = qrySaleUnitAfterPost
    Parameters = <>
    SQL.Strings = (
      'Select * From tbSaleUnit')
    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
    RebuildPrinter = False
    Left = 404
    Top = 308
    ReportForm = {
      19000000622C000019000000001200414746412D41636375536574207635322E
      3300FFFFFFFFFF09000000360800009A0B000004000000240000000400000024
      00000000FFFF00000000FFFF000000000000000000000000030400466F726D00
      0F000080DC000000780000007C0100002C010000040000000200D90000000900
      B1A8B1EDB1EACCE231000201000000002C000000F60200003401000030000000
      01000000000000000000FFFFFF1F00000000000000000000000000FFFF000000
      000002000000010000000000000001000000C800000014000000010000000000
      0002004E0100000900D6F7CFEECAFDBEDD3100020100000000C0010000F60200
      00140000003000050001000000000000000000FFFFFF1F000000000C00667244
      42446174615365743100000000000000FFFF0000000000020000000100000000
      00000001000000C800000014000000010000000000000200B50100000700D6F7