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ÊÇ×Ô¶¯µÄ
ÖÕÓÚÕÒµ½ÎÊÌâËùÔÚ£¬ÎÒÔÚÁíÒ»¸öʼþ´¦ÀíÖÐÓÐЩÎÊÌâ¡£
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
¶¨Òå±äÁ¿s,sqlΪstringÀàÐÍ£¬sΪº¯Êý²ÎÊý£¬sql£º='select field1 from table1 where'+s;ÔËÐÐʱs¸³ÖµÎªid>7»òÕßid<7¡¢id=7,µ«ÊÇÔËÐÐʱ×ÜÊdzö´í£¬Çë¸÷λ°ïÎÒ¸Ä´í£¬¶àл£¡
showMessage(sql)Ï¿´¿´
sql£º='sel ......
ÎÒÓõÄÊÇsql server2000£¬ÀïÃæ´æÓÐ×ֶΣºÕÕÆ¬ image
ÎÒ²»Ã÷°×Ôõô°ÑͼƬ´æÈëÊý¾Ý¿âÖУ¿
ÎÒ»¹ÔÚDelphiÖн¨Á¢ÁË´°Ì壬ÈçºÎ½«Êý¾Ý¿âÖеÄͼƬһ²¢ÏÔʾ³öÀ´£¬ÎÒÓõÄÊÇDBGridºÍImage
ÈçºÎ½«Á½Õß¹ØÁªÆðÀ´£¿£¡
²Î¿¼(ÎÒ»Ø ......