ufrmreadaccess.dfm

数据库通用工具

inherited frmReadAccess: TfrmReadAccess
  Left = 291
  Top = 65
  Width = 800
  Height = 600
  BorderIcons = [biSystemMenu, biMinimize, biMaximize]
  BorderStyle = bsSizeable
  Caption = #25968#25454#25552#21462
  Constraints.MinHeight = 600
  Constraints.MinWidth = 800
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  object Panel3: TPanel [0]
    Left = 0
    Top = 0
    Width = 792
    Height = 573
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object Panel5: TPanel
      Left = 2
      Top = 2
      Width = 788
      Height = 50
      Align = alTop
      TabOrder = 0
      object labPathA: TLabel
        Left = 112
        Top = 18
        Width = 7
        Height = 14
        Caption = '\'
      end
      object bbtOpenA: TBitBtn
        Left = 20
        Top = 10
        Width = 80
        Height = 30
        Caption = #25171#24320' &O'
        TabOrder = 1
        OnClick = bbtOpenAClick
      end
      object Panel1: TPanel
        Left = 607
        Top = 1
        Width = 180
        Height = 48
        Align = alRight
        BevelInner = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 12
          Top = 6
          Width = 28
          Height = 14
          Caption = #31867#22411
        end
        object Label2: TLabel
          Left = 12
          Top = 28
          Width = 28
          Height = 14
          Caption = #21475#20196
        end
        object editUser: TEdit
          Left = 43
          Top = 2
          Width = 120
          Height = 22
          TabOrder = 0
        end
        object editPass: TEdit
          Left = 43
          Top = 24
          Width = 120
          Height = 22
          TabOrder = 1
        end
      end
    end
    object Panel6: TPanel
      Left = 2
      Top = 52
      Width = 788
      Height = 519
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 200
        Top = 0
        Width = 588
        Height = 519
        Align = alClient
        DataSource = DataSource1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = PopupMenu2
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        OnMouseDown = DBGrid1MouseDown
      end
      object Panel8: TPanel
        Left = 0
        Top = 0
        Width = 200
        Height = 519
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object Panel7: TPanel
          Left = 0
          Top = 0
          Width = 200
          Height = 85
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object labBS: TLabel
            Left = 16
            Top = 42
            Width = 35
            Height = 14
            Hint = #34920#25968': '
            Caption = #34920#25968':'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object labJL: TLabel
            Left = 16
            Top = 62
            Width = 35
            Height = 14
            Hint = #35760#24405': '
            Caption = #35760#24405':'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object cbxTable: TComboBox
            Left = 10
            Top = 10
            Width = 180
            Height = 22
            Style = csDropDownList
            ItemHeight = 14
            TabOrder = 0
            OnChange = cbxTableChange
          end
        end
        object grpZD: TGroupBox
          Left = 0
          Top = 85
          Width = 200
          Height = 354
          Align = alClient
          Caption = ' '#23383#27573' '
          TabOrder = 1
          object CheckListBox1: TCheckListBox
            Left = 2
            Top = 16
            Width = 196
            Height = 186
            Align = alClient
            Ctl3D = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ItemHeight = 14
            ParentCtl3D = False
            ParentFont = False
            PopupMenu = PopupMenu3
            TabOrder = 0
          end
          object mo: TMemo
            Left = 2
            Top = 202
            Width = 196
            Height = 150
            Align = alBottom
            Lines.Strings = (
              'select * from')
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
        object Panel10: TPanel
          Left = 0
          Top = 439
          Width = 200
          Height = 80
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 2
          object btnRefresh: TBitBtn
            Left = 20
            Top = 10
            Width = 80
            Height = 30
            Caption = #21047#26032' &R'
            TabOrder = 0
            OnClick = btnRefreshClick
          end
          object BitBtn2: TBitBtn
            Left = 20
            Top = 40
            Width = 80
            Height = 30
            Caption = #20445#23384#37197#32622
            TabOrder = 2
            OnClick = BitBtn2Click
          end
          object BitBtn3: TBitBtn
            Left = 100
            Top = 40
            Width = 80
            Height = 30
            Caption = #35835#21462#37197#32622
            TabOrder = 3
            OnClick = BitBtn3Click
          end
          object BitBtn1: TBitBtn
            Left = 100
            Top = 10
            Width = 80
            Height = 30
            Caption = #26597#35810' &F'
            TabOrder = 1
            OnClick = BitBtn1Click
          end
        end
      end
    end
  end
  object PopupMenu3: TPopupMenu
    Left = 42
    Top = 192
    object N5: TMenuItem
      Caption = #21453#36873' &1'
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #19981#36873' &2'
      OnClick = N6Click
    end
    object N7: TMenuItem
      Caption = #20840#36873' &3'
      OnClick = N7Click
    end
  end
  object OpenDialog2: TOpenDialog
    Filter = 'Access Database (*.mdb)|*.mdb'
    Left = 112
    Top = 192
  end
  object adoConnection: TADOConnection
    CommandTimeout = 15
    ConnectionString = 'Provider=MSDASQL.1;Persist Security Info=False'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 224
    Top = 56
  end
  object ADOQuery1: TADOQuery
    Connection = adoConnection
    Parameters = <>
    Left = 296
    Top = 56
  end
  object ADOQuery2: TADOQuery
    Connection = adoConnection
    Parameters = <>
    Left = 368
    Top = 56
  end
  object ADOQuery3: TADOQuery
    Connection = adoConnection
    Parameters = <>
    Left = 448
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 368
    Top = 104
  end
  object PopupMenu2: TPopupMenu
    Left = 506
    Top = 194
    object N3: TMenuItem
      Caption = #36807#28388' &G'
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #20840#37096' &A'
      OnClick = N4Click
    end
  end
end