home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / ANIDADAS / Unit3.~pa < prev    next >
Encoding:
Text File  |  1999-03-02  |  2.2 KB  |  93 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.     Label1: TLabel;
  27.     Label2: TLabel;
  28.     Label3: TLabel;
  29.     Label4: TLabel;
  30.     Label5: TLabel;
  31.     Label6: TLabel;
  32.     procedure DBGrid1Enter(Sender: TObject);
  33.     procedure DBGrid1Exit(Sender: TObject);
  34.     procedure Salir1Click(Sender: TObject);
  35.     procedure Salvarcambios1Click(Sender: TObject);
  36.     procedure deshacerregistroactual1Click(Sender: TObject);
  37.     procedure deshacertodosloscambios1Click(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   Form3: TForm3;
  46.  
  47. implementation
  48.  
  49. uses Unit2;
  50.  
  51. {$R *.DFM}
  52.  
  53. procedure TForm3.DBGrid1Enter(Sender: TObject);
  54. begin
  55.   DBNavigator1.datasource:=datamodule2.Datasource2;
  56. end;
  57.  
  58. procedure TForm3.DBGrid1Exit(Sender: TObject);
  59. begin
  60.   DBNavigator1.datasource:=datamodule2.datasource1;
  61. end;
  62.  
  63. procedure TForm3.Salir1Click(Sender: TObject);
  64. begin
  65.   close;
  66. end;
  67.  
  68. procedure TForm3.Salvarcambios1Click(Sender: TObject);
  69. begin
  70.   if Datamodule2.ClientDataSet1.state in [dsedit,dsInsert] then
  71.     datamodule2.clientdataset1.post;
  72.   if Datamodule2.clientdataset2.state in [dsEdit,dsInsert] then
  73.     Datamodule2.ClientDataSet2.Post;
  74.     with datamodule2.clientdataset1 do
  75.     begin
  76.       mergechangelog;
  77.       savetofile('clientes');
  78.     end;
  79.     label1.caption:=inttostr(datamodule2.clientdataset1.aggregates.find('totalrecords').value) + 'registros salvados';
  80. end;
  81.  
  82. procedure TForm3.deshacerregistroactual1Click(Sender: TObject);
  83. begin
  84.   datamodule2.ClientDataSet1.revertrecord;
  85. end;
  86.  
  87. procedure TForm3.deshacertodosloscambios1Click(Sender: TObject);
  88. begin
  89.   datamodule2.ClientDataSet1.cancelupdates;
  90. end;
  91.  
  92. end.
  93.