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

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




Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ

·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡­¡­*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

delphiÖйØÓÚEditµÄÎÊÌâ

ÔÚÏÂÃæµÄ´úÂëÖпÉÒÔʵÏÖEdit1.TextÖÐÊäÈë6¸ö×Öĸ»òÊý×ÖʱEdit2.SetFocus,ÄÇôÎÒÏëÈÃEdit2.textÖÐÊäÈë6¸ö×ÖĸʱʵÏÖEdit3»ñµÃ½¹µã£¬ÓÐûÓмòµ¥Ò»µãµÄ·½·¨£¬Ð»Ð»´ó¼ÒÁË£¡£¡£¡

procedure TForm2.Edit1Change(Sen ......

delphi¹ýÂËhtmµÄÎÊÌâ

HTML code:
<th scope="col">¿ì¼þµ¥ºÅ</th><th scope="col">²Ù×÷ʱ¼ä</th><th scope="col">¿ì¼þÁ÷³Ì</th>
</tr><t ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ