السلام عليكم عندما تستخدم Select في الـ Query اي ان الـ Query سيعيد سجلات لا تستخدم ExecSQL و انما استخدم Open يدلا من ذلك
جرب هكذا
جرب هكذا
PHP كود :
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select type from login where email = :email');
ADOQuery1.Parameters.ParamByName('email').Value := Edit1.Text;
ADOQuery1.Open;
if not ADOQuery1.Fields[0].AsString = 'ADMIN' then
begin
form3.Show;
form2.Hide;
end
else
if ADOQuery1.Fields[0].AsString = 'USER' then
begin
form4.Show;
form2.Hide;
end;
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج



![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)