首先需要uses msxml,msxmldom
然后看使用:
procedure TFormPatientTemplate.Button1Click(Sender: TObject);
var
xmlString : string;
xml_document:IXMLDOMDocument;
newctrl_list : IXMLDOMNodeList;
newctrl_node : IXMLDOMNode;
newLen : Integer;
i : Integer;
strtemp:string;
strName : string;
strMarry :string;
strSQL :string;
begin
xml_document := CoDOMDocument.create;
xml_document.loadXML(NsoControl1.GetAllSectAndNewCtrlContentByCurrentDoc('0,1,2','0,1',1,1));
newctrl_list := xml_document.getElementsByTagName('NewCtrl');
newlen := newctrl_list.length;
for i := 0 to newlen-1 do
begin
newctrl_node := newctrl_list.item[i];
strtemp := newctrl_node.childNodes.item[0].text;
if strtemp = '6' then
strName := newctrl_node.childNodes.item[1].text;
if strtemp = '23' then
strMarry := newctrl_node.childNodes.item[1].text;
if ( strName <> '') and ( strMarry <> '') then
break;
end;
strSQL := 'update 病人信息表 set 婚姻状况 = '' +strMarry +''where 姓名 = ''+strName + ''';
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('update 病人信息表 set 婚姻状况 = :strMarry where 姓名 = :strName ');
parameters.ParamByName('strMarry').Value := strMarry;
parameters.ParamByName('strName').Value := strName;
execsql;
end;
end;
一旦可以使用这些对象接口,那么对xml的操作都狠灵活了,可以参照dom文档
然后看使用:
procedure TFormPatientTemplate.Button1Click(Sender: TObject);
var
xmlString : string;
xml_document:IXMLDOMDocument;
newctrl_list : IXMLDOMNodeList;
newctrl_node : IXMLDOMNode;
newLen : Integer;
i : Integer;
strtemp:string;
strName : string;
strMarry :string;
strSQL :string;
begin
xml_document := CoDOMDocument.create;
xml_document.loadXML(NsoControl1.GetAllSectAndNewCtrlContentByCurrentDoc('0,1,2','0,1',1,1));
newctrl_list := xml_document.getElementsByTagName('NewCtrl');
newlen := newctrl_list.length;
for i := 0 to newlen-1 do
begin
newctrl_node := newctrl_list.item[i];
strtemp := newctrl_node.childNodes.item[0].text;
if strtemp = '6' then
strName := newctrl_node.childNodes.item[1].text;
if strtemp = '23' then
strMarry := newctrl_node.childNodes.item[1].text;
if ( strName <> '') and ( strMarry <> '') then
break;
end;
strSQL := 'update 病人信息表 set 婚姻状况 = '' +strMarry +''where 姓名 = ''+strName + ''';
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('update 病人信息表 set 婚姻状况 = :strMarry where 姓名 = :strName ');
parameters.ParamByName('strMarry').Value := strMarry;
parameters.ParamByName('strName').Value := strName;
execsql;
end;
end;
一旦可以使用这些对象接口,那么对xml的操作都狠灵活了,可以参照dom文档