frmmain.dfm

MIS工具 万能过滤 查询 网格编辑器S_CXV

object FormMain: TFormMain
  Left = 212
  Top = 154
  Width = 544
  Height = 375
  Caption = 'GridEH'#26639#20301#32534#36753#22120'--'#28436#31034' by jacky    QQ:112876992 Email:[e-mail]'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 41
    Align = alTop
    TabOrder = 0
    object cmbTableName: TComboBox
      Left = 8
      Top = 8
      Width = 169
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      TabOrder = 0
      OnChange = cmbTableNameChange
    end
    object BitBtn1: TBitBtn
      Left = 456
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
      Kind = bkClose
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 41
    Width = 536
    Height = 307
    Align = alClient
    ColumnDefValues.Title.TitleButton = True
    DataSource = DataSource1
    DrawMemoText = True
    Flat = True
    FooterColor = clMoneyGreen
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    OddRowColor = clInfoBk
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghTraceColSizing, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind, dghRecordMoving]
    PopupMenu = PopupMenu1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object PopupMenu1: TPopupMenu
    Left = 56
    Top = 208
    object N1: TMenuItem
      Caption = #32593#26684#32534#36753
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = #25968#25454#26597#35810
      OnClick = N3Click
    end
    object N2: TMenuItem
      Caption = #25968#25454#28388#22120
      OnClick = N2Click
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 'FILE NAME=.\db.udl'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    AfterConnect = ADOConnection1AfterConnect
    Left = 56
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 56
    Top = 176
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'TUserLog'
    Left = 56
    Top = 144
  end
end