Topic: ограничение не выполнено
procedure frmLogin_OnShow (Sender: TObject; Action: string);
var sUSN: string = '1';
begin
// проверка наличия администратора базы данных
// если нет, то создать первичного пользователя логин demo пароль demo
if SQLExecute('SELECT count(id) FROM users;') = '0' then
begin
SQLExecute('INSERT INTO users (login, password, id_userStatus) VALUES ("demo", "demo", "'+sUSN+'");');
end;
UpdateDatabase('users');
если в таблице users отмечаю поле id_userStatus обязательным, то получаю ошибку (ограничение не выполнено)