try
//StartTrans
//to do something
//CommitTrans
except
//RollBackTrans
//rasise exception
end;
//StartTrans
//to do something
//CommitTrans
except
//RollBackTrans
//rasise exception
end;
解决方案 »
- 找人给段delphi程序自启动的代码
- IdTCPClient 问题!
- sql语句 语法错误,操作符丢失
- 在三层结构中,如何用SQL语句操作本地数据集?
- 求AdvStringGird控件的帮助!
- 如果工程文件丢了,怎么创建?
- 关于IE的几个问题
- ODAC安装。知道问题有点儿弱,各位海涵吧。
- 100分求助,怎样将TstringGrid中的内容保存到Word中,并有同样的表格形式,fixedcols:=1,fixedrows:=1时,怎样让其中的,某一行的第一行
- 一个送分的简单小问题,大家快来拿,100分大派送!!
- 怎样判断ADO数据集还有未提交的数据????
- 刚刚答辩完,教授们提的问题太无厘头,郁闷!
所以你自己要尽量避免。
if Query1.fieldbyname('sss').asstring='' then
begin
application.messagebox('请填写sss!','系统提示',mb_ok+mb_iconerror);
abort;
exit;
end;
//try
try
Query1.post;
except
showmessage('关键字重复!');
Exit;
end;