Форма входа через mysql 2008 r2

[spotip]

Не ругайте сильно, подскажите. Есть mysql 2008 r2 база данных "8" таблица users. Смысл такой что после ввода логина и пароля правильного из БД должна запускаться следующая форма, ADOQuery1 в Connection string базу подключил, в параметре sql прописал запрос select * from users, но при выводе формы в ComboBox1 нет логинов из БД, подскажите что тут не так ?

procedure TForm1.Button1Click(Sender: TObject);
begin
if (ComboBox1.Text<>'') And (Edit2.Text<>'') then
 begin
  with ADOQuery1 do
   begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Users WHERE login=' +#39 + ComboBox1.Text + #39+'AND pass=' + #39 + Edit2.Text + #39);
    Open;
    if not Recordset.EOF then
    else
      Application.MessageBox('Проверьте имя пользователя или пароль','Ошибка входа',MB_OK OR MB_ICONWARNING);
   end
 end
else
  Application.MessageBox('Заполните пустое поле','Ошибка входа',MB_OK OR MB_ICONWARNING);
end;
end.

[xxbesoxx]

1. У вас не mysql 2008 r2 ! Наверно MS SQL Server 2008 r2
2. Запрос на таблице users надо так

procedure TForm1.Button1Click(Sender: TObject);
  var s: string;
begin
 ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
   s:= 'SELECT * FROM Users WHERE login='QuotedStr(ComboBox1.Text)+'AND pass='QuotedStr(Edit2.Text);
    ADOQuery1.Open;
    if  not ADOQuery1.IsEmpty then
     begin
       Form1.Hide;
       Form2.Show;
     end
     else
     begin
       MessageDlg('Проверьте имя пользователя или пароль',mtError,[mbOK],0);
     end;
 end;

Если логин и пароль правильно ! То открываем второе форма .

3. Не забывайте на второе форму прописать из события OnClose прописать

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   If Application.MessageBox('Вы действительно хотите закрыть программу','Предупреждения ',MB_ICONQUESTION+MB_YESNO)=IDYES
    then
     application.Terminate
   else
  Action:=caNone;
 end;

[eval]

mysql 2008 r2

это что такое?
автор бросайте программирование, не ваше оно

[phomm]

У товарища проблема в другом.
У него нет пользователей в комбо ещё до того как он пароль вводит и пытается логиниться.
Тут надо просто создать не комбобокс а TDBComboBox и его настроить на вывод логинов из таблицы юзеров (свойство Keyfield).
Либо комбо ручками заполнять в цикле, чего у Вас либо нет, либо Вы не показали нам.

[spotip]

ну зачем вы так сразу...ошибся случайно конечно это MS SQL Server 2008 r2

[spotip]

Сообщение от xxbesoxx

1. У вас не mysql 2008 r2 ! Наверно MS SQL Server 2008 r2
2. Запрос на таблице users надо так

procedure TForm1.Button1Click(Sender: TObject);
  var s: string;
begin
 ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
   s:= 'SELECT * FROM Users WHERE login='QuotedStr(ComboBox1.Text)+'AND pass='QuotedStr(Edit2.Text);
    ADOQuery1.Open;
    if  not ADOQuery1.IsEmpty then
     begin
       Form1.Hide;
       Form2.Show;
     end
     else
     begin
       MessageDlg('Проверьте имя пользователя или пароль',mtError,[mbOK],0);
     end;
 end;

Если логин и пароль правильно ! То открываем второе форма .

3. Не забывайте на второе форму прописать из события OnClose прописать

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   If Application.MessageBox('Вы действительно хотите закрыть программу','Предупреждения ',MB_ICONQUESTION+MB_YESNO)=IDYES
    then
     application.Terminate
   else
  Action:=caNone;
 end;

Спасибо большое за помощь, всё получилось.
да забыл отписать добавил + перед QuotedStr

 s:= 'SELECT * FROM Users WHERE login='+QuotedStr(DBComboBox1.Text)+'AND pass='+QuotedStr(Edit2.Text);

[spotip]

Сообщение от phomm

У товарища проблема в другом.
У него нет пользователей в комбо ещё до того как он пароль вводит и пытается логиниться.
Тут надо просто создать не комбобокс а TDBComboBox и его настроить на вывод логинов из таблицы юзеров (свойство Keyfield).
Либо комбо ручками заполнять в цикле, чего у Вас либо нет, либо Вы не показали нам.

Ваш совет также помог заменил ComboBox на DBLookupComboBox1 настроил ADOConnection1 на него ADOQuery1 и DataSource1. Спасибо.

[spotip]

а можно уточнить если мне надо открыть после определённого логина форму 3 к примеру как это реализовать ?