code_28553.txt
или даже так:
Add(EditMultiEx,15808322,24,52)
{
WorkCount=#60:doGreateTables=Создать новую базу данных (при необходимости)|
Width=265
Height=207
VOffset=46
link(doGreateTables,13830266:doEvent1,[])
}
Add(Message,3443707,180,112)
{
Caption="Error SQLite!"
}
Add(DSC_Query,2615330,105,217)
{
@Hint=#27:проверка существования базы|
SQL="SELECT COUNT (*) FROM log1"
DSManager="parent.main_SQLite"
AddHint(-22,-22,174,13,@Hint)
}
Add(DSC_Exec,5380334,83,63)
{
@Hint=#25:создание таблиц log1 log2|
SQL="BEGIN;
CREATE TABLE IF NOT EXISTS log1 (str TEXT, str_full TEXT);
CREATE TABLE IF NOT EXISTS log2 (str TEXT, str_full TEXT);
DELETE FROM log1;
DELETE FROM log2;
COMMIT;"
DSManager="parent.main_SQLite"
link(onError,13168367:doWork1,[(151,76)])
AddHint(41,-7,147,13,@Hint)
}
Add(Hub,13830266,42,98)
{
link(onEvent1,5380334:doExec,[(69,104)(69,69)])
link(onEvent2,730742:doExec,[])
}
Add(HubEx,13168367,147,112)
{
link(onEvent,3443707:doMessage,[])
}
Add(DSC_Exec,10449706,63,217)
{
SQL="BEGIN;
DELETE FROM log1;
DELETE FROM log2;
COMMIT;"
DSManager="parent.main_SQLite"
}
Add(DSC_Exec,730742,84,105)
{
SQL="VACUUM"
DSManager="parent.main_SQLite"
link(onError,13168367:doWork2,[])
}
![](/img/smilies/icon_wink.gif)