bs_type.dfm

这是一个实用的软件

inherited fbs_type: Tfbs_type
  Caption = #33647#21697#20998#31867
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    inherited SpeedButton1: TSpeedButton
      Visible = False
    end
  end
  inherited dxDBTreeList1: TdxDBTreeList
    KeyField = 'fcode'
    ParentField = 'fathercode'
    DataSource = DataSource
    inherited dxDBTreeList1Column1: TdxDBTreeListColumn
      Caption = #20998#31867#32534#21495
      Width = 84
      FieldName = 'fcode'
    end
    inherited dxDBTreeList1Column2: TdxDBTreeListColumn
      Caption = #20998#31867#21517#31216
      Width = 79
      FieldName = 'Ty_name'
    end
  end
  inherited DBEdit1: TDBEdit
    DataField = 'fcode'
    DataSource = DataSource
  end
  inherited DBEdit2: TDBEdit
    DataField = 'Ty_name'
    DataSource = DataSource
  end
  inherited DBMemo1: TDBMemo
    DataField = 'fmem'
    DataSource = DataSource
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Bs_type')
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QbaseinfoTy_name: TWideStringField
      FieldName = 'Ty_name'
    end
    object Qbaseinfofathercode: TWideStringField
      FieldName = 'fathercode'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
    object Qbaseinfofcode: TWideStringField
      FieldName = 'fcode'
    end
  end
end