DelphiÓëXMLÎĵµ
ͬ²½³ÌÐò°¸Àý
procedure TGetOrderThread.PostDB(webnr:WideString);
var
Err: String;
SetWebnr:WideString;
xmlDoc: IXMLDocument;
root: IXMLNode;
rowc: IXMLNode;//¼Ç¼Êý
rows: IXMLNodeList;//Ö÷¼Ç¼Áбí
row: IXMLNode;
drows: IXMLNodeList;//Ã÷ϸÁбí
drow: IXMLNode;
i,j,slhj,jlhj:integer;
djhj:real;
begin
//ͬ²½Êý¾Ý
xmlDoc := TXMLDocument.Create(nil);
try
xmlDoc.XML.Text:=Webnr;
xmlDoc.Active:=true;
root:=xmlDoc.DocumentElement;
rowc:=root.ChildNodes.FindNode('RowC');
if (rowc.NodeValue>0) and DBconn then
begin
rows:=root.ChildNodes.FindNode('RowS').ChildNodes;
//showmessage('¼Ç¼Êý:'+rowc.NodeValue);
for i:=0 to rows.Count-1 do
begin
ADOConn.BeginTrans;
try
row:=rows.Nodes[i];
drows:=row.ChildNodes.FindNode('Drows').ChildNodes;
//showmessage(row.ChildValues['billno']+
// ' Ã÷ϸ¼Ç¼Êý:'+inttostr(drows.Count));//ÏÔʾ¶©µ¥ºÅ
if SHelper.Active then SHelper.Close;
SHelper.SQL.Text:=Format(selectStr,[row.ChildValues['billno']]);
SHelper.Open;
jlhj:=0;
slhj:=0;
djhj:=0;
&nb
Ïà¹ØÎĵµ£º
1) DelphiÏòoracleÖд«µÝ²ÎÊý ÈçoracleÖеIJÎÊýÃûΪerpcx
´ð£ºÈç¹ûÏë´Ó±íÀïÈ¡Öµµ½oracle£¬Ôòerpcx:=trim(aq1.fieldbyname('erpcx').AsString);
·ñÔòÖ±½ÓÓÿؼþÃû×Ö
Óï¾äΪ
with aperp do
begin
connection:=dm.ADOCerp;
parameters.Clear;&nbs ......
±êÌâ
Delphi¶à²ã¿ª·¢·½°¸±È½Ï £¨×ªÔØ£©
¹Ø¼ü×Ö
Delphi¶à²ã¿ª·¢·½°¸±È½Ï
³ö´¦
·½°¸->
Midas
DCOM
COM+
ASTA
RemoteObject
.NET
ÌṩÕß
Borland
΢Èí
΢Èí
http://www.astatech.com
http://www.remobjects.com
΢Èí
ºËÐļ¼Êõ
COM
COM
COM
ASTA×Ô¼ ......
3private XmlDocument xmlDoc;
4 //load xml file
5 private void LoadXml()
6 {
......
Êý¾Ýͨ³£ÊÇÒÔ XML ¸ñʽÌṩ¸ø Web Ó¦ÓóÌÐòµÄ¡£µ«ÊÇ£¬XML Êý¾Ý±¾ÖÊÉÏÊÇ·Ö²ãµÄ£¬Òò´ËÄú¿ÉÄÜÏ£ÍûÄܹ»ÔÚ»ùÓÚÁбíµÄ¿Ø¼þÖÐʹÓà XML Êý¾Ý£¬Èç GridView »ò DropDownList ¿Ø¼þ¡£´ËÑÝÁ·ÑÝʾÈçºÎ½« XML Êý¾ÝÊÓΪ±í¸ñÊý¾Ý¿â±íÖеÄÊý¾Ý½øÐд¦Àí¡£
ͨ¹ý´ËÑÝÁ·£¬Äú½«Ñ§»áÈçºÎÖ´ÐÐÒÔÏÂÈÎÎñ£º
·Ê¹ÓÃÊý¾ÝÔ´¿Ø¼þ¶ÁÈ¡ XM ......
Ò»¡¢ ÍøÂç²¼¾Ö
һ̨ÖÐÐÄSQL·þÎñÆ÷£¨¼ò³Æ£ºÖÐÐÄ·þÎñÆ÷£©£¬¶ą̀·Ö²¼ÔÚ²»Í¬µØÓòµÄSQL·þÎñÆ÷£¨¼ò³Æ£º±¾µØ·þÎñÆ÷£©£¬¸÷¸ö±¾µØ·þÎñÆ÷ºÍÖÐÐÄ·þÎñÆ÷¶¼ÄÜͨ¹ýinternetʵÏÖÍøÂ绥Á¬¡£
¶þ¡¢ËùÓÃÓïÑÔ¼°Êý¾Ý¿â£ºDelphi +Sql
¶þ¡¢ ͨÐÅÒªÇó
ÿ̨±¾µØ·þÎñÆ ......