salebooking.dfm

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

        DataSource = dsdbEdit
        ReadOnly = True
        TabOrder = 14
      end
      object dbedtAddress: TDBEdit
        Left = 482
        Top = 129
        Width = 278
        Height = 20
        Color = clBtnFace
        DataField = 'ClientAddress'
        DataSource = dsdbEdit
        ReadOnly = True
        TabOrder = 15
      end
      object cxlcbSaleBookingId: TcxLookupComboBox
        Left = 68
        Top = 12
        Width = 145
        Height = 20
        Properties.DropDownAutoSize = True
        Properties.KeyFieldNames = 'ClientId'
        Properties.ListColumns = <
          item
            Caption = #32534#21495
            Fixed = True
            HeaderAlignment = taCenter
            Width = 50
            FieldName = 'ClientId'
          end
          item
            Caption = #21517#31216
            HeaderAlignment = taCenter
            Width = 120
            FieldName = 'ClientName'
          end>
        Properties.ListSource = dsCient
        Properties.OnChange = cxlcbSaleBookingIdPropertiesChange
        Style.BorderStyle = ebs3D
        TabOrder = 16
      end
      object edtUnitName: TDBEdit
        Left = 294
        Top = 10
        Width = 466
        Height = 20
        Color = clBtnFace
        DataField = 'ClientName'
        DataSource = dsdbEdit
        ReadOnly = True
        TabOrder = 17
      end
      object edtMemo: TEdit
        Left = 68
        Top = 154
        Width = 693
        Height = 20
        TabOrder = 18
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 240
    Width = 681
    Height = 194
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 681
      Height = 194
      Bands = <
        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 = 70
        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
        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 = 50
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookCount'
      end
      object dxDBGrid1BookPrice: TdxDBGridMaskColumn
        Caption = #20215#26684
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 53
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookPrice'
      end
      object dxDBGrid1Discount: TdxDBGridMaskColumn
        Caption = #25240#25187
        HeaderAlignment = taCenter
        Width = 37
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Discount'
      end
      object dxDBGrid1TotalMoney: TdxDBGridMaskColumn
        Caption = #30721#27915
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 59
        BandIndex = 0
        RowIndex = 0
        FieldName = 'TotalMoney'
      end
      object dxDBGrid1RealMoney: TdxDBGridMaskColumn
        Caption = #23454#27915
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 68
        BandIndex = 0
        RowIndex = 0
        FieldName = 'RealMoney'
      end
      object dxDBGrid1HousePos: TdxDBGridExtLookupColumn
        Caption = #24211#20301
        HeaderAlignment = taCenter
        Width = 76
        BandIndex = 0
        RowIndex = 0
        FieldName = 'HousePos'
        PopupHeight = 160
        PopupWidth = 200
      end
      object dxDBGrid1Bundles: TdxDBGridColumn
        Caption = #21253'+'#20876
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 85
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Bundles'
      end
      object dxDBGrid1UnitId: TdxDBGridColumn
        Visible = False
        Width = 226
        BandIndex = 0
        RowIndex = 0
        FieldName = 'UnitId'
      end
    end
  end
  object Panel3: TPanel
    Left = 681
    Top = 240
    Width = 100
    Height = 194
    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 = 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
    Active = True
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    Parameters = <>