tas110_01.dfm.svn-base

一个用Delphi开发的ERP软件

inherited Tas110_01Form: TTas110_01Form
  Caption = #21407#22240#36164#26009#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited dxDBTreeView1: TdxDBTreeView
    KeyField = 'T110_001'
    ListField = 'T110_003'
    ParentField = 'T110_004'
  end
  inherited Panel2: TPanel
    object lblName: TLabel
      Tag = 1
      Left = 16
      Top = 88
      Width = 48
      Height = 12
      Caption = #21407#22240#21517#31216
      FocusControl = edtName
    end
    object lblParent: TLabel
      Left = 16
      Top = 144
      Width = 48
      Height = 12
      Caption = #19978#32423#21407#22240
    end
    object lblClass: TLabel
      Tag = 1
      Left = 16
      Top = 32
      Width = 48
      Height = 12
      Caption = #20219#21153#31867#21035
    end
    object edtName: TDBEdit
      Left = 16
      Top = 104
      Width = 153
      Height = 20
      DataField = 'T110_003'
      DataSource = DataSource1
      TabOrder = 1
    end
    object cbParent: TdxTreeViewEdit
      Left = 16
      Top = 160
      Width = 153
      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 cbClass: TdxDBLookupTreeView
      Left = 16
      Top = 48
      Width = 153
      Height = 20
      CanSelectParents = False
      ParentColor = False
      TabOrder = 0
      TabStop = True
      Text = 'cbClass'
      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
      DividedChar = '.'
      ListSource = dsTas100
      KeyField = 'T100_001'
      ListField = 'T100_002'
      Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = 'T100_003'
      TextStyle = tvtsShort
      DataField = 'T110_002'
      DataSource = DataSource1
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select * from TAS110')
    object ADOQuery1T110_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'T110_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1T110_002: TIntegerField
      DisplayLabel = #20219#21153#31867#21035
      FieldName = 'T110_002'
      Visible = False
    end
    object ADOQuery1T110_003: TWideStringField
      DisplayLabel = #21407#22240#21517#31216
      FieldName = 'T110_003'
      Size = 30
    end
    object ADOQuery1T110_004: TIntegerField
      DisplayLabel = #19978#32423#21407#22240
      FieldName = 'T110_004'
      Visible = False
    end
    object ADOQuery1T110_005: TBooleanField
      DisplayLabel = #26368#20302#23618#21542
      FieldName = 'T110_005'
      Visible = False
    end
  end
  object ADOQuery2: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from TAS110')
    Left = 416
    Top = 288
  end
  object dsTas100: TDataSource
    DataSet = qryTas100
    Left = 424
    Top = 112
  end
  object qryTas100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from TAS100')
    Left = 432
    Top = 120
  end
end