Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Логические поля в MySQL и Delphi [D7, MySQL]

DmitryNekl © (2006-12-05 16:56:00)
Уважаемые мастера!

Делаю интерфейс для редактирования данных в базе MySQL. Путем анализа типов данных в MySQL-таблице в run-time создаю форму для редактирования:

if (ADODataSet.Fields.Fields[i] is TBooleanField) then CreateDBCheckBox(Form, DataSource, Top, ADODataSet.Fields.Fields[i]); if (ADODataSet.Fields.Fields[i] is TAutoIncField) then CreateDBEdit(Form, DataSource, Top, ADODataSet.Fields.Fields[i]) else if (ADODataSet.Fields.Fields[i] is TSmallIntField) then CreateDBEdit(Form, DataSource, Top, ADODataSet.Fields.Fields[i]) else if (ADODataSet.Fields.Fields[i] is TWordField) then CreateDBEdit(Form, DataSource, Top, ADODataSet.Fields.Fields[i]) else if (ADODataSet.Fields.Fields[i] is TIntegerField) then CreateDBEdit(Form, DataSource, Top, ADODataSet.Fields.Fields[i]);

и т.д. - в зависимости от типов данных в таблице создаются разные компоненты на форме (текст - DBMemo, числа или varchar - DBEdit и т.д.)

Затык случился с логическими данными. В MySQL есть bool (определен как tinyint(1)). Delphi такое определяет как целое, и создает DBEdit вместо DBCheckBox.

Как записать условие, чтобы по типу tinyint(1) создавалось DBCheckBox?

DmitryNekl (2006-12-05 17:48:00) [1]
Разобрался...
Если кому-нибудь поможет -
DBCheckBox.ValueChecked:='1';
DBCheckBox.ValueUnChecked:='0';

DmitryNekl (2006-12-05 17:29:00) [2]
Я и ставлю bool (использую phpMyAdmin). В момент редактирования поля ставлю bool, в запросе на изменение структуры таблицы отображается bool, а после изменения структуры автоматически появляется вместо bool tinyint(1) :(

clickmaker (2006-12-05 17:27:00) [3]
не уверен, но что если попробовать BOOL вместо tinyint(1)?

DmitryNekl (2006-12-05 17:25:00) [4]
Сделал вывод DBCheckBox по условию DataSize=2 и тип - целый... по ADODataSet.Post получил "EDatabaseError": "True" is not valid integer value for field...

Как же с этим бороться-то, а? :)

DmitryNekl (2006-12-05 17:20:00) [5]
Не знаю... DataSize для целых=4, для этого цело-логического=2. Но насколько это надежно?

DmitryNekl (2006-12-05 17:17:00) [6]
Посмотрел... для числовых полей TField.Size равен 0.

clickmaker (2006-12-05 17:03:00) [7]
может TField.Size проверить?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »