unit1.~dfm

ado查询经典实例delphi源码.rar

object Form1: TForm1
  Left = 204
  Top = 208
  Width = 742
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 96
    Width = 529
    Height = 17
    AutoSize = False
    Caption = #27880#65109'Order.mdb'#36039#26009#24235#20013#65104#20849#26377#19977#20491#36039#26009#34920#65104#34920#26684#21517#31281#20998#21029#28858#65109#23458#25142#65105#35330#21934#65105#29986#21697
  end
  object Label2: TLabel
    Left = 32
    Top = 120
    Width = 513
    Height = 17
    AutoSize = False
    Caption = #22519#34892#26597#35426#25353#37397#26159#29992#20110#26597#35426#36039#26009#65104#22519#34892#32232#36655#25353#37397#26159#29992#20110#32232#36655#36039#26009
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 144
    Width = 681
    Height = 305
    DataSource = DataSource1
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 601
    Height = 89
    TabOrder = 1
    WantReturns = False
  end
  object Button1: TButton
    Left = 608
    Top = 32
    Width = 75
    Height = 25
    Caption = #22519#34892#26597#35426
    Default = True
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 608
    Top = 64
    Width = 75
    Height = 25
    Caption = #22519#34892#32232#36655
    TabOrder = 3
    OnClick = Button3Click
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=G:\jr' +
      's\delphi\sql31\ORDER.MDB;Mode=Share Deny None;Extended Propertie' +
      's="";Persist Security Info=False;Jet OLEDB:System database="";Je' +
      't OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLED' +
      'B:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Glob' +
      'al Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet O' +
      'LEDB:New Database Password="";Jet OLEDB:Create System Database=F' +
      'alse;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Local' +
      'e on Compact=False;Jet OLEDB:Compact Without Replica Repair=Fals' +
      'e;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 72
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#23458#25142)
    Left = 40
    Top = 16
  end
end