EMS QueryBuilder 组件使用方法_emsqueryforfotil-CSDN博客

本文链接：https://blog.csdn.net/winniezhang/article/details/128893243

该文详细描述了如何在Delphi环境中使用ADO组件进行数据库操作，包括设置ADOConnection连接字符串，创建并配置ADOQuery执行SQL查询，以及将查询结果添加到QBTable展示。具体步骤包括拖放组件到表单，设置数据库连接属性，编写SQL语句，以及处理查询结果。

摘要由CSDN通过智能技术生成

1、拖拽“EMS QueryBuilder ”组件到form上。

2、拖拽“adoconnection”组件到form上。

3、拖拽“adoquery”组件到form上。

4、设置2、3、步骤的组件属性。

  ADOConnection1 := TADOConnection.Create(Self);

  with ADOConnection1 do
  begin
    Name := 'ADOConnection1';
    Connected := True;
    ConnectionString := 
      'Provider=Microsoft.ACE.OLEDB.16.0;Data Source=D:\delphisource\zh' +
      'oubao\Database\weekreport.accdb;Persist Security Info=False';
    LoginPrompt := False;
    Mode := cmShareDenyNone;
    Provider := 'Microsoft.ACE.OLEDB.16.0';
  end;

var
  Query: TADOQuery;

  Query := TADOQuery.Create(Self);

  with Query do
  begin
    Name := 'Query';
    Connection := ADOConnection1;
    Parameters := <>;
    SQL.Clear;
    SQL.Add('select * from '#21608#25253' where 1=1');
  end;

5、uses

uses
   DB, ADODB, QBWindow, QBFloatTable, QBParser, QBMSWindow;

6、主要代码。

var
  Tbl: TQBTable;
  N, F: string;
  Params: TParams;
begin
  Params := TParams.Create;
  try
    Query.Active := false;
    N := '周报';
    F := '[周报]';
    Query.SQL.Text := Format(cSelect, [F]);
    Query.Open;
    try
      Tbl := QueryBuilder.Tables.AddTable(N, '', Query);
      if (Tbl <> nil) then
      begin
        Tbl.Left := 0;
        Tbl.Top := 0;
      end;
    finally
      Query.Close;
    end;
  finally  
    Params.Free;
  end;
end;

运行效果。