ÇóÖúDELPHIÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø
//adoquery1.SQL.add('insert into ѧÉúÊé·ÑÀúÊ·¿â(°à¼¶Ãû,Êé·Ñ,ÁìÊéÊé·Ñ,½áÓàÊé·Ñ,¾°ìÈË,²Ù×÷Ô±,×îºóÐÞ¸Äʱ¼ä,˵Ã÷,°à¼¶ÈËÊý) values (:classname,:s0,0,:s1,:s2,:s3,date(),:s4,:s5)');
adoquery1.SQL.add('update ѧÉúÊé·ÑÀúÊ·¿â set °à¼¶Ãû=:classname,Êé·Ñ=:s0,½áÓàÊé·Ñ=:s1,¾°ìÈË=:s2,²Ù×÷Ô±=:s3,×îºóÐÞ¸Äʱ¼ä=:date(),˵Ã÷=:s4,°à¼¶ÈËÊý=:s5');
adoquery1.Parameters.Clear;
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[0].Name:='classname';
adoquery1.Parameters[0].DataType:=ftstring;
adoquery1.Parameters[0].Direction:=pdinput;
adoquery1.Parameters[0].Value:=combobox1.text;
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[1].Name:='s0';
adoquery1.Parameters[1].DataType:=ftcurrency;
adoquery1.Parameters[1].Direction:=pdinput;
adoquery1.Parameters[1].Value:=StrToFloat(edit2.text);
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[2].Name:='s1';
adoquery1.Parameters[2].DataType:=ftcurrency;
adoquery1.Parameters[2].Direction:=pdinput;
adoquery1.Parameters[2].Value:=-strtofloat(edit2.Text);
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[3].Name:='s2';
adoquery1.Parameters[3].DataType:=ftstring;
adoquery1.Parameters[3].Direction:=pdinput;
adoque
Ïà¹ØÎÊ´ð£º
±¾È˽ñÄê17Ëê,·Ç³£Ï²»¶delphi,µ«ÓÉÓÚ»ù´¡ÓÐÏÞ,´ÓÍøÉÏÏÂÔØ×ÊÁÏѧϰ,¿´µÃÔÎËÀÁË,¶¼²»ÖªµÀÔÚ˵ʲô!ËùÒÔ½ñÌìÔÚ´Ë·¢Ìû,¹ãÑû¸÷λdelphi°®ºÃÕß°ïÖúÎÒ!Èç¹û±¾ÈËËûÈÕÓÐÐÒѧµÃdelphi±à³Ì,¶¨µ±°ÑÔ´´úÂë·¢²¼³öÀ´,ÔÚ´ËÒ»±í¸Ðл!Ï ......
ÏÖÓÐparadoxÊý¾Ý¿âʹÓÃBDEÇý¶¯£¬Äâ¸ÄΪC/S°æ£¬Ôö¼ÓÍøÂç¶ÁÈ¡Êý¾Ý¹¦ÄÜ¡£ÇëÄÄλ´óÏÀ£¬ÌṩԴÂë¡£
˵¾ä²»¿ÍÆøµÄ»°£¬ÓÃparadox×öC/SÊÇ×ÔѰËÀ·¡£
»»Ò»¸öÍøÂçÊý¾Ý¿â
ÒòΪ²»Ï붯´óÊÖÊõ£¬½öÄܹ²Ïí¼¸¸öÎļþ¼´¿É¡£
Da ......
ÎÒÔÚÏîÄ¿ÀïÊÇÔÚÕÒ²»µ½ÐÄÌø°üдʲôµØ·½ÁËÄÇλ´ó¸çÄܰïÎÒÔ¶³ÌÐÖúÕÒһϰ¡Ð»Ð»°¡
ÎÒqq398222333
Àϰ岻ÈÃ
ËÑË÷Ò»ÏÂɶ
Õâ¸öÏîÄ¿µÄ´úÂë²»ÊÇÄãдµÄ£¿
ËÑË÷²»µ½Âð
¾ÍÊÇд¹ýÁË£¬²»ÖªµÀ¶ªÔÚÄÄÁË£¬Â¥Ö÷´úÂëÐ ......
ÒªÇóºÜ¼òµ¥£¬¶®DELPHI+MSSQL¾Í¿ÉÒÔ¡£¡£
û¾ÑéÒªÇ󡣡£¹¤×Ê2K~2.5K£¬²»°ü³Ôס£¬
ÔÚÍâµÄÈËÉ÷ÖØ¿¼ÂÇ£¬¿ÉÂòÉç±££¬
Èç¹ûÏëÕÒ̤½Å°åµÄÇëÒ»±ßÈ¥£¬
¿ÉÒÔ³ÐŵÈç¹ûÄܸÉÊ£¬¹«Ë¾Òµ¼¨²»´íµÄʱºò¹¤×Ê·½ÃæÒ»¶¨»áÓÐÌáÉý£¬
ÎÒ² ......
delphi´úÂë±ä³ÉbcbºóÌ«ÉÁ,¶¼ÊÇÔÚ FormPaint ·½·¨ÖÐ
delphi´úÂë:::
var
i: integer;
rgn: HRGN;
r: TRect;
begin
with Canvas do begin
//ÀûÓ ......