unit1.pas

一个模糊查询文件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, Excel2000, Grids, DBGrids, DB, ADODB, StdCtrls,
  Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ExcelApplication1: TExcelApplication;
    EXCEL: TButton;
    BitBtn1: TBitBtn;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    ADOConnection1: TADOConnection;
    procedure EXCELClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.EXCELClick(Sender: TObject);
var
  asheet:Variant;
  i:integer;
begin

begin
 with ADOQuery1 do begin
    if isempty then exit;
    ExcelApplication1.workbooks.add(xlWBATworksheet,0);
    asheet:=ExcelApplication1.Worksheets.item[1];
    asheet.cells[1,1]:='料号';
    asheet.cells[1,2]:='名称';
    asheet.cells[1,3]:='规格';
    i:=2;
    first;
    while not eof do begin
       asheet.cells[i,1]:=fieldbyname('prd_no').aSstring;
       asheet.cells[i,2]:=fieldbyname('name').aSstring;
       asheet.cells[i,3]:=fieldbyname('spc').aSstring;
       i:=i+1;
       next;
    end;
    asheet.Saveas('d:\part.xls');
    asheet.Application.quit;
    showmessage('数据转入完毕,文件名为d:\part.xls');
 end;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
        with ADOQuery1 do
        begin
        close;
        sql.clear;
        sql.AddStrings(memo1.Lines);
        OPEN;
        END;
end;

end.