ord120_01.dfm

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

inherited Ord120_01Form: TOrd120_01Form
  Caption = #22320#21306#36164#26009#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited dxDBTreeView1: TdxDBTreeView
    KeyField = 'O120_001'
    ListField = 'O120_002'
    ParentField = 'O120_003'
  end
  inherited Panel2: TPanel
    object Label1: TLabel
      Tag = 1
      Left = 16
      Top = 32
      Width = 48
      Height = 12
      Caption = #22320#21306#21517#31216
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 16
      Top = 88
      Width = 48
      Height = 12
      Caption = #19978#32423#22320#21306
    end
    object DBEdit1: TDBEdit
      Left = 16
      Top = 48
      Width = 153
      Height = 20
      DataField = 'O120_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
    CursorType = ctStatic
    SQL.Strings = (
      'select * from ORD120')
    object ADOQuery1O120_001: TAutoIncField
      FieldName = 'O120_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1O120_002: TStringField
      DisplayLabel = #22320#21306#21517#31216
      FieldName = 'O120_002'
      Size = 50
    end
    object ADOQuery1O120_003: TIntegerField
      DisplayLabel = #19978#32423#22320#21306
      FieldName = 'O120_003'
    end
    object ADOQuery1O120_004: TBooleanField
      FieldName = 'O120_004'
      Visible = False
    end
  end
  inherited ActionList1: TActionList
    Left = 392
    Top = 48
  end
  object qryOrd120: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ORD120')
    Left = 376
    Top = 232
  end
end