accountsmanager.~pas

本系统是一个基于delphi7环境开发的人事管理系统

unit AccountsManager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, MXGRAPH, StdCtrls, jpeg;
//const key:array[1..15]of word=(45,87,97,110,104,64,88,117,101,95,98,105,110,104,44);
type
  TForm8 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
//     function enp(const s:string):string;
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form8: TForm8;
  
implementation
uses WelcomePicture, LoginDailog, MainMenu;

{$R *.dfm}
{function TForm8.enp(const s:string):string;
var
j,k,tmp:word;
tmpstr:string;
begin
k:=1;
for j:=1 to length(s)  do
  begin
    tmp:=ord(s[j]) xor key[k];
    tmpstr:=tmpstr+inttoHex(tmp,2);
    k:=k+1;
    if k>length(key) then
    k:=1;
  end;
  result:=tmpstr;
end;    }


procedure TForm8.Button1Click(Sender: TObject);
var
NewName:String;
NewPwd:String;
TempWorker_no:String[5];
//inputString:String;
begin
//if  form2.user_name<>'adm'  then  showmessage('你的权限不足以此操作')
//else
 // begin
  TempWorker_no:=inputbox('添加用户操作(第一步)','请输入新用公司员工号','');
   if (TempWorker_no='') then exit;
   form1.ADOTable1.Active:=false;
    form1.ADOTable1.TableName:='employees';
form1.ADOTable1.Active:=true;
  if  not form1.adotable1.Locate('员工编号',TempWorker_no,[])  then
begin
  showmessage('公司没有此员工，操作失败！');
  exit;
end;
  NewName:=inputbox('添加用户操作(第二步)','请输入新用户名','');
  if (NewName='') then exit;
  form1.ADOTable1.Active:=false;
  form1.ADOTable1.TableName:='users';
form1.ADOTable1.Active:=true;
if  form1.adotable1.Locate('用户名',NewName,[])  then
begin
showmessage('用户名重复，操作失败！');
exit;
end;
  NewPwd:=inputbox('添加用户操作(第三步)','请输入新用户名密码','');
if (NewPwd<>'')  then
begin

//str:=edit2.Text;
//str:=enp(edit2.Text);      //与加密说再见
with form1.ADOQuery1 do
begin
     close;
     sql.Clear;
     sql.Add('insert into Users(用户名,密码,员工号)values(:用户名,:密码,:员工号)');
     parameters[0].Value:=NewName;
     parameters[1].Value:=NewPwd;
     parameters[2].Value:=TempWorker_no;
     execsql;
     showmessage('添加用户: '+NewName+' 成功');
     //edit1.Clear;
    // edit2.Clear;
     end;
     end
     else
     begin
     showmessage('创建用户操作失败！');
     //edit1.Clear;
     //edit2.Clear;
     end ;
   //end ;

end;

procedure TForm8.Button2Click(Sender: TObject);
var
inputString:String[5];
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.Active:=true;
 //if  form2.user_name<>'adm'  then  showmessage('你的权限不足以此操作')
//else
 // begin
    inputString:=inputbox('删除帐号操作','请输入要删除用户','');
if (inputString='') or (inputString='adm') then
begin
showmessage('操作失败!');
exit;
end;
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='users';
form1.ADOTable1.Active:=true;
if  form1.adotable1.Locate('用户名',inputString,[])  then
begin

with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('delete from Users where 用户名=:用户名');
   parameters[0].Value:=inputString;
   execsql;
   showmessage('删除用户: '+inputString+' 成功');
   end
  end
  else
  begin
  showmessage('不存在该用户！');
  end;
end;

procedure TForm8.Button5Click(Sender: TObject);
var
inputString:String[5];
str:string[5];
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.Active:=true;
inputString:=inputbox('修改密码操作','当前用户'+form2.user_name+#10'请输入新密码','');
str:= inputString;
//str:=enp(inputString);    //与加密说再见
if inputString='' then exit;
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update users set 密码=:密码 where 用户名=:用户名');
   parameters[0].Value:=str;
   parameters[1].Value:=form2.user_name;
   execsql;
   showmessage('修改密码成功！');
   //edit1.Clear;
   end;
end;

procedure TForm8.Button4Click(Sender: TObject);
var
inputString:String[5];
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.Active:=true;
inputString:=inputbox('修改用户名','当前用户'+form2.user_name+#10'请输入新用户名','');
if (inputString='') then exit;
if inputString='adm' then
begin
showmessage('Fuck you!');      //一个白痴漏洞
exit;
end;
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update users set 用户名=:用户名 where 用户名=:用户名');
   parameters[0].Value:=inputString;
   parameters[1].Value:=form2.user_name;
   execsql;
   showmessage('修改用户名成功！');
   //edit1.Clear;
   end;
end;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form3.Enabled:=true;
self.Memo1.Lines.Clear;
end;

procedure TForm8.FormShow(Sender: TObject);
begin
//self.Edit1.Text:=LoginDailog.Form2.user_name;
if  form2.user_name<>'adm' then
begin
self.Memo1.Lines.Add(form2.user_name+' 您好!');
self.Memo1.Lines.Add('您的用户类型为：普通型');
self.Button1.Enabled:=false;
self.Button2.Enabled:=false;
self.Button4.Enabled:=true;;
end
else
begin
self.Memo1.Lines.Add('管理员 您好！');
self.Memo1.Lines.Add('您的用户类型为：超级型');
self.Button1.Enabled:=true;
self.Button2.Enabled:=true;
self.Button4.Enabled:=false;
end;

end;

end.