200分求一个示例！(200分)

  • 主题发起人 主题发起人 ahhliang
  • 开始时间 开始时间
A

ahhliang

Unregistered / Unconfirmed
GUEST, unregistred user!
本人学习XML迫切，但天资、时间有限，愿意出200分求一个DELPHI 6程序（还可以再加）：
要求：
1.对一个XML文档结构和数据进行读取。
2.如果数据有增加或者删除，要求更新XML文档数据。
3.生成该XML文档。
4.示范文档如下：
<?xml version="1.0" encoding="gb2312"?>
<AddressBook Owner="郎君">
<Type Name="同学" >
<People ID="1">
<Name>张三</Name>
<Phone>13032323651</Phone>
<Oicq>65546221</Oicq>
<Address>中国</Address>
</People>
<People ID="2">
<Name>李四</Name>
<Phone>13032323651</Phone>
<Oicq>65546221</Oicq>
<Address>英国</Address>
</People>
</Type>
<Type Name="同事" >
<People ID="1">
<Name>王五</Name>
<Phone>13032323651</Phone>
<Oicq>65546221</Oicq>
<Address>福建</Address>
</People>
</Type>
<Type Name="亲戚" >
<People ID="1">
<Name>赵六</Name>
<Phone>13032323651</Phone>
<Oicq>65546221</Oicq>
<Address>湖南</Address>
</People>
</Type>
</AddressBook>
我的EMALI是：ahhliang@yeah.net;
 
网上一堆一堆的
 
>>
无人关注？？
 
应该从数据库生成吧？好象讲得不明不白。
 
TO ahhliang:
看到这个问题在这里待了好多天了，
于心不忍：），花了我几盘“帝国”的时间，把它做了。
完全符合你的要求。源码已发送到你的邮箱，请查收。
程序中对selectSingleNode后的结果是否为空值未做判断，请用
VarIsEmpty处理一下。
例如：
procedure TForm1.DelNode(strTYPE,strID:string);
var
strQuery:string;
TempNode, tv1_xml: Variant;
begin
strQuery:='AddressBook/Type[@Name="'+strTYPE+'"]';
TempNode:=xmldoc.selectSingleNode(strQuery);
if VarIsEmpty(TempNode) then
//<<<判断TempNode是否为空
begin
raise Exception.Create('定位XML节点发生错误！');
end;

strQuery:='AddressBook/Type[@Name="'+strTYPE+'"]/People[@ID="'+strID+'"]';
tv1_xml:=xmldoc.selectSingleNode(strQuery);
if VarIsEmpty(tv1_xml) then
//<<<判断tv1_xml是否为空
begin
raise Exception.Create('定位XML节点发生错误！');
end;

TempNode.removeChild(tv1_xml);
end;
--------------------------------------------------------------------
程序未做详尽测试，有问题再发邮件给我
 
感觉可以通过写两个ini文件实现吧？！希望gonghh老哥能将code贴出供吾等后学之人观摩观摩。
 
To jie_zou：
这个不仅仅是怎么实现的问题，楼主希望的是用XML怎么实现。
我也是菜鸟，程序不是用DELPHI自带XML控件，是用XMLdo
M做的。
如果你需要，我发给你吧。
 
to gonghh:能不能给我一份，谢谢!
jinmen888@sina.com.cn
 
不胜感激jie_zou@sina.com
 
to:gonghh
我也在论坛上提了类似的问题，可是没人理我。
你的程序我很感兴趣，请给我发过来：nibul@sina.com
收到后马上给分（200分），请到
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1502412
来领分。
 
to:gonghh
其实我是想找到xml的数据库引擎，你的程序是能读取与修改xml文档中的数据吗？
你能不能再写一个程序把xml中的数据转存入txt数据库（符合text数据引擎的规范），
谢谢。
 
以上各位，邮件都已发出，请查收。
TO nibul：
可以读取、增加、修改、删除 xml文档中的数据。
至于你说的把他作成“把xml中的数据转存入txt数据库（符合text数据引擎的规范）”
惭愧：（，我不懂text数据引擎的规范。现在在忙ERP项目，没有太多的时间呀。
这个东西也只是为了学习XML，对着xmlsdk30.chm，边看边写的。

 
to:gonghh
非常感谢，给分了！
 
呵呵：）接受的！
TO :gonghh谢谢！
 
to：gonghh
谢谢啦！这一块确实不熟，有时间一定好好研究一下。
 
to gonghh:能不能给我一份，谢谢!
lhl19770714@yahoo.com.cn
请问哪里可以下载到xmlsdk30.chm，我要学习xml.
 
学习加收藏
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
XML 与数据库表的转换
回复
0
查看
674
import
I
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
I
端口扫描的问题
回复
0
查看
977
import
I
后退
顶部