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 ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
ÎÊÌâÊÇÕâÑù×ÓµÄ
ÎÒÔÚform1Öж¨ÒåÁËÒ»¸ösk1:tsocket
È»ºóÔÚform2ÖÐ
ÓÃsk1 ·¢ËͶ«Î÷ ·¢Íêºó socket ×Ô¶¯¹Ø±ÕÁË~
µ«ÊÇÔÚform1Öз¢¶«Î÷ Èç¹ûÎÒ²»ÔËÐÐ closesocket µÄ»° ÊDz»»á¶ÏµôµÄ
ÎÊÏ ÕâÊÇÔõô»ØÊÂ
ÁíÎÒÔÚ for ......
ÎÒÊÇDELPHIµÄ³õѧÕߣ¬µ«ÀÏʦҪÇóÎÒÃÇ×ö¿Î³ÌÉè¼Æ£¬´ÓÊé±¾ÀïÃæ¿½ÁË´úÂë×Ô¼ºÑо¿£¬µ«ÀÏÊdzöÎÊÌ⣬ÓÐËÊÇÕâ·½ÃæµÄ¸ßÊÖ°¡£¬ÄÜ·ñÁôϸöÁªÏµµÄ·½Ê½°ï°ïæ°¡
³öʲôÎÊÌ⣬Çë¾ßÌå˵Ã÷
·¢ÏÖ¡¢½â¾öÎÊÌâµÄ¹ý³Ì¾ÍÊÇѧϰµÄ¹ý³Ì
......
³ÌÐò¹Ø±ÕµÄʱºò³öÏÖÒì³££º
exception EAccessviolation in moudule JGJC.exe at C08BB35B Access wiolation at address C08BC35B.Read of address C08BC35B.
ÇëÎÊÒ»ÏÂÕâÊÇʲôÒâ˼°¡£¿
·ÃÎÊÔ½½ç
ÊÇ·ñ·ÃÎÊÁËÒѱ»Ê ......