´ó¼ÒºÃ ÎÒÏÖÔÚÓöµ½ÕâÑùÒ»¸öÎÊÌ⣬ÓÃ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 7½øÐбàÒë ÎÊÌâ´úÂëΪ Delphi(Pascal) code: if Node.ChildNodes <> nil then begin for i := 0 to Node.ChildNodes.Count - 1 do begin cNode := N ......