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
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
ÔÚÏÂÃæµÄ´úÂëÖпÉÒÔʵÏÖEdit1.TextÖÐÊäÈë6¸ö×Öĸ»òÊý×ÖʱEdit2.SetFocus,ÄÇôÎÒÏëÈÃEdit2.textÖÐÊäÈë6¸ö×ÖĸʱʵÏÖEdit3»ñµÃ½¹µã£¬ÓÐûÓмòµ¥Ò»µãµÄ·½·¨£¬Ð»Ð»´ó¼ÒÁË£¡£¡£¡
procedure TForm2.Edit1Change(Sen ......
Delphi(Pascal) code:
var
str:array of string;
i:Integer;
j:Integer;
begin
SetLength(str,1);
for i:=0 to 4 do
begin
j:=Length(Str);
SetLength(str,Length(str)+1);
S ......
ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º
5¡¢ClsPort
VOID PASCAL ClsPort(HANDLE hCom)
¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£
²ÎÊý˵Ã÷£º
·µ»ØÖ ......