Êý×Öת»»´óдÈËÃñ±ÒµÄdelphiʵÏÖ
ÎÄÕÂÀ´Ô´£ºIT¹¤³ÌÐÅÏ¢Íø http://www.systhinker.com/html/09/n-12309.html
֮ǰÓÃAccess×÷Ò»¸öÓ¦Ó㬵«ÕÒ²»µ½»õ±Òת»»³É´óдÈËÃñ±ÒµÄ¹¦ÄÜ£¨µ±È»¿ÉÒÔͨ¹ýexcel ת»»£¬µ«²»ÔÚÒ»¸öÓ¦ÓÃÉÏ£¬·ÅÆú£©¡£ÒÔΪ±È½Ï¼òµ¥£¬×Ô¼ºÊÔд£¬ËÖªÓÃÁËÁ½¸öÍíÉÏ£¬²Å»ù±¾ÊµÏÖ£¬µ«Ã»ÓÐСÊýµã£¨Ôª£©ÒÔÏ»õ±ÒµÄת»»¡£Ò²Ã»ÓÐÕ×µÄÅжϡ£¶øÇÒ¶Ô×Ö·ûµÄºÏ·¨ÐÔҲûÓмìÑé¡£½ñÌìÓÐʱ¼ä£¬½«ÆäÍêÉÆÒ»Ï¡££¨¿ÉÄÜ»¹»áÓп¼ÂDz»Öܵĵط½£©
˼·£º
1¡¢ÅжÏÊÇ·ñ´øÓÐСÊýµãµÄ½ð¶î£¬Èç¹ûÊÇ£¬¾ÍÕÒ³öСÊýµãËùÔÚÊý¾Ý¡£¸Ãλ×Ö·û²»½øÐÐת»»¡£
2¡¢Ð¡ÊýµãǰµÄ×÷ΪÕûÊý룬½øÐÐת»»¡£ÕûÊýλµÄÿһλ¶¼Óбíʾ½ð¶îµÄ¼¶±ð£ºÊ°¡¢°Û¡¢Çª¡£¶øÇÒ»¹ÓÐÍò¡¢Òڵļ¶±ð¡£
3¡¢Ð¡ÊýµãºóµÄ×÷Ϊ½Ç¡¢·Ö¡¢Àå´¦Àí¡£
4¡¢Èç¹ûÓÐÁ¬ÐøµÄÁ㣬ֻÏÔʾһ¸öÁã¡£Èç50006,ÏÔʾΪÎéÍòÁ㽡£Èç¹ûÊÇ·¢ÉúÔÚʰ¡¢°Û¡¢ÇªÎ»£¬¸ÃÁ㻹Ҫȥµô¡£
view source
< id="highlighter_197338_clipboard" title="copy to clipboard" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" width="16" height="16" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0" type="application/x-shockwave-flash">
print?
000
function TForm1.changeRmb(const strRmb:string):string;
001
var
002
txt,strhighlevel:string;
003
i,n,m,ilen,ipos:Integer; //n¼Ç¼ÕûÊý²¿·Ö³¤¶È£¬m¼Ç¼·ÖÊý²¿·Ö³¤¶È
004
strarray,strlevel:array of string;
005
p:pchar;
006
ispoint:boolean;//ÅжÏÊÇ·ñÓÐСÊýµã
007
begin
008
ispoint:=false;
009
result:='';
010
ipos:=0;
011
m:=0;
012
txt:=Trim(strRmb);
013
i:=1;
014
p:=PChar(txt);
015
//È¥³ý¿ªÍ·µÄ0£¬ÒÔ¼°.
016
if ((txt[1]='0') and (txt[2]<>'.')) or (txt[1]='.') then
017
begin
018
ShowMessage('µÚ1λ²»ÄÜΪ0»òÕßÊÇ.£¬Í˳ö²Ù×÷');
019
exit;
020
end;
021
//¼ì²é×Ö·ûµÄºÏ·¨ÐÔ
022
while (i<
Ïà¹ØÎĵµ£º
http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX ºÍ Web
ÔÚWindows ²Ù×÷ϵͳÏ£¬ÓÐÒ»¸öÖØÒªµÄ»úÖÆ£¬¾ÍÊÇOLE £¬¾ÍÊÇ¿ÉÒÔÈÃij
¸öÓ¦ÓóÌÐò£¨OLE Controller£©·ÃÎÊÆäËüÓ¦ÓóÌÐò£¨OLE Server£©ËùÌṩµÄ
¹¦ÄÜ£¬ÕâÑù×öµÄºÃ´¦ÊÇ£¬Èç¹ûÒѾÓÐÁËÍê³ÉijÏÄܵijÌÐò£¬Äã¾Í²»±ØÔÙΪ
ijÏÄܱàÐ´ÌØ¶¨ ......
1.Round£¨ËÄÉáÁùÈëÎåÁôË«£©
¹¦ÄÜ˵Ã÷£º¶ÔÒ»¸öʵÊý½øÐÐËÄÉáÎåÈë¡£(°´ÕÕÒøÐмÒËã·¨)
Àý£º
var
i, j: Integer;
begin
i := Round(1.5); // iµÈÓÚ2
j := Round(2.5); // jµÈÓÚ2
end;
ÔÚDelphiÖÐʹÓÃRoundº¯ÊýµÃµ½µÄ´ð°¸ÓÐʱÓëÎÒÃÇËùÔ¤ÆÚµÄ»á²»Ì«Ò»Ñù£º²ÉÓõÄÊÇËÄÉáÁùÈëÎåÁôË«¡£¼´µ±Éá»òÈëλ´óÓÚ»òСÓÚÎåÊ ......
Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËÆºõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬ÁíÍâÒ»ÖÖÊÇÈý¸ö²ÎÊýµÄ£¬Ö ......
====================================================
Delphi²Ù×÷ÎļþµÄÒ»°ã²½Ö裺
1£©¹ØÁªÎļþ£º
AssignFile(var F; FileName :string)£»
2£©³õʼ»¯Îļþ£º
Append(var F :Text);
//ֻд£¬ÓÚÎļþ×îºó×·¼ÓÊý¾Ý
Reset(var F [; RecSize :Word]);   ......
ÔÚsql server µÄnorthwide Öн¨Á¢Ö÷±í
create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )
go
create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id,inv) )
Ê×ÏÈ,ҪעÒâÒÔÏÂÉèÖÃ
1.ҪעÒⱨ´Ó±íqrydetailÉèÖÃ,Åú±£´æ¿ªÊ½. ¼´.locktype= batc ......