Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2019-07-16 20:42:14 ЛС | профиль | цитата

Add(MainForm,2953706,21,105)
{
Position=1
Point(onClose)
link(onCreate,6196915:doOpen,[])
link(onClose,6196915:doClose,[])
}
Add(DS_SQLite,6196915,63,119)
{
Name="mTest"
FileName="SQLiteUtf8.db"
link(onOpen,15337521:doEvent1,[])
}
Add(DSC_Exec,3859932,175,119)
{
DSManager="mTest"
link(onExec,12033996:doString,[])
link(SQL,11047836:Text,[])
}
Add(StrList,11047836,175,77)
{
Strings=#27:PRAGMA encoding = "UTF-8"; |32:CREATE TABLE IF NOT EXISTS test(|24: id INTEGER PRIMARY KEY,|11: fio TEXT);|1: |
}
Add(FormatStr,12033996,224,119)
{
Mask="INSERT INTO test values (NULL, "Иванов Иван Иванович");"
link(onFString,12463428:doCharset,[])
}
Add(Charset,12463428,266,119)
{
Type=6
link(onCharset,15836664:doExec,[])
}
Add(DSC_Exec,15836664,308,119)
{
DSManager="mTest"
}
Add(Hub,15337521,133,119)
{
link(onEvent1,3859932:doExec,[])
link(onEvent2,13375599:doQuery,[(161,132)(161,188)])
}
Add(StringTable,710163,308,182)
{
Left=10
Top=65
Width=355
Height=185
Columns=#5:id=50|25:Фамилия Имя Отчество=250 |
}
Add(DSC_Query,13375599,175,182)
{
SQL="SELECT * FROM test;"
DSManager="mTest"
link(onQuery,14088101:doStr,[])
link(onColumns,710163:doClear,[])
}
Add(Charset,3302655,266,182)
{
Type=7
link(onCharset,710163:doAdd,[])
}
Add(MT_String,14088101,224,182)
{
link(onResult,3302655:doCharset,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0