inhouseunit.dfm

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

  end
  object Panel2: TPanel
    Left = 0
    Top = 193
    Width = 681
    Height = 241
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 681
      Height = 241
      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 = 175
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookName'
      end
      object dxDBGrid1BookEdition: TdxDBGridColumn
        Caption = #29256#21035
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 90
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookEdition'
      end
      object dxDBGrid1BookCount: TdxDBGridMaskColumn
        Caption = #25968#37327
        HeaderAlignment = taCenter
        Width = 70
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookCount'
      end
      object dxDBGrid1addBook: TdxDBGridMaskColumn
        Caption = #21152#25439
        HeaderAlignment = taCenter
        Width = 46
        BandIndex = 0
        RowIndex = 0
        FieldName = 'addBook'
      end
      object dxDBGrid1BookPrice: TdxDBGridCurrencyColumn
        Caption = #21333#20215
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 63
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BookPrice'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1TotalMoney: TdxDBGridCurrencyColumn
        Caption = #30721#27915
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 63
        BandIndex = 0
        RowIndex = 0
        FieldName = 'TotalMoney'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1HousePos: TdxDBGridExtLookupColumn
        Caption = #24211#20301
        HeaderAlignment = taCenter
        Visible = False
        Width = 119
        BandIndex = 0
        RowIndex = 0
        FieldName = 'HousePos'
        PopupHeight = 160
        PopupWidth = 200
      end
      object dxDBGrid1Bundles: TdxDBGridColumn
        Alignment = taRightJustify
        Caption = #21253'+'#20876
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 79
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Bundles'
      end
    end
  end
  object Panel3: TPanel
    Left = 681
    Top = 193
    Width = 100
    Height = 241
    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 = qryInHouseSubs
    Left = 236
    Top = 316
  end
  object qryInHouseSubs: TADOQuery
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    AfterOpen = qryInHouseSubsAfterOpen
    BeforePost = qryInHouseSubsBeforePost
    AfterPost = qryInHouseSubsAfterPost
    Parameters = <>
    SQL.Strings = (
      'Select * From tbInHouseSubs')
    Left = 272
    Top = 316
  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 = 156
  end
  object qryInHouseUnit: TADOQuery
    Connection = dmData.adcDatabase
    AfterPost = qryInHouseUnitAfterPost
    Parameters = <>
    SQL.Strings = (
      'Select * From tbInHouseUnit')
    Left = 216
    Top = 32
  end
  object dsdbEdit: TDataSource
    Left = 396
    Top = 156
  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 = {
      190000001C29000019000000001200414746412D41636375536574207635322E
      3300FFFFFFFFFF09000000360800009A0B000004000000480000000400000048