Вверх ↑
Ответов: 824
Рейтинг: 138
#1: 2014-11-11 22:07:39 ЛС | профиль | цитата
Poputchik, Заменить DSC_Exec на DSC_Query
Add(MainForm,3063070,280,161)
{
link(onCreate,2106005:doEvent1,[(340,181)(340,195)])
}
Add(DSC_Exec,5404102,504,189)
{
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,448,189)
{
Name="db1"
Point(onError)
link(onOpen,5404102:doExec,[])
link(onError,7634737:doWork,[(488,202)(488,230)])
}
Add(Dir,1293062,399,140)
{
}
Add(StrCat,9571880,399,189)
{
Str2="Reshenia_1.db"
link(onStrCat,3869661:doOpen,[])
link(Str1,1293062:CurrentDir,[])
AddHint(58,-21,87,13,Str2)
}
Add(LineBreakEx,4162166,560,196)
{
Caption="Error"
}
Add(LineBreakEx,7634737,497,224)
{
Caption="Error"
}
Add(LineBreakEx,6650179,714,455)
{
Caption="Error"
Type=1
link(OnEvent,14032303:doMessage,[])
}
Add(Message,14032303,770,455)
{
Caption="Error"
}
Add(Hub,2106005,350,189)
{
OutCount=3
link(onEvent1,9571880:doStrCat,[])
link(onEvent3,6131663:doWork1,[(382,209)])
}
Add(VisualStrings,11064064,196,126)
{
@Hint=#11:Имя таблицы|
Lines=#10:Reshenia_1|
Width=67
}
Add(LineBreakEx,1196580,196,154)
{
Type=3
link(_Data,11064064:Text,[])
}
Add(FormatStr,13119041,413,434)
{
DataCount=3
Mask="INSERT OR REPLACE INTO '%1' VALUES (NULL, '%2', '%3');"
Point(FString)
link(onFString,1066544:doCharset,[])
link(Str1,9563998:getVar,[(419,425)(398,425)])
link(Str2,5325190:Text,[])
link(Str3,12562534:Var1,[(433,404)])
}
Add(DSC_Exec,13037445,525,434)
{
DSManager="db1"
link(onError,6757936:doWork,[])
}
Add(LineBreakEx,9563998,392,406)
{
Type=2
}
Add(LineBreakEx,6757936,567,441)
{
Caption="Error"
}
Add(Charset,1066544,476,434)
{
Type=6
link(onCharset,13037445:doExec,[])
}
Add(Button,11933617,294,427)
{
Left=10
Top=50
Width=165
Height=35
Caption="Добавить строку в базу"
link(onClick,10442618:doEvent1,[])
}
Add(Edit,5325190,420,364)
{
Left=130
Top=20
Width=120
}
Add(DatePicker,13906050,532,266)
{
Left=260
Top=20
Width=105
Height=21
Point(CurrentDateTime)
Point(DateInt)
}
Add(FormatStr,11020164,441,511)
{
Mask="SELECT nom_res FROM '%1' WHERE dv_res = '%2';"
link(onFString,1963478:doCharset,[])
link(Str1,3136427:getVar,[])
link(Str2,12562534:Var2,[(454,502)(461,502)])
}
Add(Button,4682251,385,511)
{
Left=10
Top=205
Width=165
Height=35
Caption="Найти строку в базу"
link(onClick,11020164:doString,[])
}
Add(Edit,15203951,707,511)
{
Left=185
Top=210
Width=190
Height=25
}
Add(Charset,1963478,497,511)
{
Type=6
link(onCharset,3248021:doQuery,[])
}
Add(LineBreakEx,1041268,665,574)
{
Caption="Error"
}
Add(Label,6621469,623,343)
{
Left=180
Top=55
Width=190
Height=20
}
Add(Hub,10442618,357,427)
{
link(onEvent1,6131663:doWork3,[(382,433)])
link(onEvent2,13119041:doString,[])
}
Add(HubEx,6131663,378,343)
{
link(onEvent,6823682:doData,[])
}
Add(LineBreakEx,3136427,441,483)
{
Type=2
}
Add(GetDataEx,12562534,455,399)
{
link(Data,13051045:Var1,[(461,323)])
}
Add(DoData,6823682,539,343)
{
link(onEventData,6621469:doText,[])
link(Data,13051045:Var2,[])
}
Add(GetDataEx,13051045,539,318)
{
link(Data,13906050:DateInt,[])
}
Add(Charset,16019619,644,511)
{
@Color=5636095
Type=7
link(onCharset,15203951:doText,[])
}
Add(DSC_Query,3248021,574,511)
{
@Color=43775
DSManager="db1"
link(onQuery,16019619:doCharset,[])
link(onError,1041268:doWork,[(613,531)(613,580)])
}


карма: 1

1
Голосовали:Poputchik