Вверх ↑
Ответов: 5
Рейтинг: 0
#1: 2007-08-09 00:29:37 ЛС | профиль | цитата
В SQLite нет команд LOAD и UNLOAD пришлось сделать схему. Может кому пригодится. Или у кого-то есть другие решения?
Add(MainForm,11782419,-7,-206)
{
Left=20
Top=105
Width=399
Height=404
link(onCreate,15868017:doEvent1,[])
}
Add(SQLite_DB,3659224,126,-164)
{
FileName="base.db"
link(onOpen,5670729:doEvent1,[(170,-158)(170,-144)])
}
Add(SQLite_Query,5615640,252,-171)
{
link(onQuery,16018729:doStr,[])
link(dbHandle,3659224:dbHandle,[(258,-186)(223,-186)(223,-120)(132,-120)])
link(SQL,6916205:Value,[])
}
Add(Hub,5670729,182,-150)
{
InCount=2
OutCount=1
link(onEvent1,5615640:doQuery,[(233,-144)(233,-165)])
}
Add(Hub,15868017,63,-171)
{
link(onEvent1,6916205:doClear,[(140,-165)(140,-277)])
link(onEvent2,3659224:doOpen,[])
}
Add(Memory,6916205,259,-290)
{
Default=String(CREATE TABLE tabl (column1 char (10), column2 char (10), column3 char (10), column4 char (10));)
}
Add(MT_String,16018729,322,-171)
{
link(onResult,3846903:doAdd,[])
}
Add(StringTable,3846903,448,-171)
{
Left=10
Top=50
Width=365
Height=310
Columns=#9:Столбец 1|9:Столбец 2|9:Столбец 3|9:Столбец 4|
}
Add(Button,150915,84,88)
{
Left=35
Top=10
Width=70
Caption="Из файла"
link(onClick,4214252:doExecute,[])
}
Add(Button,8807815,126,-17)
{
Left=145
Top=10
Width=65
Caption="В файл"
link(onClick,2812814:doExecute,[])
}
Add(ODialog,4214252,147,88)
{
Filter="Тектовые файлы|*.txt"
FileName=""
link(onExecute,633815:doEvent1,[])
}
Add(StrList,2644363,273,74)
{
}
Add(Hub,633815,196,88)
{
link(onEvent1,2644363:doLoad,[(250,94)(250,108)])
link(onEvent2,4755543:doEnum,[(257,101)(257,171)])
}
Add(ArrayEnum,4755543,287,165)
{
link(onItem,8553455:doEvent1,[])
link(onEndEnum,155001:doClear,[(367,178)(367,381)])
link(Array,2644363:Array,[])
}
Add(Hub,8553455,350,165)
{
link(onEvent1,12584775:doSplit,[])
link(onEvent2,12433557:doString,[(409,178)(409,332)])
}
Add(StrPart,12584775,434,165)
{
Char=";"
link(onSplit,5631731:doSplit,[])
link(onPart,10797976:doValue,[(474,178)(474,227)])
}
Add(StrPart,5631731,504,165)
{
Char=";"
link(onSplit,10811414:doSplit,[])
link(onPart,15475271:doValue,[(551,178)(551,227)])
}
Add(StrPart,10811414,581,165)
{
Char=";"
link(onSplit,8385919:doValue,[])
link(onPart,99685:doValue,[(628,178)(628,227)])
}
Add(Memory,10797976,483,221)
{
Default=String()
}
Add(Memory,15475271,567,221)
{
Default=String()
}
Add(Memory,99685,644,221)
{
Default=String()
}
Add(Memory,8385919,658,165)
{
Default=String()
}
Add(FormatStr,12433557,539,326)
{
DataCount=4
Mask="INSERT INTO tabl VALUES ('%1', '%2', '%3', '%4');"
link(onFString,15864568:doEvent1,[])
link(Str1,10797976:Value,[(545,290)(489,290)])
link(Str2,15475271:Value,[(552,282)(573,282)])
link(Str3,99685:Value,[(559,290)(650,290)])
link(Str4,8385919:Value,[(566,299)(664,299)])
}
Add(Memory,155001,518,368)
{
Default=String(SELECT * FROM tabl;)
link(onData,15864568:doEvent2,[(576,374)(576,339)])
}
Add(Hub,15864568,602,326)
{
InCount=2
link(onEvent1,6916205:doValue,[(672,332)(672,-219)(226,-219)(226,-284)])
link(onEvent2,5670729:doEvent2,[(644,339)(644,-97)(170,-97)(170,-137)])
}
Add(SDialog,2812814,182,-17)
{
Filter="Текстовые файлы|*.txt"
FileName=""
link(onExecute,5128657:doEvent1,[])
}
Add(Hub,5128657,231,-17)
{
OutCount=4
link(onEvent1,3846903:doSave,[(279,-11)(279,-137)])
link(onEvent2,14272964:doLoad,[(297,-4)(297,17)])
link(onEvent3,11418808:doClear,[(289,3)(289,-46)])
link(onEvent4,14272964:doSave,[(289,10)(289,24)])
}
Add(StrList,14272964,434,-17)
{
}
Add(Memory,11418808,315,-59)
{
Default=Integer(0)
link(onData,14272964:doDelete,[(390,-53)(390,3)])
}
карма: 1

0