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

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

Delphi控件源码

开发平台：

Delphi

AppSRDM.pas：源码内容
  1. unit AppSRDM;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  7.   DBClient, AppSPlus_TLB, StdVcl, Db, Provider, DBTables, Variants;
  9. type
  10.   TAppServerPlus = class(TRemoteDataModule, IAppServerPlus)
  11.     TableCustomer: TTable;
  12.     TableCustomerCustNo: TFloatField;
  13.     TableCustomerCompany: TStringField;
  14.     TableCustomerAddr1: TStringField;
  15.     TableCustomerAddr2: TStringField;
  16.     TableCustomerCity: TStringField;
  17.     TableCustomerState: TStringField;
  18.     TableCustomerZip: TStringField;
  19.     TableCustomerCountry: TStringField;
  20.     TableCustomerPhone: TStringField;
  21.     TableCustomerFAX: TStringField;
  22.     TableCustomerTaxRate: TFloatField;
  23.     TableCustomerContact: TStringField;
  24.     TableCustomerLastInvoiceDate: TDateTimeField;
  25.     Query: TQuery;
  26.     TableOrders: TTable;
  27.     DataSourceCust: TDataSource;
  28.     ProviderCustomer: TDataSetProvider;
  29.     ProviderQuery: TDataSetProvider;
  30.     procedure ProviderQueryGetDataSetProperties(Sender: TObject;
  31.       DataSet: TDataSet; out Properties: OleVariant);
  32.     procedure ProviderCustomerUpdateData(Sender: TObject;
  33.       DataSet: TCustomClientDataSet);
  34.     procedure ProviderCustomerBeforeUpdateRecord(Sender: TObject;
  35.       SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  36.       UpdateKind: TUpdateKind; var Applied: Boolean);
  37.   private
  38.     { Private declarations }
  39.   protected
  40.     class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  41.     procedure Login(const Name, Password: WideString); safecall;
  42.   public
  43.     { Public declarations }
  44.   end;
  46. implementation
  48. uses AppSForm;
  50. {$R *.DFM}
  52. class procedure TAppServerPlus.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
  53. begin
  54.   if Register then
  55.   begin
  56.     inherited UpdateRegistry(Register, ClassID, ProgID);
  57.     EnableSocketTransport(ClassID);
  58.     EnableWebTransport(ClassID);
  59.   end else
  60.   begin
  61.     DisableSocketTransport(ClassID);
  62.     DisableWebTransport(ClassID);
  63.     inherited UpdateRegistry(Register, ClassID, ProgID);
  64.   end;
  65. end;
  67. procedure TAppServerPlus.Login(const Name, Password: WideString);
  68. begin
  69.   // TODO: add actual login code...
  70.   if Password <> Name then
  71.     raise Exception.Create ('Wrong name/password combination received')
  72.   else
  73.     Query.Active := True;
  74.   ServerForm.Add ('Login:' + Name + '/' + Password);
  75. end;
  77. procedure TAppServerPlus.ProviderQueryGetDataSetProperties(Sender: TObject;
  78.   DataSet: TDataSet; out Properties: OleVariant);
  79. begin
  80.   Properties := VarArrayCreate([0,1], varVariant);
  81.   Properties[0] := VarArrayOf(['Time', Now, True]);
  82.   Properties[1] := VarArrayOf(['Param', Query.Params[0].AsString, False]);
  83. end;
  85. procedure TAppServerPlus.ProviderCustomerUpdateData(Sender: TObject;
  86.   DataSet: TCustomClientDataSet);
  87. begin
  88.   ServerForm.Add ('ProviderCustomer.OnUpdateData');
  89. end;
  91. procedure TAppServerPlus.ProviderCustomerBeforeUpdateRecord(
  92.   Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  93.   UpdateKind: TUpdateKind; var Applied: Boolean);
  94. begin
  95.   ServerForm.Add ('ProviderCustomer.UpdateRecord');
  96. end;
  98. initialization
  99.   TComponentFactory.Create(ComServer, TAppServerPlus,
  100.     Class_AppServerPlus, ciMultiInstance, tmApartment);
  101. end.