Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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µÄ
{


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi ×·Òª°æÈ¨·Ñ£¡£¡ - Delphi / ·Ç¼¼ÊõÇø

ÄãÃÇÓöµ½Õâ¸öÎÊÌâÂð£¿Ê¹ÓÃdelphi µÄʱºò£¬À´ÁËÒ»·âÐÅ¡£ËµÒªÎҽ̰æÈ¨·Ñ¡£Îһ赹¡£Ôõô°ì£¿
²»ÄÜÔõô°ì,Ò»ÊÇÀíËûÃÇ 2ÊDz»ÀíËûÃÇ

Äã·Å»°½ÐËûÃÇÀ´¹«Ë¾²é¡£¡£¡£¿´ËûÃÇÓе¨Ã»£¿

²»ÀíËûÃǾÍÊÇ£¬µ±Ê±Ò²ÎÊÎÒÃǹ«Ë¾ÒªµÄ ......

delphiÊéд¸ñÔò? - Delphi / ·Ç¼¼ÊõÇø

ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,дµÄ´úÂëÿһÐж¼ÊÇҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,Õâ¸öÓй涨Âð?Ôõô¿´?
ÒÔÏÂÊÇÎÒÔÚÍøÉÏÕÒµÄÒ»¶Î³ÌÐò´úÂë
===================================================================== ......

delphi - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

±¾È˽ñÄê17Ëê,·Ç³£Ï²»¶delphi,µ«ÓÉÓÚ»ù´¡ÓÐÏÞ,´ÓÍøÉÏÏÂÔØ×ÊÁÏѧϰ,¿´µÃÔÎËÀÁË,¶¼²»ÖªµÀÔÚ˵ʲô!ËùÒÔ½ñÌìÔÚ´Ë·¢Ìû,¹ãÑû¸÷λdelphi°®ºÃÕß°ïÖúÎÒ!Èç¹û±¾ÈËËûÈÕÓÐÐÒѧµÃdelphi±à³Ì,¶¨µ±°ÑÔ´´úÂë·¢²¼³öÀ´,ÔÚ´ËÒ»±í¸Ðл!Ï ......

Delphi for PHP - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

»¹ÓÐÅóÓÑʹÓà Delphi for PHP µÄ£¿ ÔÚ´ËÂÛ̳ÉÏÕâ·½ÃæÐÅÏ¢Ï൱ÉÙ£¬Óеϰ¿ÉÒÔ½»ÏÂÅóÓÑ£¬È˶à×ßµÃÎÈ£¬×ßµÃÔ¶¡£
QQ909992998 
DELPHI »¹ÊDz»´íµÄ£¬DELPHI FOR PHP Èç¹û֮ǰÊÇÓÃDELPHI ¿ª·¢¹¤¾ßµÄ»° ˼·¶¼ÊÇ˳³ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ