Delphi的TDataSetProvider、TDataSet、TAdoQuery、TDataSource、TDataModule控件的组合使用

Delphi的TDataSetProvider、TDataSet、TAdoQuery、TDataSource控件的组合使用

照旧先上控件布局图：

1、File-New-VCL Forms Application，找到控件挨个填上去

用到的控件：Button、TDataSetProvider、TDataSet、TAdoQuery、TDataSource、DbgridEh

设置控件之间的指向关系：

  1>ds1的DataSet指向ds2

  2>dtsprvdr1的DataSet指向qry1

  3>ds2的ProviderName指向dtsprvdr1

  4>DbGrideh的DataSource指向ds1

2、File-New-Other-DataModule，确定

添加一个Adoconnection控件，用于连连接数据库

为了方便，直接双击控件，配置连接串

保存文件

3、此时回到主窗体的pas文件，引用上边新建的DataModual的单元，

      在主窗体找到qry1，设置他的DataSource，指向DataModule5.ADOConnection1

4、给qry1的SQL属性增加所要查询的语句，例如：select  *  from testTable

5、主窗体pas文件增加函数：

procedure GetConnected(Conn: TADOConnection);
begin
  if Conn.Connected = False then
  begin
    Conn.Connected := True;
  end;
end;

function QuerySql(Sql: string; Conn: TADOConnection): boolean;
var
  AdoQuery:TADOQuery;
begin
  Result := False;
  try
    try
      GetConnected(Conn);
      AdoQuery := TAdoquery.Create(nil);    //必须要创建类的实例
      AdoQuery.Close;
      AdoQuery.Connection := Conn;
      AdoQuery.SQL.Clear;
      AdoQuery.SQL.Add(Sql);
      AdoQuery.Open;
      Result := AdoQuery.RecordCount > 0;
    except
      on E: Exception do
      begin
        ShowMessage('语句：' + Sql + #13#10 + '异常类名称：' + E.ClassName + #13#10 + '异常信息：' + E.Message);

        Application.MessageBox('查询数据库失败，请重新查询！', '提示', MB_OK + MB_ICONINFORMATION);
        Result := False;
      end;
    end;
  finally
  end;
end;

6、双击Button按钮：

  QuerySql('select * from testTable',DataModule5.ADOConnection1);
  ds2.Active := False;
  ds2.Active := True;

7、ok，保存，编译运行