qx.dfm

delphi+sql server 我是delphi的初学者

object FRMQX: TFRMQX
  Left = 287
  Top = 374
  Width = 683
  Height = 465
  Caption = #26435#39033#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 675
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clBtnShadow
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 14
      Width = 60
      Height = 12
      Caption = #25805#20316#21592#20195#30721
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 232
      Top = 14
      Width = 60
      Height = 12
      Caption = #25805#20316#21592#22995#21517
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 88
      Top = 10
      Width = 121
      Height = 21
      DataField = 'CZYDM'
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 296
      Top = 10
      Width = 121
      Height = 21
      DataField = 'CZYXM'
      ReadOnly = True
      TabOrder = 1
    end
    object Button1: TButton
      Left = 488
      Top = 8
      Width = 89
      Height = 25
      Caption = #30830#35748'(&R)'
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 577
      Top = 8
      Width = 91
      Height = 25
      Caption = #21462#28040'(&C)'
      TabOrder = 3
      OnClick = Button2Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 675
    Height = 356
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object DBTcdmight: TdxDBTreeList
      Left = 305
      Top = 0
      Width = 370
      Height = 356
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ParentField = 'Parent'
      Align = alClient
      TabOrder = 1
      DataSource = DataSource1
      Images = ImageList1
      LookAndFeel = lfFlat
      OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoMultiSelect, etoTabThrough]
      OptionsDB = [etoAutoCalcKeyValue, etoCanNavigation, etoCheckHasChildren, etoLoadAllRecords]
      OptionsView = [etoAutoWidth, etoBandHeaderWidth, etoRowSelect, etoUseBitmap, etoUseImageIndexForSelected]
      PreviewFieldName = 'MC'
      RootValue = '-1'
      TreeLineColor = clGrayText
      object DBTcdmightPr_id: TdxDBTreeListMaskColumn
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ID'
      end
      object DBTcdmightPr_parent: TdxDBTreeListMaskColumn
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Parent'
      end
      object DBTcdmightPr_name: TdxDBTreeListMaskColumn
        Caption = #31995#32479#26435#38480#34920
        BandIndex = 0
        RowIndex = 0
        FieldName = 'MC'
      end
    end
    object DBTusermight: TdxDBTreeList
      Left = 0
      Top = 0
      Width = 305
      Height = 356
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ParentField = 'Parent'
      Align = alLeft
      TabOrder = 0
      DataSource = DataSource2
      Images = ImageList1
      LookAndFeel = lfFlat
      OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoMultiSelect, etoTabThrough]
      OptionsDB = [etoAutoCalcKeyValue, etoCanNavigation, etoCheckHasChildren, etoLoadAllRecords]
      OptionsView = [etoAutoWidth, etoBandHeaderWidth, etoRowSelect, etoUseBitmap, etoUseImageIndexForSelected]
      PreviewFieldName = 'MC'
      RootValue = '-1'
      TreeLineColor = clGrayText
      object dxDBTreeListMaskColumn1: TdxDBTreeListMaskColumn
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ID'
      end
      object dxDBTreeListMaskColumn2: TdxDBTreeListMaskColumn
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Parent'
      end
      object dxDBTreeListMaskColumn3: TdxDBTreeListMaskColumn
        Caption = #24403#21069#29992#25143#24050#26377#26435#38480
        BandIndex = 0
        RowIndex = 0
        FieldName = 'MC'
      end
    end
  end