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
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
edit2.Text:=edit2.Text+l.Strings[i]+',';
edit2.Text:=copy(edit2.Text,1,length(edit2.Text)-1);
ΪʲôÊä³öµÄ½á¹ûÀïûÓÐÁ˶ººÅ£¬±ÈÈç˵ÊäÈë11£¬10£¬12£¬13£¬18Êä³öÊÇ1011121318
Èç¹ûÈ¥µô-1µÄ»° ......
procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
begin
SetLength(a,200);
for I := 0 to 199 do
begin
A[i]:=Tedit.Create(self);
with A[i] do
&n ......