Здравствуйте!
Восстановление таблицы при запуске проекта - скрипт "Проект полностью запущен"
begin
// заполнение таблицы при запуске проекта
Table1.RunSQL('SELECT * FROM `preferences`;', tsSaveFixRow);
end.
Добавить пользователя по кнопке:
begin
// собственно запись
RunSQL(' INSERT INTO `preferences` (`cart`, `name`, `surname`, `pref`) VALUES('
+ cart.AsStr + ', '''
+ name.AsStr + ''', '''
+ surname.AsStr + ''', '''
+ pref.AsStr + ''');', nil, 0);
// обновление таблицы
Table1.RunSQL('SELECT * FROM `preferences`;', tsSaveFixRow);
end.
Для работы с реальной таблицей необходимы:
- контроль входных данных: уникальность номера карты, заполнение всех полей и т.д.;
- редактирование для некоторых столбцов ("номер карты", "предпочтения") и удаление строк;
- сортировка строк по каким-либо критериям: по номеру карты, по фамилии и т.д,
- действия после заполнения таблицы: форматирование столбцов, "раскраска" ячеек по характеру данных и т.д.
Возможно следует добавить в таблицу дополнительные данные: дата регистрации, дата рождения, текущий статус гостя (новичок, постоянный, VIP, выбыл, исключен и т.д.).
Пример из вложения иллюстрирует контроль заполения всех полей и форматирование номера карты с лидирующими нулями.