ucacheupdate.pas

飞思科技的书不错

unit UcacheUpdate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB,ExtCtrls, DBCtrls, ToolWin, ComCtrls, Grids, DBGrids, StdCtrls,
  Buttons;

type
  TFrmCacheUpdate = class(TForm)
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    BtnApplyUpdate: TButton;
    BtnCancelUpdate: TButton;
    BtnRevertRecord: TButton;
    GroupBox2: TGroupBox;
    CBUnmodified: TCheckBox;
    CBModified: TCheckBox;
    CBInserted: TCheckBox;
    CBDeleted: TCheckBox;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    BtnReQuery: TSpeedButton;
    BtnClose: TSpeedButton;
    ToolButton3: TToolButton;
    procedure BtnCloseClick(Sender: TObject);
    procedure BtnReQueryClick(Sender: TObject);
    procedure BtnApplyUpdateClick(Sender: TObject);
    procedure BtnCancelUpdateClick(Sender: TObject);
    procedure BtnRevertRecordClick(Sender: TObject);
    procedure UpdateRecordsToShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCacheUpdate: TFrmCacheUpdate;

implementation

uses UcsDemo;

{$R *.dfm}

procedure TFrmCacheUpdate.BtnCloseClick(Sender: TObject);
begin
    Close;
end;

procedure TFrmCacheUpdate.BtnReQueryClick(Sender: TObject);
begin
    DmCsDemo.QueryCsDemo.Close;
    DmCsDemo.QueryCsDemo.Open;
end;

procedure TFrmCacheUpdate.BtnApplyUpdateClick(Sender: TObject);
begin
    DmCsDemo.QueryCsDemo.Database.ApplyUpdates([DmCsDemo.QueryCsDemo]);
end;

procedure TFrmCacheUpdate.BtnCancelUpdateClick(Sender: TObject);
begin
    DmCsDemo.QueryCsDemo.CancelUpdates;
end;

procedure TFrmCacheUpdate.BtnRevertRecordClick(Sender: TObject);
begin
    DmCsDemo.QueryCsDemo.RevertRecord;
end;

procedure TFrmCacheUpdate.UpdateRecordsToShow(Sender: TObject);
var
  UpdRecTypes : TUpdateRecordTypes;
begin
  UpdRecTypes := [];
  if CBUnModified.Checked then
    Include(UpdRecTypes, rtUnModified);
  if CBModified.Checked then
    Include(UpdRecTypes, rtModified);
  if CBInserted.Checked then
    Include(UpdRecTypes, rtInserted);
  if CBDeleted.Checked then
    Include(UpdRecTypes, rtDeleted);
  DmCsDemo.QueryCsDemo.UpdateRecordTypes := UpdRecTypes;
end;

procedure TFrmCacheUpdate.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
    //查看是否还有数据没有保存
    CanClose := DmCsDemo.DataSetApplyUpdates(DmCsDemo.QueryCsDemo, ModalResult = mrOK);
end;

end.