The book information management system based on Delphi7 change passwords should be how to do it-CodePudding

The book information management system based on Delphi7 change passwords should be how to do it

CodePudding user response:

The database is SQL server 2000

CodePudding user response:

You are so water, your family know?

CodePudding user response:

refer to the second floor linuxpingwangping response:

water, so you know in your family?

top of you

CodePudding user response:

 procedure TForm1. Button1Click (Sender: TObject); 
The begin 
ADOQuery1. Close; 
ADOQuery1. SQL. The Clear; 
ADOQuery1. SQL. The Add (' Select * from the User Where the UserName=: UserName AND PassWord="PassWord"); 
ADOQuery1. The Parameters. The Items [0]. Value:=Edit1. Text; 
ADOQuery1. The Parameters. The Items [1]. The Value:=Edit2. Text; 
ADOQuery1. Open; 
If ADOQuery1. RecordCount & gt; 0 then the begin 
ADOQuery1. FieldByName (" PassWord "). AsString:=Edit3. Text; 
Showmessage (' password is changed! '); 
End the else begin 
Showmessage (' user name or password mistake, please confirm and re-enter! '); 
end; 
end;

CodePudding user response:

You are so water, your family know?

CodePudding user response:

Building code there is a big loophole!

CodePudding user response:

refer to 6th floor liups response:

building code there is a big loophole!

4th floor!

If the query has multiple records?

CodePudding user response:

ADOQuery1. Edit;
ADOQuery1. FieldByName (" PassWord "). AsString:=Edit3. Text;
ADOQuery1. Post;

CodePudding user response:

refer to the eighth floor linuxpingwangping response:

ADOQuery1. Edit;
ADOQuery1. FieldByName (" PassWord "). AsString:=Edit3. Text;
ADOQuery1. Post;

This should also be plus

CodePudding user response:

refer to 7th floor liups response:

Quote: refer to the sixth floor liups response:

Building code there is a big loophole!

4th floor!

If the query has multiple records?

Uh, uh, a simple example, the user name must be unique