delphiÖÐselectÓï¾ä±äÁ¿²éѯ
SQL.Add('SELECT formula,val(DMAF) as i from Åä·½Õï¶Ï±í where 1=1 and formula ='''+Combobox3.Text+''' and formula ='''+Combobox4.Text+''''); Õâ¸öÓï¾äÖС£ÎÒÏë°Ñval£¨DMAF£©×÷Ϊһ¸ö±äÁ¿¡£²éѯ¸÷¸ö×ֶεÄÖµ¡£ÇëÎÊÈçºÎ¸øËùÒª²éѯµÄ±äÁ¿×ֶθ³ÖµÄØ¡£ ¾ÍÊÇ˵±íÖÐÓкöà×ֶΡ£ÈçºÎ²éѯ¸÷¸ö×ֶεÄÖµ¡£ºóÃæwhereÌõ¼þ²»±ä¡£ÈçºÎʵÏÖ
sqlstr:='insert into Machine (MACHINEID,USERID) values (:Pmach,:puser)'; params[0].value:=machedit.Value ; params[1].Value :=edituser.Value ; ¿ÉÒÔʹÓÃParamsÕâ¸ö²ÎÊý ²éѯÓï¾äÔõôдÄØ£¿ ÒýÓà sqlstr:='insert into Machine (MACHINEID,USERID) values (:Pmach,:puser)'; params[0].value:=machedit.Value ; params[1].Value :=edituser.Value ; ¿ÉÒÔʹÓÃParamsÕâ¸ö²ÎÊý Delphi(Pascal) code: with ADOQuery1 do begin Active := false; SQL.Clear; SQL.Add('SELECT * from Åä·½Õï¶Ï±í where ......'); Active:=true; First; while not EOF do begin for i:=0 to Fields.Count-1 do begin //ͨ¹ýÑ»·È¡¸÷×ֶεÄÖµ //Show Fields[i].value end; Next; end; ¾ßÌåµ½ÎÒÉÏÃæµÄÓï¾ä¡£ÎÒ¸ÄÔõôдÄØ£¿ÄܸøÎÒ¾Ù¸öСÀý×ÓÂð£¿Ð»Ð»ÁË¡£ÎÒÏë²éѯÁ½¸ö×ֶεÄÖµ¡£È»ºó°ÑÕâÁ½¸öÖµ¸³µ½dbchartÖеÄÖùÐÎͼÖС£ÎÒÈçºÎʵÏÖÄØ£¿ ллÁË¡
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº s = unicode("²âÊÔ", "gb2312") s = u'\u6d4b\u8bd5' print s ²âÊÔ ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿ ÕÒµ½¸ö·½·¨ ......
ÎÒÏ뽫c#дµÄ¿Ø¼þǶµ½Delphi7µÄFormÖÐÏÔʾ£¬µ«ÊÇʼÖÕÊÇû×ø³É£¬ÎÒͨ¹ýµ¼ÈëtlbÎļþ£¬¿ÉÒÔͨ¹ýc#дµÄ½Ó¿Ú£¬ÊµÏÖÔÚDelphiÖÐÏÔʾһ¸ö´°Ì壬µ«ÊÇÏÔʾµÄÖ»ÊÇÔÚ×ÀÃæÉϸ¡¶¯µÄ´°Ì壬ÎÞ·¨½«ËûµÄ¸¸ÈÝÆ÷Ö¸¶¨ÎªDelphiµÄForm£¬ÎÒÏë ......
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Â𣿠Win32¿ª·¢²»ÈçC#£» ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£» ϵͳ¿ª·¢²»ÈçVC++6.0£» ÄÜÓÃÐÔ²»ÈçVB6.0£» ²»Ö§³ÖWeb¿ª·¢¡£¡£¡£ ³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÎÒÏëÓà Delphi ±àд°üº¬º¯ÊýµÄ Dll£¬È»ºóÔÚ Excel VBA µ÷Óá£ÊÔÁ˺ܶà´Î¶¼ÎÞ·¨·µ»ØÕýÈ·µÄ½á¹û¡£ ¾ßÌåÈçÏ£º Delphi7 ÖеIJâÊÔÔ´Â룺 //********************************************************* ......