unit1.dfm

c++ builder,ado控件用法的部分演示

object Form1: TForm1
  Left = 267
  Top = 127
  Width = 527
  Height = 587
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel
    Left = 16
    Top = 272
    Width = 36
    Height = 13
    Caption = #26410#36873#25321
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 519
    Height = 137
    Align = alTop
    BorderStyle = bsNone
    Ctl3D = False
    DataSource = ds1
    FixedColor = clCream
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clGreen
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    OnCellClick = DBGrid1CellClick
    OnTitleClick = DBGrid1TitleClick
  end
  object btnExit: TButton
    Left = 440
    Top = 312
    Width = 75
    Height = 25
    Caption = 'Exit(&E)'
    TabOrder = 1
    OnClick = btnExitClick
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 137
    Width = 519
    Height = 120
    Align = alTop
    DataSource = ds2
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid3: TDBGrid
    Left = 0
    Top = 344
    Width = 513
    Height = 113
    DataSource = ds3
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'username'
        Title.Caption = #29992#25143#21517
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QQ'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Email'
        Width = 113
        Visible = True
      end>
  end
  object btn1: TButton
    Left = 8
    Top = 288
    Width = 75
    Height = 25
    Caption = 'btn1'
    TabOrder = 4
    OnClick = btn1Click
  end
  object con1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=Northwind;Data Source=71D6A006CF694DF;Use ' +
      'Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Wor' +
      'kstation ID=71D6A006CF694DF;Use Encryption for Data=False;Tag wi' +
      'th column collation when possible=False'
    Provider = 'SQLOLEDB.1'
    Left = 296
    Top = 128
  end
  object tbl1: TADOTable
    Active = True
    Connection = con1
    CursorType = ctStatic
    TableName = 'Products'
    Left = 176
    Top = 152
  end
  object qry1: TADOQuery
    Active = True
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from orders')
    Left = 216
    Top = 64
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 176
    Top = 64
  end
  object ds2: TDataSource
    DataSet = tbl1
    Left = 128
    Top = 152
  end
  object con2: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=test;Data Source=71D6A006CF694DF'
    Provider = 'SQLOLEDB.1'
    Left = 464
    Top = 424
  end
  object qry2: TADOQuery
    Active = True
    Connection = con2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select username,QQ,Email from userinfo')
    Left = 392
    Top = 424
  end
  object ds3: TDataSource
    DataSet = qry2
    Left = 424
    Top = 424
  end
end