delphi中写记录时生成标识的问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables,MSXML_TLB, StdCtrls, ADODB,comobj;type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOConnection1: TADOConnection;
    Table1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     function makeXml(table:TADOTable):Integer;
  public
    { Public declarations }
  end;var
  Form1: TForm1;
 DataList : TStringlist;
doc : IXMLDOMDocument;
root, child, child1 : IXMLDomElement;
text1, text2 : IXMLDOMText;
nlist : IXMLDOMNodelist;
dataRecord : String;
implementation{$R *.dfm}
function tform1.makeXml(table:TADOTable):Integer;
var
  i : Integer;
  xml : String;
begin
  try
    table.close;
    table.open;
    xml  := table.TableName;
    doc  := CreateOleObject('Microsoft.XMLDOM') as IXMLDomDocument;
    // 设置XML文件的根名字为"country"，与表名相同。
    root := doc.createElement(xml);
   // 把根节点加入到文件中
    doc.appendchild(root);
    // 循环产生整个XML文件
    child:= doc.createElement('TAXPAYER');
    while not table.eof do
    begin
    // 加入第一级子节点，即纪录
      child:= doc.createElement('Rec Pkid=');
     root.appendchild(child);
      // 加入第二级子节点
     for i:=0 to table.FieldCount-1 do
     begin
       child1:=doc.createElement(table.Fields[i].FieldName);
        child1.appendChild(doc.createTextNode(table.Fields[i].value));
        child.appendchild(child1);
      end;
    table.Next;
    end;
    doc.save(xml+'.xml');
    Result:=1;
  except
    on e:Exception do
      Result:=-1;
  end;
end;
//Call the function in Button1's click event:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if makeXml(table1)=1 then
    showmessage('XML 生成成功')
  else
    showmessage('XML 生成失败');
end;以上的程序我是将数据库中的表生成xml文件

Answer 1

单条记录如下
<REC 〉
  <KPRQ>2003-12-26</KPRQ> 
  <FPHM /> 
  <KPJE>0</KPJE> 
  <XFNSRMC>1</XFNSRMC> 
  <XFSWSBH>1</XFSWSBH> 
  <GFNSRMC>1</GFNSRMC> 
  <GFSWSBH /> 
  </REC>
但我现在需要
<REC PKID="{D4E3F096-B9D3-4413-BE8A-4AD2DCA64644}">
  <KPRQ>2003-12-26</KPRQ> 
  <FPHM /> 
  <KPJE>0</KPJE> 
  <XFNSRMC>1</XFNSRMC> 
  <XFSWSBH>1</XFSWSBH> 
  <GFNSRMC>1</GFNSRMC> 
  <GFSWSBH /> 
  </REC>请问 pkid该如何生成

Answer 2

添入MSXML_TLB
选择主菜单Project/Import，导入数据库类型。
选择"Microsoft XML, Version 2.0 (version 2.0)"，然后点击"Create Unit"按钮。此后，就有一个MSXML_TLB增加到你的工程(project)文件中。要在unit文件的interface段的uses说明里加上MSXML_TLB。