getapass.dfm

ACCESS 97~2000 20位密码破解程序源代码

object PassForm: TPassForm
  Left = 25
  Top = 42
  Width = 686
  Height = 345
  Hint = '这里是修改系统的日期和时间窗口'
  Caption = 'ACCESS 数据库密码管理'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  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 = '数据库名称'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '数据库类型'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '用户密码'
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '创建时间'
      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 = '如需要 Delphi 技术支持，欢迎联系 EMail:[e-mail] 电话：[phone] 谢深刚'
        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 = '宋体'
    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-相关操作栏：'
        Width = 674
      end
      item
        Control = Edit1
        ImageIndex = -1
        MinHeight = 21
        Text = '数据库文件路径：'
        Width = 415
      end
      item
        Break = False
        Control = Pick1
        ImageIndex = -1
        MinHeight = 20
        Text = '系统的时间改为：'
        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 = '选择目录(&D)'
        ImageIndex = 3
        OnClick = GetMDBDir
      end
      object ToolButton2: TToolButton
        Left = 93
        Top = 0
        Caption = '显示密码(&S)'
        ImageIndex = 1
        OnClick = GetAllPass
      end
      object ToolButton3: TToolButton
        Left = 186
        Top = 0
        Caption = '新建&MBD库'
        ImageIndex = 2
        OnClick = CreateMDB
      end
      object ToolButton1: TToolButton
        Left = 279
        Top = 0
        Caption = '修改时间(&T)'
        ImageIndex = 0
        OnClick = SetCurTime
      end
      object ToolButton5: TToolButton
        Left = 372
        Top = 0
        Caption = '保留项目(&R)'
        ImageIndex = 4
      end
      object ToolButton6: TToolButton
        Left = 465
        Top = 0
        Caption = '关闭窗口(&X)'
        ImageIndex = 5
        OnClick = CloseForm
      end
    end
    object Edit1: TEdit
      Left = 109
      Top = 30
      Width = 302
      Height = 21
      Hint = '双击列出指定目录所有 MDB 文件密码'
      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 = '双击修改系统日期时间'