unit Leading_XML;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, kbmMemTable, kbmMemTableHH, ActnList, ImgList,
Excel97, OleServer, ComCtrls, ToolWin, ExtCtrls,xmldoc,XMLIntf,msxmldom,
xmldom;
type
THHLeading_XML = class(TForm)
Panel2: TPanel;
Label7: TLabel;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
BtnChooseExcel: TButton;
BtnLeading_In_Database: TButton;
ToolBar3: TToolBar;
btnBack: TToolButton;
Panel1: TPanel;
OpenDialog1: TOpenDialog;
ImageList1: TImageList;
ActionList1: TActionList;
act_Back: TAction;
ChooseXml: TAction;
Leading_In_Database: TAction;
MMTable: TkbmMemTableHH;
Memo1: TMemo;
XMLDocument1: TXMLDocument;
procedure act_BackExecute(Sender: TObject);
procedure ChooseXmlExecute(Sender: TObject);
procedure Leading_In_DatabaseExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
protected
{ ICommonService methods }
function GetXMLNodeSpecialvalue(strEntityEnginefile:String;
XMLNodePath:String;const XMLAttrName:String=&