Вверх ↑
Ответов: 44
Рейтинг: 0
#1: 2020-03-17 12:54:15 ЛС | профиль | цитата
Hitnik3005, вот маленький примерчик с SQL:
Add(MainForm,12499546,210,350){
Width=435
Height=362
link(onCreate,14649481:doEvent1,[])
}
Add(DS_SQLite,14356821,413,224)
{
Name="TEST"
FileName="test.db"
link(onOpen,7432005:doString,[])
}
Add(Button,9868231,378,595)
{
Left=15
Top=15
Width=125
Caption="Добавить строку"
link(onClick,6833494:doString,[])
}
Add(FormatStr,7432005,476,224)
{
DataCount=1
Mask="CREATE TABLE IF NOT EXISTS 'table' (\r\n[id] INTEGER PRIMARY KEY AUTOINCREMENT, \r\n[Столбец] char, \r\n[Столбец2] char, \r\n[Столбец3] int NULL\r\n);"
Point(FString)
link(onFString,10454492:doExec,[(549,230)(549,234)])
}
Add(DSC_Exec,10454492,546,228)
{
DSManager="TEST"
link(SQL,7432005:FString,[(552,216)(517,216)(517,268)(482,268)])
}
Add(FormatStr,8757087,469,385)
{
DataCount=1
Mask="SELECT * FROM 'table'"
Point(FString)
link(onFString,11089224:doQuery,[])
}
Add(DSC_Query,11089224,525,385)
{
DSManager="TEST"
link(onQuery,14584757:doMT_Add,[])
}
Add(Hub,14649481,287,364)
{
link(onEvent1,14356821:doOpen,[(396,370)(396,230)])
link(onEvent2,15480175:doEvent1,[])
}
Add(FormatStr,6833494,476,595)
{
DataCount=4
Mask="INSERT INTO 'table' VALUES (NULL,'%2','%3','%4');"
Point(FString)
link(onFString,1396601:doExec,[(530,601)(530,608)])
link(Str2,853818:Text,[(489,583)(433,583)])
link(Str3,265728:Text,[])
link(Str4,7364564:Text,[(503,583)(545,583)])
}
Add(Hub,15480175,434,371)
{
InCount=3
link(onEvent1,14584757:doClear,[])
link(onEvent2,8757087:doString,[(458,384)(458,391)])
}
Add(DSC_Exec,1396601,553,602)
{
DSManager="TEST"
link(onExec,15480175:doEvent2,[(622,608)(622,434)(422,434)(422,384)])
}
Add(StringTableMT,14584757,665,364)
{
Left=20
Top=50
Width=390
Height=225
Columns=#4:id=1|7:Столбец|8:Столбец2|8:Столбец3|
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(onLineChange)
Point(Strings)
link(onLineChange,6681403:doRead,[])
}
Add(Edit,853818,427,539)
{
Left=155
Top=15
Width=80
Text="1"
}
Add(Edit,265728,490,539)
{
Left=245
Top=15
Width=80
Text="2"
}
Add(Edit,7364564,539,539)
{
Left=330
Top=15
Width=80
Text="3"
}
Add(ArrayRW,6681403,749,371)
{
link(onRead,6571515:doSplit,[])
link(Array,14584757:Strings,[(755,359)(720,359)(720,408)(685,408)])
}
Add(MultiStrPart,6571515,812,371)
{
Count=4
link(onSplit,9261950:doString,[(856,377)(856,401)(800,401)(800,426)])
}
Add(FormatStr,9261950,812,420)
{
DataCount=4
Mask="UPDATE 'table' SET \r\n[Столбец]='%2', \r\n[Столбец2]='%3', \r\n[Столбец3]='%4' \r\nWHERE id='%1'\r\n;"
Point(FString)
link(onFString,3944842:doExec,[])
link(Str1,6571515:Part1,[])
link(Str2,6571515:Part2,[])
link(Str3,6571515:Part3,[])
link(Str4,6571515:Part4,[])
}
Add(LineBreak,4431087,364,385)
{
link(Out,15480175:doEvent3,[])
Primary=[15076295,539,35]
}
Add(DSC_Exec,3944842,854,420)
{
DSManager="TEST"
link(onExec,15076295:In,[])
}
Add(InfoTip,10903235,364,511)
{
Info=#16:Добавляем строку|
Width=274
Height=137
}
Add(InfoTip,5977508,371,189)
{
Info=#39:Открываем базу данных и создаем таблицу|
Width=274
Height=102
}
Add(InfoTip,6438879,357,343)
{
Info=#25:Загружаем таблицу из базы|
Width=274
Height=102
}
Add(InfoTip,15268392,714,336)
{
Info=#28:Сохраняем изменения в строке|
Width=274
Height=130
}
Нужно сразу смотреть в эту сторону.
карма: 0

0
Редактировалось 1 раз(а), последний 2020-03-17 15:04:19