projecteditfrm.pas

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

unit ProjectEditFrm;

interface

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

resourcestring
  sInc='增加';
  sAdd='增项';
  sConfirm='确认';
  sName='项目名称不能为空!';

type
  TProjectEditForm = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    dbcbUsed: TDBCheckBox;
    dbrgDirection: TDBRadioGroup;
    bbtnAdd: TBitBtn;
    bbtnClose: TBitBtn;
    procedure bbtnAddClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bbtnAddEnter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ShowModalPopup(popup: integer);
    { Public declarations }
  end;

var
  ProjectEditForm: TProjectEditForm;

implementation

uses unDM2, Dialog;

{$R *.DFM}

procedure TProjectEditForm.ShowModalPopup(popup : integer);
begin
  case popup of
    0: begin
        bbtnAdd.Caption := Pchar(sInc);
        dbrgDirection.Value := Pchar(sAdd);
        ShowModal;
       end;
    1: begin
        bbtnAdd.Caption := Pchar(sConfirm);
        DM2.tblProject.edit;
        ShowModal;
       end;
  end;
end;

procedure TProjectEditForm.bbtnAddClick(Sender: TObject);
begin
  if bbtnAdd.Caption=Pchar(sInc) then begin
    DM2.tblProject.append;
    dbrgDirection.Value := Pchar(sAdd);
    dbEdit1.SetFocus;
  end else begin
    DM2.tblProject.Post;
    Close;
  end;
end;

procedure TProjectEditForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if DM2.tblProjectProjectName.Value = '' then
    DM2.tblProject.Delete;
end;

procedure TProjectEditForm.bbtnAddEnter(Sender: TObject);
begin
  if DBEdit1.Text='' then begin
    MessageDlg(Pchar(sName), mtError, [mbOK], 0);
    DBEdit1.SetFocus;
  end;
end;

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

procedure TProjectEditForm.FormDestroy(Sender: TObject);
begin
  ProjectEditForm:=Nil;
end;

end.