delphi 2009ÍêÈ«ÆƽâµÄÄÄÀïÓа¡£¿
¸ø¸ö·½·¨»òÕßÍøÖ·¶¼¿ÉÒÔ£¬Ð»Ð»¸÷λÁË
È¥ÓÃ2010°É
www.2ccc.com
CSDNµÄÏÂÔØƵµÀ http://download.csdn.net/source/2029225
¿ÉÒÔÓÃÀ´ Æƽâ2010£¬Ò²¿ÉÆÆ2009
ÒýÓÃ
CSDNµÄÏÂÔØƵµÀ http://download.csdn.net/source/2029225
¿ÉÒÔÓÃÀ´ Æƽâ2010£¬Ò²¿ÉÆÆ2009
Õâ¸öÒѾÓÐÁË£¬¿ÉÊÇÆ ......
unit DllExport;
interface
uses
windows, SysUtils;
type
TKzString = packed record
returnlength: byte; //?????
returnstring: array[0..255] of char;
end;
TReturnParam = packed record
lx: byte; //ÃüÁîÀàÐÍ
mon: integer; // ......
×îºÃÄÜ˵µÄÏêϸµã
¾ÍÒ»¸öÁ¬½Ó×Ö·û´®£¬×Ô¼º·Å¸öadoconnectionÔÚ½çÃæÉÏ£¬Ë«»÷£¬È»ºóÑ¡ÔñbuildÔÚÁбíÖÐÑ¡Ôñ...for sql servÏÆäËû×Ô¼º¶Ô׎çÃæÉϵÄÄÚÈÝÈ¥¿´
¶î »¹ÊDz»Ì«Ã÷°× ´ÓÀ´Ã»ÓùýÕⶫÎ÷
ÔÚÍøÉÏËÑÒ»ÏÂ
3Â¥µÄдµÃºÜϸÁË¡£
ÎÒÉÏ´«ÁËƪÎÄÕ£¬Í¼ÎIJ¢Ã¯£¬¿ÉÒԲο¼Ò»Ï£ºÊ¹ÓÃDecision Cube½øÐÐÊý¾ÝµÄ¾ö²ß·ÖÎ ......
ΪʲôÎÒÓÃDelphi×öÁ˸ö½çÃ棬Ȼºó½øÐÐÄ£ºý²éÕÒ£¬Ð´ÓÐÈçÏ´úÂ룺
procedure Tfrm.BitBtn1Click(Sender: TObject);
var
tj,tj1,tj2,tj3,tj4,tj5,tj6,tj7:string;
begin
tj1:='1=1';
if checkbox1.Checked then
tj1:='GH like'"+'%'+Edit1.Text+'%'+"'';
tj2:='1= ......
ÎÒÔÚDelphiµÄTools/Editor Options/ColorÖÐÉèÖÃÁËÒ»ÏÂÎҵĴúÂëÑÕÉ«£¬ÎÒ±à¼Æ÷µ±Ç°Ðеı³¾°É«ÄªÃûÆäÃî±ä³ÉÁË·ÛÉ«£¬ÎÒ¾õµÃ¿´ÆðÀ´ºÜ²»Êæ·þ£¿ËÖªµÀÔõôÉèÖûذ×É«£¿
ͬÑùÔÚTools/Editor Options/ColorÖÐÉèÖã¬ÏÈÑ¡ÖÐÓÒÏÂʾÀýÖеĵ±Ç°ÐÐʾÀý£¬×óÓÒµÄÑÕÉ«ÀïÑ¡¾ÍÐÐÁË£¬BGΪ±³¾°É«£¬FGΪ×ÖµÄÑÕÉ«¡£
Â¥ÉÏÕý½â
ÒýÓÃ
ͬÑùÔÚTo ......
´úÂëÈçÏ£º
unit DllExport;
interface
uses
windows, SysUtils;
type
TKzString = packed record
returnlength: byte; //?????
returnstring: array[0..255] of char;
end;
TReturnParam = packed record
lx: byte; //ÃüÁîÀàÐÍ
mon: ......