main.dfm

一个分析access数据库的源代码

object MainForm: TMainForm
  Left = 309
  Top = 240
  Width = 486
  Height = 362
  Caption = 'ADP DB Explorer'
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  WindowMenu = Window1
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 153
    Top = 61
    Width = 4
    Height = 236
    Beveled = True
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 297
    Width = 478
    Height = 19
    AutoHint = True
    Panels = <>
    SimplePanel = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 478
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Color = clMedGray
    TabOrder = 1
    object imgTop: TImage
      Left = 0
      Top = 0
      Width = 41
      Height = 41
      Align = alLeft
      Center = True
      Picture.Data = {
        0954474946496D61676547494638396120002000B30000FFFFFFC6C6C6848484
        00FFFF0000FF000084FFFF0084840000FF00008400FF00008400000000000000
        0000000000000021F9040908000D002C00000000200020004004FFB0352100A0
        385FCCA4FFE0C7045D28905215AC8150A66D26CF18822414E3EA9555A980C025
        2830308EC82452A2A4C4940CA22E481AB55E2901014020F0300B8062F1FDF18E
        95510E1ABDB2CFBB5043D78A11517253D0C2EA0BA757290047787923581E271D
        2A51838121040316880D0B961F66267E9B9C9C3A47306B6FA370688E1C7B422A
        020765329F25AE77432D4679B720505594793D1416C0C051BE2F02292027317E
        1A6D2E13522BBC738788748B418D6AD287728ACFD156CE725D05DD852A8F265B
        5DAE61931A2E399834F4F5F12527F6FA199FA1FBFBFDE838F144A8138778A792
        35F241C408A78353A0F02172C7D5AB1D745A0C3941B18E344348107ED459D50A
        974959B53E9A34B4F24304003B}
    end
    object lblTOP: TLabel
      Left = 41
      Top = 0
      Width = 359
      Height = 41
      Align = alClient
      Caption = 'lblTOP'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCream
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
      WordWrap = True
    end
    object Panel2: TPanel
      Left = 400
      Top = 0
      Width = 78
      Height = 41
      Align = alRight
      BevelOuter = bvNone
      Color = clMedGray
      TabOrder = 0
      object CloseButton: TSpeedButton
        Left = 5
        Top = 4
        Width = 68
        Height = 33
        Caption = 'Close'
        Flat = True
        Glyph.Data = {
          E6040000424DE604000000000000360000002800000014000000140000000100
          180000000000B0040000C30E0000C30E00000000000000000000C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5000000000000C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5000000C5C5C5000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C500000000000000000000000000000000000000
          0000C5C5C5C5C5C5000000000000000000000000000000000000000000000000
          000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000000000C5C5C5C5C5
          C5C5C5C5000000FFFFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5C5C5C5
          000000FFFFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5000000000000FF
          FFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5C5C5C5000000FFFFFFFFFF
          FF000000C5C5C5C5C5C50000FFC5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5C5C5C5000000FFFFFFFFFFFF000000
          C5C5C50000FFC5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5000000C5C5C5C5C5C5C5C5C5C5C5C5000000FFFFFFFFFFFF0000000000FF00
          00FF0000FF0000FF0000FFC5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000
          C5C5C5C5C5C5C5C5C5C5C5C5000000FFFFFFFFFFFF000000C5C5C50000FFC5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5
          C5C5C5C5C5000000FFFFFFFFFFFFFFFFFF000000C5C5C5C5C5C50000FFC5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C50000
          00FFFFFFFFFFFFFFFFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5000000FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C50000000000000000000000000000000000000000000000
          00000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
          C5C5C5C5C5C5C5C5C5C5}
        OnClick = CloseButtonClick
      end
    end
  end
  object TreePanel: TPanel
    Left = 0
    Top = 61
    Width = 153
    Height = 236
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    object DBTree: TTreeView
      Left = 0
      Top = 0
      Width = 153
      Height = 236
      Align = alClient
      Color = clSilver
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnClick = DBTreeClick
    end
  end
  object pnlBaza: TPanel
    Left = 0
    Top = 41
    Width = 478
    Height = 20
    Align = alTop
    BevelOuter = bvNone
    Caption = 'NOT Connected'
    Color = clSilver
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 24
    Top = 236
    object mnuFile: TMenuItem
      Caption = '&Database'
      object mnuOpen: TMenuItem
        Action = actFileOpen
        Caption = '&Open Access (MDB)'
      end
      object mnuOpenSQLServer: TMenuItem
        Caption = 'Open &SQLServer'
        ImageIndex = 20
        OnClick = mnuOpenSQLServerClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnuMRU: TMenuItem
        Caption = '&MRU'
        ImageIndex = 10
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuDisconect: TMenuItem
        Caption = 'Disconnect'
        Enabled = False
        ImageIndex = 19
        OnClick = mnuDisconectClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnuExit: TMenuItem
        Action = FileExit1
        ImageIndex = 18
      end
    end
    object Window1: TMenuItem