• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: получить значение chekbox

подключаю базу настроек

SQLExecute('ATTACH DATABASE ''setting\sqlite.db'' as ''SETTING''');

хочу поместить в переменную значение chekbox

procedure frmAdmin_OnShow (Sender: TObject; Action: string);
     var
     sLite: string = IntToStr('SELECT IFNULL(yesNo, 0) SETTING.LiteServer.yesNo FROM SETTING.LiteServer WHERE id=1');
begin

end;

что я опять делаю не так?

или можно зделать так? 

frmAdmin.CheckBox1.sqlValue:= SQLExecute('SELECT IF NULL (yesNo, 0) SETTING.LiteServire.yesNo FROM SETTING.LiteServire WHERE id=1');

или может я не правельно понимаю  sqlValue

В общем я опять запутался )))

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: получить значение chekbox

Все зделал


frmAdmin.CheckBox1.State := SQLExecute('SELECT  SETTING.LiteServer.yesNo FROM SETTING.LiteServer WHERE id=1');
  • Registered: 2014-02-14
  • Posts: 10,294

Re: получить значение chekbox

попробуйте так

procedure frmAdmin_OnShow (Sender: TObject; Action: string);
var
     sLite: string;
begin
    SQLExecute('ATTACH DATABASE ''setting\sqlite.db'' as ''SETTING''');
    sLite := SQLExecute('SELECT  SETTING.LiteServer.yesNo FROM SETTING.LiteServer WHERE id=1');    
    if sLite = '1' then frmAdmin.CheckBox1.Checked := True else frmAdmin.CheckBox1.Checked := False;
end;
Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: получить значение chekbox

супер именно то что я хотел.... Спасибо

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: получить значение chekbox

В общем дело так ...

sLite: string;  перенес в глобальные
но
sLite := SQLExecute('SELECT  SETTING.LiteServer.yesNo FROM SETTING.LiteServer WHERE id=1');   

как я понимаю придется в каждой процедуре записывать