settpas.dfm

特别方便的工具程序

object SettForm: TSettForm
  Left = 115
  Top = 115
  Width = 544
  Height = 375
  Caption = #21442#25968#35774#32622#31383#21475
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 12
  object SubDirs: TCheckBox
    Left = 25
    Top = 29
    Width = 77
    Height = 17
    Caption = #26816#32034#23376#30446#24405
    Checked = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 0
  end
  object DBGridEh2: TDBGridEh
    Left = 0
    Top = 72
    Width = 536
    Height = 276
    Align = alBottom
    AutoFitColWidths = True
    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
    RowHeight = 20
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleHeight = 20
    Columns = <
      item
        EditButtons = <>
        FieldName = #25991#20214#31867#22411
        Footers = <>
        Title.Alignment = taCenter
        Width = 65
      end
      item
        EditButtons = <>
        FieldName = #22791#27880
        Footers = <>
        Title.Alignment = taCenter
      end>
  end
  object FileTypeS: TDataSource
    DataSet = FileType
    Left = 256
    Top = 128
  end
  object FileType: TADOQuery
    Connection = ToolBase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From FileType'
      '')
    Left = 208
    Top = 128
  end
  object ToolBase: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Delphi\ToolDir\F' +
      'ileBase.mdb;Persist Security Info=False'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 160
    Top = 128
  end
end