delphi ÓйØdbgridehµÄdropdownlist
Õâ¸öÊôÐÔÔõôÓ𡣿
ÎÒÏëʵÏÖÈçϹ¦ÄÜ£ºÔÚdbgridehÖа´Ï¼ýÍ·£¬Èç¹ûµ±Ç°Ö¸ÕëÍ£ÁôÔÚÏàÓ¦ÁÐÉÏ£¬¾ÍÁгöÔ¤ÉèµÄ¼¸¸öÑ¡Ï¹©Óû§Ñ¡Ôñ£¨Óëcombobox£©ÀàËÆ
ÇëÎÊ£¬ÓÃdropdownlist¿É·ñʵÏÖ£¿
ÐÂÊÖ£¬°ïÄãUPÏ ÈËÆø¡£
dropdownboxÊÇ¿ÉÒԵ쬵«ÒªÖ¸¶¨listsourceÊý¾ÝÔ´¡£
»¹¿ÉÒÔʹÓÃPickList
pickList·½±ãµã
˵¾ßÌåµã°¡
ÈçºÎ²ÅÄÜͨ¹ý°´Ï¼ýÍ·£¬ÈÃpickListÏÔʾ³öÀ´°¡£¿
qy2.close;
qy2.SQL.Clear;
qy2.SQL.Add('select * from xyjjcb where yf='''+xyjlr.maskedit3.text+''' order by xm');
qy2.Open;
while not qy2.eof do
begin
DBgrideh1.columns[0].picklist.Add(qy2.FieldByName('xm').AsString);
qy2.Next;
end;
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
ÎÒÏÈÓÃidhttp µÄget·½·¨·ÃÎÊÒ»¸öÍøÕ¾£¬ÍøÕ¾·µ»ØÁËÒ»¶Îcookie£¬µ±ÎÒ µ÷Óà idhttp post·½·¨µÄʱºò£¬ÎÒÈçºÎ°Ñ·þÎñÆ÷·µ»ØµÄÕâ¶Îcookies´øÉÏ £¬ÏÈлл¸÷λÁË
¶ÁÈ¡ HTTP Response Header
ÀïÃæÓÐ Set-Cookies Óò ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......