使用客户数据集获取数据库服务器信息

    unit UClientDataSet2;    interface    uses      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,      Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, DB, DBClient,      StdCtrls, Buttons;    type    TForm1 = class(TForm)      //组件说明      DataSource1: TDataSource;      ClientDataSet1: TClientDataSet;      //获取人员简要信息的客户数据集组件      Query1: TQuery;      //获取数据库服务器数据的查询组件      DBGrid1: TDBGrid;      DBNavigator1: TDBNavigator;      DataSource2: TDataSource;      DBGrid2: TDBGrid;      //客户数据集使用的字段      ClientDataSet1CDSDesigner: TStringField;      ClientDataSet1CDSDesigner2: TStringField;      ClientDataSet1CDSDesigner4: TStringField;      ClientDataSet1CDSDesigner5: TStringField;      ClientDataSet1CDSDesigner6: TStringField;      ClientDataSet1CDSDesigner9: TStringField;      ClientDataSet1Email: TStringField;      Label1: TLabel;      ClientDataSet1CDSDesigner3: TStringField;      BitBtn1: TBitBtn;      SaveBitBtn: TBitBtn;      procedure BitBtn1Click(Sender: TObject);      //显示人员简要信息过程      procedure SaveBitBtnClick(Sender: TObject);      //保存人员简要信息过程    private      { Private declarations }    public      { Public declarations }    end;    var    Form1: TForm1;    implementation      uses UClientDataSet2_XML;      //说明该单元使用了别的单元文件    {$R *.dfm}    procedure TForm1.BitBtn1Click(Sender: TObject);    begin      //调出另一个窗体，显示以XML文档保存在终端的人员简要信息      RenYuanForm.ShowModal;    end;    procedure TForm1.SaveBitBtnClick(Sender: TObject);    //保存人员将要信息事件处理过程    var      //说明保存文件的变量类型      FName:string;      FType:TDataPacketFormat;    begin      FName:='renyuan_xml_doc';      //指定保存的文件名      FType:=dfXML;      //指定保存文件的类型，即XML文档      ClientDataSet1.SaveToFile(FName,FType);      //调用客户数据集的SaveToFile方法，将人员简要信息保存在终端    end;    end.    显示人员简要信息的单元代码如下：    unit UClientDataSet2_XML;    interface    uses      //使用系统的单元说明      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,      Dialogs, Grids, DBGrids, DB, DBClient, ExtCtrls, DBCtrls, StdCtrls,      Buttons;    type      TRenYuanForm = class(TForm)      //窗体使用组件说明      DBNavigator1: TDBNavigator;      ClientDataSet1: TClientDataSet;      ClientDataSet1CDSDesigner: TStringField;      ClientDataSet1CDSDesigner4: TStringField;      ClientDataSet1CDSDesigner5: TStringField;      ClientDataSet1CDSDesigner6: TStringField;      ClientDataSet1CDSDesigner9: TStringField;      ClientDataSet1CDSDesigner3: TStringField;      ClientDataSet1CDSDesigner2: TStringField;      ClientDataSet1Email: TStringField;      //如果字段名非汉字，则内部字段名为组件名+字段名      DataSource2: TDataSource;      DBGrid2: TDBGrid;      Label1: TLabel;      BitBtn1: TBitBtn;      procedure BitBtn1Click(Sender: TObject);      private        { Private declarations }      public        { Public declarations }      end;    var    RenYuanForm: TRenYuanForm;    implementation    {$R *.dfm}    procedure TRenYuanForm.BitBtn1Click(Sender: TObject);    //关闭显示人员简要信息的窗体    begin      RenYuanForm.Close;      //关闭窗体    end;    end.