BCB6无XMLDOC控件下生成及保存XML文件

某个项目需要将数据保存为XML文件，但是BCB6没安装XMLDOC，想下载安装包也难找，于是就在网上查了些资料，不使用XMLDOC的情况下生成和保存XML文件。

包含头文件：

#include <XMLDoc.hpp>

#pragma link "xmlrtl.lib"

代码：

AnsiString gkstr = "";
gkstr = edtGkbh->Text.Trim();
if (gkstr != ""){
cxQry->SQL->Text = "select pmggmc,ysmc,rzsk,gkbh,wkgs,bpbh,fk,mz,bcdd,bzbz,"
"CONVERT(varchar(100),GETDATE(),11) as bzrq from ccck "
" with(nolock) where gkbh='"+gkstr+"' order by cast(bpbh as int)";
cxQry->Open();
cxQry->First();
for (int i=0;i<cxQry->RecordCount;i++){
//创建XML
_di_IXMLDocument xml= NewXMLDocument(L"1.0");
xml->Active= true;
xml->Options = xml->Options << doNodeAutoIndent;

_di_IXMLNode root = xml->AddChild("barcode");
//root->Attributes["version"]="1.0";
//root->Attributes["name"]="PathConfig";
//创建XML节点
root->AddChild("TemplateNumber");
root->AddChild("ProductName");
root->AddChild("ColorCode");
root->AddChild("ColorNumber");
root->AddChild("BatchNo");
root->AddChild("Quantity");
root->AddChild("ProductUnit");
root->AddChild("VolumeNumber");
root->AddChild("Breadth");
root->AddChild("Grammage");
root->AddChild("Composition");
root->AddChild("DateMark");
root->AddChild("OrderNumber");
root->AddChild("FirstRemark");
root->AddChild("Remark");

//对节点赋值
AnsiString str = "";
_di_IXMLNode node = root->ChildNodes->FindNode(WideString("TemplateNumber"));
str = "001";
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("ProductName"));
str = cxQrypmggmc->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("ColorCode"));
str = cxQryysmc->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("ColorNumber"));
str = cxQryrzsk->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("BatchNo"));
str = cxQrygkbh->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("Quantity"));
str = cxQrywkgs->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("ProductUnit"));
str = "KG";
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("VolumeNumber"));
str = cxQrybpbh->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("Breadth"));
str = cxQryfk->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("Grammage"));
str = cxQrymz->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("Composition"));
str = "";
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("DateMark"));
str = cxQrybzrq->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("OrderNumber"));
str = cxQrybcdd->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("FirstRemark"));
str = cxQrybzbz->AsString.Trim();
node->SetNodeValue(str);
node = root->ChildNodes->FindNode(WideString("Remark"));
str = "";
node->SetNodeValue(str);

//保存XML
xml->SaveToFile("config.xml");
//释放
delete xml;
cxQry->Next();
}
ShowMessage("XML文件生成完毕!");
}

生成的XML文件格式如下：

<?xml version="1.0"?>
<barcode>
<TemplateNumber>001</TemplateNumber>
<ProductName>32S棉2*2罗纹</ProductName>
<ColorCode>068#大红</ColorCode>
<ColorNumber>LC03939</ColorNumber>
<BatchNo>YZ019112331</BatchNo>
<Quantity>21.6</Quantity>
<ProductUnit>KG</ProductUnit>
<VolumeNumber>15</VolumeNumber>
<Breadth></Breadth>
<Grammage></Grammage>
<Composition></Composition>
<DateMark>19/12/07</DateMark>
<OrderNumber>YZ191123051</OrderNumber>
<FirstRemark>万邦A4</FirstRemark>
<Remark></Remark>
</barcode>

BCB6无XMLDOC控件下生成及保存XML文件相关推荐

第三方控件DevExpress的TreeList绑定XML文件
研究了两天,网上也看了不少资料,但都是静态绑定到TreeList,就是在已知道表的情况下进行绑定,表中已经把KeyFieldName和ParentFieldName的关系确定好了,比较死板.我需要的功 ...
ASP.NET的TreeView和Menu控件分别绑定siteMap和xml文件并应用母版
目录结构 .aspx <%@ Page Title="" Language="C#" MasterPageFile="~/MasterPage. ...
【cocosStdio系列】之UI控件下
[cocosStdio系列]之UI控件下大家好,我是Lampard 今天与大家通过一个demo了解cocos给我们提供的各个UI控件 reference:<cocos2 ...
html ui 下拉列表,Atitit.ui控件-下拉菜单选择控件的实现select html_html/css_WEB-ITnose...
Atitit.ui控件---下拉菜单选择控件的实现select html 1. 调用& model的实现 1 2. -----select.jsp------ 1 1. 调用& mod ...
[转] C#2010 在TreeView控件下显示路径下所有文件和文件夹
原文张丹-小桥流水,C#2010 在TreeView控件下显示路径下所有文件和文件夹 C#2010学习过程中有所收获,便总结下来,希望能给和我一样在学习遇到困难的同学提供参考. 本文主要介绍两个自定 ...
关于duilib CComboUI控件下拉框字体显示与xml 设置不相符的问题
duilib的下拉列表框的字体无法通过itemfont自定义关于duilib CComboUI控件下拉框字体显示与xml 设置不相符的问题解决办法: 添加链接描述在设置全局字体属性时,设置字 ...
java testng 源代码_根据测试用例的java源码自动生成TestNG的XML文件
1.读取当前项目目录下的所有.java文件,过滤出含有@Test标识的java源文件 2.读取java文件内容,解析出包名.类名.方法名.使用Vector存储,第一个元素为包名,第二个元素为类名,从第 ...
SSM 生成mapper中xml文件：未能解析映射资源：“文件嵌套异常
SSM 生成mapper中xml文件:未能解析映射资源:"文件嵌套异常参考文章: (1)SSM 生成mapper中xml文件:未能解析映射资源:"文件嵌套异常 (2)https: ...
C# 系统应用之ListView控件 (二).加载选中节点文件夹下文件信息
在项目中的前面一篇文章"C# 系统应用之TreeView控件 (一).显示树状磁盘文件目录及加载图标"中我讲述了如何使用TreeView控件树状实现显示"我的电脑&quo ...

BCB6无XMLDOC控件下生成及保存XML文件

BCB6无XMLDOC控件下生成及保存XML文件相关推荐

最新文章

热门文章