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

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

Delphi控件源码

开发平台：

Delphi

wsnapdata.pas：源码内容
  2. unit wsnapdata;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, DBXpress, FMTBcd,
  8.   Provider, SqlExpr, DB, DBClient;
  10. type
  11.   TWebDataModule1 = class(TWebDataModule)
  12.     ClientDataSet1: TClientDataSet;
  13.     SQLConnection1: TSQLConnection;
  14.     SQLDataSet1: TSQLDataSet;
  15.     DataSetProvider1: TDataSetProvider;
  16.     procedure ClientDataSet1AfterPost(DataSet: TDataSet);
  17.     procedure ClientDataSet1AfterDelete(DataSet: TDataSet);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  24.   function WebDataModule1: TWebDataModule1;
  26. implementation
  28. {$R *.dfm} 
  30. uses WebReq, WebCntxt, WebFact, Variants;
  32. function WebDataModule1: TWebDataModule1;
  33. begin
  34.   Result := TWebDataModule1(WebContext.FindModuleClass(TWebDataModule1));
  35. end;
  37. procedure TWebDataModule1.ClientDataSet1AfterPost(DataSet: TDataSet);
  38. begin
  39.   ClientDataSet1.ApplyUpdates(-1);
  40. end;
  42. procedure TWebDataModule1.ClientDataSet1AfterDelete(DataSet: TDataSet);
  43. begin
  44.   ClientDataSet1.ApplyUpdates(-1);
  45. end;
  47. initialization
  48.   if WebRequestHandler <> nil then
  49.     WebRequestHandler.AddWebModuleFactory(TWebDataModuleFactory.Create(TWebDataModule1, crAlways, caCache));
  51. end.