ord110_02.dfm.svn-base

来自「一个用Delphi开发的ERP软件」· SVN-BASE 代码 · 共 118 行

inherited Ord110_02Form: TOrd110_02Form
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #23458#25143#31867#21035#32500#25252
  ClientHeight = 127
  ClientWidth = 369
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel [0]
    Left = 8
    Top = 8
    Width = 353
    Height = 81
    Shape = bsFrame
  end
  object lblClass: TLabel [1]
    Tag = 1
    Left = 32
    Top = 28
    Width = 48
    Height = 12
    Alignment = taRightJustify
    Caption = #31867#21035#21517#31216
  end
  object lblParent: TLabel [2]
    Left = 32
    Top = 60
    Width = 48
    Height = 12
    Alignment = taRightJustify
    Caption = #19978#32423#31867#21035
  end
  object bbtnOk: TBitBtn [3]
    Left = 168
    Top = 96
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 2
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn [4]
    Left = 256
    Top = 96
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 3
    OnClick = bbtnExitClick
  end
  object edtClass: TEdit [5]
    Left = 88
    Top = 24
    Width = 241
    Height = 20
    TabOrder = 0
  end
  object cbParent: TdxLookupTreeView [6]
    Left = 88
    Top = 56
    Width = 241
    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 = False
    TreeViewShowButtons = True
    TreeViewShowHint = False
    TreeViewShowLines = True
    TreeViewShowRoot = True
    TreeViewSortType = stNone
    OnKeyDown = cbParentKeyDown
    DividedChar = '.'
    ListSource = dsOrd110
    KeyField = 'O110_001'
    ListField = 'O110_002'
    Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    ParentField = 'O110_003'
    TextStyle = tvtsShort
    Alignment = taLeftJustify
  end
  inherited pmUISet: TPopupMenu
    Left = 16
    Top = 88
  end
  object qryOrd110: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD110')
    Left = 128
    Top = 96
  end
  object dsOrd110: TDataSource
    DataSet = qryOrd110
    Left = 96
    Top = 96
  end
  object ADOQuery1: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD110')
    Left = 8
    Top = 24
  end
end