• 网站地图|收藏本站|数学学习|学习方法|电脑学习|教学大全|生活常识|句子大全|管理资料下载|范文大全
  • 用注册表给应用程序加口令

    时间:10-14 10:27:50来源:http://www.laixuea.com 电脑技巧阅读:8788

    概要:exit;end;if Wsz_IfFirst thenbeginfile://处理第一次登录的用户名和口令if Application.MessageBox("您是第一次使用本软件,请记住您的用户名和口令,以便下次登录。现在进入系统吗?","系统提示",MB_OKCANCEL + MB_ICONQUESTION) = IDOK thenbeginfile://保存Wsz_SaveUser(suser,spass);endelsebeginedituser.SetFocus ;exit;end;end elsebeginif not Wsz_CheckUser(suser,spass) thenbeginApplication.MessageBox("对不起,用户名和口令输入不正确!", "系统提示",MB_OK + MB_ICONINFORMATION);edituser.setfocus ;exit;end;end;file

    用注册表给应用程序加口令,标签:电脑技巧大全,电脑技术,http://www.laixuea.com

      exit;

      end;

      if Wsz_IfFirst then

      begin

      file://处理第一次登录的用户名和口令

      if Application.MessageBox(

      "您是第一次使用本软件,请记住您的用户名和口令,

      以便下次登录。现在进入系统吗?",

      "系统提示",

      MB_OKCANCEL + MB_ICONQUESTION) = IDOK then

      begin

      file://保存

      Wsz_SaveUser(suser,spass);

      end

      else

      begin

      edituser.SetFocus ;

      exit;

      end;

      end else

      begin

      if not Wsz_CheckUser(suser,spass) then

      begin

      Application.MessageBox

      ("对不起,用户名和口令输入不正确!", "系统提示",

      MB_OK + MB_ICONINFORMATION);

      edituser.setfocus ;

      exit;

      end;

      end;

      file://全局变量

      GB_Wsz_User := suser;

      GB_Wsz_PASS := spass;

      Close;

      end;

      file://窗体的Show事件

      procedure TWszLoginForm.FormShow(Sender: TObject);

      begin

      if Wsz_IfFirst then

      begin

      Application.MessageBox(

      "您是第一次使用本软件,您可以随便输入用户名和口令。",

      "系统提示",

      MB_OK + MB_ICONINFORMATION);

      end;

      end;

    上一页  [1] [2] 


    Tag:电脑技巧电脑技巧大全,电脑技术电脑学习 - 电脑技巧