Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2018-10-20 10:40:12 ЛС | профиль | цитата
Как-то так, вроде.

Add(MainForm,7057179,336,203)
{
Width=971
Height=501
Caption="Добавление сотрудников на портал MMF и Flextera"
Position=1
Point(onClose)
link(onCreate,16168490:doOpen,[])
link(onClose,16168490:doClose,[])
}
Add(StringTableMT,16628981,560,196)
{
Left=10
Top=55
Width=940
Height=405
Columns=#4:id=0|5:Логин|14:Пароль FLEXTER|10:Пароль MMF|7:Фамилия|3:Имя|8:Отчество|7:Телефон|9:Эл. адрес|6:Диллер|
StrDelimiter="\9"
ColumnWidth=100
Redaction=0
TabGrid=0
TabGridFrame=0
Grid=0
Gradient=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(onDblClick)
link(onClick,1702344:doPutText,[(604,202)(604,286)(541,286)(541,307)])
link(onLineChange,3995575:doRead,[])
}
Add(Button,10786776,511,119)
{
Left=10
Top=25
Width=120
Font=[MS Sans Serif,8,1,0,1]
Caption="Добавить строку"
link(onClick,15092223:doEvent1,[])
}
Add(DS_SQLite,16168490,399,217)
{
Name="mdb"
FileName=":memory:"
link(onOpen,10454492:doExec,[])
}
Add(DSC_Exec,10454492,448,217)
{
SQL="CREATE TABLE IF NOT EXISTS table1 (\r\n id INTEGER PRIMARY KEY, \r\n login TEXT, \r\n password_flexta TEXT, \r\n password_mmf TEXT,\r\n name TEXT,\r\n lastname TEXT,\r\n middle_name TEXT,\r\n phone TEXT,\r\n email TEXT,\r\n diller TEXT);"
DSManager="mdb"
link(onExec,11160510:doWork2,[])
}
Add(ArrayRW,3995575,623,203)
{
link(onRead,2776629:doSplit,[])
link(Array,16628981:Strings,[(629,196)(607,196)(607,265)(580,265)])
}
Add(FormatStr,11096851,672,154)
{
Mask="INSERT INTO table1( id,login,password_flexta,password_mmf) VALUES(NULL,'','%1','%2');"
link(onFString,14192086:doWork1,[(774,160)])
link(Str2,1468828:Result,[])
}
Add(DSC_Query,8749579,511,217)
{
SQL="SELECT * FROM table1"
DSManager="mdb"
link(onQuery,16628981:doMT_Add,[])
link(onColumns,16628981:doClear,[(551,230)(551,209)])
}
Add(DSC_Exec,2307078,791,252)
{
DSManager="mdb"
link(onExec,11160510:doWork1,[(838,258)(838,99)(494,99)])
}
Add(FormatStr,6841402,672,252)
{
DataCount=10
Mask="UPDATE table1 SET login='%2',password_flextera='%3',password_mmf='%4',name='%5',\r\nlastname='%6', middle_name='%7',phone='%8',email='%9',diller='%10' WHERE id=%1"
link(onFString,14192086:doWork2,[])
link(Str1,2776629:Part1,[])
link(Str2,2776629:Part2,[])
link(Str3,2776629:Part3,[])
link(Str4,2776629:Part4,[])
link(Str5,2776629:Part5,[])
link(Str6,2776629:Part6,[])
link(Str7,2776629:Part7,[])
link(Str8,2776629:Part8,[])
link(Str9,2776629:Part9,[])
link(Str10,2776629:Part10,[])
}
Add(MultiStrPart,2776629,672,203)
{
Char="\9"
Count=10
link(onSplit,6841402:doString,[(757,209)(757,245)(660,245)(660,258)])
}
Add(Button,14428720,511,357)
{
Left=135
Top=25
Width=120
Font=[MS Sans Serif,8,1,0,1]
Caption="Удалить строку"
link(onClick,2932136:doSplit,[])
}
Add(FormatStr,214626,616,357)
{
DataCount=1
Mask="DELETE FROM table1 WHERE id=%1 "
link(onFString,14192086:doWork3,[(774,363)])
link(Str1,2932136:Part1,[(622,349)(607,349)(607,404)(573,404)])
}
Add(MultiStrPart,2932136,567,357)
{
Char="\9"
Count=1
link(onSplit,214626:doString,[])
link(Str,15748700:Var2,[])
}
Add(StringGen,1468828,679,112)
{
Count=10
Charset="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
}
Add(Hub,15092223,560,119)
{
link(onEvent1,1468828:doGenerateRnd,[])
link(onEvent2,2507902:doGenerateRnd,[(599,132)(599,167)])
}
Add(HubEx,14192086,770,252)
{
link(onEvent,2307078:doExec,[])
}
Add(HubEx,11160510,490,217)
{
link(onEvent,8749579:doQuery,[])
}
Add(StringGen,2507902,623,154)
{
Count=10
link(onResult,11096851:doString,[])
}
Add(Clipboard,1702344,546,301)
{
Point(PutText)
link(PutText,15748700:Var1,[(552,257)])
}
Add(GetDataEx,15748700,567,252)
{
link(Data,16628981:Select,[])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 3 раз(а), последний 2018-10-20 10:58:42