with UpdateSql1 do
  begin
    InsertSql.Text := Format(
'insert into a (产品名称,型号规格) values (''%s'',''%s'')'),
      [edit1.text,edit2.text]);
    ExecSql(ukInsert);///ukinsert--添加,ukUpdate--更新,ukDelete--删除
  end;