一个简单的问题，关于报表生成？（在线等）

Question

Dbgrid中的内容,为什么我打印的时候数据库中的内容全部都打印出来了
而我只想打印Dbgrid中的一条记录，
我只写了下面这点程序代码(请问大虾怎么弄)
begin
  Application.CreateForm(TfrmPrintHome,frmPrintHome);
  frmPrintHome.QuickRep1.Preview;
end;

Answer 1

procedure TForm.PrintClick(Sender: TObject);
begin
  selectsome;
  Application.CreateForm(TfrmPrintHome,frmPrintHome);
  frmPrintHome.QuickRep1.Preview;
end;procedure TForm.selectsome;
var
  smainid,s:string;
begin
    s:='select * from 表where 什么=什么';
    Query.SQL.Clear;
    Query.SQL.Add(s);
    Query.Open;
end;