home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / ANIDADAS / Unit2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-03-02  |  1018 b   |  44 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBClient;
  8.  
  9. type
  10.   TDataModule2 = class(TDataModule)
  11.     DataSource1: TDataSource;
  12.     DataSource2: TDataSource;
  13.     ClientDataSet2: TClientDataSet;
  14.     ClientDataSet1: TClientDataSet;
  15.     ClientDataSet1Nombre: TStringField;
  16.     ClientDataSet1apellidos1: TStringField;
  17.     ClientDataSet1apellido2: TStringField;
  18.     ClientDataSet1direcc: TStringField;
  19.     ClientDataSet1Provincia: TStringField;
  20.     ClientDataSet1telefono: TDataSetField;
  21.     ClientDataSet1totalrecords: TAggregateField;
  22.     procedure ClientDataSet1BeforeDelete(DataSet: TDataSet);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   DataModule2: TDataModule2;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TDataModule2.ClientDataSet1BeforeDelete(DataSet: TDataSet);
  37. begin
  38.  clientdataset2.first;
  39.   while not clientdataset2.eof do
  40.     clientdataset2.delete;
  41. end;
  42.  
  43. end.
  44.