送100分，请帮帮忙，很简单的问题

Question

SQLTEXT:='SELECT COUNT(kxlh) AS HMA from ywsjk.dbo.DXHKB WHERE kxlh='''+list_thhm.Items[num]+''' and (xsfs<>''0'' or hm<>''A'')';
    tuxedoquery1.SQL.clear;
    tuxedoquery1.SQL.Add(sqltext);
    tuxedoquery1.open;

Answer 1

.add('update type1 where type1="'+edit.text+'"')

Answer 2

if messagebox(handle ,pchar('are you sure delete data?'),mb_okcancel)=mb_ok then query1.delete
sql.add('update type1 where type1='''edit.text'''')

Answer 3

if messagebox(handle ,pchar('are you sure delete data?'),)=yes then delete
 sal.add('update type1 where type1=edit.text') 你的这两句不对，改成下面的if messagebox(handle ,pchar('are you sure delete data?'),mb_okcancel)=mb_ok then query1.delete;
sql.add('update type1 where type1='''edit.text'''');

Answer 4

对不起，刚最后一句写错了。
sql.add('update type set type1='hehe' where type1='''+edit.text+'''');

Answer 5

if MessageBox(self.Handle,'真的要删除吗?','系统提示',mb_yesno+mb_iconinformation)=id_no then exit ;
  query1.delete(删除操作...)
  //更新操作
  sql.add('update type1 where type1='''edit.text'''')

Answer 6

sal.add('update type1 where type1=''edit.text''') ;

Answer 7

在form2定义一个全局变量，并在yes按钮下添加代码
  全局变量 := Trim(Edit1.Text);
在form1的对应按钮事件里添加代码
with adoquery1 do
begin
  close;
  sql.clear;
  sql.add('Insert into type(type1)        ');
  sql.add(' Values ('''+form2.全局变量+''' ');
  prepared;
  ExecSQL;
  {
  close;
  sql.clear;
  sql.add('Update type                          ');
  sql.add('   Set type1 = '''+form2.全局变量+''' ');
  sql.add(' Where 条件                          ');
  prepared;
  ExecSQL;
  }
  {
  close;
  sql.clear;
  sql.add('Delete type                           ');
  sql.add(' Where type1 = '''+form2.全局变量+''' ');
  prepared;
  ExecSQL;
  }
end;