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µÄ
{
Ïà¹ØÎÊ´ð£º
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
ÒÔǰÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß
Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£
Õâ¸öÊDz ......
function ReadTime(intDevno: Integer; var strGet: Pchar): Integer; stdcall; external 'ast.dll'; //¶ÁÈ¡ÈÕÆÚʱ
bcbµ÷ÓÃdelphi µÄdllÕâ¾äÔÚbcbÖÐÈçºÎת»¯¡£
Ó¦¸ÃÊÇC/C++ code:
int __stdcall ReadTime(int in ......
±ÈÈç 4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31Õ⼸¸öÊýÖÐÈ¡8¸öÊý
ÔõôµÃ³ö Õâ×éÊý¿ÉÒÔ×é³ÉÄÄЩ×éºÏ£¿
Çî¾Ù·¨
ÒýÓÃ
±ÈÈç 4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31Õ⼸¸öÊýÖÐÈ¡8¸öÊý
ÔõôµÃ³ö Õâ×éÊý¿ÉÒÔ×é³É ......