ucorbadmmdserver.pas

delphi多层应用系统 delphi多层应用系统

unit ucorbadmMDServer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComObj, VCLCom, StdVcl, DataBkr, CorbaRdm, CorbaObj,
  PCORBAMDServer_TLB, Db, DBTables, Provider, DBClient;

type

  TCORBAMDServer = class(TCorbaDataModule, ICORBAMDServer)
    Database1: TDatabase;
    quryCustomer: TQuery;
    quryOrders: TQuery;
    dsCustomer: TDataSource;
    dspCustomerOrders: TDataSetProvider;
    procedure dspCustomerOrdersUpdateData(Sender: TObject;
      DataSet: TClientDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CORBAMDServer: TCORBAMDServer;

implementation

{$R *.DFM}

uses CorbInit, CorbaVcl, fCORBAMDServerMain;

procedure TCORBAMDServer.dspCustomerOrdersUpdateData(Sender: TObject;
  DataSet: TClientDataSet);
begin
  Form1.ClientDataSet1.Data := DataSet.Data;
end;

initialization
  TCorbaVclComponentFactory.Create('CORBAMDServerFactory', 'CORBAMDServer', 'IDL:PCORBAMDServer/CORBAMDServerFactory:1.0', ICORBAMDServer,
    TCORBAMDServer, iMultiInstance, tmSingleThread);
end.