Ad:

Pascal and Delphi Discussion Thread
Marked Solved
Views: 1142

Oct 2nd, 2009

-1

delphi logon code

Expand Post »

hi i need to write a logon code for delphi 7 that logs on to someone and then if they get the password wrong 3 time they get locked out. i am completely stuck i have a log on code written but i don't know where to go after that. the log on code is
procedure TForm1.Button1Click(Sender: TObject);
var
count: integer;
begin
If edit1.Text='Jayno4' Then
Begin
Edit1.Readonly:=true;
end
else
If MaskEdit1.Text='jaynesh' Then
Begin
form3.Visible:=True;
end
else
Begin
ShowMessage('Incorrect username and password');
end;
end;

end

Similar Threads

C++ to Delphi CheckSum code in Pascal and Delphi
can anyone compile this code ? in Pascal and Delphi
Delphi 16 bit - Code segment too large in Pascal and Delphi
delphi object casting in Pascal and Delphi
Delphi 7 & DPlot Jr in Pascal and Delphi

Jayno4

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Oct 2009

Permalink

Oct 2nd, 2009

Re: delphi logon code

What do you want?To log into a computer or just your program?

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

Permalink

Oct 2nd, 2009

Re: delphi logon code

Click to Expand / Collapse Quote originally posted by FlamingClaw ...

What do you want?To log into a computer or just your program?

basically on a form there is a button called log in and what happens is when the people put the right details in to the edit box and the mask edit it logs them in and shows them a new form but if they get it wrong they get another try and after 3 tries i need it to close the application and show message saying you have now been locked out. the main part i am stuck at is trying to make it give the person 3 tries

Jayno4

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Oct 2009

Permalink

Oct 3rd, 2009

Re: delphi logon code

one alternative is

delphi Syntax (Toggle Plain Text)
 
procedure TForm1.Button1Click(Sender: TObject);
var
count: integer;
begin {main}
	count:=3;
	If edit1.Text='Jayno4' Then
	Begin
		Edit1.Readonly:=true;
	end else	if MaskEdit1.Text='jaynesh' Then
	Begin
		form3.Visible:=True;
	end else Begin
		Dec(count);{same as count:=count-1}
		ShowMessage('Incorrect username and password');
		if (count=0) then begin
			ShowMessage('Program is exiting...');
			sleep(200);
			close;
		end;
	end;
end;{of main}
procedure TForm1.Button1Click(Sender: TObject);
var
count: integer;
begin {main}
	count:=3;
	If edit1.Text='Jayno4' Then
	Begin
		Edit1.Readonly:=true;
	end else	if MaskEdit1.Text='jaynesh' Then
	Begin
		form3.Visible:=True;
	end else Begin
		Dec(count);{same as count:=count-1}
		ShowMessage('Incorrect username and password');
		if (count=0) then begin
			ShowMessage('Program is exiting...');
			sleep(200);
			close;
		end;
	end;
end;{of main}

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Pascal and Delphi Forum Timeline: Containing numbers - how?

Next Thread in Pascal and Delphi Forum Timeline: How to find the most common word in a Linked List in Pascal.

DaniWeb Message

Cancel Changes

User Name
Password