Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÇóÖú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


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......

delphiÔõô¿ØÖÆUSB - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÒÔǰÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß

Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£

Õâ¸öÊDz ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ