实例——使用客户数据集获取数据库服务器信息.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

    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.