mainfrm.dfm

Delphi函数查询器是你开发程序的好帮手

object MainForm: TMainForm
  Left = 239
  Top = 154
  AutoScroll = False
  Caption = 'Delphi'#20989#25968#26597#35810#22120
  ClientHeight = 270
  ClientWidth = 479
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StuBar1: TStatusBar
    Left = 0
    Top = 251
    Width = 479
    Height = 19
    AutoHint = True
    Panels = <
      item
        Width = 200
      end
      item
        Width = 160
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 479
    Height = 26
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 123
      end
      item
        Break = False
        Control = EdtFind
        ImageIndex = -1
        MinHeight = 20
        Text = #26597#35810':'
        Width = 350
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 110
      Height = 22
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = ImgList1
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = SysFind
      end
      object ToolButton6: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 31
        Top = 0
        Action = ViewTop
        AutoSize = True
        Style = tbsCheck
      end
      object ToolButton4: TToolButton
        Left = 54
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 62
        Top = 0
        Action = HelpAbout
      end
      object ToolButton7: TToolButton
        Left = 85
        Top = 0
        Action = SysExit
      end
    end
    object EdtFind: TcxTextEdit
      Left = 168
      Top = 1
      Width = 303
      Height = 20
      Style.BorderStyle = ebsFlat
      TabOrder = 1
      OnKeyPress = EdtFindKeyPress
    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 26
    Width = 479
    Height = 225
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    LookAndFeel.Kind = lfFlat
    object cxGrid1DBTableView1: TcxGridDBTableView
      DataController.DataSource = DS1
      DataController.Filter.Criteria = {FFFFFFFF0000000000}
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.Appending = True
      OptionsSelection.HideSelection = True
      OptionsSelection.InvertSelect = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      object cxGrid1DBTableView1ID: TcxGridDBColumn
        Caption = #32534#21495
        HeaderAlignmentHorz = taCenter
        HeaderAlignmentVert = vaCenter
        Options.Editing = False
        Options.Focusing = False
        SortOrder = soAscending
        Width = 47
        DataBinding.FieldName = 'ID'
      end
      object cxGrid1DBTableView1FunName: TcxGridDBColumn
        Caption = #20989#25968#21517#31216
        Width = 126
        DataBinding.FieldName = 'FunName'
      end
      object cxGrid1DBTableView1FunCata: TcxGridDBColumn
        Caption = #31867#22411
        Width = 39
        DataBinding.FieldName = 'FunCata'
      end
      object cxGrid1DBTableView1FunNote: TcxGridDBColumn
        Caption = #20989#25968#35828#26126
        Width = 236
        DataBinding.FieldName = 'FunNote'
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object MainMenu1: TMainMenu
    Images = ImgList1
    Left = 24
    Top = 152
    object S1: TMenuItem
      Caption = #31995#32479'(&S)'
      object F1: TMenuItem
        Action = SysFind
      end
      object E1: TMenuItem
        Action = SysExit
      end
    end
    object V1: TMenuItem
      Caption = #26597#30475'(&V)'
      object T1: TMenuItem
        Action = ViewTop
      end
      object XPP1: TMenuItem
        Action = ViewXp
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object L1: TMenuItem
        Action = HelpEmail
      end
      object A1: TMenuItem
        Action = HelpAbout
      end
    end
  end
  object AdoConn1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\DelphiFun\Delphi' +
      'Fun.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 136
    Top = 64
  end
  object AdoQ1: TADOQuery
    Connection = AdoConn1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from FunList')
    Left = 136