home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / ANIDADAS / Unit3.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-04-07  |  2.2 KB  |  94 lines
  1. unit Unit3;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Menus, Db;
  8.  
  9.  
  10. type
  11.   TForm3 = class(TForm)
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     Salvarcambios1: TMenuItem;
  15.     Salir1: TMenuItem;
  16.     Editar1: TMenuItem;
  17.     deshacerregistroactual1: TMenuItem;
  18.     deshacertodosloscambios1: TMenuItem;
  19.     DBNavigator1: TDBNavigator;
  20.     DBEdit1: TDBEdit;
  21.     DBEdit2: TDBEdit;
  22.     DBEdit3: TDBEdit;
  23.     DBEdit4: TDBEdit;
  24.     DBEdit5: TDBEdit;
  25.     DBGrid1: TDBGrid;
  26.     Label2: TLabel;
  27.     Label3: TLabel;
  28.     Label4: TLabel;
  29.     Label5: TLabel;
  30.     Label6: TLabel;
  31.     procedure DBGrid1Enter(Sender: TObject);
  32.     procedure DBGrid1Exit(Sender: TObject);
  33.     procedure Salir1Click(Sender: TObject);
  34.     procedure Salvarcambios1Click(Sender: TObject);
  35.     procedure deshacerregistroactual1Click(Sender: TObject);
  36.     procedure deshacertodosloscambios1Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  42.  
  43. var
  44.   Form3: TForm3;
  45.  
  46. implementation
  47.  
  48. uses Unit2;
  49.  
  50. {$R *.DFM}
  51.  
  52. procedure TForm3.DBGrid1Enter(Sender: TObject);
  53. begin
  54.   DBNavigator1.datasource:=datamodule2.Datasource2;
  55. end;
  56.  
  57. procedure TForm3.DBGrid1Exit(Sender: TObject);
  58. begin
  59.   DBNavigator1.datasource:=datamodule2.datasource1;
  60. end;
  61.  
  62. procedure TForm3.Salir1Click(Sender: TObject);
  63. begin
  64.   close;
  65. end;
  66.  
  67. procedure TForm3.Salvarcambios1Click(Sender: TObject);
  68. begin
  69.   if Datamodule2.ClientDataSet1.state in [dsedit,dsInsert] then
  70.     datamodule2.clientdataset1.post;
  71.   if Datamodule2.clientdataset2.state in [dsEdit,dsInsert] then
  72.     Datamodule2.ClientDataSet2.Post;
  73.     with datamodule2.clientdataset1 do
  74.     begin
  75.       mergechangelog;
  76.       savetofile('clientes');
  77.     end;
  78.     LABEL1.CAPTION:='REGISTROS SALVADOS';
  79.     label1.caption:=inttostr(datamodule2.clientdataset1.aggregates.find('totalrecords').value)
  80. //     'registros salvados';
  81. end;
  82.  
  83. procedure TForm3.deshacerregistroactual1Click(Sender: TObject);
  84. begin
  85.   datamodule2.ClientDataSet1.revertrecord;
  86. end;
  87.  
  88. procedure TForm3.deshacertodosloscambios1Click(Sender: TObject);
  89. begin
  90.   datamodule2.ClientDataSet1.cancelupdates;
  91. end;
  92.  
  93. end.
  94.