Çë½Ì´ó¼ÒÒ»¸öÎÊÌ⣬delphi²»Óÿؼþµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì¡£ ÈçÏÂÃæÓï¾ä£º
....//Ç°ÃæµÄÓï¾äÎÒ¾ÍÊ¡ÂÔÁË
strSQL:='UP_READREQ '+''''+strApplyID+''''+,+strNo+','+''''+ReceiverName+''''; //µ÷Óà ´æ´¢¹ý³Ì
qrySP.close; ......
RT
ÓÃDelphiµÄÔ½À´Ô½ÉÙÁË
Èý¹úÒªÌø²ÛÁË£¿
Êǰ¡£¬ÂíÉϲ»¾Íµ½´«ËµÖеġ°½ðÈýÒøÊ®¡±ÁËÂð£¿
ÒýÓÃ
Èý¹úÒªÌø²ÛÁË£¿
¶÷
È¥ÕÒÀ¸´°É~~ËûÕýÔÚÕÐÈËÄØ£¿ºÇºÇ~~
ÕÐÆ¸delphi¹¤³Ìʦ--¹¤×÷µØµã£º±±¾©½¨ÍâSOHO
1¡¢¼ÆËã»úÏà¹Ø×¨Òµ£¬±¾¿ÆÒÔÉÏѧÀú£¬¾ßÓÐÁ½ÄêÒÔÉÏDELPHI¿ª·¢¾Ñ飬ÓÐÁ¼ºÃµÄDelphi¼¼Êõ¹ ......
ÉèÓÐÈçϱíÏÔʾÔÚdbgridÖÐ
µ¥¼Û ÊýÁ¿ ×ܼÛ
0.5 100 50
0.2 50 10
0.1 100 10
µ±ÎÒ ÔÚdbgrid ÐÞ¸Ä µ±ÎÒ°Ñ µÚÒ»¸ö¼Ç¼ µÄ µ¥¼Û ×÷Ð޸ĺó,½¹µãÒÆ¿ª ËùÐ޸ĵÄÄǸöµ¥Ôª¸ñʱ, ÎÒÏ£Íû ÄǸö ×Ü¼Û Ò²ÏàÓ¦×÷ ³ö±ä»¯,
±ÈÈç: ÎÒÔÚ dbgridÖÐ ,°Ñ 0.5 ¸Ä³É 0.3 µ±ÓüüÅÌ ÏÂÒÆ ¼ü ÒÆµ½ 0.2 ......
ÓÐÒ»¸ö½Ð Taking() µÄprocedure,
Óжþ¸ö°´Å¥,
ÎÊÌâ, µãµÚÒ»¸ö°´Å¥µÄ´úÂëÊǵ÷ÓÃTaking()µÄ, Ôõô²ÅÄܵãµÚ¶þ¸ö°´Å¥°ÑTaking()ÖÕÖ¹»ò³·Ïú
¼Ó¸ö±äÁ¿£¬×öÅжϣ¬ÎªFalseʱ£¬Exit
RT£¬¾ÍÊÇÕâÑù£¬µÚÒ»¸ö°´Å¥ÅжÏÖµ£¬µÚ¶þ¸ö°´Å¥µÄʼþ°ÑÖµÉèÖÃΪfalse
ÒýÓÃ
¼Ó¸ö±äÁ¿£¬×öÅжϣ¬ ......
procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean);
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry;
begin
Reg := TRegistry.Create;
  ......
Á½¸öÔÂǰ£¬¿ªÊ¼ÕÐÆ¸Delphi³ÌÐòÔ±£¬ÕÐÆ¸Ç°ËæÊÖдÁ˼¸µÀÌ⣬ÓÃÀ´±ÊÊÔ¡£
µ½ÏÖÔÚ»¹Ã»ÓÐÕе½ÈË£¬ºÜÎÞÄΣ¬±ê×¼ÉõÖÁ½µµ½Ö»ÒªÄÜ×öµÚ1¡¢3¡¢5Ìâ¾Í¼ÓõÄˮƽ¡£½á¹û¾¹È»Ã»ÓÐÈËÄܹ»½«Õâ3Ìâ¶¼´ð¶Ô¡£ºÜ¶àÈËÁ¬stringºÍWideStringµÄÇø±ð¶¼²»ÖªµÀ¡£
½ü¼¸Ä꣬DelphiµÄ´ÓÒµ»·¾³ÖðÄêϽµ£¬ÔÚÍøÂ·ÉÏ¿´µ½ÎÞÊýÈ ......