【delphi开源代码栏目提醒】：网学会员为广大网友收集整理了，frm_XMLBrow.pas，希望对大家有所帮助！

    unit frm_XMLBrow;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Grids, DBGrids, DB, DBClient, DBCtrls, XPMan;
    
    type
      TFrmXMLBrow = class(TForm)
        GBxBrow: TGroupBox;
        DSXML: TDataSource;
        DSTXML: TClientDataSet;
        DBGLIst: TDBGrid;
        BtnXMLOpen: TButton;
        BtnClose: TButton;
        OpenXML: TOpenDialog;
        procedure BtnXMLOpenClick(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmXMLBrow: TFrmXMLBrow;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmXMLBrow.BtnXMLOpenClick(Sender: TObject);
    begin
      DSTXML.Close;
      try
      if OpenXML.Execute then
      begin
        DSTXML.FileName:=OpenXML.FileName;
      end;
      DSTXML.Open;
      except
        showmessage('您打开的不是一个数据库型的XML文件！');
        exit;
      end;
    end;
    
    procedure TFrmXMLBrow.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    end.