delphi µ÷Óô洢¹ý³Ì
Çë½Ì´ó¼ÒÒ»¸öÎÊÌ⣬delphi²»Óÿؼþµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì¡£ ÈçÏÂÃæÓï¾ä£º
....//Ç°ÃæµÄÓï¾äÎÒ¾ÍÊ¡ÂÔÁË
strSQL:='UP_READREQ '+''''+strApplyID+''''+,+strNo+','+''''+ReceiverName+''''; //µ÷Óà ´æ´¢¹ý³Ì
qrySP.close;
qrySP.DatabaseName:='DB';
qrySP.SQL.Text:=strSQL;
try
qrySP.ExecSQL;
except
showmessage('µ÷Óùý³Ì²»³É¹¦');
end£»
......//ºóÃæµÄÎÒҲʡÂÔÁË
ÇëÎÊÎÒÕâÑùµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì£¬²»¼ÓcommitÐÐÂ𣿠Èç¹ûÒª¼Ó¸ÃÔõÃ´Ð´ÄØ£¿Ö±½Ó¼ÓÔÚÓï¾äºóÃæÂð£¿
лл´ó¼Ò£¡
commitÊÇÓÃÓÚÊÂÎñµÄ~~
adoconnection1.BeginTrans;
try
.....
.....
adoconnection1.CommitTrans;
finally
adoconnection1.RollbackTrans;
end;
Óï¾äºÃÏñ»¹Ã»¼Ó exec
strSQL:=' exec UP_READREQ '+''''+strApplyID+''''+,+strNo+','+''''+ReceiverName+'''';
strSQL:=' exec UP_READREQ '+''''+strApplyID+''''+,+strNo+','+''''+ReceiverName+'''';
qrySP.close;
qrySP.DatabaseName:='DB';
qrySP.SQL.Text:=strSQL;
try
&nbs
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
delphi Ï¿ÉÓÐÔ´Âë ʵÏÖÄÚ´æ³Ø ¹Ì¶¨·ÖÅäÄÚ´æ³Ø´óСµÄ¡£¡£ÄÚ´æ³ØÂúºó×Ô¶¯×ª´¢Êý¾Ýµ½¡£¡£Ö¸¶¨µÄÒ»¸öÁÙʱÎļþ£¬
²»ÖªµÀ¿É·ñÄÄλÐÖµÜ×ö¹ýÀàËÆµÄÀý×Ó¡£¡£¡£¡£¡£×îºÃÓÐÑÝʾԴÂë¡£¡£¡£Ð»Ð»
ËÑÒ»ËÑ,×Ü»áÓÐ...
......
delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿
Çë¸÷λ´óÀаïæ£¡
×îºÃÓиöʵÀý£¡
¶àл
Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶
ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡¡¡¡*^_^*
¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå
ÕæÎÞÓï¡£¡£¿É ......