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

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

Delphi控件源码

开发平台：

Delphi

datamod.pas：源码内容
  2. unit datamod;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, DBXpress, FMTBcd,
  8.   DB, SqlExpr, Provider, DBClient, DBLocal, DBLocalS, WebAdapt, DBAdapt,
  9.   WebComp;
  11. type
  12.   TWDataMod = class(TWebDataModule)
  13.     ibConnection: TSQLConnection;
  14.     dsDepartment: TDataSource;
  15.     cdsDepartment: TSQLClientDataSet;
  16.     cdsEmployee: TSQLClientDataSet;
  17.     dsaDepartment: TDataSetAdapter;
  18.     AdaptDEPARTMENT: TDataSetAdapterField;
  19.     AdaptDEPT_NO2: TDataSetAdapterField;
  20.     AdaptHEAD_DEPT: TDataSetAdapterField;
  21.     AdaptLOCATION: TDataSetAdapterField;
  22.     AdaptBUDGET: TDataSetAdapterField;
  23.     dsaEmployee: TDataSetAdapter;
  24.     AdaptEMP_NO: TDataSetAdapterField;
  25.     AdaptFIRST_NAME: TDataSetAdapterField;
  26.     AdaptLAST_NAME: TDataSetAdapterField;
  27.     AdaptDEPT_NO: TDataSetAdapterField;
  28.     AdaptJOB_CODE: TDataSetAdapterField;
  29.     AdaptJOB_COUNTRY: TDataSetAdapterField;
  30.     AdaptSALARY: TDataSetAdapterField;
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  37.   function WDataMod: TWDataMod;
  39. implementation
  41. {$R *.dfm} 
  43. uses WebReq, WebCntxt, WebFact, Variants;
  45. function WDataMod: TWDataMod;
  46. begin
  47.   Result := TWDataMod(WebContext.FindModuleClass(TWDataMod));
  48. end;
  50. initialization
  51.   if WebRequestHandler <> nil then
  52.     WebRequestHandler.AddWebModuleFactory(TWebDataModuleFactory.Create(TWDataMod, crAlways, caCache));
  54. end.