bs_fy.dfm

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

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