uemplr.pas

小型企业物品管理系统,DELPHI源码+ACCESS数据库

unit Uemplr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, ExtCtrls, StdCtrls, Mask, DBCtrls, DBCtrlsEh, RzDBEdit,
  RzButton, DBGridEh, DBLookupEh;

type
  TFemplr = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    lbl1: TLabel;
    dbedtemname: TDBEdit;
    lbl4: TLabel;
    lbl5: TLabel;
    RzDBMemo1: TRzDBMemo;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    dbname: TDBLookupComboboxEh;
    lbl6: TLabel;
    RzSpacer1: TRzSpacer;
    img1: TImage;
    dbcbb1: TDBComboBox;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure img1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Femplr: TFemplr;

implementation

uses Udate, Uempty, Udep, Usrfsz;

{$R *.dfm}

procedure TFemplr.RzBitBtn2Click(Sender: TObject);
begin
  if fdate.qryempty.Modified=False then close;
  if pd=1 then begin
    if MessageDlg('不保存当前的信息吗？',mtInformation,[mbYes,mbno],0)=IDYES then begin
      fdate.qryempty.Cancel;
      close;
    end
    else
      RzBitBtn1.Click;
  end
  else if pd=2 then  begin
    if MessageDlg('不保存当前所做的修改吗？',mtInformation,[mbYes,mbno],0)=idyes then begin
      fdate.qryempty.Cancel;
      close;
    end
   else
      RzBitBtn1.Click;
  end
  else if pd=3 then
    Close
end;

procedure TFemplr.RzBitBtn1Click(Sender: TObject);
begin
 if dbedtemname.Text='' then begin
    ShowMessage('员工姓名不能为空！');
    dbedtemname.SetFocus;
    Exit;
  end;
  if dbname.Text='' then begin
    ShowMessage('员工所属部门不能为空！');
    dbname.SetFocus;
    Exit;
  end;
  if dbcbb1.ItemIndex=-1 then begin
    ShowMessage('员工性别不能为空！');
    dbcbb1.SetFocus;
    Exit;
  end;
  if fdate.qryempty.Modified then begin
    if MessageDlg('真的要保存吗？',mtInformation,[mbYes,mbno],0)=idyes then begin
      try fdate.qryempty.Post;
        fempty.ashow.Execute;
        ShowMessage('保存成功！');
        pd:=3;
      except
          fdate.qryempty.Cancel;
          ShowMessage('保存失败！');
          Exit;
      end;
    end
    else
      Exit;
  end
  else
    Exit;

end;

procedure TFemplr.img1Click(Sender: TObject);
begin
  RzBitBtn2.Click;
end;

end.