да активна, все равно не помогает вот как бы мой полный код
Code
procedure TForm8.ImageButton2Click(Sender: TObject);
begin
if (label1.Caption='Восстановление пароля.') then begin
pass.Sql.clear;
pass.SQL.Add('INSERT INTO восстановление (фио,кафедра,причина)');
pass.SQL.Add('VALUES ('''+form1.DBLookupComboBox2.Text+''','''+Form1.DBLookupComboBox1.Text+''','''+Memo1.Text+''')');
pass.ExecSQL;
close;
end ;
if (label1.Caption='Смена пароля.') then begin
pass.Sql.clear;
pass.SQL.Add('UPDATE пользователи set Название='''+form1.DBLookupComboBox1.Text+''', фио='''+Form1.DBLookupComboBox2.Text+''' WHERE Пароль='''+Form8.Memo1.Text+'''');
pass.ExecSQL;
close;
end;
if (label1.Caption='Отчет об ошибках.') then begin
pass.Sql.clear;
pass.SQL.Add('INSERT INTO ошибки (фио,кафедра,ошибка)');
pass.SQL.Add('VALUES ('''+form1.DBLookupComboBox2.Text+''','''+Form1.DBLookupComboBox1.Text+''','''+Memo1.Text+''')');
pass.ExecSQL;
close;
end ;
end;
все работает кроме смены пароля (UPDATE), что делать не пойму
