Delphi ÓйØÊÂÎñµÄ´¦Àí - Delphi / Êý¾Ý¿âÏà¹Ø
Delphi(Pascal) code:
procedure TfrmRQZLGL.btnDelete_ZLClick(Sender: TObject);
var
Str1,Str2:string;
begin
if Application.MessageBox('ÕýÔÚɾ³ýÐÅÏ¢£¬ÊÇ·ñ¼ÌÐø£¿', 'ÌáʾÐÅÏ¢', MB_YESNO +
MB_ICONQUESTION) = IDYES then
begin
Str1 := Format('delete from RQ_ZLZB where BillNo = %s',[qry_ZLZB.FieldByName('BillNo').AsString]);
Str2 := Format('delete from RQ_ZLMXB where BillNo = %s',[qry_ZLZB.FieldByName('BillNo').AsString]);
if not DMMain.conMain.InTransaction then DMMain.conMain.BeginTrans;
try
DMMain.ExecSQLA(Str1);
DMMain.ExecSQLA(Str2);
except
if DMMain.conMain.InTransaction then DMMain.conMain.RollbackTrans;
end;
DMMain.conMain.CommitTrans;
end;
end;
ÓÐÒÔÉÏ´úÂ룬ÓÃÀ´É¾³ýÖ÷±íºÍ´Ó±íµÄ¹ØÁªÊý¾Ý£¬µ«ÊÇ ±¨´íÁË£¬Ëµ ¡®Ã»ÓлÊÂÎñ¡¯£¬Íû¸ßÈËÖ¸µã£¡
Ó¦¸ÃÊdzö´íºóRollbackTransºóÔÙÖ´ÐÐCommitTrans±¨´í°É
Delphi(Pascal) code:
try
DMMain.ExecSQLA(Str1);
DMMain.ExecSQLA(Str2);
Except
if DMMain.conMain.InTransaction then DMMain.conMain.RollbackTrans;
end;
DMMain.conMain.CommitTrans;
ÎÒÊÇÔÚ Except ÀïÃæдµÄ RollBackTrans ×îºóCommitTransµÄ
{
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,´úÂëµÄÿһÐÐҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,ÓеĻ¹ÒªÁíÆðÒ»ÐÐ,Õâ¸öÓй涨Âð?ÒªÔõôд?
ÄѵÀ²»ÄÜÔõÑùдÂð?ÎÒ´ò¸ö±È·½,(.´ú±í³ÌÐò´úÂë)
..............................
......... ......
»¹ÓÐÅóÓÑʹÓà Delphi for PHP µÄ£¿ ÔÚ´ËÂÛ̳ÉÏÕâ·½ÃæÐÅÏ¢Ï൱ÉÙ£¬ÓеĻ°¿ÉÒÔ½»ÏÂÅóÓÑ£¬È˶à×ßµÃÎÈ£¬×ßµÃÔ¶¡£
QQ909992998
DELPHI »¹ÊDz»´íµÄ£¬DELPHI FOR PHP Èç¹û֮ǰÊÇÓÃDELPHI ¿ª·¢¹¤¾ßµÄ»° ˼·¶¼ÊÇ˳³ ......
±ÈÈç 4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31Õ⼸¸öÊýÖÐÈ¡8¸öÊý
ÔõôµÃ³ö Õâ×éÊý¿ÉÒÔ×é³ÉÄÄЩ×éºÏ£¿
Çî¾Ù·¨
ÒýÓÃ
±ÈÈç 4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31Õ⼸¸öÊýÖÐÈ¡8¸öÊý
ÔõôµÃ³ö Õâ×éÊý¿ÉÒÔ×é³É ......