delphi_xml.txt

来自「本文是一个应用delphi解析xml文档然后插入数据库的完整的例子」· 文本 代码 · 共 53 行

try
xmldoc:=tXMLDocument.Create(nil);
XMLDoc.LoadFromFile('c:\XG10290117.XML');
xmldoc.Active:=true;
XMLNode := XMLDoc.DocumentElement;
query3:=TQuery.Create(nil);
with query3 do
begin
  DatabaseName:=myDbName;
  RequestLive :=true;
  Close;
  SQL.Clear;
  SQL.Add('select * from ac01 where ac01a02=002000');
  Open;
  Last;
  First;

 try
      InitNum:=0;
      for  i:=0 to XMLNode.ChildNodes.Count-1 do
      begin
        Filter :='AC01a37='+XMLNode.childnodes[i].ChildNodes['AAE002'].text+'';
        Filtered:=true;
        First;
        if RecordCount >0 then
        begin
          query3.Edit;
          pstr:=query3.FieldByName('p_number').AsString;
        END
        else
        begin
          InitNum:=InitNum+1;
          Append;
          pstr:=GetInitValue;
          query3.FieldByName('p_number').Asstring:=pstr;
        end;
          query3.FieldByName('AC01A37').AsString:=xmlnode.childnodes[i].ChildNodes['AAE002'].text;
          query3.FieldByName('AC01A38').AsString:=xmlnode.childnodes[i].ChildNodes['AAE003'].text;
          query3.FieldByName('AC01A01').AsString:=xmlnode.childnodes[i].ChildNodes['AAE004'].text;
          query3.FieldByName('AC01A02').AsString :='002000';
      end;
   except
      myApp.MessageBox('数据导入失败！','错误',MB_OK+MB_ICONWARNING);
      query3.Close;
      query3.free;
      exit;
    end;
    query3.Close;
    query3.free;
    finally
     xmldoc:=nil;
     end;