deluserunit.pas

工资管理系统

unit DelUserUnit;

interface

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

type
  TDelUserForm = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure Edit1Exit(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DelUserForm: TDelUserForm;

implementation

uses PassWordUnit, DataTUnit,bdeutils;


{$R *.DFM}


procedure TDelUserForm.Edit1Exit(Sender: TObject);
begin
    if Length(edit1.Text)=0 then
    begin
    MessageBox(Handle,'口令错误,不能为空,请重输!!!',pchar(caption),mb_iconstop+mb_ok);
    edit1.SetFocus;
    edit1.SelectAll;
    abort;
    end;
end;

procedure TDelUserForm.Edit3KeyPress(Sender: TObject; var Key: Char);
var
   s:string;
begin
  if key=#13 then
  begin
   if (edit3.Text<>edit2.Text)  or (Length(edit1.Text)=0) or (Length(edit2.Text)=0) or (Length(edit3.Text)=0) then
      begin
    MessageBox(Handle,'口令错误,请重输!!!',pchar(caption),mb_iconstop+mb_ok);
    edit3.SetFocus;
    edit3.SelectAll;
    abort;
      end
     else
      begin
       with datat.table3 do
       begin
       First;
//       locate('code;pc',vararrayof([cod,po]),[]) then
       if (Locate('user;pass',vararrayof([edit1.Text,edit3.Text]),[])) then
        begin
            s:=FieldByName('user').AsString;
            s:='真的要删除该用户吗?'+#13+#10+#13+#10+s;
           if (MessageBox(0,PChar(s),pchar(caption),mb_iconquestion+mb_okcancel))
           =Mb_ok then
           begin
                      delete;
                      Close;
                      Open;
                      packtable(datat.table3);
                      Open;
           end;
        end;
       end;
   end;
  end;
end;

procedure TDelUserForm.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TDelUserForm.SpeedButton1Click(Sender: TObject);
var
   s:string;
begin
   if datat.Table3.RecordCount=1 then
   begin
MessageBox(0,'现在只有一个用户,不能删除!!!',pchar(caption),mb_iconstop+mb_ok);
   abort;
   end;
  begin
   if (edit3.Text<>edit2.Text)  or (Length(edit1.Text)=0) or (Length(edit2.Text)=0) or (Length(edit3.Text)=0) then
      begin
    MessageBox(Handle,'口令错误,请重输!!!',pchar(caption),mb_iconstop+mb_ok);
    edit3.SetFocus;
    edit3.SelectAll;
    abort;
      end
     else
      begin
       with datat.table3 do
       begin
       First;
//       locate('code;pc',vararrayof([cod,po]),[]) then
       if (Locate('user;pass',vararrayof([edit1.Text,edit3.Text]),[])) then
        begin
            s:=FieldByName('user').AsString;
            s:='真的要删除该用户吗?'+#13+#10+#13+#10+s;
            if    (edit1.Text=password.DBC1.Text) then
            begin
            MessageBox(0,'此次登录的用户已被您删除请重新登录!!!!!!',pchar(caption),mb_iconinformation+mb_ok);
            end;
           if (MessageBox(0,PChar(s),pchar(caption),mb_iconquestion+mb_okcancel)
           =id_ok) then
           begin
                      delete;
                      Close;
                      Open;
                      packtable(datat.table3);
                      Open;
                      if    (edit1.Text=password.DBC1.Text) then
                      begin
                      password.ShowModal;
                      end;
                      edit1.Text:='';
                      edit2.Text:='';
                      edit3.Text:='';
           end;
        end;
     end;
   end;
  end;

end;

procedure TDelUserForm.FormShow(Sender: TObject);
begin
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
end;

procedure TDelUserForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;

end.