attrpas.dfm

特别方便的工具程序

object AttrForm: TAttrForm
  Left = 55
  Top = 52
  Width = 694
  Height = 495
  Caption = #25991#20214#23646#24615#27983#35272#22120
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 161
    Top = 0
    Width = 5
    Height = 446
    Cursor = crHSplit
  end
  object File1: TShellTreeView
    Left = 0
    Top = 0
    Width = 161
    Height = 446
    ObjectTypes = [otFolders]
    Root = 'rfDesktop'
    UseShellImages = True
    Align = alLeft
    AutoRefresh = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Indent = 19
    ParentColor = False
    ParentFont = False
    RightClickSelect = True
    ShowRoot = False
    TabOrder = 0
    OnKeyPress = File1KeyPress
    OnChange = File1Change
    OnEditing = File1Editing
  end
  object SB: TStatusBar
    Left = 0
    Top = 446
    Width = 686
    Height = 22
    Panels = <
      item
        Width = 300
      end
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object DBGridEh1: TDBGridEh
    Left = 166
    Top = 0
    Width = 520
    Height = 446
    Align = alClient
    AutoFitColWidths = True
    DataSource = MYFileS
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    ParentFont = False
    ReadOnly = True
    RowHeight = 20
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleHeight = 20
  end
  object ToolBase: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=FileBase.mdb;Persis' +
      't Security Info=False'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 256
    Top = 176
  end
  object MYFile: TADOQuery
    Connection = ToolBase
    Parameters = <>
    SQL.Strings = (
      'Select * From MYFile')
    Left = 320
    Top = 176
  end
  object MYFileS: TDataSource
    DataSet = MYFile
    Left = 384
    Top = 176
  end
  object ActionList1: TActionList
    Left = 448
    Top = 176
    object Action1: TAction
      Caption = 'Action1'
      ShortCut = 32856
      OnExecute = Action1Execute
    end
  end
end