hrm100_01.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

inherited Hrm100_01Form: THrm100_01Form
  Caption = #37096#38376#36164#26009#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited dxDBTreeView1: TdxDBTreeView
    KeyField = 'H100_001'
    ListField = 'H100_002'
    ParentField = 'H100_003'
  end
  inherited Panel2: TPanel
    object Label1: TLabel
      Tag = 1
      Left = 16
      Top = 32
      Width = 48
      Height = 12
      Caption = #37096#38376#21517#31216
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 16
      Top = 88
      Width = 48
      Height = 12
      Caption = #19978#32423#37096#38376
    end
    object DBEdit1: TDBEdit
      Left = 16
      Top = 48
      Width = 153
      Height = 20
      DataField = 'H100_002'
      DataSource = DataSource1
      TabOrder = 0
    end
    object dxTreeViewEdit1: TdxTreeViewEdit
      Left = 16
      Top = 104
      Width = 153
      Height = 20
      CanSelectParents = True
      ParentColor = False
      TabOrder = 1
      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 = True
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      OnKeyDown = dxTreeViewEdit1KeyDown
      DividedChar = '.'
      TextStyle = tvtsShort
      Alignment = taLeftJustify
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from HRM100')
    object ADOQuery1H100_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'H100_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1H100_002: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'H100_002'
      Size = 50
    end
    object ADOQuery1H100_003: TIntegerField
      DisplayLabel = #19978#32423#32534#21495
      FieldName = 'H100_003'
      Visible = False
    end
    object ADOQuery1H100_004: TBooleanField
      DisplayLabel = #26368#24213#23618#21542
      FieldName = 'H100_004'
      Visible = False
    end
  end
  object ADOQuery2: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from HRM100')
    Left = 280
    Top = 168
  end
end