怎么把查询出来的结果生成XML形式的文件？

2003-12-13 07:44:58 230 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

三极管共集电极放大电路详解：射极跟随器的原理、计算与应用三极管放大电路是模拟电子技术的基石，常见组态包括共发射极、共基极和共集电极。其中共集电极电路因输入电阻大、输出电阻小、电压增益接近1的特性，常被用作射极跟随器，在信号缓冲、级间隔离和低阻抗负载驱动等场景中发挥关键作用。其核心价值并非电压放大，而是完成阻抗变换，将高内阻信号源转换为低内阻输出，同时保持信号幅值基本不变。理解其静态工作点计算与动态参数推导（如电压增益、输入输出电阻）是设计实用电路的前提。本文结合12V电源下的具体设计实例和仿真验证，梳理了从电路识别、参数计算到工程实践的完整流程，并指出常见设计误阅读详情

...全文

保姆级教程：用SSC Tool 5.13为先楫HPM6E00EVK生成8轴EtherCAT从站代码（含XML配置详解）本文详细介绍了如何使用SSC Tool 5.13为先楫HPM6E00EVK开发板配置8轴EtherCAT从站，包括XML文件深度配置、代码生成与工程整合、烧录与调试技巧。教程涵盖从环境准备到性能优化的全流程，帮助开发者快速实现符合CIA402标准的8轴控制。阅读详情

jerrybao

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

line 2004-03-12

打赏
举报

horse_h 2004-01-18

打赏
举报

ding

S海鸥 2004-01-05

打赏
举报

study

深宇 2004-01-05

打赏
举报

ClientDataSet.XMLData

dzjcsoft 2003-12-15

打赏
举报

ClientDataSet.SaveToFile的。XML在IE中打不开。

hiflower 2003-12-14

打赏
举报

ClientDataSet.SaveToFile(...)

halfdream 2003-12-14

打赏
举报

我说另外三种方法.
1,使用TDataSetProvider和TClientDataset,TClientDataSet能把查询结果导出成XML.

2,使用TADODATASET也可以直接导出结果为XML..

3,SQL SERVER 2000 提供了直接查询得XML文档的SQL语法,
比如. select * from xxx for xml auto,具体看SQL SERVER 2000帮助,
不过要读出这个XML文档,必须使用ADO2.6以上的调用.
网上找得着例子..

第1种用法,是最轻捷的,DELPHI里面相应提供了相关的好几个组件,例子,还有XSL文档.
按查询速度,应该是第3种最快..

zhoutian618 2003-12-14

打赏
举报

同意楼上的方法。

用SAVETOFILE然后指定文件格式为.XLS

MartinWang 2003-12-13

打赏
举报

一个自己做的例子：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, StdCtrls, Buttons, msxmldom, XMLDoc, ComCtrls,
ImgList, DB, ADODB, ExtCtrls;

type
TForm1 = class(TForm)
XMLDocument1: TXMLDocument;
ListView1: TListView;
OpenDialog1: TOpenDialog;
ADOQuery1: TADOQuery;
Panel1: TPanel;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
procedure add;
procedure AddFromQuery(id,name,cha:string);
public
{ Public declarations }
XmlFile:WideString;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin
// XMLDocument1.LoadFromFile(PathString(AppPath)+'wangp.xml');
XmlFile:=ExtractFileName(Application.ExeName+'\wangp.xml');
XmlDocument1.FileName:=XmlFile;
XMLDocument1.Active:=true;
add;
end;

procedure TForm1.add;
var Node:IXMLNode;
NodeList:IXMLNodeList;
i,m,j:Integer;
lst:TListItem;
begin
ListView1.Items.Clear;
Node:=XMLDocument1.DocumentElement;//
ListView1.Items.BeginUpdate;
NodeList:=Node.ChildNodes;
for i:=0 to NodeList.Count-1 do
begin
lst:=ListView1.Items.Add;
Node:=NodeList.Nodes[i].ChildNodes.Nodes[0];
lst.Caption:='';
for j:=0 to NodeList.Nodes[i].ChildNodes.Count-1 do
begin
lst.SubItems.Add(NodeList.Nodes[i].ChildNodes.Nodes[j].GetText());
end;
lst.ImageIndex:=0;
end;
ListView1.Items.EndUpdate;
Node:=XMLDocument1.CreateElement('price','pri');
Node.

end;
procedure TForm1.AddFromQuery(id,name,cha:string);
var Node,SubNode:IXMLNode;
begin
Node:=XMLDocument1.DocumentElement;
Node:=Node.AddChild(WideString('Tip'));
SubNode:=Node.AddChild(WideString('userid'));
SubNode.SetText(id);
SubNode:=Node.AddChild(WideString('name'));
SubNode.SetText(name);
SubNode:=Node.AddChild(WideString('cha'));
SubNode.SetText(cha);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var userid,name,cha:string;
begin
// AddFromQuery('wangp','slfj','22222.00');
AdoQuery1.Close;
AdoQuery1.Parameters.ParamByName('set').Value:='21101';
AdoQuery1.Open;
while not AdoQuery1.Eof do
begin
userid:=AdoQuery1.FieldByName('User_id').AsString;
name:=AdoQuery1.FieldByName('User_name').AsString;
cha:=AdoQuery1.FieldByName('total_cha').AsString;
AddFromQuery(userid,name,cha);
AdoQuery1.Next;
end;
XMLDocument1.SaveToFile(XMlFile);
BitBtn1Click(self);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var Node:IXMLNode;
i:Integer;
begin
i:=ListView1.Selected.Index;
Node:=XMLDocument1.DocumentElement;
Node.ChildNodes.Delete(i);
ListView1.Items.Delete(i);
XMLDocument1.SaveToFile(XMlFile);

end;

end.

eastliangliang 2003-12-13

打赏
举报

来个简单的，不过要是想自己显示记录集，需要自己定义标签格式，再定义，好像是XSLT，楼主可以看看相关文章。
procedure TForm1.Button1Click(Sender: TObject);
var
myxmldoc:Txmldocument;
html,head,title,body:Ixmlnode;
begin
myxmldoc := Txmldocument.Create(self);
myxmldoc.Active := true;
html := myxmldoc.AddChild('Html');
head := html.AddChild('head');
title := head.AddChild('title');
title.Text := 'this is title';
body := html.AddChild('body');
body.Text := 'Hello world';
showmessage(myxmldoc.XML.Text);
myxmldoc.SaveToFile('c:\a.html');
end;
要uses 几个东东XMLDoc, XMLIntf, xmldom, msxmldom，可能有的没用。：）

cutelocust 2003-12-13

打赏
举报

如果你用ADO的话可以这样
AdoQuery1.SaveToFile('filename', pfXML);
或者
ADodataset1.SaveToFile('filename', pfXML);
或者
adotable1.SaveToFile('filename', pfXML);

eastliangliang 2003-12-13

打赏
举报

你需要自己定义显示格式，然后用Delphi自带的控件就可以搞定。
给你一段代码，比较简单的XML操作，先入个门吧，难的我也不会，正在研究中：）
我用的是D6，不知D7的XML控件有没有改进，我是觉得D6对XML的操作不如C#的功能强大，可能我还不会用吧。
只是单层的树，你自己发挥吧：）
unit UnitArrayWithXML;

interface

uses
Mtsobj, Mtx, ComObj, ActiveX, StdVcl,XMLDoc, XMLIntf,
xmldom, msxmldom, Classes;

type
TArrayWithXML = class
private
Owner:TComponent;
myxmldoc:Txmldocument;
myxmlNode:Ixmlnode;
insertnode:Ixmlnode;
public
procedure Add(const fieldName, fieldProperty, fieldValue: WideString); safecall;
procedure GetByIndex(index: Integer; out fieldName, fieldProperty,
fieldValue: WideString); safecall;
procedure GetByFieldName(const fieldName: WideString;
out fieldProperty, fieldValue:WideString) safecall;
procedure SetValue(const inData: WideString); safecall;
function GetValue: WideString; safecall;
function GetNodeCount: Integer; safecall;
procedure Clear; safecall;
constructor Create;
destructor Destroy;override;
end;
implementation
uses ComServ, SysUtils;

procedure TArrayWithXML.Add(const fieldName, fieldProperty, fieldValue: WideString);
begin
//if fieldValue = '' then exit;
try
self.insertnode := self.myxmlNode.AddChild(LowerCase(fieldName));
if fieldvalue <> '' then
begin
self.insertnode.Text := fieldValue;
self.insertnode.Attributes['fieldProperty'] := fieldProperty;
end
else begin
self.insertnode.Text := 'Null';
self.insertnode.Attributes['fieldProperty'] := 'int';
end;
except
raise exception.Create('Error in Add to XML!向XML添加数据错误！');
end;
end;

procedure TArrayWithXML.GetByIndex(index: Integer; out fieldName, fieldProperty,
fieldValue: WideString);
begin
try
self.insertnode := self.myxmlNode.ChildNodes.Get(index);
fieldName := self.insertnode.NodeName;
fieldValue := self.insertnode.NodeValue;
if self.insertnode.HasAttribute('fieldProperty') then
fieldProperty := self.insertnode.Attributes['fieldProperty'];
except
raise exception.Create('Error in GetByIndex!从XML中读数据错误！');
end;
end;

procedure TArrayWithXML.GetByFieldName(
const fieldName: WideString;out fieldProperty, fieldValue:WideString);
begin
fieldValue := self.myxmlNode.ChildNodes[LowerCase(fieldName)].Text;
if self.myxmlNode.HasAttribute('fieldProperty') then
fieldProperty := self.myxmlNode.ChildNodes[LowerCase(fieldName)].Attributes['fieldProperty'];
end;

procedure TArrayWithXML.SetValue(const inData: WideString);
begin
try
self.myxmldoc.Active := false;
self.myxmldoc.XML.Text := inData;
self.myxmldoc.Active := true;
myxmlnode := myxmldoc.DocumentElement;
except
raise exception.Create('Error in SetValue!给XML赋值错误！');
end;
end;

function TArrayWithXML.GetValue: WideString;
begin
result := self.myxmldoc.XML.Text;
end;

function TArrayWithXML.GetNodeCount: Integer;
begin
result := myxmlnode.ChildNodes.Count;
end;

destructor TArrayWithXML.Destroy;
begin
Owner.Free;
inherited;
end;

constructor TArrayWithXML.Create;
begin
inherited;
Owner := TComponent.Create(nil);
self.myxmldoc := Txmldocument.Create(self.Owner);
with myxmldoc.XML do
begin
add('<?xml version="1.0" encoding="gb2312"?>');
add('<VariantArray></VariantArray>');
end;
myxmldoc.Active := true;
myxmlnode := myxmldoc.DocumentElement;
end;

procedure TArrayWithXML.Clear;
begin
self.myxmldoc.XML.Clear;
with myxmldoc.XML do
begin
add('<?xml version="1.0" encoding="gb2312"?>');
add('<VariantArray></VariantArray>');
end;
myxmldoc.Active := true;
myxmlnode := myxmldoc.DocumentElement;
end;

end.

jerrybao 2003-12-13

打赏
举报

象网页一样显示出来

eastliangliang 2003-12-13

打赏
举报

生成XML形式的文件用来干吗？

怎么把查询出来的结果生成XML形式的文件？

相关推荐