急用，做毕业设计！拜托了

Question

用query，
query1.Active:=False;
query1.sql.clear;
query1.sql.add('Select field1 from a where 条件');//field1为要查的字段名
query1.active:=True;
while not query1.eof do
begin
  memo1.lines.add(query1.fields[0].asstring);
  query1.next;
end;
同理，删除
query1.active:=false;
query1.sql.clear;
query1.sql.add('delete * from a where 条件');
query1.execsql;

Answer 1

先用session来得到你的表的各个字段，然后用query来写sql语句，将查询的结果显示在memo中就可以了。
使用的控件：combobox1:tcombobox,listbox1:Tlistbox,session1:Tsession;procedure Tform1.formcreat(sender:Tobject);
begin
 session1.getaliasname(combobox1.items);    //得到数据库别名
 combobox1.text:=combobox1.items.string[0];
end;procedure Tform1.combobox1click(sender:Tobject);
begin
  str:=combobox1.items.string[combobox1.itemindex];//得到相应表的名字
  session1.gettablenames(str,’’,true,true,listbox1.items);
end;procedure Tform1.button1click(sender:Tobject);
begin
 session1.getfieldnames(combobox1.text,listbox1.items.string[listbox1.itemindex],listbox2.items);
end;
这样在listbox2种得到的就是表的字段，然后再用query来查询就好了。