bs_fy.dfm

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

inherited fbs_fy: Tfbs_fy
  Left = 553
  Top = 100
  Caption = #36153#29992#39033#30446
  PixelsPerInch = 96
  TextHeight = 13
  inherited PageControl1: TPageControl
    inherited TabSheet1: TTabSheet
      inherited DBEdit1: TDBEdit
        DataField = 'fy_code'
        DataSource = baseSource
      end
      inherited DBEdit2: TDBEdit
        DataField = 'fy_name'
        DataSource = baseSource
      end
      inherited DBMemo1: TDBMemo
        DataField = 'fmem'
        DataSource = baseSource
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dxDBGrid: TdxDBGrid
        KeyField = 'fy_code'
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        object dxDBGridfy_code: TdxDBGridColumn
          Caption = #36153#29992#32534#21495
          Width = 72
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fy_code'
          SummaryFooterType = cstCount
        end
        object dxDBGridfy_name: TdxDBGridColumn
          Caption = #36153#29992#21517#31216
          Width = 84
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fy_name'
        end
        object dxDBGridfmem: TdxDBGridColumn
          Caption = #22791#27880
          Width = 223
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fmem'
        end
      end
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from bs_fy')
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Qbaseinfofy_code: TWideStringField
      FieldName = 'fy_code'
    end
    object Qbaseinfofy_name: TWideStringField
      FieldName = 'fy_name'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object Qbaseinfosort: TWideStringField
      FieldName = 'sort'
    end
  end
end