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. frmDM.adoTblDiversInfo Use .Open; or frmDM.adoTblDiversInfo.Active :. = True; To do this before using the table,

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 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

Popular posts from this blog

apache - 504 Gateway Time-out The server didn't respond in time. How to fix it? -

c# - .net WebSocket: CloseOutputAsync vs CloseAsync -

c++ - How to properly scale qgroupbox title with stylesheet for high resolution display? -