|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Отображения данных в программе с MySQL
Сделал прогу которая через mysql авторизируеться и только потом пускает в form2 (кабинет пользователя!)
Нужно сделать что бы в form2 отображалось данные с mysql например id, login P.s соединялся с базой по ado. P.p.s можно заделать поиск по базе по логину, сделать действия поиска только тогда когда авторизация успешная и отображения данных! Жду помощи! |
#2
|
||||
|
||||
Ваш русский настролько ужасен, что с трудом понимаю, что нужно сделать, и не вижу проблемы.
Ну например при успешном входе в систему в главной форме переменной ActiveUser и ID присваивается имя пользователя. Примерно так : Код:
procedure Login() begin ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Text := 'SELECT Password,ID FROM Users WHERE User = ' + #39 + Edit1.Text + #39; ADOQuery1.Open(); if md5(Edit2.Text) = Q.FielValues['Password'] then begin ActiveUser := Edit1.Text; ID := Q.FieldValues['ID']; //Используете свой код, Form2.ShowModal() итп..} end; end; Код:
Uses Unit1; ..... Form2.Caption := 'Пользователь - ' + Form1.ActiveUser + ' [ID: ' + Form1.ID + ']' ; ----- Последний раз редактировалось alexusankov, 05.06.2013 в 11:30. |
#3
|
|||
|
|||
Не работает. прошу более подробно описать!
|
#4
|
||||
|
||||
Цитата:
Элементарная же задача, в SQL дальше SELECT не требует познаний. |