Topic: Настройка CheckBox
Вроде понятно, как сиеминутно сделать выбор с помощью скрипта...
А вот как закрепить положение флажка в базе, чтоб, она, база, помнила, в каком положение, он стоит, при каждом ее запуске. Так понимаю нужно поле да/нет.
1 2021-09-02 07:23:15 (edited by vit007 2021-09-02 07:24:56)
- sibprogsistem
- Member
- Offline
Re: Настройка CheckBox
vit007 wrote:
Вроде понятно, как сиеминутно сделать выбор с помощью скрипта...
А вот как закрепить положение флажка в базе, чтоб, она, база, помнила, в каком положение, он стоит, при каждом ее запуске. Так понимаю нужно поле да/нет.
SQLExecute('UPDATE таблица SET поле="'+ Form1.CheckBox1.SqlValue +'"' WHERE id=1);Re: Настройка CheckBox
В лоб не получилось. Надо еще при старте делать SELECT?
Re: Настройка CheckBox
Что-то и так никак. Остается делать грабли... Заносить значение 0 или 1 сравнивать с базой и устанавливать DefaultState... Может есть другие варианты?
- sibprogsistem
- Member
- Offline
Re: Настройка CheckBox
неверное потому, что Вы не создали поле записи в БД
procedure Form2_OnShow (Sender: TObject; Action: string);
begin
Form2.CheckBox1.Checked:=StrToBool(SQLEXecute('SELECT w FROM a WHERE id=1'));
end;
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
if (SQLExecute('SELECT COUNT(id) FROM a')='0') then SQLExecute('INSERT INTO a(w)VALUES("0")');
Form1.TableGrid1.dbUpdate;
end;
procedure Form1_CheckBox1_OnClick (Sender: TObject);
begin
SQLExecute('UPDATE a SET w="'+ Form1.CheckBox1.sqlValue +'" WHERE id=1');
Form1.TableGrid1.dbUpdate;
end;Post's attachments
test.rar 3.3 kb, 173 downloads since 2021-09-02
Re: Настройка CheckBox
Спасибо