otherclass.dfm

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· DFM 代码 · 共 62 行

inherited frmotherclass: Tfrmotherclass
  Left = 227
  Top = 219
  Height = 482
  Caption = #20854#20182#22522#30784#20449#24687#34920
  PixelsPerInch = 96
  TextHeight = 13
  inherited DBGridEh1: TDBGridEh
    Height = 417
    Columns = <
      item
        EditButtons = <>
        FieldName = 'id'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'type'
        Footers = <>
        Title.Caption = #31181#31867
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'sort'
        Footers = <>
        Title.Caption = #39034#24207
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'name'
        Footers = <>
        Title.Caption = #21517#31216
        Width = 100
      end>
  end
  inherited QBaseInfo: TADOQuery
    SQL.Strings = (
      'select * from Ccbase')
    object QBaseInfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QBaseInfotype: TStringField
      FieldName = 'type'
      Size = 50
    end
    object QBaseInfosort: TIntegerField
      FieldName = 'sort'
    end
    object QBaseInfoname: TStringField
      FieldName = 'name'
      Size = 50
    end
  end
  inherited SaveDialog1: TSaveDialog
    Top = 239
  end
end