unit1.dfm

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

object Form1: TForm1
  Left = 303
  Top = 196
  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'#36164#26009#24211#20013#65104#20849#26377#19977#20010#36164#26009#34920#65104#34920#26684#21517#31216#20998#21029#20026#65109#23458#25142#65105#35746#21333#65105#20135#21697
  end
  object Label2: TLabel
    Left = 32
    Top = 120
    Width = 513
    Height = 17
    AutoSize = False
    Caption = #25191#34892#26597#35810#25353#38062#26159#29992#20110#26597#35810#36164#26009#65104#25191#34892#32534#36753#25353#38062#26159#29992#20110#32534#36753#36164#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 = #31' '#25191#34892#26597#35810
    Default = True
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 608
    Top = 64
    Width = 75
    Height = 25
    Caption = #25191#34892#32534#36753
    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