Advertisement
Guest User

UnitLogin Code

a guest
Sep 3rd, 2016
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.99 KB | None | 0 0
  1. type
  2. TUsers = record
  3. Username: String [10];
  4. Password: String [15];
  5. end;
  6.  
  7. TfrmLogin = class(TForm)
  8. lblUsername: TLabel;
  9. lblPassword: TLabel;
  10. edtUsername: TEdit;
  11. edtPassword: TEdit;
  12. btnSubmit: TButton;
  13. procedure btnSubmitClick(Sender: TObject);
  14. private
  15. { Private declarations }
  16. public
  17. { Public declarations }
  18. end;
  19.  
  20. var
  21. frmLogin: TfrmLogin;
  22. LoginComplete : Boolean ;
  23. UserFile : file of TUsers ;
  24. Users: TUsers ;
  25. Position : Integer ;
  26. implementation
  27.  
  28. {$R *.dfm}
  29.  
  30.  
  31.  
  32. procedure TfrmLogin.btnSubmitClick(Sender: TObject);
  33. Var Position : Integer ;
  34. UserPassword : String ;
  35. begin
  36. Assignfile(UserFile, 'Password.dat') ;
  37. reset (UserFile) ;
  38. Position := StrToInt(edtUsername.Text) ;
  39. seek (Userfile, Position) ;
  40. read(Userfile, Users);
  41. userpassword := String(Users.Password);
  42. if edtPassword.Text = userpassword then
  43. begin
  44. Showmessage ('congrats');
  45. LoginComplete := True;
  46. close;
  47. end
  48. else
  49. showmessage ('sorry')
  50. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement