[Paradox 7 ] Как извлечь нужные данные?

[rule-z]

Собственно было написано приложение с регистрацией и авторизацией пользователей. Имеется база созданная в парадоксе. В базе 4 столбца:

• ID - счетчик
• Login - логин для авторизации
• Password - пароль для авторизации
• Nickname - ник пользователя.

Что требуется: После авторизации пользователя в программе (примитивный код):

procedure TForm1.sButton1Click(Sender: TObject);
begin
if sCheckBox1.Checked then
begin
Form1.Enabled:=False;
Form1.Visible:=False;
Form9.Show;
end
else
if (sComboBox1.Text='') or (sEdit2.Text='') then
Form4.Show else
begin
if (DataModule1.Table1.Locate('login',sComboBox1.Text,[]))and
(DataModule1.Table1.FieldValues['password']=sEdit2.Text) then
begin
Form1.Enabled:=False;
Form1.Visible:=False;
Form6.Show;
end
else
begin
Form1.Enabled:=False;
Form10.Show;
end;
end;
end;

открывается главная форма программы (Form6). На форме 6 есть компонент sLabel4. Как сделать так, чтобы после авторизации пользователя на Form6 в sLabel4 ставился ник авторизовавшегося пользователя. Насколько позволяют мои знания, я догадываюсь что это SELECT, который используется при Query, но мои знания по базам в Delphi = NULL...

Помогите с запросом...

[asmodey1]

Так вы же уже сделали Locate... Какой SELECT ???
Вам теперь осталось просто взять значение поля ника и подставить его в метку...

sLabel4.Caption:=DataModule1.Table1.FieldByName('Nickname').Text;

Тут вы почему-то не задумывались ни о каком SELECT :

if (DataModule1.Table1.Locate('login',sComboBox1.Text,[]))and
(DataModule1.Table1.FieldValues['password']=sEdit2.Text) then

хотя это то же самое...