binterface.dfm

用delphi编写的数据库管理软件

inherited frminterface: Tfrminterface
  Left = 224
  Top = 10
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #30028#38754#23646#24615#35774#32622
  ClientHeight = 456
  ClientWidth = 353
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 64
    Height = 15
    Caption = #30028#38754#23646#24615
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -15
    Font.Name = #32048#26126#39636
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 85
    Top = 22
    Width = 216
    Height = 2
  end
  object Bevel2: TBevel
    Left = 299
    Top = 23
    Width = 3
    Height = 346
  end
  object grid: TDBGridEh
    Left = 16
    Top = 40
    Width = 225
    Height = 401
    ColumnDefValues.Title.TitleButton = True
    DataSource = DSinterface
    FixedColor = 12835543
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDialogFind]
    SortLocal = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnGetCellParams = gridGetCellParams
    OnTitleBtnClick = gridTitleBtnClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'ftableName'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'flength'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fisnullable'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fdesc'
        Footers = <>
        Title.Caption = #23383#27573
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = 'fisvisible'
        Footers = <>
        Title.Caption = #26174#31034
      end>
  end
  object btnok: TButton
    Left = 264
    Top = 384
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 1
    OnClick = btnokClick
  end
  object btnexit: TButton
    Left = 264
    Top = 416
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = btnexitClick
  end
  object CDSinterface: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 128
    Top = 120
    object CDSinterfacefid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSinterfaceftableName: TWideStringField
      FieldName = 'ftableName'
      Size = 28
    end
    object CDSinterfacefname: TWideStringField
      FieldName = 'fname'
      Size = 30
    end
    object CDSinterfaceftype: TWideStringField
      FieldName = 'ftype'
      Size = 32
    end
    object CDSinterfaceflength: TIntegerField
      FieldName = 'flength'
    end
    object CDSinterfacefisnullable: TBooleanField
      FieldName = 'fisnullable'
    end
    object CDSinterfacefdesc: TWideStringField
      FieldName = 'fdesc'
      ReadOnly = True
      Size = 48
    end
    object CDSinterfacefisvisible: TBooleanField
      FieldName = 'fisvisible'
    end
  end
  object DSinterface: TDataSource
    DataSet = CDSinterface
    Left = 152
    Top = 144
  end
end