fmclassu.dfm

小型库存管理,希望有帮助,小型库存管理,希望有帮助

inherited FMClass: TFMClass
  Left = 150
  Top = 142
  Caption = 'FMClass'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 249
    Top = 38
    Width = 5
    Height = 409
    Cursor = crHSplit
  end
  object ClassTree: TdxDBTreeView [2]
    Left = 0
    Top = 38
    Width = 249
    Height = 409
    ShowNodeHint = True
    DataSource = dsMain
    KeyField = 'fClassNo'
    ListField = 'fClassName'
    ParentField = 'fParentId'
    SeparatedSt = ' - '
    RaiseOnError = True
    Indent = 19
    Align = alLeft
    ParentColor = False
    Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    SelectedIndex = -1
    TabOrder = 1
  end
  object Panel1: TPanel [3]
    Left = 254
    Top = 38
    Width = 508
    Height = 409
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      508
      409)
    object Label1: TLabel
      Left = 40
      Top = 36
      Width = 48
      Height = 12
      Caption = #20998#31867#32534#21495
      FocusControl = dbfClassNo
    end
    object Label2: TLabel
      Left = 40
      Top = 76
      Width = 48
      Height = 12
      Caption = #20998#31867#21517#31216
      FocusControl = dbfClassName
    end
    object Label3: TLabel
      Left = 40
      Top = 116
      Width = 48
      Height = 12
      Caption = #26159#21542#26411#32423
      FocusControl = dbfClassName
      Visible = False
    end
    object dbfClassNo: TDBEdit
      Left = 96
      Top = 32
      Width = 105
      Height = 20
      Hint = #20998#31867#32534#21495#26032#22686#21518#19981#33021#22312#20462#25913#12290
      DataField = 'fClassNo'
      DataSource = dsMain
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object dbfClassName: TDBEdit
      Left = 96
      Top = 72
      Width = 196
      Height = 20
      DataField = 'fClassName'
      DataSource = dsMain
      TabOrder = 1
    end
    object DBRadioGroup1: TDBRadioGroup
      Left = 103
      Top = 111
      Width = 194
      Height = 34
      Anchors = [akLeft, akRight]
      Columns = 2
      DataField = 'fIsLast'
      DataSource = dsMain
      Items.Strings = (
        #21542
        #26159)
      TabOrder = 2
      Values.Strings = (
        '0'
        '1')
      Visible = False
    end
    object TreePanel: TPanel
      Left = 40
      Top = 176
      Width = 272
      Height = 41
      BevelOuter = bvNone
      TabOrder = 3
      Visible = False
      object idtType1: TRadioButton
        Left = 16
        Top = 14
        Width = 62
        Height = 17
        Caption = #21516#32423
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object idtType2: TRadioButton
        Left = 152
        Top = 14
        Width = 65
        Height = 17
        Caption = #23376#32423
        TabOrder = 1
      end
    end
  end
  inherited QrySQL: TADOQuery
    Left = 152
    Top = 152
  end
  inherited cdsMain: TADODataSet
    CursorType = ctStatic
    CommandText = 'select * from ts_class where 1=1'
    Top = 80
    object cdsMainfClassNo: TWideStringField
      FieldName = 'fClassNo'
      Size = 12
    end
    object cdsMainfClassName: TWideStringField
      FieldName = 'fClassName'
      Size = 16
    end
    object cdsMainfParentId: TWideStringField
      FieldName = 'fParentId'
      Size = 12
    end
    object cdsMainfLevel: TSmallintField
      FieldName = 'fLevel'
    end
    object cdsMainfIsLast: TSmallintField
      FieldName = 'fIsLast'
    end
    object cdsMainfFFU: TWideStringField
      FieldName = 'fFFU'
      Size = 10
    end
  end
  inherited dsMain: TDataSource
    Left = 144
    Top = 80
  end
  inherited SingleMenu: TPopupMenu
    Left = 80
    Top = 152
  end
end