Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

¹ØÓÚDELPHIµÄÁ½¸öСÒÉÎÊ Ð»Ð»¸÷λ£¡

1¡¢DELPHIÖÐNEWÒ»¸öApplication£¬ÔËÐÐÆðÀ´µÄʱºò¿ÉÒÔÔÚÈÎÎñ¹ÜÀíÆ÷Öв鿴µ½Õâ¸öproject1.exeµÄÏß³ÌÊýΪ3£¬ÎÒÏëÖªµÀÕâÈý¸öÏ̷ֱ߳ðÊÇʲô£¬ÔÚʲôÇé¿öÏ´´½¨µÄ?
2¡¢Èç¹ûÎÒµ±Ç°´ò¿ªÁËN¸öDELPHI»·¾³£¬ÕâʱºòÎÒÏëͨ¹ýË ......

ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ

ÕâÓïÑÔºÃÄѰ¡  ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É

Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......

delphiµ÷ÓÃdllÎÊÌ⣬ר¼Ò¾ÈÃü£¬100·ÖÈ«²¿ËÍÉÏ¡£

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

5¡¢ClsPort
VOID PASCAL ClsPort(HANDLE hCom)
¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£
²ÎÊý˵Ã÷£º
·µ»ØÖ ......

delphi µ÷Óô洢¹ý³Ì

Çë½Ì´ó¼ÒÒ»¸öÎÊÌ⣬delphi²»Óÿؼþµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì¡£ ÈçÏÂÃæÓï¾ä£º
....//Ç°ÃæµÄÓï¾äÎÒ¾ÍÊ¡ÂÔÁË
strSQL:='UP_READREQ '+''''+strApplyID+''''+,+strNo+', ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ