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

A

ahhliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #1

本人学习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;

 

L

liuwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

网上一堆一堆的

 

A

ahhliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

>>
无人关注？？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

应该从数据库生成吧？好象讲得不明不白。

 

A

ahhliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #5

>>

 

G

gonghh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #6

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;
--------------------------------------------------------------------
程序未做详尽测试，有问题再发邮件给我

 

J

jie_zou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #7

感觉可以通过写两个ini文件实现吧？！希望gonghh老哥能将code贴出供吾等后学之人观摩观摩。

 

G

gonghh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #8

To jie_zou：
这个不仅仅是怎么实现的问题，楼主希望的是用XML怎么实现。
我也是菜鸟，程序不是用DELPHI自带XML控件，是用XMLdo
M做的。
如果你需要，我发给你吧。

 

J

jinmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #9

to gonghh:能不能给我一份，谢谢!
jinmen888@sina.com.cn

 

J

jie_zou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #10

不胜感激jie_zou@sina.com

 

N

nibul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #11

to:gonghh
我也在论坛上提了类似的问题，可是没人理我。
你的程序我很感兴趣，请给我发过来：nibul@sina.com
收到后马上给分（200分），请到
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1502412
来领分。

 

N

nibul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #12

to:gonghh
其实我是想找到xml的数据库引擎，你的程序是能读取与修改xml文档中的数据吗？
你能不能再写一个程序把xml中的数据转存入txt数据库（符合text数据引擎的规范），
谢谢。

 

G

gonghh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #13

以上各位，邮件都已发出，请查收。
TO nibul：
可以读取、增加、修改、删除 xml文档中的数据。
至于你说的把他作成“把xml中的数据转存入txt数据库（符合text数据引擎的规范）”
惭愧：（，我不懂text数据引擎的规范。现在在忙ERP项目，没有太多的时间呀。
这个东西也只是为了学习XML，对着xmlsdk30.chm，边看边写的。

 

N

nibul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #14

to:gonghh
非常感谢，给分了！

 

A

ahhliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #15

呵呵：）接受的！
TO :gonghh谢谢！

 

J

jie_zou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #16

to：gonghh
谢谢啦！这一块确实不熟，有时间一定好好研究一下。

 

L

lhl20000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #17

to gonghh:能不能给我一份，谢谢!
lhl19770714@yahoo.com.cn
请问哪里可以下载到xmlsdk30.chm，我要学习xml.

 

S

songmk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-29

• #18

学习加收藏