怎么无法实现删除功能，急

Question

query1.Close;
query1.sql.Clear ;
query1.sql.add('delete from 供应商 where 供应商编码=:xh');
query1.ParamByName('xh').AsString :=Trim(DBEdit1.dataField);
query1.execsql;
query1.close;
query1.sql.clear;
query1.SQL.add('select*from 供应商');
query1.Open;

Answer 1

query1.Close; 
query1.sql.Clear ; 
query1.sql.add('delete from 供应商 where 供应商编码=:xh'); 
query1.ParamByName('xh').AsString :=Trim(DBEdit1.text); //或者：  DBEdit1.Field.Value
query1.execsql; 
query1.close; 
query1.sql.clear; 
query1.SQL.add('select*from 供应商'); 
query1.Open