开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
XmlMappingForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

XmlMappingForm.pas：源码内容
  1. unit XmlMappingForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, xmldom, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, Grids, DBGrids,
  8.   DBClient, Provider, Xmlxform;
  10. type
  11.   TForm1 = class(TForm)
  12.     XMLTransformProvider1: TXMLTransformProvider;
  13.     ClientDataSet1: TClientDataSet;
  14.     DataSource1: TDataSource;
  15.     DBGrid1: TDBGrid;
  16.     ClientDataSet1text: TStringField;
  17.     ClientDataSet1book: TDataSetField;
  18.     ClientDataSet1ebook: TDataSetField;
  19.     Label2: TLabel;
  20.     DBEdit2: TDBEdit;
  21.     Panel1: TPanel;
  22.     DBNavigator1: TDBNavigator;
  23.     Splitter1: TSplitter;
  24.     DBGrid2: TDBGrid;
  25.     ClientDataSet2: TClientDataSet;
  26.     ClientDataSet3: TClientDataSet;
  27.     DataSource2: TDataSource;
  28.     DataSource3: TDataSource;
  29.     Button1: TButton;
  30.     procedure Button1Click(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  37. var
  38.   Form1: TForm1;
  40. implementation
  42. {$R *.dfm}
  44. procedure TForm1.Button1Click(Sender: TObject);
  45. begin
  46.   ClientDataSet1.ApplyUpdates (-1);
  47. end;
  49. end.