tas100_01.dfm.svn-base

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

inherited Tas100_01Form: TTas100_01Form
  Caption = #20219#21153#31867#21035#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited dxDBTreeView1: TdxDBTreeView
    Width = 328
    KeyField = 'T100_001'
    ListField = 'T100_002'
    ParentField = 'T100_003'
  end
  inherited Panel2: TPanel
    Left = 328
    Width = 208
    object lblName: TLabel
      Tag = 1
      Left = 16
      Top = 32
      Width = 48
      Height = 12
      Caption = #31867#21035#21517#31216
      FocusControl = edtName
    end
    object lblParent: TLabel
      Tag = 1
      Left = 16
      Top = 144
      Width = 48
      Height = 12
      Caption = #19978#32423#31867#21035
    end
    object lblPriority: TLabel
      Tag = 1
      Left = 16
      Top = 88
      Width = 48
      Height = 12
      Caption = #20248#20808#32423#21035
    end
    object edtName: TDBEdit
      Left = 16
      Top = 48
      Width = 177
      Height = 20
      DataField = 'T100_002'
      DataSource = DataSource1
      TabOrder = 0
    end
    object udPriority: TUpDown
      Left = 177
      Top = 104
      Width = 15
      Height = 20
      Associate = edtPriority
      Min = 0
      Position = 0
      TabOrder = 3
      Wrap = False
    end
    object edtPriority: TEdit
      Left = 16
      Top = 104
      Width = 161
      Height = 20
      TabOrder = 1
      Text = '0'
      OnKeyPress = edtPriorityKeyPress
    end
    object cbParent: TdxTreeViewEdit
      Left = 16
      Top = 160
      Width = 177
      Height = 20
      CanSelectParents = True
      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 = True
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      OnCloseUp = cbParentCloseUp
      OnKeyDown = cbParentKeyDown
      DividedChar = '.'
      TextStyle = tvtsShort
      Alignment = taLeftJustify
    end
    object cbProduct: TCheckBox
      Left = 16
      Top = 208
      Width = 177
      Height = 17
      Caption = #20219#21153#35745#21010#20013#24517#39035#24405#20837#20135#21697#20449#24687
      TabOrder = 4
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select * from TAS100')
    object ADOQuery1T100_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'T100_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1T100_002: TWideStringField
      DisplayLabel = #31867#21035#21517#31216
      FieldName = 'T100_002'
      Size = 50
    end
    object ADOQuery1T100_003: TIntegerField
      DisplayLabel = #19978#32423#31867#21035
      FieldName = 'T100_003'
      Visible = False
    end
    object ADOQuery1T100_004: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'T100_004'
    end
    object ADOQuery1T100_005: TBooleanField
      DisplayLabel = #26368#20302#23618#21542
      FieldName = 'T100_005'
      Visible = False
    end
    object ADOQuery1T100_006: TBooleanField
      FieldName = 'T100_006'
      Visible = False
    end
  end
  object ADOQuery2: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from TAS100')
    Left = 392
    Top = 264
  end
end