home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Corba / Datamodule / corbaclientform.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  3KB  |  92 lines
  1. unit CORBAClientForm;
  2.  
  3. {
  4.   The CorbaConnection Component's Repository ID property is used to
  5.   connect to the Server. Please make sure that the Server is either
  6.   running or registered with OAD (using OADUtil).
  7.   Note that Delphi does not require the complete Repository ID. Both
  8.   the short form, 'CORBAServer/DemoCORBA' or the long form,
  9.   'IDL:CORBAServer/DemoCORBAFactory:1.0' are valid.
  10. }
  11.  
  12. interface
  13.  
  14. uses
  15.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  16.   ExtCtrls, Grids, DBGrids, DBCtrls, Db, DBClient, CorbaCon, Buttons,
  17.   StdCtrls, ActnList;
  18.  
  19. type
  20.   TDemoClientFrm = class(TForm)
  21.     Panel1: TPanel;
  22.     Panel2: TPanel;
  23.     CustomerNavigator: TDBNavigator;
  24.     OrdersNavigator: TDBNavigator;
  25.     CustomerGrid: TDBGrid;
  26.     OrdersGrid: TDBGrid;
  27.     Splitter1: TSplitter;
  28.     DemoConnection: TCorbaConnection;
  29.     CustomerCDS: TClientDataSet;
  30.     OrdersCDS: TClientDataSet;
  31.     OrdersSource: TDataSource;
  32.     CustomerSource: TDataSource;
  33.     CustomerCDSCustNo: TFloatField;
  34.     CustomerCDSCompany: TStringField;
  35.     CustomerCDSAddr1: TStringField;
  36.     CustomerCDSAddr2: TStringField;
  37.     CustomerCDSCity: TStringField;
  38.     CustomerCDSState: TStringField;
  39.     CustomerCDSZip: TStringField;
  40.     CustomerCDSCountry: TStringField;
  41.     CustomerCDSPhone: TStringField;
  42.     CustomerCDSFAX: TStringField;
  43.     CustomerCDSTaxRate: TFloatField;
  44.     CustomerCDSContact: TStringField;
  45.     CustomerCDSLastInvoiceDate: TDateTimeField;
  46.     CustomerCDSOrderTable: TDataSetField;
  47.     CustomerAppUpdBtn: TSpeedButton;
  48.     Customer: TLabel;
  49.     Orders: TLabel;
  50.     ActionList: TActionList;
  51.     ApplyUpdates: TAction;
  52.     procedure FormCreate(Sender: TObject);
  53.     procedure ApplyUpdatesExecute(Sender: TObject);
  54.     procedure ApplyUpdatesUpdate(Sender: TObject);
  55.   private
  56.     { Private declarations }
  57.   public
  58.     { Public declarations }
  59.   end;
  60.  
  61. var
  62.   DemoClientFrm: TDemoClientFrm;
  63.  
  64. implementation
  65.  
  66. {$R *.DFM}
  67.  
  68. procedure TDemoClientFrm.FormCreate(Sender: TObject);
  69. begin
  70.   try
  71.     DemoConnection.Connected := True;
  72.     CustomerCDS.Open;
  73.     OrdersCDS.Open;
  74.   except
  75.     on E:Exception do
  76.       ShowMessage(E.Message+': Server should be running.');
  77.   end;
  78.  
  79. end;
  80.  
  81. procedure TDemoClientFrm.ApplyUpdatesExecute(Sender: TObject);
  82. begin
  83.   CustomerCDS.ApplyUpdates(-1);
  84. end;
  85.  
  86. procedure TDemoClientFrm.ApplyUpdatesUpdate(Sender: TObject);
  87. begin
  88.   ApplyUpdates.Enabled := CustomerCDS.ChangeCount > 0;
  89. end;
  90.  
  91. end.
  92.