bs_ftype.dfm

来自「一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码」· DFM 代码 · 共 66 行

inherited fBs_ftype: TfBs_ftype
  Left = 463
  Top = 214
  Caption = #20379#24212#21830#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 = 77
      FieldName = 'fcode'
    end
    inherited dxDBTreeList1Column2: TdxDBTreeListColumn
      Caption = #20998#31867#21517#31216
      Width = 95
      FieldName = 'Ftype_name'
    end
  end
  inherited DBEdit1: TDBEdit
    DataField = 'fcode'
    DataSource = DataSource
  end
  inherited DBEdit2: TDBEdit
    DataField = 'Ftype_name'
    DataSource = DataSource
  end
  inherited DBMemo1: TDBMemo
    DataField = 'fmem'
    DataSource = DataSource
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Bs_ftype')
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Qbaseinfofcode: TWideStringField
      FieldName = 'fcode'
    end
    object QbaseinfoFtype_name: TWideStringField
      FieldName = 'Ftype_name'
    end
    object Qbaseinfofathercode: TWideStringField
      FieldName = 'fathercode'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
  end
end