baseemployee.dfm

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· DFM 代码 · 共 77 行

inherited frmBaseEmployee: TfrmBaseEmployee
  Left = 194
  Top = 93
  Width = 715
  Caption = #21592#24037#22522#30784#36164#26009
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Left = 321
  end
  inherited ToolBar: TToolBar
    Width = 707
  end
  inherited DBGrid1: TDBGrid
    Width = 321
    Columns = <
      item
        Expanded = False
        FieldName = 'fCode'
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fName'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sDepartmentName'
        Width = 100
        Visible = True
      end>
  end
  inherited PageControl1: TPageControl
    Left = 325
    Width = 382
    inherited TabSheet1: TTabSheet
      inherited Panel1: TPanel
        Width = 361
      end
    end
  end
  inherited QBaseInfo: TADOQuery
    SQL.Strings = (
      'Select * from tEmployee ')
    inherited QBaseInfofEmployeeName: TWideStringField
      DisplayWidth = 15
    end
    object QBaseInfosDepartmentName: TStringField [19]
      DisplayLabel = #37096#38376#21517#31216
      FieldKind = fkLookup
      FieldName = 'sDepartmentName'
      LookupDataSet = adoqDepartment
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fDeptID'
      Visible = False
      Size = 50
      Lookup = True
    end
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fCode'#9'15'#9#32844#21592#20195#30721#9'F'
      'fName'#9'15'#9#32844#21592#21517#31216#9'F')
  end
  inherited adoqDepartment: TADOQuery
    SQL.Strings = (
      
        'select fid,fParentID,fCode,fCode+'#39'_'#39'+fName as fName from tDepart' +
        'ment')
    Left = 544
  end
end