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

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


Ïà¹ØÎÊ´ð£º

delphiÖÐcopyº¯ÊýµÄÎÊÌâ

edit2.Text:=edit2.Text+l.Strings[i]+',';
edit2.Text:=copy(edit2.Text,1,length(edit2.Text)-1);
ΪʲôÊä³öµÄ½á¹ûÀïûÓÐÁ˶ººÅ£¬±ÈÈç˵ÊäÈë11£¬10£¬12£¬13£¬18Êä³öÊÇ1011121318
Èç¹ûÈ¥µô-1µÄ»° ......

delphi WITH DOµÄÎÊÌâ

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 ......

DelphiÕâôÁéÒìµÄ£¿

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µ÷ÓÃdllÎÊÌ⣬ר¼Ò¾ÈÃü£¬100·ÖÈ«²¿ËÍÉÏ¡£

ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º

5¡¢ClsPort
VOID PASCAL ClsPort(HANDLE hCom)
¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£
²ÎÊý˵Ã÷£º
·µ»ØÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ