database - Login display error message -
I need your program on a user logs in a database. It has a diver numbers (such as a user name) and a password that already exists in the database. Unfortunately, I just do not know SQL and instead I will use it as a technique here. I get an error message in the run time which says: adotblDiversInfo: this action can not be performed on a closed dataset. In advance (you thank you very much for your help: This is my code:
process TfrmHomeScreenkbtnLogInClick (Sender: TObject); var iDiverNumber: integer; sPassword, sKnownPassword: string; bFlagDiverNumber, BFlagPassword, results: boolean; start iDiverNumber: = StrToInt (ledDiverNumber.Text); sPassword: = ledPassword.Text; frmDM tax adotblDiversInfo.filtered with: = false; frmDM.adotblDiversInfo.Filter: = 'Diver Number' + IntToStr (iDiverNumber) ; frmDM.adotblDiversInfo.Filtered: = true, if frmDM.adotblDiversInfo.RecordCount = 0 then ShowMessage (IntToStr (iDiverNumber) + 'can not be found ") and sKnownPassword: = frmDM.adotblDiversInfo [' passwords ']; If sKnownPassword = So sPassword ShowMessage (' Login successful ") and ShowMessage ( '. Wrong password try again'); end; end;
< Div class = "text" itemprop = "text">
The error you are receiving is B as long as you have forgotten to open the dataset before attempting to access it. Your code may be very straightforward (faster and faster), if you change it to some extent, instead of filtering the entire dataset, code> can Learn frmDM.adoTblDiversInfo Use .Open;
or frmDM.adoTblDiversInfo.Active :. = True; To do this before using the table,
proper records
process TfrmHomeScreen.btnLogInClick (sender: TObject). Var iDiverNumber: Integer; So start frmDM.adoTblDiversInfo.Open frmDM.adoTblDiversInfo.Active; ID number: = straoin (LeadDiver number. Text); SPassword: = lead password Text; If frmDM.adoTblDiversInfo.Locate ('Diver Number', iDiverNumber, []) starts, then frmDM.adoTblDiversInfo ['password'] = ledPassword.Text then ShowMessage ('Login successful') and ShowMessage ('wrong password. Try again. '); End Shomeses (Leaddiver no. Text); End;
Comments
Post a Comment