Lazarus SQL显示特定数据

Question

我又有一个问题。

我不会从sql数据库中过滤特定的行，并希望在列表框中显示它们。

当我使用此代码时，我会在列表框中显示整行。

[code = pascal]程序TForm3.Button1Click（Sender：TObject）;   开始      SQLQuery1.Close;      SQLQuery1.SQL.text：='SELECT * FROM Auftrag';

   while (SQLQuery1.Eof = false) do
      begin
     Listbox1.Items.add(SQLQuery1.Fields[1].AsString);
      SQLQuery1.Next;

      end;

端; [/代码]

但是当我应用我的过滤功能时，我只是从表中获得第一条记录。 但我希望所有记录都具有相同的日期。

[code = pascal]程序TForm3.Button1Click（Sender：TObject）;   开始      SQLQuery1.Close;      SQLQuery1.SQL.text：='SELECT * FROM Auftrag，其中Fertig =：Fertig';

 SQLQuery1.Params.ParamByName('Fertig').AsString := Edit1.Text;
 SQLQuery1.Open;

   while (SQLQuery1.Eof = false) do
      begin
     Listbox1.Items.add(SQLQuery1.Fields[1].AsString);
      SQLQuery1.Next;

      end; 

端; [/代码]

它基本上是一个shedule软件。

我的表格如下：

人日期 Person1 10.24.2016 Person2 11.28.2016 Person3 11.28.2016 Person4 12.29.2016 ...

日期格式在sql和编辑表单中相同。