expressioneditfrm.pas

考勤管理是企业内部管理的重要环节和基础

unit ExpressionEditFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Buttons;

resourcestring
  sExpressions='公式不能为空!';

type
  TExpressionEditForm = class(TForm)
    bbtnConfirm: TBitBtn;
    bbtnCancel: TBitBtn;
    bbtnAdd: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    procedure bbtnConfirmClick(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
    procedure bbtnAddClick(Sender: TObject);
    procedure bbtnConfirmEnter(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    procedure ShowModalPopup(popup: integer);
    { Public declarations }
  end;

var
  ExpressionEditForm: TExpressionEditForm;

implementation

uses unDM2;

{$R *.DFM}

procedure TExpressionEditForm.ShowModalPopup(popup : integer);
begin
  case popup of
    0: begin
        bbtnAdd.Visible:=true;
        DM2.tblExpressions.append;
        ShowModal;
       end;
    1: begin
        bbtnAdd.Visible:=false;
        DM2.tblExpressions.edit;
        ShowModal;
       end;
  end;
end;

procedure TExpressionEditForm.bbtnConfirmClick(Sender: TObject);
begin
  DM2.tblExpressions.Post;
  ExpressionEditForm.close;
end;

procedure TExpressionEditForm.bbtnCancelClick(Sender: TObject);
begin
  DM2.tblExpressions.Cancel;
  ExpressionEditForm.close;
end;

procedure TExpressionEditForm.bbtnAddClick(Sender: TObject);
begin
  DM2.tblExpressions.append;
  DBMemo1.SetFocus;
end;

procedure TExpressionEditForm.bbtnConfirmEnter(Sender: TObject);
begin
  if DBMemo2.Text='' then begin
    MessageDlg(Pchar(sExpressions), mtError, [mbOK], 0);
    DBMemo2.SetFocus;
  end;
end;

procedure TExpressionEditForm.FormDestroy(Sender: TObject);
begin
  ExpressionEditForm:=Nil;
end;

procedure TExpressionEditForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TExpressionEditForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := DM2.DataSetApplyUpdates(DM2.tblExpressions, ModalResult = mrOK);
end;

end.