Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2017-03-26 22:24:52 ЛС | профиль | цитата
VicSpa,

Add(MainForm,2953706,455,238)
{
Width=1202
Height=820
Point(onClose)
link(onCreate,15693288:doOpen,[])
link(onClose,15693288:doClose,[])
}
Add(DSC_Query,8494410,623,266)
{
SQL="SELECT * FROM table1"
DSManager="db1"
link(onQuery,9011583:doMT_Add,[(670,272)(670,244)])
link(onColumns,9011583:doMT_AddCols,[(676,279)(676,251)])
}
Add(Button,14631524,455,203)
{
Left=272
Top=695
Width=145
Height=30
Caption="Добавить строку"
link(onClick,2731526:doQuery,[])
}
Add(ArrayRW,13625845,755,210)
{
link(onRead,16401883:doSplit,[])
link(Array,13481869:Var3,[(761,198)(735,198)(735,274)])
}
Add(MultiStrPart,16401883,812,210)
{
Char="\9"
Count=9
link(onSplit,15284765:doString,[(889,216)(889,193)(800,193)(800,279)])
}
Add(FormatStr,15284765,812,273)
{
DataCount=9
Mask="INSERT OR REPLACE INTO table1 values(%1, '%2', '%3', '%4', '%5', '%6', '%7', '%8', '%9');"
Point(FString)
link(onFString,11104942:doWork2,[])
link(Str1,16401883:Part1,[])
link(Str2,16401883:Part2,[])
link(Str3,16401883:Part3,[])
link(Str4,16401883:Part4,[])
link(Str5,16401883:Part5,[])
link(Str6,16401883:Part6,[])
link(Str7,16401883:Part7,[])
link(Str8,16401883:Part8,[])
link(Str9,16401883:Part9,[])
}
Add(DSC_Exec,10616952,931,273)
{
DSManager="db1"
link(onExec,15220285:doEvent2,[(978,279)(978,383)(569,383)(569,272)])
}
Add(Button,9498731,623,329)
{
Left=465
Top=695
Width=145
Height=30
Caption="Удалить строку"
link(onClick,5843597:doRead,[])
}
Add(ArrayRW,5843597,693,329)
{
link(onRead,13870066:doSplit,[])
link(Array,13481869:Var1,[(699,274)])
link(Index,9011583:Index,[])
}
Add(MultiStrPart,13870066,756,329)
{
Char="\9"
Count=1
link(onSplit,896997:doString,[])
}
Add(FormatStr,896997,812,329)
{
DataCount=1
Mask="DELETE FROM table1 WHERE №=%1"
Point(FString)
link(onFString,11104942:doWork3,[(907,335)])
link(Str1,13870066:Part1,[(818,317)(800,317)(800,376)(762,376)])
}
Add(DS_SQLite,15693288,511,252)
{
Name="db1"
FileName="MyDataBase.db"
link(onOpen,16646785:doEvent1,[])
}
Add(Hub,16646785,553,252)
{
link(onEvent1,3629262:doExec,[(612,258)(612,223)])
link(onEvent2,15220285:doEvent1,[])
}
Add(GetDataEx,13481869,707,269)
{
link(Data,9011583:Strings,[])
}
Add(StringTableMT,9011583,686,203)
{
Left=230
Top=45
Width=890
Height=620
StrDelimiter="\9"
ClearAll=0
Redaction=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(onLineChange)
Point(Index)
Point(Strings)
Point(doMT_AddCols)
link(onLineChange,13625845:doRead,[])
}
Add(DSC_Exec,3629262,623,217)
{
SQL="CREATE TABLE IF NOT EXISTS table1 (\r\n № INTEGER PRIMARY KEY, \r\n [Имя клиента] char, \r\n [Статус] char,\r\n [Контактное лицо ФИО] char,\r\n [Город] char,\r\n [Адрес] char, \r\n [Дата последнего звонка] char, \r\n [Когда позвонить] char, \r\n [Комментарии] char);"
DSManager="db1"
}
Add(HubEx,11104942,903,273)
{
link(onEvent,10616952:doExec,[])
}
Add(DSC_Query,2731526,511,203)
{
SQL="SELECT CASE count()\r\n WHEN 0 THEN 1 ELSE max(№)+1 END\r\n FROM table1;"
DSManager="db1"
link(onQuery,9011583:doAdd,[])
}
Add(Hub,15220285,581,259)
{
InCount=2
link(onEvent1,9011583:doClear,[(663,265)(663,216)])
link(onEvent2,8494410:doQuery,[])
}
Add(InfoTip,13358741,168,196)
{
Info=#35:CREATE TABLE IF NOT EXISTS table1 (|24: № INTEGER PRIMARY KEY, |21: [Имя клиента] char, |15: [Статус] char,|28: [Контактное лицо ФИО] char,|14: [Город] char,|15: [Адрес] char, |32: [Дата последнего звонка] char, |25: [Когда позвонить] char, |21: [Комментарии] char);|
HAlign=0
Width=246
Height=144
Margin=5
}

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