unit1.dfm

万能数据库查询客户端源码

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = #25968#25454#24211#26597#35810#24037#20855'-ODBC'
  ClientHeight = 404
  ClientWidth = 567
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 121
    Width = 567
    Height = 3
    Cursor = crVSplit
    Align = alTop
    ResizeStyle = rsLine
    ExplicitWidth = 232
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 567
    Height = 121
    Align = alTop
    Caption = #25968#25454#25805#20316#39029
    TabOrder = 0
    object Panel1: TPanel
      Left = 398
      Top = 15
      Width = 167
      Height = 104
      Align = alRight
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 5
        Width = 100
        Height = 13
        AutoSize = False
        Caption = 'ODBC'#25968#25454#28304#21517#31216#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 8
        Top = 24
        Width = 156
        Height = 19
        Hint = #21452#20987#36873#25321#24050#32463#23433#35013#30340#25968#25454#28304
        Ctl3D = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnDblClick = Edit1DblClick
      end
      object BitBtn1: TBitBtn
        Left = 8
        Top = 51
        Width = 75
        Height = 25
        Caption = #36830#25509
        ModalResult = 1
        TabOrder = 1
        OnClick = BitBtn1Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object BitBtn2: TBitBtn
        Left = 89
        Top = 51
        Width = 75
        Height = 25
        Caption = #26029#24320
        TabOrder = 2
        OnClick = BitBtn2Click
        Kind = bkCancel
      end
      object BitBtn3: TBitBtn
        Left = 8
        Top = 75
        Width = 75
        Height = 25
        Caption = #26597#35810
        ModalResult = 5
        TabOrder = 3
        OnClick = BitBtn3Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
          44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
          00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
          33833F333383F33300003333AA463362A433333333383F333833F33300003333
          6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
          33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
          6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
          000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
          333383333333F3330000333333322AAA4333333333333833333F333300003333
          333322A4333333333333338333F333330000333333344A433333333333333338
          3F333333000033333336A24333333333333333833F333333000033333336AA43
          33333333333333833F3333330000333333336663333333333333333888333333
          0000}
        NumGlyphs = 2
      end
      object BitBtn4: TBitBtn
        Left = 89
        Top = 75
        Width = 75
        Height = 25
        Caption = #23548#20986
        TabOrder = 4
        OnClick = BitBtn4Click
        Kind = bkAll
      end
    end
    object Memo1: TMemo
      Left = 2
      Top = 15
      Width = 396
      Height = 104
      Hint = #21452#20987#21015#20986#25152#26377#34920#21517
      Align = alClient
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = []
      HideSelection = False
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 1
      OnDblClick = Memo1DblClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 124
    Width = 567
    Height = 280
    Align = alClient
    Ctl3D = True
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 264
    Top = 160
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 296
    Top = 160
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 328
    Top = 160
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    Left = 376
    Top = 160
  end
end