Delphi不是有数据感知控件吗?在界面上放置Query1,DataSource1,DBEdit1,DBMemo1等
将DataSource1的DataSet设为Query1,DBedit1的DataSource设为DataSource1,Dbedit1的DataField设为你想要显示的字段,其他的依此类推,Query1的SQL语句写成select iid,name,price from products where price = 30剩下的你自己调一下吧。
ListBox1.items.Clear;
with Query1 do
begin
close;
sql.Clear;
sql.add('select PName From PTable where Price=30');
Open;
First;
while not Eof do
begin
ListBox1.Items.Add('PName').AsString;
Next;
end;
end;
begin
Query1.close;
Query1.sql.Clear;
Query1.sql.add('select yourname From yourTable where Price=30');
Query1.Open;
Query1.First;
while not Eof do
begin
edit1.text:=Query1.SQL.Add('yourname').AsString;
end;
end;