delphiÖÐÔõÑùʵÏÖ µã»÷dbgridµÄÒ»ÐиıäÕâÐеÄÑÕÉ«
ÎÒÏëʵÏÖÕâÑùµÄЧ¹û£¬ÓÃÊó±êµ¥»÷dbgridÒ»ÐУ¬Ñ¡ÔñÒ»Ìõ£¬ÑÕÉ«±äΪÀºÉ«£¬ÔÚÑ¡ÔñÒ»ÌõÕâÌõ±äΪÀºÉ«£¬ÉÏÃæÑ¡µÄÒ²»¹ÊÇÀºÉ«...
ÎÒÏëʵÏÖÕâÑùµÄЧ¹û£¬ÓÃÊó±êµ¥»÷dbgridÒ»ÐУ¬Ñ¡ÔñÒ»Ìõ£¬ÑÕÉ«±äΪÀºÉ«£¬ÔÚÑ¡ÔñÒ»ÌõÕâÌõ±äΪÀºÉ«£¬ÉÏÃæÑ¡µÄÒ²»¹ÊÇÀ¶É«...
ÕâʱdbgridÉÏÓ¦¸ÃÓÐ2ÌõÊÇÀ¶É«µÄ
¶¨ÒåÒ»¸öÊý×é(´æÐкÅ),ÔÚstringgridµÄonselectcellʼþÀïÃæ,¶ÁÈ¡AROW´æµ½Êý×éÀï.
È»ºóÔÚDrawColumnCellʼþÀï×ö¸öÑ»·¶ÁÈ¡Êý×é»À¶É«¾ÍÐÐÁË
Èç¹û½ö½ö2Ðеϰ£¬¶ÔÓ¦×é¼þOptionsÊôÐÔÀïÃæÉèÖþͿÉÒÔÂú×ãÄãµØÐèÇóÁË£¬¼ÙÈçÒªËùÓеã»÷µÄÐж¼Ñ¡Öеϰ£¬¾ÍÒªÖØ»ÁË¡£
ÎÒÐèÒªÔÚdbgridÀïÃæÊµÏÖ
¿ÉÒÔÌù³öÏà¹Ø´úÂëô£¿
лл...
Delphi(Pascal) code:
//....
var
Form1: TForm1;
RowSel: Array of String;
//....
procedure TForm1.FormCreate(Sender: TObject);
begin
setlength(RowSel,0);
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
SetLength(RowSel,length(RowSel)+1);
RowSel[high(RowSel)]:= ADOQuery1.FieldByName('±íÀïΨһµÄÁÐ').AsString; //¼´Öµ²»»áÖØ¸´
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
i: integer;
b
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......