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

delphi+工资管理系统+access[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](二) eg,ActnList;

type
Tf_password = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    e_password: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Image1: TImage;
    b_ok: TSpeedButton;
    b_cancel: TSpeedButton;
    e_user: TDBLookupComboBox;

    procedure qx; //自定义过程---登陆时用户的权限设置
    procedure b_okClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure b_cancelClick(Sender: TObject);
    procedure E_USEKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure JC_DATETIME;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure e_userKeyPress(Sender: TObject; var Key: Char);
    procedure e_passwordKeyPress(Sender: TObject; var Key: Char);   //检测系统日期时间
private
    { Private declarations }
public
     rz_id:integer;//保存日志ID
    { Public declarations }

end;

var
f_password: Tf_password;
user_name:string; //全局变量,保存登陆系统的用户名

implementation

uses p_mc,p_gl,P_DM;
{$R *.dfm}
procedure tf_password.JC_DATETIME;
begin
//检测计算机日期时间是否小于上次登陆日期时间
with dm do
begin
    t_dl.Open;
    if t_dl['dl_date']>now then
       begin
          t_dl.Edit;
          t_dl['dl_date']:=strtodate('1900-03-20');
          t_dl.Post;
          application.MessageBox('计算机日期或时间有误,请更正！','登陆失败',mb_ok+mb_iconstop);
          f_password.Close;
       end
    else
       begin
          t_dl.Edit;
          t_dl['dl_date']:=datetostr(now);
          t_dl.Post;
         // t_dl.Close;
       end; //endif
    t_dl.Close;
end;       //with dm do 语句完毕
end;
procedure tf_password.qx; //自定义过程---登陆时用户的权限设置
var
n:integer;
xz:boolean; //该权限是否选择
begin
with dm,f_gl do
begin
t_qx.Open;
t_qx.Filter:='user_name='''+user_name+'''';
t_qx.Filtered:=true;
t_qx.First;
while not t_qx.eof do
     begin
        n:=t_qx['menu_id'];