bs_utype.dfm

这是一个实用的软件

inherited fbs_utype: Tfbs_utype
  Left = 232
  Top = 197
  Caption = #26381#29992#26041#27861
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    inherited SpeedButton6: TSpeedButton
      Visible = False
    end
  end
  inherited PageControl1: TPageControl
    inherited TabSheet1: TTabSheet
      inherited lbl1: TLabel
        Left = 166
        Caption = #33521'  '#25991#65306
      end
      inherited Label2: TLabel
        Caption = #20013'  '#25991#65306
      end
      inherited DBEdit1: TDBEdit
        Width = 89
        DataField = 'Ut_code'
        DataSource = baseSource
      end
      inherited DBEdit2: TDBEdit
        Left = 208
        Width = 169
        DataField = 'Ut_name'
        DataSource = baseSource
      end
      inherited DBMemo1: TDBMemo
        DataField = 'fmem'
        DataSource = baseSource
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dxDBGrid: TdxDBGrid
        KeyField = 'Ut_code'
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        object dxDBGridUt_code: TdxDBGridColumn
          Caption = #32534#21495
          Width = 82
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Ut_code'
          SummaryFooterType = cstCount
        end
        object dxDBGridUt_name: TdxDBGridColumn
          Caption = #33521#25991#29992#27861
          Width = 118
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Ut_name'
        end
        object dxDBGridfmem: TdxDBGridColumn
          Caption = #20013#25991#29992#27861
          Width = 166
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fmem'
        end
      end
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Bs_utype')
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QbaseinfoUt_code: TWideStringField
      FieldName = 'Ut_code'
    end
    object QbaseinfoUt_name: TWideStringField
      FieldName = 'Ut_name'
    end
    object QbaseinfoUt_mean: TWideStringField
      FieldName = 'Ut_mean'
      Size = 255
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
  end
end