home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Help / Examples / Update / CUPMNFRM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  1.3 KB  |  66 lines
  1. unit CUpMnFrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     DBGridRefresh: TDBGrid;
  12.     DBGridCache: TDBGrid;
  13.     DBNavigator1: TDBNavigator;
  14.     ButtonApply: TButton;
  15.     ButtonCancel: TButton;
  16.     ButtonUndo: TButton;
  17.     ButtonRefresh: TButton;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     procedure ButtonApplyClick(Sender: TObject);
  21.     procedure ButtonCancelClick(Sender: TObject);
  22.     procedure ButtonUndoClick(Sender: TObject);
  23.     procedure ButtonRefreshClick(Sender: TObject);
  24.     
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. uses  CUpDM;
  37.  
  38. {$R *.DFM}
  39.  
  40.  
  41. procedure TForm1.ButtonApplyClick(Sender: TObject);
  42. begin
  43.   DataModuleCache.DBaseCache.ApplyUpdates([DataModuleCache.QueryCache]);
  44. end;
  45.  
  46. procedure TForm1.ButtonCancelClick(Sender: TObject);
  47. begin
  48.   DataModuleCache.QueryCache.CancelUpdates;
  49. end;
  50.  
  51. procedure TForm1.ButtonUndoClick(Sender: TObject);
  52. begin
  53.   DataModuleCache.QueryCache.RevertRecord;
  54. end;
  55.  
  56. procedure TForm1.ButtonRefreshClick(Sender: TObject);
  57. begin
  58.   with DataModuleCache.TableRefresh do
  59.   begin
  60.     close;
  61.     open;
  62.   end;
  63. end;
  64.  
  65. end.
  66.