Witam Was serdecznie, mam problem z zrobieniem logowania do bazy danych postgres na komponencie ADO... poniżej przedstawiam kod, niestety nie działa to jak należy. Będę wdzięczny za jaką kolwiek pomoc.
procedure TForm1.Button2Click(Sender: TObject);
var odp: integer;
begin
odp:= Application.MessageBox('Czy chcesz opuścić program?', 'Wyjście z programu.', MB_YESNO or MB_ICONQUESTION);
if odp=IDYES then
Application.Terminate;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
Application.MessageBox('Wypełnij wymagane pola!', 'Logowanie', MB_OK or MB_ICONINFORMATION);
if (Edit1.Text<>'') and (Edit2.Text<>'') then
try
ADOConnection1.Connected := true;
ADOQuery.SQL.Text:='SELECT login, pass FROM operator';
ADOQuery.Open;
if ADOQuery.FieldValues['login']<>(Edit1.Text) then
if ADOQuery.FieldValues['pass']<>(Edit2.Text) then
Application.MessageBox('Wpisałeś złe dane!', 'Logowanie', MB_OK or MB_ICONINFORMATION);
if ADOQuery.FieldValues['pass']=(Edit2.Text) then
if ADOQuery.FieldValues['login']=(Edit1.Text) then
login_ok;
except
Application.MessageBox('Brak połączenia z bazą danych!', 'Uwaga!', MB_OK or MB_ICONINFORMATION);
end;
end;