Delphi中ADO之初识

-----------开发环境Delphi7

需要Uses ComOb, ADOInt;

----图片

 不要去纠结报错问题，哈哈哈

 --------------------------------

------------------

SQL Server 2008 Express版的

----------用到一个表

CREATE TABLE [dbo].[Test_01](
[MYID] [varchar](20) NOT NULL,
[MYName] [varchar](50) NULL
)

 ----------

insert into Test_01 values('A001','Test_A001'),('A002','Test_A002'),('A003','Test_A003')

这里插入三笔数据

-------------------------------

注意这个的配置：

const ConStr:string='Provider=SQLOLEDB.1;Password=sa123456;Persist Security Info=True;User ID=sa;Initial Catalog=Test;Data Source=192.168.1.50SQLEXPRESS';

Provider=SQLOLEDB.1;

Password=sa123456;//密码

Persist Security Info=True;

User ID=sa;//登入名

Initial Catalog=Test;//数据库名称

Data Source=192.168.1.50SQLEXPRESS//数据库来源，，一般填写IP就行，我这个是精简版的SQL Server 2008 所以用了192.168.1.50SQLEXPRESS

如果觉得这个太坑，请拖一个ADOConnection控件配置好，再把ADOConnection.ConnectionString拷贝出来就行；

-------------------------------------------------------------------------------------------------------------------------------------------------------

----Unit开始

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls, ADOInt;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    procedure SetEditText;
    function CheckQueryActive:Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  ADOCon,ADOQuery:OleVariant;
const ConStr:string='Provider=SQLOLEDB.1;Password=sa123456;Persist Security Info=True;User ID=sa;Initial Catalog=Test;Data Source=192.168.1.50SQLEXPRESS';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  //连接数据库
  if VarIsEmpty(ADOCon) then
    ADOCon:=CreateOleObject('ADODB.Connection');
  //if VarIsNull(ADOCon) then
   // ADOCon:=CreateOleObject('ADODB.Connection');
  ADOCon.Open(ConStr);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOCon.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if VarIsEmpty(ADOCon) then
  begin
    ShowMessage('数据库没有连接！');
    Exit;
  end;
  {if VarIsNull(ADOCon) then
  begin
    ShowMessage('数据库没有连接！');
    Exit;
  end;}
  ADOQuery:=CreateOleObject('ADODB.Recordset');
  ADOQuery.ActiveConnection:=ADOCon;
  ADOQuery.Open('select * from Test_01',ADOCon,adOpenStatic,adLockOptimistic,adCmdText);
  SetEditText;
end;

procedure TForm1.SetEditText;
begin
  Edit1.Text:=ADOQuery.Fields['MYID'].Value ;
  Edit2.Text:=ADOQuery.Fields['MYName'].Value ;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if not CheckQueryActive then
    Exit;
  if not ADOQuery.Eof then  //这个最后一笔判断不准啊
  begin
    ADOQuery.MoveNext;
    SetEditText;
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if not CheckQueryActive then
    Exit;
  if not ADOQuery.Bof then //这个首笔判断不准啊
  begin
    ADOQuery.MovePrevious;
    SetEditText;
  end;
end;

function TForm1.CheckQueryActive: Boolean;
begin
  Result:=False;
  if VarIsEmpty(ADOQuery) then
    Exit;
  //if VarIsNull(ADOQuery) then
  //  Exit;
  Result:=True;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  if not CheckQueryActive then
    Exit;
  if not ADOQuery.Bof then  //这个首笔判断不准啊
  begin
    ADOQuery.MoveFirst;
    SetEditText;
  end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  if not CheckQueryActive then
    Exit;
  if not ADOQuery.Eof then  //这个最后一笔判断不准啊
  begin
    ADOQuery.MoveLast;
    SetEditText;
  end;
end;

end.
//ADOQuery.RecordCount 记录数量

-------Unit结束

----Form开始

object Form1: TForm1
  Left = 885
  Top = 404
  BorderStyle = bsDialog
  Caption = 'Form1'
  ClientHeight = 257
  ClientWidth = 319
  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 Button1: TButton
    Left = 0
    Top = 24
    Width = 137
    Height = 25
    Caption = 'Button1_连接数据库'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 160
    Top = 24
    Width = 153
    Height = 25
    Caption = 'Button2_断开连接'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 24
    Top = 176
    Width = 121
    Height = 21
    ImeName = '中文(简体) - 搜狗拼音输入法'
    TabOrder = 2
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 160
    Top = 176
    Width = 121
    Height = 21
    ImeName = '中文(简体) - 搜狗拼音输入法'
    TabOrder = 3
    Text = 'Edit2'
  end
  object Button3: TButton
    Left = 104
    Top = 96
    Width = 121
    Height = 25
    Caption = 'Button3_查询数据'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 8
    Top = 128
    Width = 145
    Height = 25
    Caption = 'Button4_下一笔'
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 168
    Top = 128
    Width = 145
    Height = 25
    Caption = 'Button5_上一笔'
    TabOrder = 6
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 8
    Top = 216
    Width = 145
    Height = 25
    Caption = 'Button6_首笔数据'
    TabOrder = 7
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 168
    Top = 216
    Width = 145
    Height = 25
    Caption = 'Button7_末笔数据'
    TabOrder = 8
    OnClick = Button7Click
  end
end

--------Form结束