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

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'];
 

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