employeequerybydept.dfm

三层ERP系统 (SQL)

inherited frmEmployeeQuery_D: TfrmEmployeeQuery_D
  Left = 455
  Top = 432
  Caption = #21729#24037#26597#35426'('#37096#38272')'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited Panel3: TPanel
      Left = 176
      Width = 479
      inherited btnExit: TButton
        Left = 394
      end
      object btnQuery: TButton
        Left = 198
        Top = 8
        Width = 75
        Height = 25
        Action = acQuery
        TabOrder = 1
      end
      object dxLookupTreeView1: TdxLookupTreeView
        Left = 16
        Top = 8
        Width = 177
        Height = 21
        CanSelectParents = True
        DropDownRows = 25
        DropDownWidth = 250
        ParentColor = False
        TabOrder = 2
        TabStop = True
        TreeViewColor = clWindow
        TreeViewCursor = crDefault
        TreeViewFont.Charset = DEFAULT_CHARSET
        TreeViewFont.Color = clWindowText
        TreeViewFont.Height = -11
        TreeViewFont.Name = 'MS Sans Serif'
        TreeViewFont.Style = []
        TreeViewIndent = 19
        TreeViewReadOnly = False
        TreeViewShowButtons = True
        TreeViewShowHint = False
        TreeViewShowLines = True
        TreeViewShowRoot = True
        TreeViewSortType = stNone
        DividedChar = '.'
        ListSource = DSType
        KeyField = 'fid'
        ListField = 'fname'
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        ParentField = 'fParentID'
        TextStyle = tvtsShort
        Alignment = taLeftJustify
      end
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  inherited ActionList2: TActionList
    object acQuery: TAction
      Caption = #27298#32034
      OnExecute = acQueryExecute
    end
  end
  object CDSType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 248
    Top = 24
  end
  object DSType: TDataSource
    DataSet = CDSType
    Left = 264
    Top = 40
  end
end