Add(MainForm,2953706,147,112)
{
 link(onCreate,3598705:doOpen,[])
}
Add(Button,14405751,147,175)
{
 Left=125
 Top=115
 link(onClick,11578939:doQuery,[])
}
Add(Message,8256518,308,175)
{
 Caption="You name is"
}
Add(Message,10465763,308,217)
{
 Caption="Error!"
}
Add(SQLite_DB,3598705,203,126)
{
 FileName="test_1,db"
 link(onOpen,12802115:doExec,[])
}
Add(SQLite_Exec,12802115,252,126)
{
 SQL="CREATE TABLE "users" (\r\nid INTEGER  PRIMARY KEY AUTOINCREMENT NULL,\r\nname TEXT  NULL,\r\npass TEXT  NULL\r\n);\r\nINSERT INTO "users" VALUES(2,'Витя','123');\r\nINSERT INTO "users" VALUES(3,'Оля'),'456';\r\nINSERT INTO "users" VALUES(4,'Олег','667');\r\nINSERT INTO "users" VALUES(5,'Тимофей','888');\r\nINSERT INTO "users" VALUES(6,'Виктор','444');\r\nINSERT INTO "users" VALUES(7,'Валентин','321');\r\n"
}
Add(SQLite_Query,11578939,203,175)
{
 SQL="select "" ||\r\n(select name from users where id = 1) from users\r\nwhere (id = (select Max(id) from users));"
 link(onQuery,2030446:doCase,[])
 link(dbHandle,3598705:dbHandle,[])
}
Add(Case,2030446,252,175)
{
 Value=String()
 DataOnTrue=String(You are not registered!)
 link(onNextCase,8256518:doMessage,[])
 link(onTrue,10465763:doMessage,[(296,188)(296,223)])
}

#pas
  {$ifdef _PROTECT_MAX_}
   if _IsObject(dt,SQLite_GUID) then
    begin
  {$endif}
      FResult := ';
      sqlite3_exec(id,PChar(s), callback, self, @mes);
      if mes <> ' then
        _hi_onEvent(_event_onError, string(mes))
      else
        _hi_onEvent(_event_onQuery, FResult);
{$ifdef _PROTECT_MAX_}
    end;
  {$endif}