delphi ¼Ç¼Ìí¼ÓÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø
ʹÓÃtadoquery¡¢tdbgrid¹ý³ÌÖÐÓöµ½µ±µã»÷tdbgridÖеÄÊý¾Ýʱ£¬Ìí¼Ó²»ÁËмǼ£¬Èç¹û¸Õ½ø´°ÌåÖ±½Óµã¾Í¿ÉÒÔ.
procedure Tfcost.ToolButton1Click(Sender: TObject);
var
i,j,k:integer;
s1,s2:string;
begin
if adoquery1.Active then
begin
adoquery1.FindLast;
i:=adoquery1.RecNo;
s1:=adoquery1.FieldValues['fcostcode'];
i:=strtoint(s1)+1;
s2:=format('%.4d',[i]);
adoquery1.Append;
adoquery1.FieldByName('fcostcode').Value:=s2;
adoquery1.FieldByName('fcostname').Value:='<ÐÂÏîÄ¿>';
adoquery1.FieldByName('fcosttypid').Value:=1;
adoquery1.FieldByName('fmoney').Value:=0;
end;
end;
²¹³äÒ»ÏÂ
³ö´íÌáʾµ±Ç°¼Ç¼²»ÔÚ²åÈë»ò±à¼×´Ì¬¡£¼Ç¼ָÏò×îºóÒ»Ìõ¼Ç¼£¬dbgridÖÐûÓÐмǼ¡£
ÓÃdbnavigatorÒ²ÊÇÒ»Ñù£¬Òª°´Á½´Î²Å¿´¼ûмǼ¡£
ÔÙ²¹³äһϣ¬ÎÒµÄÊý¾Ý¿âÊÇsql server 2000 £¬Óиö×Ö¶ÎÊÇfcostidÊÇ×Ô¶¯µÄ
ÖÕÓÚÕÒµ½ÎÊÌâËùÔÚ£¬ÎÒÔÚÁíÒ»¸öʼþ´¦ÀíÖÐÓÐЩÎÊÌâ¡£
Ïà¹ØÎÊ´ð£º
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )
¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö
Mark!!!!!!
se ......
ÎÒÓõÄÊÇsql server2000£¬ÀïÃæ´æÓÐ×ֶΣºÕÕÆ¬ image
ÎÒ²»Ã÷°×Ôõô°ÑͼƬ´æÈëÊý¾Ý¿âÖУ¿
ÎÒ»¹ÔÚDelphiÖн¨Á¢ÁË´°Ì壬ÈçºÎ½«Êý¾Ý¿âÖеÄͼƬһ²¢ÏÔʾ³öÀ´£¬ÎÒÓõÄÊÇDBGridºÍImage
ÈçºÎ½«Á½Õß¹ØÁªÆðÀ´£¿£¡
²Î¿¼(ÎÒ»Ø ......
ÒÔǰÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß
Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£
Õâ¸öÊDz ......
1.ÎÒ²»»áÓ¢Óï,ÏÂÔØÁ˸ödelphi2010,´ò¿ªÒÔºóÀïÃæÈ«²¿ÊÇÓ¢Óï,Á¬°ïÖúÎļþÒ²ÊÇÓ¢Óï,ÓÐûÓкº»¯°æµÄ?
2.ÏÂÃæÊÇ×°delphi2010µÄʱºò×°½øÀ´µÄ,Âé·³½âÊÍÕâЩÊÂʲô
Embarcadero Delphi and C++ Builder 2010 Database Pack ......