bs_unit.dfm

来自「这是一个实用的软件」· DFM 代码 · 共 62 行

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