Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2017-04-21 20:44:37 ЛС | профиль | цитата
Add(MainForm,3006688,91,147)
{
Position=1
Point(onQueryEndSession)
link(onCreate,3937608:doOpen,[])
link(onQueryEndSession,3937608:doClose,[])
}
Add(DS_SQLite,3937608,140,161)
{
Name="db1"
FileName=":memory:"
link(onOpen,5056158:doExec,[])
}
Add(DSC_Exec,5056158,189,161)
{
SQL="CREATE TABLE test(id INTEGER PRIMARY KEY, name TEXT);\r\nINSERT INTO test values(NULL, "Вася");\r\nINSERT INTO test values(NULL, "Витя");\r\nINSERT INTO test values(NULL, "Петя");\r\nINSERT INTO test values(NULL, "Коля");\r\nINSERT INTO test values(NULL, "Толя");"
DSManager="db1"
link(onExec,15226526:doQuery,[])
}
Add(DSC_Query,15226526,238,161)
{
SQL="SELECT * FROM test;"
DSManager="db1"
link(onQuery,16569669:doStr,[])
link(onColumns,2052617:doEnum,[(286,174)(286,202)])
}
Add(MT_String,16569669,301,161)
{
link(onResult,5154746:doAdd,[])
}
Add(StringTable,5154746,364,161)
{
Left=105
Top=25
Width=190
Height=200
Point(doAddColumn)
}
Add(MT_Enum,2052617,301,196)
{
link(onItem,5154746:doAddColumn,[])
}


А если скомпилируешь в этом режиме, то носить sqlite3.dll с программой не нужно.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 1 раз(а), последний 2017-04-21 20:58:13