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

¸Õ½Ó´¥delphi£¬Ò»ÎÊÌâÇóÖúdelphi¸ßÊÖ

ÉèÓÐÈçϱíÏÔʾÔÚdbgridÖÐ


µ¥¼Û ÊýÁ¿ ×ܼÛ

0.5 100 50

0.2 50 10

0.1 100 10

µ±ÎÒ ÔÚdbgrid ÐÞ¸Ä µ±ÎÒ°Ñ µÚÒ»¸ö¼Ç¼ µÄ µ¥¼Û ×÷Ð޸ĺó,½¹µãÒÆ¿ª ËùÐ޸ĵÄÄǸöµ¥Ôª¸ñʱ, ÎÒÏ£Íû ÄǸö ×Ü¼Û Ò²ÏàÓ¦×÷ ³ö±ä»¯,

±ÈÈç: ÎÒÔÚ dbgridÖÐ ,°Ñ 0.5 ¸Ä³É 0.3 µ±ÓüüÅÌ ÏÂÒÆ ¼ü ÒÆµ½ 0.2 Õâ¸öµ¥Ôª¸ñ ʱ,Ô­ ×ܼÛÖÐµÄ 50 Òª ÏàÓ¦ ±ä³É 30 ,²»Öª¸ÃÔõô×ö.???

²ÉÓõÄÊÇADOQuery +¡¡DataSource

¸ßÊÖÄØ£¬¶¥°¡

ÔÚgridÖеÄSelectCellʼþÀï×öÕâʾͺÃÁË¡£

ADOQuery +¡¡DataSource


ÔÚ£ñ£õ£å£ò£ùÖе¥¼Û×ֶεģϣîValidateʼþÀï×ö£¬»òÕßÔÚdataSourceµÄOnChangeʼþÀïд

ÎÊÌâÒѾ­½â¾ö£¬¾ÍÊÇͨ¹ýÕâÖÖ·½·¨µÄ.

ÒýÓÃ
ÕâÖÖÇé¿öʹÓüÆËã×ֶκͼÆËãʼþÀ´´¦Àí
procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);
begin
  DataSet.FieldByName('×ܼÛ').AsCurrency := DataSet.FieldByName('µ¥¼Û').AsCurrency * DataSet.FieldByName('ÊýÁ¿').AsCurrency;
end;

¼ÆËã×Ö¶ÎÐèÒªÊÖ¹¤½¨Á¢»òÕßʹÓôúÂ뽨Á¢£¡




Ïà¹ØÎÊ´ð£º

Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿

Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂ𣿠......

delphi Òì²½Ïß³Ì

delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿
Çë¸÷λ´óÀаïæ£¡
×îºÃÓиöʵÀý£¡
¶àл

Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶

ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡­¡­¡­¡­*^_^*

¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå

ÕæÎÞÓï¡£¡£¿É ......

delphi µ÷Óô洢¹ý³Ì

Çë½Ì´ó¼ÒÒ»¸öÎÊÌ⣬delphi²»Óÿؼþµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì¡£ ÈçÏÂÃæÓï¾ä£º
....//Ç°ÃæµÄÓï¾äÎÒ¾ÍÊ¡ÂÔÁË
strSQL:='UP_READREQ '+''''+strApplyID+''''+,+strNo+', ......

ÔõôºÃ¾Ãû¼ûDELPHI°æµÄÕÐÆ¸ÌûÁË

RT
ÓÃDelphiµÄÔ½À´Ô½ÉÙÁË

Èý¹úÒªÌø²ÛÁË£¿

Êǰ¡£¬ÂíÉϲ»¾Íµ½´«ËµÖеġ°½ðÈýÒøÊ®¡±ÁËÂð£¿

ÒýÓÃ
Èý¹úÒªÌø²ÛÁË£¿


¶÷

È¥ÕÒÀ¸´°É~~ËûÕýÔÚÕÐÈËÄØ£¿ºÇºÇ~~

ÕÐÆ¸delphi¹¤³Ìʦ--¹¤×÷µØµã£º± ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ