评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+工资管理系统+access[开题报告＋论文＋源代(3)

2013-06-07 01:23 ;       xz:=t_qx['menu_xz'];
        if xz then TAction(f_gl.AL.Actions[n]).Enabled:=true else TAction(f_gl.AL.Actions[n]).Enabled:=false;
        t_qx.Next;
     end;    //while ..END
  t_qx.Close;
end;         //with dm do ..END
end;
procedure Tf_password.b_okClick(Sender: TObject);
begin
  f_password.Hide;
  f_gl.Show;
end;

procedure Tf_password.SpeedButton1Click(Sender: TObject);
begin
  //确认用户密码、权限的合法性
  with dm do
    begin
       t_user.Filter:='name='''+e_user.KeyValue+'''';
       t_user.Filtered:=true;
       user_name:=t_user['name'];//记录登陆用户用户名
       if (trim(e_user.KeyValue)=trim(t_user['name']))and(trim(e_password.Text)=trim(t_user['password'])) then
          begin
            f_password.JC_DATETIME;  //检测计算机日期时间
            //写入登陆日志
            t_jrrz.Open;
            rz_id:=t_jrrz.RecordCount+1;   //记录登录系统ID
            t_jrrz.Edit;
            t_jrrz.Append;
            t_jrrz['rz_id']:=rz_id;
            t_jrrz['user_name']:=user_name; （科教作文网 zw.nseac.com整理）
            t_jrrz['menu_caption']:='系统登陆';
            t_jrrz['jrrq']:=now;
            t_jrrz['rq']:=datetostr(now);
            t_jrrz.Post;
            t_jrrz.Close;
            //日志写完毕　
            f_password.Hide;
            f_gl.Show;
            f_gl.ZT.Panels[2].Text:='当前操作员： '+t_user['name'];
            f_password.qx;  //调用用户的权限过程
            t_user.Filtered:=false;
            t_user.Close;
          end
       else
      &n