delphi+工资管理系统+access[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](三)

delphi+工资管理系统+access[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](三) ;       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;
            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

首页 上一页 1 2 3 4 5 6 下一页 尾页 3/6/6

delphi+工资管理系统+access[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](三)由毕业论文网（www.huoyuandh.com）会员上传。