Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿

delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

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

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

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

delphi adoÁ¬½ÓÔ¶³Ì·þÎñÆ÷Êý¾Ý¿âÎÊÌâ

¸÷λ°ï¸ö棬ÇëÎÊÓÃdelphiÔõôÑùÔ¶³ÌÁ¬½Ó·þÎñÆ÷Êý¾Ý¿â£¬ÎÒÁ¬½Ó±¾µØµÄ³ÌÐòΪʲôÓÐ´í£¿

adoquery1.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist  Security  Info=True;User&nbs ......

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ