bs_area.dfm

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

inherited fbsarea: Tfbsarea
  Left = 316
  Top = 223
  Height = 357
  Caption = #22320#21306#35774#32622
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    inherited SpeedButton1: TSpeedButton
      Visible = False
    end
  end
  inherited dxDBTreeList1: TdxDBTreeList
    Height = 281
    KeyField = 'fcode'
    ParentField = 'fathercode'
    DataSource = DataSource
    inherited dxDBTreeList1Column1: TdxDBTreeListColumn
      Caption = #22320#21306#32534#21495
      Width = 68
      FieldName = 'fcode'
    end
    inherited dxDBTreeList1Column2: TdxDBTreeListColumn
      Caption = #22320#21306#21517#31216
      Width = 92
      FieldName = 'area_name'
    end
  end
  inherited DBEdit1: TDBEdit
    DataField = 'fcode'
    DataSource = DataSource
  end
  inherited DBEdit2: TDBEdit
    DataField = 'area_name'
    DataSource = DataSource
  end
  inherited DBMemo1: TDBMemo
    Height = 185
    DataField = 'fmem'
    DataSource = DataSource
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from bs_area')
    Left = 224
    Top = 32
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Qbaseinfofcode: TWideStringField
      FieldName = 'fcode'
    end
    object Qbaseinfoarea_name: TWideStringField
      FieldName = 'area_name'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object Qbaseinfofathercode: TWideStringField
      FieldName = 'fathercode'
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  inherited DataSource: TDataSource
    Left = 264
    Top = 32
  end
  inherited ImageList1: TImageList
    Left = 336
    Top = 48
  end
  inherited ActionList: TActionList
    Left = 296
    Top = 40
  end
end