Компонент idEncodeXEE

@BastiBubu · Регистрация: 07.10.2015

Студворк — интернет-сервис помощи студентам

В модальной форме ввожу имя и пароль оператора и стараюсь коннектиться с бд.

запрос DataSetOperator имеет вид:

Delphi
1
2
select * from operator
where opername=:name and operpassw=:passw

Пишу код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TFlogin.Connect(Sender: TObject);
begin
  Fmain.DataSetOperator.Close;
  Fmain.DataSetOperator.ParamByName('name').AsString:=editOperatorName.Text;
  Fmain.DataSetOperator.ParamByName('passw').AsString:=idEncoderXXE1.EncodeString(EditPassw.Text);
  Fmain.DataSetOperator.Open;
 
Edit1.text:=idEncoderXXE1.EncodeString(EditPassw.Text);   
 
if  (Fmain.DataSetOperator.RecordCount=1)
  then begin
   FMain.StatusBar.SimpleText := 'You are connected with DB!';
   Flogin.close;
  end
  else Showmessage ('Invalid Operator Name or Password!!!');
 
end;

Вводимый пароль "123" шифруется как '1AH6n'.
оператор Edit1.text:=idEncoderXXE1.EncodeString(E ditPassw.Text) показывает, что зашифрованный пароль '1AH6n'.
В бд пароль хранится в зашифрованном виде: '1AH6n' но почему-то DataSetOperator.RecordCount=0. Если храню в незашифрованном виде('123') тогда правильно возвращается 1 запись.

@qwertehok · 29.12.2017, 09:25

а можно спросить что у вас за субд такая?

@BastiBubu · 29.12.2017, 14:40 **[ТС]**

qwertehok, Firebird 3

@qwertehok · 29.12.2017, 15:06

а версия делфи?

@BastiBubu · 29.12.2017, 15:22 **[ТС]**

qwertehok, trim решил проблему.

Delphi
1
Fmain.DataSetOperator.ParamByName('passw').AsString:=idEncoderXXE1.EncodeString(trim(EditPassw.Text));

Спасибо.

@qwertehok · 29.12.2017, 15:32

Не по теме:

просто интересно почему не использовать Firedac?

@BastiBubu · 29.12.2017, 18:32 **[ТС]**

qwertehok, FireDac использую. Вы имеете ввиду почему не использую компонент FDGUIxLoginDialog?

@qwertehok · 29.12.2017, 21:04

Сообщение от BastiBubu

Вы имеете ввиду почему не использую компонент FDGUIxLoginDialog?

я сам его не использую, какой-то он скучный и не userfriendly

вообще больше интересно что такое DataSetOperator
обычно для запросов используют query

@BastiBubu · 30.12.2017, 01:03 **[ТС]**

qwertehok, код был написан когда бд была Interbase и использовал компонент IBDataSet. Для минимизаций редактирования кода после замены Interbase на Firebird оставил прежные имена. Так появилось название DataSet для компонента FDQuery.

@qwertehok · 30.12.2017, 15:38

Не по теме:

:mda:
вот тебе и минимизация :)))

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@qwertehok 5987 / 4562 / 1096 Регистрация: 29.08.2013 Сообщений: 28,202 Записей в блоге: 3
	29.12.2017, 09:25
	а можно спросить что у вас за субд такая? 0

@BastiBubu 0 / 0 / 1 Регистрация: 07.10.2015 Сообщений: 49
	29.12.2017, 14:40 [ТС]
	qwertehok, Firebird 3 0

@qwertehok 5987 / 4562 / 1096 Регистрация: 29.08.2013 Сообщений: 28,202 Записей в блоге: 3
	29.12.2017, 15:06
	а версия делфи? 0

@qwertehok
	29.12.2017, 15:32
	Не по теме: просто интересно почему не использовать Firedac? 0

@BastiBubu 0 / 0 / 1 Регистрация: 07.10.2015 Сообщений: 49
	29.12.2017, 18:32 [ТС]
	qwertehok, FireDac использую. Вы имеете ввиду почему не использую компонент FDGUIxLoginDialog? 0

@BastiBubu 0 / 0 / 1 Регистрация: 07.10.2015 Сообщений: 49
	30.12.2017, 01:03 [ТС]
	qwertehok, код был написан когда бд была Interbase и использовал компонент IBDataSet. Для минимизаций редактирования кода после замены Interbase на Firebird оставил прежные имена. Так появилось название DataSet для компонента FDQuery. 0

@qwertehok
	30.12.2017, 15:38
	Не по теме: :mda: вот тебе и минимизация :))) 0