house.dfm

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

object frmHouse: TfrmHouse
  Left = 139
  Top = 163
  Width = 562
  Height = 375
  Caption = #20179#24211#20449#24687
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 39
    Width = 554
    Height = 302
    Align = alClient
    TabOrder = 4
    object dxDBGrid1: TdxDBGrid
      Left = 1
      Top = 1
      Width = 552
      Height = 300
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'HouseId'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      DataSource = DataSource1
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dxDBGrid1HouseId: TdxDBGridColumn
        Caption = #32534#21495
        HeaderAlignment = taCenter
        Sorted = csUp
        Width = 60
        BandIndex = 0
        RowIndex = 0
        FieldName = 'HouseId'
      end
      object dxDBGrid1HouseName: TdxDBGridColumn
        Caption = #21517#31216
        HeaderAlignment = taCenter
        Width = 158
        BandIndex = 0
        RowIndex = 0
        FieldName = 'HouseName'
      end
      object dxDBGrid1Memo: TdxDBGridColumn
        Caption = #22791#27880
        HeaderAlignment = taCenter
        Width = 330
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Memo'
      end
    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 = 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 = <>
    UseSystemFont = True
    Left = 192
    Top = 4
    DockControlHeights = (
      0
      0
      39
      0)
    object dxBarLargeButton1: TdxBarLargeButton
      Caption = #22686#21152
      Category = 0
      Hint = #22686#21152
      Visible = ivAlways
      OnClick = dxBarLargeButton1Click
      AutoGrayScale = False
      LargeImageIndex = 0
    end
    object dxBarLargeButton2: TdxBarLargeButton
      Caption = #20445#23384
      Category = 0
      Hint = #20445#23384
      Visible = ivAlways
      OnClick = dxBarLargeButton2Click
      AutoGrayScale = False
      LargeImageIndex = 1
    end
    object dxBarLargeButton3: TdxBarLargeButton
      Caption = #21024#38500
      Category = 0
      Hint = #21024#38500
      Visible = ivAlways
      OnClick = dxBarLargeButton3Click
      AutoGrayScale = False
      LargeImageIndex = 2
    end
    object dxBarLargeButton4: TdxBarLargeButton
      Caption = #36864#20986
      Category = 0
      Hint = #36864#20986
      Visible = ivAlways
      OnClick = dxBarLargeButton4Click
      AutoGrayScale = False
      LargeImageIndex = 3
    end
  end
  object qryHouse: TADOQuery
    Active = True
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    OnPostError = qryHousePostError
    Parameters = <>
    SQL.Strings = (
      'select * from tbhouse')
    Left = 200
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = qryHouse
    Left = 140
    Top = 124
  end
end