Add(MainForm,2953706,301,154)
{
 link(onCreate,2106005:doEvent1,[(361,174)(361,188)])
}
Add(DSC_Exec,5404102,525,182)
{
 SQL="CREATE TABLE if not exists reshenia_1(\r\nid integer primary key AUTOINCREMENT, --1. id\r\nnom_res TEXT, --2. номер решения\r\ndv_res INTEGER --3. дата выдачи решения\r\n);\r\n"
 DSManager="db1"
 link(onError,4162166:doWork,[])
}
Add(DS_SQLite,3869661,469,182)
{
 Name="db1"
 Point(onError)
 link(onOpen,5404102:doExec,[])
 link(onError,7634737:doWork,[(509,195)(509,223)])
}
Add(Dir,1293062,420,133)
{
}
Add(StrCat,9571880,420,182)
{
 Str2="Reshenia_1.db"
 link(onStrCat,3869661:doOpen,[])
 link(Str1,1293062:CurrentDir,[])
 AddHint(58,-21,87,13,Str2)
}
Add(LineBreakEx,4162166,581,189)
{
 Caption="Error"
}
Add(LineBreakEx,7634737,518,217)
{
 Caption="Error"
}
Add(LineBreakEx,6650179,721,497)
{
 Caption="Error"
 Type=1
 link(OnEvent,14032303:doMessage,[])
}
Add(Message,14032303,777,497)
{
 Caption="Error"
}
Add(Hub,2106005,371,182)
{
 OutCount=3
 link(onEvent1,9571880:doStrCat,[])
 link(onEvent3,6131663:doWork1,[(403,202)])
}
Add(VisualStrings,11064064,217,119)
{
 @Hint=#11:Имя таблицы|
 Lines=#10:Reshenia_1|
 Width=67
}
Add(LineBreakEx,1196580,217,147)
{
 Type=3
 link(_Data,11064064:Text,[])
}
Add(FormatStr,13119041,434,427)
{
 DataCount=3
 Mask="INSERT OR REPLACE INTO '%1' VALUES (NULL, '%2', '%3');"
 Point(FString)
 link(onFString,1066544:doCharset,[])
 link(Str1,9563998:getVar,[(440,418)(419,418)])
 link(Str2,5325190:Text,[])
 link(Str3,12562534:Var1,[(454,397)])
}
Add(DSC_Exec,13037445,546,427)
{
 DSManager="db1"
 link(onError,6757936:doWork,[])
}
Add(LineBreakEx,9563998,413,399)
{
 Type=2
}
Add(LineBreakEx,6757936,588,434)
{
 Caption="Error"
}
Add(Charset,1066544,497,427)
{
 Type=6
 link(onCharset,13037445:doExec,[])
}
Add(Button,11933617,315,420)
{
 Left=10
 Top=50
 Width=165
 Height=35
 Caption="Добавить строку в базу"
 link(onClick,10442618:doEvent1,[])
}
Add(Edit,5325190,441,357)
{
 Left=130
 Top=20
 Width=120
}
Add(DatePicker,13906050,553,259)
{
 Left=260
 Top=20
 Width=105
 Height=21
 Point(CurrentDateTime)
 Point(DateInt)
}
Add(FormatStr,11020164,462,504)
{
 Mask="select nom_res FROM '%1' WHERE dv_res = %2 ; "
 link(onFString,1963478:doCharset,[(501,510)(501,503)])
 link(Str1,3136427:getVar,[])
 link(Str2,12562534:Var2,[(475,495)(482,495)])
}
Add(Button,4682251,406,504)
{
 Left=10
 Top=205
 Width=165
 Height=35
 Caption="Найти строку в базу"
 link(onClick,11020164:doString,[])
}
Add(Edit,15203951,630,497)
{
 Left=185
 Top=210
 Width=190
 Height=25
}
Add(DSC_Exec,12999223,574,497)
{
 DSManager="db1"
 link(onExec,15203951:doText,[])
 link(onError,1041268:doWork,[(620,510)(620,545)])
}
Add(Charset,1963478,525,497)
{
 Type=6
 link(onCharset,12999223:doExec,[])
}
Add(LineBreakEx,1041268,630,539)
{
 Caption="Error"
}
Add(Label,6621469,644,336)
{
 Left=180
 Top=55
 Width=190
 Height=20
}
Add(Hub,10442618,378,420)
{
 link(onEvent1,6131663:doWork3,[(403,426)])
 link(onEvent2,13119041:doString,[])
}
Add(HubEx,6131663,399,336)
{
 link(onEvent,6823682:doData,[])
}
Add(LineBreakEx,3136427,462,476)
{
 Type=2
}
Add(GetDataEx,12562534,476,392)
{
 link(Data,13051045:Var1,[(482,316)])
}
Add(DoData,6823682,560,336)
{
 link(onEventData,6621469:doText,[])
 link(Data,13051045:Var2,[])
}
Add(GetDataEx,13051045,560,311)
{
 link(Data,13906050:DateInt,[])
}