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ÊÇ×Ô¶¯µÄ
ÖÕÓÚÕÒµ½ÎÊÌâËùÔÚ£¬ÎÒÔÚÁíÒ»¸öʼþ´¦ÀíÖÐÓÐЩÎÊÌâ¡£
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
СµÜ×î½ü×öÁ˼¸¸ö·þÎñ ·þÎñÔËÐÐÐèҪһЩ²ÎÊý ²ÎÊýÊÇͨ¹ýÒ»¸ö³ÌÐò½çÃæÐÞ¸ÄµÄ ²ÎÊý±£´æÔÚaccessÊý¾Ý¿âÖÐ ÏÖÔÚ³öÏÖÒ»ÁéÒìÏÖÏó µ¥¶ÀµÄ·þÎñÊÇ¿ÉÒÔ½øÐпØÖƵ썷þÎñµÄÍ£Ö¹ ÔÝÍ£µÈµÈ£©µ«ÊǶà¸ö·þÎñÒ»Æð¿ªÆô»á³öÏÖÒ»·þÎñ¿ª ......
procedure WMNCHitTest(var Msg:TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
ÇëÎÊһϣ¬ÕâÁ½¸öº¯ÊýÊÇÉÏÃæÒâ˼£¬ÔÚÉÏÃæÊ±ºòµ÷Óã¬message WM_NCHITTEST; ......
ÒÔǰÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß
Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£
Õâ¸öÊDz ......