Значения поля как переменная

[DimOn4Ik]

Подскажите пожалуйста как мне в переменную pass получить данные из поля password.. запись в таблиуе только одна..потом сравнить данные с edit1.text ?

[artemavd]

var
 s: string;
...

Query1.Active:=False;
Query1.SQL.Text:='select pass from table';
Query1.Open;

s:=Query1.FieldByName('pass').AsString;

if s <> Edit1.Text then
begin
 ShowMessage('Не совпадает!');
end;

if s = Edit1.Text then
begin
 ShowMessage(Cовпадает!');
end;

[Stilet]

А покороче?

var
 s: string;
...

Query1.Active:=False;
Query1.SQL.Text:='select pass from table';
Query1.Open;
if Edit1.Text<>Query1.FieldByName('pass').AsString then 
  ShowMessage('Не совпадает!');
end;
Query1.Close;

Но я бы поэкзотичнее сделал:

Query1.Active:=False;
Query1.SQL.Text:='select pass from table where pass='+QuotedStr(Edit1.Text);
Query1.Open;
if Query.Eof then 
  ShowMessage('Не совпадает!');
end;
Query1.Close;

[artemavd]

Я по-дилетански, Stilet

[DimOn4Ik]

Спасибо artemavd и Stilet!

[artemavd]

Пожалуйста

[DimOn4Ik]

а почему Query1.Active равно False ?

не работает

procedure Tlogin.FormCreate(Sender: TObject);
begin
TRY
ADOConnection1.ConnectionString:=(' Provider=VFPOLEDB.1;Data Source='+ExtractFilePath(paramstr(0 ))+'\db;Password="";Collating Sequence=RUSSIAN');
sSkinManager1.Active:=True;
EXCEPT
ShowMessage('Îøèáêà ïîäêëþ÷åíèÿ ê áàçå äàííûõ!');
end

end;

procedure Tlogin.SpeedButton1Click(Sender: TObject);
begin
QueryAuth.Active:=true;
PMessage.Visible:=true;
PMessage.Caption:='';
QueryAuth.SQL.Text:='SELECT password FROM authorization';
QueryAuth.Open;
if Edit1.Text <> QueryAuth.FieldByName('password').A sString then begin
PMessage.Font.Color:=clRed;
PMessage.Caption:='Äîñòóï çàïðåùåí! Ïðîâåðüòå ïðàâèëüíîñòü ââîäà äàííûõ.';
QueryAuth.Close;
Edit1.Clear;
end
else begin
PMessage.Font.Color:=clGreen;
PMessage.Caption:='Âû óñïåøíî àâòîðèçèðîâàíû!'


end

end;

[artemavd]

Мне кажется, что эта строка (зеленые) лишняя:

procedure Tlogin.FormCreate(Sender: TObject);
begin
TRY
ADOConnection1.ConnectionString:=(' Provider=VFPOLEDB.1;Data Source='+ExtractFilePath(paramstr(0 ))+'\db;Password="";Collating Sequence=RUSSIAN');
sSkinManager1.Active:=True;
EXCEPT
ShowMessage('Îøèáêà ïîäêëþ÷åíèÿ ê áàçå äàííûõ!');
end

end;

procedure Tlogin.SpeedButton1Click(Sender: TObject);
begin
QueryAuth.Active:=False;
PMessage.Visible:=true;
PMessage.Caption:='';
QueryAuth.SQL.Text:='SELECT password FROM authorization';
QueryAuth.Open;
if Edit1.Text <> QueryAuth.FieldByName('password').A sString then begin
PMessage.Font.Color:=clRed;
PMessage.Caption:='Äîñòóï çàïðåùåí! Ïðîâåðüòå ïðàâèëüíîñòü ââîäà äàííûõ.';
QueryAuth.Close;
Edit1.Clear;
end
else begin
PMessage.Font.Color:=clGreen;
PMessage.Caption:='Âû óñïåøíî àâòîðèçèðîâàíû!'


end

end;

[DimOn4Ik]

на работает

[artemavd]

Что именно не работает? Вам уже дали ответы на ваш вопрос кажется.