VPF::Запрос - Форум программистов

Lola8669

Дата 6.2.2009, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 24.1.2009

Репутация: нет
Всего: нет

Подскажите, пожалуйста, где писать запрос и примерно как он будет выглядеть, чтобы, когда открываешь прогу на Delphi, первой появлялась форма (скриншот прикреплён), в которой в Edit'ы добавлялись соответствующие поля (пароль, логин). Это нужно хранимой процедурой сделать, ну или хотя бы обычным запросом. Часть базы данных тоже в скриншоте.

Присоединённый файл ( Кол-во скачиваний: 25 )

____________.jpg 86,62 Kb

Rodman

Дата 6.2.2009, 14:25 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122

ты не знаешь как залогиниться? или как форму сделать?

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Lola8669

Дата 6.2.2009, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 24.1.2009

Репутация: нет
Всего: нет

Цитата(Rodman @ 6.2.2009, 14:25)

ты не знаешь как залогиниться? или как форму сделать?

Форма есть, я не знаю как связать логин и пароль в базе с этой формой через запрос (хранимая процедура), чтобы пользователи могли вводить свои логин и пароль и пользоваться БД.

Данкинг

Дата 6.2.2009, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Зачем запрос-то? Обычный dataset.locate поможет... smile

А запрос писать в TQuery!

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 6.2.2009, 20:07 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

я ж тебе уже давал полное описание с примером smile

Kbl4AH

Дата 6.2.2009, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Код


// =============================================================================
// авторизация пользователя
// =============================================================================
procedure Logon;
begin
  with DM do
  begin    
    // установка значений переменных
    OracleQuery1.SetVariable('Login', FLogon.LabeledEdit1.Text);
    OracleQuery1.SetVariable('Password', FLogon.LabeledEdit2.Text);
    // выполнение запроса
    OracleQuery1.Execute;
    // если запрос ничего не вернул, то авторизация не пройдена
    if OracleQuery1.Eof then
      // выдать ошибку
      Application.MessageBox('Неверные имя пользователя или пароль', 'Ошибка!')
    // иначе - авторизация пройдена
    else
      begin
        // удалить переменные
        OracleQuery1.DeleteVariables;
        // закрыть запрос
        OracleQuery1.Close;
        // показать главную форму
        FMain.Show;
        // уничтожить форму авторизации
        FLogon.Free;
      end;
  end;     
end;

// =============================================================================
// нажатие кнопки "Принять"
// =============================================================================
procedure TFLogon.Button1Click(Sender: TObject);
begin
  // авторизация пользователя
  Logon;
end;

// =============================================================================
// создание формы
// =============================================================================
procedure TFLogon.FormCreate(Sender: TObject);
begin
  // описание переменных
  OracleQuery1.DeclareVariable('Login', otString);
  OracleQuery1.DeclareVariable('Password', otString);
  // текст запроса
  OracleQuery1.SQL.Text := 'SELECT login FROM wha_logon WHERE ' +
                                            'login = :Login AND password = :Password';
end;

Это сообщение отредактировал(а) Kbl4AH - 6.2.2009, 22:42

Bose

Дата 7.2.2009, 03:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 8
Всего: 51

Цитата(Lola8669 @ 6.2.2009, 13:16

)

Kbl4AH, lol smile

Код для подключения к Ораклу для девочки которой нужно чтобы хранимая процедура из Firebird/Interbase вызвала форму Логина в Delphi. Ребят вы жжёте! smile

сорри за оффтоп

Lola8669, ты к базе умеешь подключаться?
Lola8669, зачем тебе запрос(хранимая процедура)?
Lola8669, ты знаешь, что такое хранимая процедура?

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

Kbl4AH

Дата 7.2.2009, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

да вот не пофик, пусть OracleQuery на свой Query заменит... какая разница-то?

Это сообщение отредактировал(а) Kbl4AH - 7.2.2009, 11:55

Lola8669

Дата 7.2.2009, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 24.1.2009

Репутация: нет
Всего: нет

Воse, я к базе подключилась! Хранимой процедурой, чтобы обеспечить безопасность!
Я не в Oracle делаю.

Это сообщение отредактировал(а) Lola8669 - 7.2.2009, 17:45

Kbl4AH

Дата 7.2.2009, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Цитата(Lola8669 @ 7.2.2009, 15:30

)

Я не в Oracle делаю.

Я знаю

Цитата(Lola8669 @ 7.2.2009, 15:30

)

Воse, я к базе подключилась! Хранимой процедурой, чтобы обеспечить безопасность!

А меня научи, пожалуйста, подключаться smile

Lola8669

Дата 7.2.2009, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 24.1.2009

Репутация: нет
Всего: нет

Есть форма для проверки логина и пароля с EDIT1 и EDIT2, в базе данных три таблицы: GRUPPI_GPO (ID_GRUPPI_GPO, название группы), RUKOVODITELI_GRUPP (ID_GRUPPI_GPO, ID_RUKOVODITELI) и RUKOVODITELI (ID_RUKKOVODITELI, ФИО).

Мне нужно, чтобы, когда вводили руководители логин и пароль в Edit'ы, то в Grid'е на другой форме выводились только его группы.

Правильно будет, если я положу на форму IBQuery и в нём напишу такой запрос:
select ID_GRUPPI_GPO from GRUPPI_GPO where "ID_GRUPPI_GPO" IN (select "ID_GRUPP_GPO" from RUKOVODITELI_GRUPP where "ID_RUKKOVODITELI"=(select "ID_RUKKOVODITELI" from RUKOVODITELI where "LOGIN"='+Edit1.text+' AND PAROL='+Edit2.Text+'))' ??

Kbl4AH

Дата 7.2.2009, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

QuotedStr(Edit.Text) ?
И '' по всему запросу убрать не нужно?

Добавлено @ 21:09

Код


select ID_GRUPPI_GPO from GRUPPI_GPO where "ID_GRUPPI_GPO" IN (select "ID_GRUPP_GPO" from RUKOVODITELI_GRUPP

А зачем выбирать ID_GRUPPI_GPO, а потом еще раз выбирать это же самое из полученного?

Это сообщение отредактировал(а) Kbl4AH - 7.2.2009, 21:11

Lola8669

Дата 7.2.2009, 22:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 24.1.2009

Репутация: нет
Всего: нет

Блин, а как правильно будет?? Объясните, пожалуйста, на языке простых смертных smile

Kbl4AH

Дата 7.2.2009, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Цитата(Lola8669 @ 7.2.2009, 22:58

)

Блин, а как правильно будет?? Объясните, пожалуйста, на языке простых смертных

Спокойствие! Только спокойствие! (с) Сын Карла
Точно скажи, что тебе нужно...
Если ID группы, то:

Код


Query.SQL.Text := 'select ID_GRUPPI_GPO from RUKOVODITELI_GRUPP where ID_RUKOVODITELI = ' +
'(select ID_RUKOVODITELI from RUKOVODITELI where LOGIN = ' + QuotedStr(Edit1.text) + ' AND PAROL = ' + QuotedStr(Edit2.Text) + ')';

Это сообщение отредактировал(а) Kbl4AH - 7.2.2009, 23:23

Lola8669

Дата 7.2.2009, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 24.1.2009

Репутация: нет
Всего: нет

Цитата(Kbl4AH @ 7.2.2009, 23:19)

Спокойствие! Только спокойствие! (с) Сын Карла

Query.SQL.Text := 'select ID_GRUPPI_GPO from RUKOVODITELI_GRUPP where ID_RUKOVODITELI = ' +
'(select ID_RUKOVODITELI from RUKOVODITELI where LOGIN = ' + QuotedStr(Edit1.text) + ' AND PAROL = ' + QuotedStr(Edit2.Text) + ')';

А что этот запрос в моём случае будет делать??

Kbl4AH

Дата 7.2.2009, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Цитата(Lola8669 @ 7.2.2009, 23:43

)

А что этот запрос в моём случае будет делать??

Наверное, тоже, что и этот:

Цитата(Lola8669 @ 7.2.2009, 20:20

)

select ID_GRUPPI_GPO from GRUPPI_GPO where "ID_GRUPPI_GPO" IN (select "ID_GRUPP_GPO" from RUKOVODITELI_GRUPP where "ID_RUKKOVODITELI"=(select "ID_RUKKOVODITELI" from RUKOVODITELI where "LOGIN"='+Edit1.text+' AND PAROL='+Edit2.Text+'))'

Akella

Дата 8.2.2009, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

/убегает в ужасе smile

Данкинг

Дата 8.2.2009, 07:47 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Lola8669 @ 7.2.2009, 20:20

)

Правильно будет, если я положу на форму IBQuery и в нём напишу такой запрос:

Сама придумала? smile

Это всё для того, чтобы по логину пароль найти в таблице?

Это сообщение отредактировал(а) Данкинг - 8.2.2009, 07:51

--------------------

There's nothing left but silent epitaphs.

Kbl4AH

Дата 8.2.2009, 09:53 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Цитата(Данкинг @ 8.2.2009, 07:47

)

Сама придумала? Это всё для того, чтобы по логину пароль найти в таблице?

Там более тонкая задумка smile

ЗЫ. Лола, не бойся, мы все равно тебе поможем smile

даже если ты этого не хочешь... ты главное пиши подробнее свои вопросы

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »