getapass.dfm

这是一个获取ACCESS 数据库密码的强悍软件, 适用于ACCESS2

object PassForm: TPassForm
  Left = 25
  Top = 42
  Width = 686
  Height = 345
  Hint = #36825#37324#26159#20462#25913#31995#32479#30340#26085#26399#21644#26102#38388#31383#21475
  Caption = 'ACCESS '#25968#25454#24211#23494#30721#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 265
    Width = 678
    Height = 5
    Cursor = crVSplit
    Align = alTop
  end
  object ListView1: TListView
    Left = 0
    Top = 55
    Width = 678
    Height = 210
    Align = alTop
    Columns = <
      item
        AutoSize = True
        Caption = #25968#25454#24211#21517#31216
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = #25968#25454#24211#31867#22411
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = #29992#25143#23494#30721
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = #21019#24314#26102#38388
      end>
    GridLines = True
    HideSelection = False
    HotTrack = True
    ReadOnly = True
    RowSelect = True
    SmallImages = ImageList1
    SortType = stText
    TabOrder = 0
    ViewStyle = vsReport
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 297
    Width = 678
    Height = 21
    Panels = <
      item
        Alignment = taCenter
        Text = #22914#38656#35201' Delphi '#25216#26415#25903#25345#65292#27426#36814#32852#31995' EMail:[e-mail] '#30005#35805#65306'0757-3983419 '#35874#28145#21018
        Width = 50
      end>
  end
  object Memo1: TMemo
    Left = 0
    Top = 270
    Width = 678
    Height = 27
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 678
    Height = 55
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 28
        Text = 'MDB-'#30456#20851#25805#20316#26639#65306
        Width = 674
      end
      item
        Control = Edit1
        ImageIndex = -1
        MinHeight = 21
        Text = #25968#25454#24211#25991#20214#36335#24452#65306
        Width = 415
      end
      item
        Break = False
        Control = Pick1
        ImageIndex = -1
        MinHeight = 20
        Text = #31995#32479#30340#26102#38388#25913#20026#65306
        Width = 257
      end>
    DesignSize = (
      674
      51)
    object ToolBar1: TToolBar
      Left = 109
      Top = 0
      Width = 561
      Height = 28
      AutoSize = True
      ButtonHeight = 24
      ButtonWidth = 93
      Caption = 'ToolBar1'
      EdgeBorders = [ebTop, ebBottom]
      Flat = True
      Images = ImageList2
      List = True
      ShowCaptions = True
      TabOrder = 0
      object ToolButton4: TToolButton
        Left = 0
        Top = 0
        Caption = #36873#25321#30446#24405'(&D)'
        ImageIndex = 3
        OnClick = GetMDBDir
      end
      object ToolButton2: TToolButton
        Left = 93
        Top = 0
        Caption = #26174#31034#23494#30721'(&S)'
        ImageIndex = 1
        OnClick = GetAllPass
      end
      object ToolButton3: TToolButton
        Left = 186
        Top = 0
        Caption = #26032#24314'&MBD'#24211
        ImageIndex = 2
        OnClick = CreateMDB
      end
      object ToolButton1: TToolButton
        Left = 279
        Top = 0
        Caption = #20462#25913#26102#38388'(&T)'
        ImageIndex = 0
        OnClick = SetCurTime
      end
      object ToolButton5: TToolButton
        Left = 372
        Top = 0
        Caption = #20445#30041#39033#30446'(&R)'
        ImageIndex = 4
      end
      object ToolButton6: TToolButton
        Left = 465
        Top = 0
        Caption = #20851#38381#31383#21475'(&X)'
        ImageIndex = 5
        OnClick = CloseForm
      end
    end
    object Edit1: TEdit
      Left = 109
      Top = 30
      Width = 302
      Height = 21
      Hint = #21452#20987#21015#20986#25351#23450#30446#24405#25152#26377' MDB '#25991#20214#23494#30721
      Anchors = [akLeft, akTop, akRight]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'D:\'
      OnDblClick = GetAllPass
      OnKeyPress = Edit1KeyPress
    end
    object Pick1: TDateTimePicker
      Left = 526
      Top = 30
      Width = 144
      Height = 20
      Hint = #21452#20987#20462#25913#31995#32479#26085#26399#26102#38388