unit1.dfm

连接SQL数据库的一个程序

object Main: TMain
  Left = 254
  Top = 107
  Width = 607
  Height = 512
  Caption = 'Main'
  Color = clGrayText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 311
    Top = 66
    Width = 60
    Height = 13
    Caption = #37096#38376#20195#30721#65306
  end
  object Label2: TLabel
    Left = 313
    Top = 116
    Width = 60
    Height = 13
    Caption = #37096#38376#21517#31216#65306
  end
  object Label3: TLabel
    Left = 313
    Top = 166
    Width = 60
    Height = 13
    Caption = #37096#38376#20027#31649#65306
  end
  object Label4: TLabel
    Left = 313
    Top = 216
    Width = 60
    Height = 13
    Caption = #37096#38376#30005#35805#65306
  end
  object Label5: TLabel
    Left = 313
    Top = 266
    Width = 60
    Height = 13
    Caption = #21592#24037#20154#25968#65306
  end
  object Label6: TLabel
    Left = 280
    Top = 312
    Width = 96
    Height = 13
    Caption = #37096#38376#32844#36131#21450#22791#27880#65306
  end
  object Label7: TLabel
    Left = 312
    Top = 392
    Width = 3
    Height = 13
  end
  object Edit1: TEdit
    Left = 399
    Top = 64
    Width = 122
    Height = 21
    TabOrder = 0
    Text = 'Edit1'
    OnChange = TreeView1Click
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 233
    Height = 457
    Align = alLeft
    Images = ImageList1
    Indent = 19
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = TreeView1Click
    OnEnter = TreeviewReFresh
  end
  object ComboBox1: TComboBox
    Left = 288
    Top = 416
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Text = 'ComboBox1'
    Visible = False
  end
  object ComboBox2: TComboBox
    Left = 448
    Top = 416
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    Text = 'ComboBox2'
    Visible = False
  end
  object Edit2: TEdit
    Left = 399
    Top = 112
    Width = 121
    Height = 21
    TabOrder = 4
    Text = 'Edit2'
    OnChange = TreeView1Click
  end
  object Edit3: TEdit
    Left = 399
    Top = 160
    Width = 121
    Height = 21
    TabOrder = 5
    Text = 'Edit3'
    OnChange = TreeView1Click
  end
  object Edit4: TEdit
    Left = 399
    Top = 208
    Width = 121
    Height = 21
    TabOrder = 6
    Text = 'Edit4'
    OnChange = TreeView1Click
  end
  object Edit5: TEdit
    Left = 399
    Top = 256
    Width = 121
    Height = 21
    TabOrder = 7
    Text = 'Edit5'
    OnChange = TreeView1Click
  end
  object Edit6: TEdit
    Left = 399
    Top = 304
    Width = 121
    Height = 21
    TabOrder = 8
    Text = 'Edit6'
    OnChange = TreeView1Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 176
    Top = 144
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'Select * From info')
    Left = 8
    Top = 96
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;User ID=sa;Initial Catalog=gll;Data Source=(local)'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 128
    Top = 144
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource1
    Parameters = <>
    Left = 48
    Top = 96
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource1
    Parameters = <>
    Left = 88
    Top = 96
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource1
    Parameters = <>
    Left = 128
    Top = 96
  end
  object ADOQuery5: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource1
    Parameters = <>
    Left = 176
    Top = 96
  end
  object ADOQuery6: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource1
    Parameters = <>
    Left = 216
    Top = 96
  end
  object ImageList1: TImageList
    OnChange = TreeviewReFresh
    Left = 296
    Top = 8
  end
  object MainMenu1: TMainMenu
    Left = 240
    Top = 8
    object N1: TMenuItem
      Caption = #28155#21152
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20462#25913
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #21024#38500
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #20445#23384
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = ' '
    end
    object N6: TMenuItem
      Caption = #36864#20986
      OnClick = N6Click
    end
  end
end