[ milan_sr @ 15.06.2010. 12:30 ] @
Jer moze neko da mi "prevede" ovaj kod u c++ procedure TForm2.Button1Click(Sender: TObject); begin { if Form1.ADOTable2.Locate('Username;Password', VarArrayOf([edit1.Text , edit2.Text]),[]) then begin edit1.Text:=''; edit2.Text:=''; Edit1.SetFocus; form1.Showmodal end else begin Showmessage('Please enter correct username and password'); edit1.SetFocus; end;} if form1.ADOTable2.locate('Username',edit1.Text,[]) then if form1.ADOTable2.FieldByName('Password').AsString =edit2.Text then begin edit1.Text:=''; edit2.Text:=''; Edit1.SetFocus; form1.Showmodal end else begin showmessage('Wrong password'); edit2.SetFocus; end else begin showmessage('Username not found'); edit1.SetFocus; end; end; |