uempty.pas

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

unit Uempty;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, ExtCtrls, PrnDbgeh, DB, RzButton, Grids, DBGridEh,
  StdCtrls, DBCtrls, Mask, RzDBEdit, RzEdit, ActnList, IWControl,
  IWCompListbox, IWDBStdCtrls, RzStatus;

type
  TFempty = class(TForm)
    DBGridEh1: TDBGridEh;
    RzToolbar1: TRzToolbar;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzToolButton3: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzToolButton7: TRzToolButton;
    RzStatusBar1: TRzStatusBar;
    PrintDBGridEh1: TPrintDBGridEh;
    RzSpacer1: TRzSpacer;
    RzSpacer2: TRzSpacer;
    RzSpacer3: TRzSpacer;
    RzSpacer4: TRzSpacer;
    RzSpacer6: TRzSpacer;
    actlst1: TActionList;
    ashow: TAction;
    adel: TAction;
    aprint: TAction;
    ts: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    procedure RzToolButton7Click(Sender: TObject);
    procedure aprintExecute(Sender: TObject);
    procedure adelExecute(Sender: TObject);
    procedure ashowExecute(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure img1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fempty: TFempty;

implementation

uses Udate, Udep,Uemplr, Umain, Usrfsz;

{$R *.dfm}

procedure TFempty.RzToolButton7Click(Sender: TObject);
begin
   close;  
end;

procedure TFempty.aprintExecute(Sender: TObject);
begin
  if fdate.qryempty.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以打印！',mtError,[mbok],1);
    Exit;
  end;
  if MessageDlg('您真的要打印员工信息吗？',mtInformation,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

procedure TFempty.adelExecute(Sender: TObject);
begin
  if fdate.qryempty.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以删除！',mtError,[mbok],1);
    Exit;
  end;
end;

procedure TFempty.ashowExecute(Sender: TObject);
begin
  with fdate.qryempty do begin
    Close;
    Open;
  end;
  with fdate.qrydep do begin
    Close;
    Open;
  end;
  ts.Caption:='目前共有员工信息'+''+inttostr(fdate.qryempty.RecordCount)+''+'条！';
end;

procedure TFempty.RzToolButton1Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  pd:=1;
  fdate.qryempty.Append;
  femplr.ShowModal;
end;



procedure TFempty.FormShow(Sender: TObject);
begin
  ashow.Execute;
end;

procedure TFempty.RzToolButton2Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
   if fdate.qryempty.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以修改！',mtError,[mbok],1);
    Exit;
  end;
  fdate.qryempty.Edit;
  pd:=2;
  femplr.ShowModal;
end;

procedure TFempty.RzToolButton5Click(Sender: TObject);
begin
  if fdate.qryempty.RecordCount=0 then begin
    messagebeep(0);
    messagedlg('目前没有信息可以打印！',mtinformation,[mbyes],0);
    exit;
  end;
  if messagedlg('您真的要打印吗？',mtinformation,[mbyes,mbno],0)=idyes then
    printdbgrideh1.Preview
  else
    exit;
end;

procedure TFempty.RzToolButton3Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  if fdate.qryempty.RecordCount=0 then begin
    messagebeep(0);
    showmessage('目前没有信息可以删除！');
    exit;
  end;
  if messagedlg('您真的要删除此条信息吗？',mtinformation,[mbyes,mbno],0)=idyes then begin
    if fdate.qryemptyemid.Value=1 then begin
      MessageDlg('该用户是系统管理员不允许删除！',mtError,[mbYes],0);
      Exit;
    end;
    try fdate.qryempty.Delete;
      showmessage('信息删除成功！');
      ashow.Execute;
    except
      fdate.qryempty.Cancel;
      showmessage('信息删除失败！');
      exit;
    end;
  end
  else
    exit;
end;

procedure TFempty.img1Click(Sender: TObject);
begin
   close;
end;

end.