bs_unit.dfm

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

inherited fBs_unit: TfBs_unit
  Caption = #21333#20301#35774#32622
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    inherited SpeedButton6: TSpeedButton
      Visible = False
    end
  end
  inherited PageControl1: TPageControl
    inherited TabSheet1: TTabSheet
      inherited DBEdit1: TDBEdit
        DataField = 'Unit_code'
        DataSource = baseSource
      end
      inherited DBEdit2: TDBEdit
        DataField = 'Unit_name'
        DataSource = baseSource
      end
      inherited DBMemo1: TDBMemo
        DataField = 'fmem'
        DataSource = baseSource
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dxDBGrid: TdxDBGrid
        KeyField = 'Unit_code'
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        object dxDBGridUnit_code: TdxDBGridColumn
          Caption = #21333#20301#32534#21495
          Width = 90
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Unit_code'
          SummaryFooterType = cstCount
        end
        object dxDBGridUnit_name: TdxDBGridColumn
          Caption = #21333#20301#21517#31216
          Width = 77
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Unit_name'
        end
        object dxDBGridfmem: TdxDBGridColumn
          Caption = #22791#27880
          Width = 200
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fmem'
        end
      end
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Bs_unit')
  end
end