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＋外文翻译](三)