EMS QueryBuilder 组件使用方法

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, QBM