Вверх ↑
Ответов: 16884
Рейтинг: 1237
#1: 2017-03-27 14:08:16 ЛС | профиль | цитата
А на номера вообще смотреть не надо.
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,[(673,272)(673,244)])
}
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=8
link(onSplit,15284765:doString,[(889,216)(889,193)(800,193)(800,258)])
}
Add(FormatStr,15284765,812,252)
{
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,[])
}
Add(DSC_Exec,10616952,931,252)
{
DSManager="db1"
link(onExec,15220285:doEvent2,[(976,258)(976,362)(569,362)(569,272)])
}
Add(Button,9498731,623,308)
{
Left=465
Top=695
Width=145
Height=30
Caption="Удалить строку"
link(onClick,5843597:doRead,[])
}
Add(ArrayRW,5843597,693,308)
{
link(onRead,13870066:doSplit,[])
link(Array,13481869:Var1,[(699,274)])
link(Index,9011583:Index,[])
}
Add(MultiStrPart,13870066,756,308)
{
Char="\9"
Count=1
link(onSplit,896997:doString,[])
}
Add(FormatStr,896997,812,308)
{
DataCount=1
Mask="DELETE FROM table1 WHERE №=%1"
Point(FString)
link(onFString,11104942:doWork3,[(907,314)])
}
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,230)])
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
Columns=#3:№=0|11:Имя клиента|6:Статус|23:Контактное лицо ФИО=200|5:Город|9:Адрес=150|22:Дата последнего звонка|15:Когда позвонить|12:Комментарии |
StrDelimiter="\9"
Redaction=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(onLineChange)
Point(Index)
Point(Strings)
Point(doSelEndStr)
link(onLineChange,13625845:doRead,[])
}
Add(DSC_Exec,3629262,623,224)
{
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,252)
{
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,12215898:doEvent1,[])
}
Add(Hub,15220285,581,259)
{
InCount=2
link(onEvent1,9011583:doClear,[(669,265)(669,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=165
Margin=5
}
Add(Hub,12215898,560,203)
{
link(onEvent1,9011583:doAdd,[])
link(onEvent2,9011583:doSelEndStr,[(664,216)(664,251)])
}

Если, например, ты захочешь вывести в MT-таблицу записи отсортированные по "Имя клиента",
SELECT * FROM table1 ORDER BY [Имя клиента];
то что там будет с колонкой номеров [№] !!!! предсказать сложно.
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 2 раз(а), последний 2017-03-27 14:16:53