ListView分类显示数据,怎么操作

Question

www.huasee.com/tt.rar 里面有我写的代码,一条记录我会,多条记录怎么办呢,请高手告诉我
[email protected]
Query1.CLose;
 Query1.SQL.Clear;
 Query1.SQL.Add('Select * From sp');  
 Query1.Open;
// ListItem.Items.Clear; Tlist[1]:=ListItem.Items.Add;
 Tlist[1].Caption:=Query1.FieldByName('sp_sph').AsString;
 Tlist[1].ImageIndex:=0;
怎么把符合条件的记录显示出来呢
如:表SP中字段sp_sph里的以S开头的记录,显示在ListView里面

Answer 1

Query1.SQL.Add('Select * From sp where sp_sph like ''s%''');

Answer 2

Query1.CLose;
 Query1.SQL.Clear;
 Query1.SQL.Add('Select * From sp where sp_sph like ''s%'' ');  
 Query1.Open;query1.first;
while not query1.eof do
beginListView.item.add(query1.fieldbyname(sp_sph).Asstring);
query1.next;end;

Answer 3

Query1.CLose;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From sp where sp_sph like ''s%'' ');  
Query1.Open;query1.first;
ListView.clear;
while not query1.eof do
begin  ListView.item.add(query1.fieldbyname(sp_sph).Asstring);
  query1.next;end;

Answer 4

Query1.CLose;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From sp where sp_sph like ''s%'' ');  
Query1.Open;query1.first;
ListView.clear;
while not query1.eof do
begin  ListView.item.add(query1.fieldbyname(sp_sph).Asstring);
  query1.next;end;