salebooking.~dfm

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

        Caption = #32534#21495
        HeaderAlignment = taCenter
        Width = 83
        BandIndex = 0
        RowIndex = 0
        OnChange = dxDBGrid1BookIdChange
        FieldName = 'BookId'
        PopupHeight = 160
        PopupWidth = 200
      end
      object dxDBGrid1BookName: TdxDBGridColumn
        Caption = #21517#31216
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 221
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookName'
      end
      object dxDBGrid1BookEdition: TdxDBGridColumn
        Caption = #29256#21035
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 137
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookEdition'
      end
      object dxDBGrid1BookCount: TdxDBGridColumn
        Caption = #25968#37327
        HeaderAlignment = taCenter
        Width = 63
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookCount'
      end
      object dxDBGrid1BookPrice: TdxDBGridCurrencyColumn
        Caption = #21333#20215
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 67
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookPrice'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1UnitId: TdxDBGridColumn
        Visible = False
        Width = 363
        BandIndex = 0
        RowIndex = 0
        FieldName = 'UnitId'
      end
      object dxDBGrid1TotalMoney: TdxDBGridCurrencyColumn
        Alignment = taRightJustify
        Caption = #30721#27915
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 90
        BandIndex = 0
        RowIndex = 0
        FieldName = 'TotalMoney'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
    end
  end
  object Panel3: TPanel
    Left = 681
    Top = 176
    Width = 100
    Height = 258
    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 = 308
    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 = qryBookingSubs
    Left = 236
    Top = 316
  end
  object qryBookingSubs: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    AfterOpen = qryBookingSubsAfterOpen
    BeforePost = qryBookingSubsBeforePost
    AfterPost = qryBookingSubsAfterPost
    Parameters = <>
    SQL.Strings = (
      'Select * From tbBookingSubs')
    Left = 272
    Top = 316
  end
  object dsCient: TDataSource
    DataSet = qryClient
    Left = 96
    Top = 64
  end
  object qryClient: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From tbClient')
    Left = 520
    Top = 112
  end
  object qryBookingUnit: TADOQuery
    Connection = dmData.adcDatabase
    Parameters = <>
    SQL.Strings = (
      'Select * From tbBookingUnit')
    Left = 216
    Top = 32
  end
  object dsdbEdit: TDataSource
    Left = 552
    Top = 220
  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 = {
      190000002724000019000000001200414746412D41636375536574207635322E
      3300FFFFFFFFFF09000000360800009A0B000024000000240000002400000024
      00000000FFFF00000000FFFF000000000000000000000000030400466F726D00
      0F000080DC000000780000007C0100002C010000040000000200D90000000900
      B1A8B1EDB1EACCE231000201000000002C000000F60200002801000030000000
      01000000000000000000FFFFFF1F00000000000000000000000000FFFF000000
      000002000000010000000000000001000000C800000014000000010000000000
      000200460100000900D6F7CFEECAFDBEDD31000201000000009C010000F60200
      00140000003000050001000000000000000000FFFFFF1F0000000004005BCEDE
      5D00000000000000FFFF000000000002000000010000000000000001000000C8
      00000014000000010000000000000200AD0100000700D6F7CFEEBDC531000201
      00000000C8010000F6020000380000003000060001000000000000000000FFFF
      FF1F00000000000000000000000000FFFF000000000002000000010000000000
      000001000000C800000014000000010000000000000200120200000500D2B3BD