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

Delphi ¸üдøÒýºÅµÄÖµ - Delphi / Êý¾Ý¿âÏà¹Ø

´ó¼ÒºÃ
  ÎÒÏÖÔÚÓöµ½ÕâÑùÒ»¸öÎÊÌ⣬ÓÃdelphi ×Ô´øµÄadoqueryÀ´¸üÐÂÊý¾Ý£¬µ«µ±Ò»¸ö×ֶεÄÄÚÈݺ¬ÒýºÅµÄʱºò£¬ÈçºÎ´¦ÀíÄØ¡£
  ÎÒÊÇÕâÑù×öµÄ£¬delphi Óï·¨ÈçÏ£º
  with Appdm.qry_Upd do
  begin
  close;
  sql.Add('Update IT_PcFiksInfo SET FixsName='''+FixsName+''',OfType='''+OfType+''','+
  'OfArea='''+OfArea+''',OfDept='''+OfDept+''','+
  'UserOfID='''+UserOfID+''',UserOfName='''+UserOfName+''','+
  'PcConfiguration='''+QuotedStr(PcConfiguration) +',OfficeAddr='''+OfficeAddr+''','+
  'Depreciation='''+Depreciation+''',FixsPrice='''+FloatToStr (FixsPrice)+''' where pcid='''+pcid+'''');
  ExecSQL;
  end; 
µ«µ±ÓÐÒ»¸ö×Ö¶ÎֵΪº¬ÓÐÒýºÅµÄʱºò(ÈçUserOfName×ֶεÄֵΪÖÜ's)£¬¾Í»á³ö´í¡£sql Server Profiler ¸ú×ٵĽá¹ûÈçÏÂ:
Update IT_PcFiksInfo SET 
FixsName='IBM±Ê¼Ç±¾',OfType='C-BJB',OfArea='F-03',OfDept='D10',UserOfID='',UserOfName='ÖÜ'S',PcConfiguration='14'Ó¢´ç',OfficeAddr='×ÊѶ²¿°ì¹«ÊÒ',Depreciation='',FixsPrice='0' 
where pcid='C-ZJTESTA'
ÇëÎʸßÊÖÓÐûÓбȽϺõĴ¦Àí´øÒýºÅ×Ö¶ÎÖµµÄ·½·¨¡£
ÔÚ´ËÏÈлл´ó¼ÒÁË

' replace ³É ''

ÒýÓÃ


Ïà¹ØÎÊ´ð£º

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

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

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Êéд¸ñÔò? - Windows×¨Çø / ·Ç¼¼ÊõÇø

ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,´úÂëµÄÿһÐÐҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,ÓеĻ¹ÒªÁíÆðÒ»ÐÐ,Õâ¸öÓй涨Âð?ÒªÔõôд?

ÄѵÀ²»ÄÜÔõÑùдÂð?ÎÒ´ò¸ö±È·½,(.´ú±í³ÌÐò´úÂë)
..............................
......... ......

delphi´°ÌåÏÔʾ×îÉϲã - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÔÚÔËÐÐÖÐÒ»¸ö´°ÌåÏÔʾÔÚËùÓд°Ìå×îÉϲãÓÃÊó±êÍ϶¯Ê±²»Êܱ߽çÏÔʾ¿ÉÒÔÒ»¶¨Òƶ¯µ½ÈÎÒâλÖÃ
¼±Ç󡣡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£
ÊôÐÔFormStyleÖÃΪfsStayOnTop²»³É£¿

Delphi ......

delphi×î»ù´¡µÄSQL²éѯ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÒª²éѯX±íÖÐ ÊÕÈë = YµÄ ×Ö¶Î
±ÈÈç ÎÒÔÚSQLÖÐ ÊÇÕâôÊäÈëµÄ slect * from X where ÊÕÈë = y
ÔÚdelphi ÖÐ y ¾ÍÓÃedit1.textÀïÊäÈë  
begin
  adoquery1.Close;
  ADOQuery1.SQL.Clear; ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ