Вверх ↑
Этот топик читают: Гость
Ответов: 9819
Рейтинг: 340
#406: 2017-12-10 12:32:46 ЛС | профиль | цитата
Netspirit писал(а):
видимо, что-то

Ну так про это "ЧТО-ТО" я тебе и говорю: в результате паразитной "обратной отдачи"
_hi_OnEvent может испортить свой входной аргумент (и, следовательно, угробить ссылку на хвост, необходимый к уничтожению).
Это только для TData overload-версии _hi_OnEvent.

А вот _hi_OnEvent_ - это его же версия с буферизацией.
Решение то было в замене _hi_OnEvent на _hi_OnEvent_.
А замена @OutDT на FreeDT - это просто так, для общности картины...

До меня тоже, пока дошло - чуть веру в закон Ома не потерял...

Редактировалось 2 раз(а), последний 2017-12-11 13:37:55
карма: 8

0
Разработчик
Ответов: 25460
Рейтинг: 2070
#407: 2017-12-10 16:02:04 ЛС | профиль | цитата
Для справки: существует еще один тип цепочных данных MT -- TMT. Первый раз он стал применяться в компоненте NetInterfaces
карма: 19

0
Ответов: 9819
Рейтинг: 340
#408: 2017-12-11 00:34:28 ЛС | профиль | цитата
nesco писал(а):
существует еще один тип цепочных данных MT -- TMT

Что-то мне кажется, что эта технология тоже не защищена от вышеописанной паразитной "обратной отдачи"

Так что, к списку коллеги Netspirit-а следует прибавить еще кое какие элементы (и вычесть MathParse, конечно же)...
Использующее упомянутую TMT-технику

Редактировалось 3 раз(а), последний 2017-12-11 00:40:02
карма: 8

0
Разработчик
Ответов: 25460
Рейтинг: 2070
#409: 2017-12-11 01:37:36 ЛС | профиль | цитата
Galkov писал(а):
Что-то мне кажется, что эта технология тоже не защищена от вышеописанной паразитной "обратной отдачи"

Да это я как справку для Netspirit-a привел. Просто иногда это тип и его методы удобно использовать. Хотя мне больше нравится "ручная" организация MT-цепи.
карма: 19

0
Ответов: 3930
Рейтинг: 620
#410: 2017-12-11 12:01:31 ЛС | профиль | цитата
Galkov писал(а):
Решение то было в замене _hi_OnEvent на _hi_OnEvent_.
Блин, ну и как с этим жить? Кто так обзывает методы? Я ведь не заметил, что дело в имени метода, а не в аргументе.
карма: 19

0
Ответов: 9819
Рейтинг: 340
#411: 2017-12-11 13:33:30 ЛС | профиль | цитата
Netspirit писал(а):
Кто так обзывает методы?

Может и я.... Точно не помню.
Но это было очень давно. Я был крайне мал, я был дитя

--- Добавлено в 2017-12-11 14:08:26

Galkov писал(а):
Что-то мне кажется, что эта технология тоже не защищена от вышеописанной паразитной "обратной отдачи"

Если в примере Netspirit-а применить технику TMT:
Add(InlineCode,16037272,518,91)
{
WorkPoints=#6:doWork|
EventPoints=#8:onResult|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|4:uses|28: Windows, KOL, Share, Debug;|0:|4:type|29: THiAsmClass = class(TDebug)|11: private|0:|10: public|29: onResult: THI_Event; |54: procedure doWork(var _Data: TData; Index: Word);|6: end;|0:|14:implementation|0:|3:var|19: Counter: Integer;|0:|60:procedure THiAsmClass.doWork(var _Data: TData; Index: Word);|3:var|14: OutDT:TData;|9: mt:PMT;|5:begin|15: Inc(Counter);|2: |35: // Хочу выдать в поток 2 элемента|28: dtInteger(OutDT, Counter);|23: mt := mt_make(OutDT);|34: mt_string(mt, Int2Str(Counter));|0:|31: _hi_OnEvent(onResult, OutDT);|2: |14: mt_free(mt);|4:end;|0:|0:|0:|0:|4:end.|
}
То это дело жрет память так же, как и в оригинальном примере из этого поста.
И, аналогичным образом, чинится заменой _hi_OnEvent на _hi_OnEvent_.

Т.е., утверждение из разряда "кажется" переходит в разряд экспериментального факта.

Редактировалось 5 раз(а), последний 2017-12-11 14:11:45
карма: 8

0
Ответов: 312
Рейтинг: 5
#412: 2017-12-13 23:14:28 ЛС | профиль | цитата
Подскажите как посчитать тэги div. Есть форма и в ней RadioButton-ны, нужно нажать или выбрать тот, который с id=gmcr_imgc3.
Add(MainForm,2953706,14,133)
{
link(onCreate,4976115:doData,[])
}
Add(WebBrowser,5678376,231,119)
{
Width=712
Height=549
Align=5
URL=""
Silent=0
Point(PHandle)
Point(doFromText)
}
Add(DoData,4976115,91,147)
{
Data=String(https://www.google.com/advanced_image_search)
link(onEventData,5678376:doFromText,[])
link(Data,8968811:Text,[])
}
Add(StrList,8968811,91,77)
{
Strings=#45:<form><label for="imgc">Фильтр цвета:</label>|52:<input value="" id="imgc" name="imgc" type="hidden">|60:<input value="" id="imgcolor" name="imgcolor" type="hidden">|43:<div id="color-panel" style="display:none">|59:<div id="gmcr_imgc1" style="display:table-cell">любые</div>|61:<div id="gmcr_imgc2" style="display:table-cell">цветные</div>|65:<div id="gmcr_imgc3" style="display:table-cell">черно-белые</div>|71:<div id="gmcr_imgc4" style="display:table-cell">Прозрачные</div></form>|
}
Add(Button,14453633,161,189)
{
Left=10
Top=105
Width=50
Caption="Клик"
link(onClick,11984697:Zap,[])
}
Add(InlineCode,11984697,245,189)
{
@Hint=#13:Клик google 1|
WorkPoints=#3:Zap|
DataPoints=#1:h|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|61:uses kol,Share,Debug,windows,ActiveX,KOLSHDocVw,Win,ShellApi;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|16: wb:PControl;|9: public|16: h:THI_Event;|4: |42:procedure Zap(var Data:TData; index:word);|4: |5: end;|0:|15:implementation |0:|4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|2: |26:procedure THiAsmClass.Zap;|5:begin|61: if not assigned (wb) then wb := PControl(ToIntegerEvent(h));|74: if PKOLWebBrowser(wb).OleObject.Document.all.tags('FORM').Length > 0 then|5:begin|81: PKOLWebBrowser(WB).OleObject.Document.getElementsByTagName('div').item(3).Click;|5: end;|4:end;|0:|4:end.|
link(h,5678376:PHandle,[])
}

Код страницы не весь и переключатели не видно. Как в схеме, в теории посчитать тэги div и нажать на тот, где есть id=gmcr_imgc3

Поправьте схему
Add(InlineCode,9377786,322,168)
{
WorkPoints=#5:doSet|
DataPoints=#1:h|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses kol,Share,Debug,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|16: wb:PControl;|9: public|16: h:THI_Event;|0:|46: procedure doSet(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|0:|28:procedure THiAsmClass.doSet;|16:var i,k:integer;|21: FormItem:Variant;|5:begin|61: if not assigned (wb) then wb := PControl(ToIntegerEvent(h));|79: if PKOLWebBrowser(wb).OleObject.Document.all.tags('div').Length = 0 then exit;|68: for i:=0 to PKOLWebBrowser(wb).OleObject.Document.forms.Length-1 do|7: begin|67: FormItem := PKOLWebBrowser(wb).OleObject.Document.forms.Item(i);|35: for k:=0 to FormItem.length-1 do|49: if FormItem.Item(k).Id = 'gmcr_imgc3'.Click;|6: end;|4:end;|0:|4:end.|
link(h,5678376:PHandle,[])
}
Add(MainForm,7984657,91,112)
{
link(onCreate,4976115:doData,[])
}
Add(WebBrowser,5678376,308,98)
{
Width=712
Height=549
Align=5
URL=""
Silent=0
Point(PHandle)
Point(doFromText)
}
Add(DoData,4976115,168,126)
{
Data=String(https://www.google.com/advanced_image_search)
link(onEventData,5678376:doFromText,[])
link(Data,8968811:Text,[])
}
Add(StrList,8968811,168,56)
{
Strings=#45:<form><label for="imgc">Фильтр цвета:</label>|52:<input value="" id="imgc" name="imgc" type="hidden">|60:<input value="" id="imgcolor" name="imgcolor" type="hidden">|43:<div id="color-panel" style="display:none">|59:<div id="gmcr_imgc1" style="display:table-cell">любые</div>|61:<div id="gmcr_imgc2" style="display:table-cell">цветные</div>|65:<div id="gmcr_imgc3" style="display:table-cell">черно-белые</div>|71:<div id="gmcr_imgc4" style="display:table-cell">Прозрачные</div></form>|
}
Add(Button,14453633,238,168)
{
Left=10
Top=105
Width=50
Caption="Клик"
link(onClick,9377786:doSet,[])
}


Редактировалось 2 раз(а), последний 2017-12-13 23:36:14
карма: 2

0
Ответов: 312
Рейтинг: 5
#413: 2017-12-21 23:16:20 ЛС | профиль | цитата
Так что, никто не ответит по моему вопросу
Add(InlineCode,9377786,476,301)
{
WorkPoints=#5:doSet|
DataPoints=#1:h|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses kol,Share,Debug,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|16: wb:PControl;|9: public|16: h:THI_Event;|0:|46: procedure doSet(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|0:|28:procedure THiAsmClass.doSet;|16:var i,k:integer;|21: FormItem:Variant;|5:begin|61: if not assigned (wb) then wb := PControl(ToIntegerEvent(h));|79: if PKOLWebBrowser(wb).OleObject.Document.all.tags('div').Length = 0 then exit;|68: for i:=0 to PKOLWebBrowser(wb).OleObject.Document.forms.Length-1 do|7: begin|67: FormItem := PKOLWebBrowser(wb).OleObject.Document.forms.Item(i);|35: for k:=0 to FormItem.length-1 do|49: if FormItem.Item(k).Id = 'gmcr_imgc3'.Click;|6: end;|4:end;|0:|4:end.|
}
Add(MainForm,7984657,168,182)
{
link(onCreate,4976115:doData,[])
}
Add(WebBrowser,5678376,385,168)
{
Width=712
Height=549
Align=5
URL=""
Silent=0
Point(PHandle)
Point(doFromText)
}
Add(DoData,4976115,245,196)
{
Data=String(https://www.google.com/advanced_image_search)
link(onEventData,5678376:doFromText,[])
link(Data,8968811:Text,[])
}
Add(StrList,8968811,245,126)
{
Strings=#45:<form><label for="imgc">Фильтр цвета:</label>|52:<input value="" id="imgc" name="imgc" type="hidden">|60:<input value="" id="imgcolor" name="imgcolor" type="hidden">|43:<div id="color-panel" style="display:none">|59:<div id="gmcr_imgc1" style="display:table-cell">любые</div>|61:<div id="gmcr_imgc2" style="display:table-cell">цветные</div>|65:<div id="gmcr_imgc3" style="display:table-cell">черно-белые</div>|71:<div id="gmcr_imgc4" style="display:table-cell">Прозрачные</div></form>|
}
Add(Button,14453633,315,238)
{
Left=10
Top=105
Width=50
Caption="Клик"
link(onClick,6493342:Zap,[(373,244)(373,307)])
}
Add(InlineCode,6493342,399,301)
{
@Hint=#13:Клик google 1|
WorkPoints=#3:Zap|
DataPoints=#1:h|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|61:uses kol,Share,Debug,windows,ActiveX,KOLSHDocVw,Win,ShellApi;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|16: wb:PControl;|9: public|16: h:THI_Event;|4: |46: procedure Zap(var Data:TData; index:word);|4: |5: end;|0:|15:implementation |0:|4:type|31: TKOLWebBrowser = PWebBrowser;|32: PKOLWebBrowser = PWebBrowser; |0:|26:procedure THiAsmClass.Zap;|3:var|25: ovElements: OleVariant;|13: i: Integer;|5:begin|37: wb := PControl(ToIntegerEvent(h));|80: ovElements := PKOLWebBrowser(WB).OleObject.Document.Forms.Item( 0 ).Elements;|43: for i := 0 to ( ovElements.Length-1 ) do|76: if ( AnsiUpperCase( ovElements.Item( i ).tagName ) = 'imgcolor' ) then|76: if ( AnsiUpperCase( ovElements.Item( i ).Id ) = 'gmcr_imgc3' ) then|66: if ( ovElements.item( i ).Value = 'черно-белые' ) then|42: ovElements.Item( i ).Click;|4:end;|0:|4:end.|
link(h,5678376:PHandle,[])
}


Обще запутался и непонятные ошибки при компиляции
Тема ведь для обучения, так подскажите как надо

Мне нужно в гуле в поиске выбрать нужные переключатели, я то сделал с указанием нужного item, хочу на будущее научится искать его в коде страницы. Покажите как нужно, а то два варианта и не найдут

Вот код который сделал
Add(MainForm,2953706,7,105)
{
Width=728
Height=587
WindowsState=2
Point(onClose)
link(onCreate,13322211:doEvent1,[(47,125)(47,118)])
link(onClose,4169119:del,[(65,132)(65,118)])
}
Add(WebBrowser,5678376,273,119)
{
Width=712
Height=549
Align=5
URL=""
Silent=0
Point(PHandle)
Point(doFromText)
}
Add(DoData,4976115,140,119)
{
Data=String(https://www.google.com/advanced_image_search)
link(onEventData,5678376:doNavigate,[])
}
Add(VisualStrings,3555302,322,126)
{
Lines=#3:Кот|
Width=60
}
Add(Hub,13322211,56,112)
{
link(onEvent1,4169119:write,[(77,118)(77,111)])
link(onEvent2,4976115:doData,[])
}
Add(MultiElementEx,4169119,91,105)
{
}
BEGIN_SDK
Add(EditMultiEx,16512711,21,21)
{
WorkCount=#5:write|3:del|
Height=249
link(write,3634544:doPart,[(95,27)(95,97)])
link(del,8467764:doDeleteValue,[(42,34)(42,160)])
}
Add(Registry,8467764,154,140)
{
HKey=1
Key="SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION\"
DataType=0
Point(doDeleteValue)
link(Data,12071228:Text,[])
link(Value,3634544:Part,[])
}
Add(Application,4084507,168,42)
{
}
Add(FilePartElm,3634544,168,91)
{
Point(Part)
link(onPart,8467764:doWrite,[(207,97)(207,125)(144,125)(144,153)])
link(FileName,4084507:AppFileName,[])
}
Add(VisualStrings,12071228,154,21)
{
Lines=#5:11001|
Width=46
}
END_SDK
Add(Button,14453633,14,231)
{
Left=195
Top=65
Width=165
Caption="Отправить"
link(onClick,16188447:doEvent1,[])
}
Add(ComboBox,7552476,91,168)
{
Left=325
Top=20
Width=130
Height=21
Strings=#5:Любые|8:Портреты|10:фотографии|8:Клип-арт|19:Черно-белые рисунки|13:Анимированные|
Text="Тип"
ReadOnly=0
DropDownCount=6
Point(Index)
}
Add(ComboBox,11546339,147,168)
{
Left=460
Top=20
Width=85
Height=21
Strings=#5:Любые|7:Цветные|11:Черно-белые|10:Прозрачные|
Text="Цвет"
ReadOnly=0
DropDownCount=4
Point(Index)
}
Add(DoData,602843,105,231)
{
link(onEventData,8562839:Тип,[(212,237)(212,202)])
link(Data,7552476:Index,[])
}
Add(DoData,14115759,161,273)
{
link(onEventData,8562839:Цвет,[(240,279)(240,209)])
link(Data,11546339:Index,[])
}
Add(Hub,16188447,63,231)
{
link(onEvent1,602843:doData,[])
link(onEvent2,14115759:doData,[(119,244)(119,279)])
}
Add(MultiElementEx,8562839,287,196)
{
link(h,5678376:PHandle,[])
link(Текст,3555302:Text,[(300,167)(328,167)])
}
BEGIN_SDK
Add(EditMultiEx,2177314,21,21)
{
WorkCount=#3:Тип|4:Цвет|
DataCount=#1:h|5:Текст|4:Сайт|
Width=146
Height=123
link(Тип,7482920:doEvent,[(45,27)(45,48)])
link(Цвет,139623:doEvent1,[(31,34)(31,90)])
}
Add(IndexToChanel,8128150,70,84)
{
Count=4
link(onEvent1,3731023:Any,[])
link(onEvent2,3731023:Colored,[])
link(onEvent3,3731023:Black,[])
link(onEvent4,3731023:Transparent,[])
}
Add(IndexToChanel,7482920,70,42)
{
Count=6
link(onEvent1,3731023:img_1,[])
link(onEvent2,3731023:img_2,[])
link(onEvent3,3731023:img_3,[])
link(onEvent4,3731023:img_4,[])
link(onEvent5,3731023:img_5,[])
link(onEvent6,3731023:img_6,[])
}
Add(Hub,139623,42,84)
{
link(onEvent1,8128150:doEvent,[])
link(onEvent2,3731023:Zap,[(65,97)(65,118)])
}
Add(InlineCode,3731023,126,42)
{
@Hint=#13:Клик google 1|
WorkPoints=#36:img_1=0 Любые картинки по содержанию|16:img_2=1 Портреты|18:img_3=2 фотографии|16:img_4=3 Клип-арт|27:img_5=4 Черно-белые рисунки|21:img_6=5 Анимированные|29:Any=0 Любые картинки по цвету|17:Colored=1 Цветные|19:Black=2 Черно-белые|24:Transparent=3 Прозрачные|28:Zap=10 Заполнить и отправить|
DataPoints=#1:h|4:Name|4:Site|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|61:uses kol,Share,Debug,windows,ActiveX,KOLSHDocVw,Win,ShellApi;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|16: wb:PControl;|9: public|16: h:THI_Event;|19: Name:THI_Event;|19: Site:THI_Event;|4: |48: procedure img_1(var Data:TData; index:word);|48: procedure img_2(var Data:TData; index:word);|48: procedure img_3(var Data:TData; index:word);|48: procedure img_4(var Data:TData; index:word);|48: procedure img_5(var Data:TData; index:word);|48: procedure img_6(var Data:TData; index:word);|5: |46: procedure Any(var Data:TData; index:word);|50: procedure Colored(var Data:TData; index:word);|48: procedure Black(var Data:TData; index:word);|54: procedure Transparent(var Data:TData; index:word);|4: |46: procedure Zap(var Data:TData; index:word);|4: |5: end;|0:|15:implementation |0:|4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|2: |28:procedure THiAsmClass.img_1;|5:begin|35: wb := PControl(ToIntegerEvent(h));|83: PKOLWebBrowser(WB).OleObject.Document.getElementById('imgtype_input').value := '';|5: end;|0:|28:procedure THiAsmClass.img_2;|5:begin|35: wb := PControl(ToIntegerEvent(h));|87: PKOLWebBrowser(WB).OleObject.Document.getElementById('imgtype_input').value := 'face';|5: end;|0:|28:procedure THiAsmClass.img_3;|5:begin|35: wb := PControl(ToIntegerEvent(h));|88: PKOLWebBrowser(WB).OleObject.Document.getElementById('imgtype_input').value := 'photo';|5: end;|0:|28:procedure THiAsmClass.img_4;|5:begin|35: wb := PControl(ToIntegerEvent(h));|90: PKOLWebBrowser(WB).OleObject.Document.getElementById('imgtype_input').value := 'clipart';|5: end;|0:|28:procedure THiAsmClass.img_5;|5:begin|35: wb := PControl(ToIntegerEvent(h));|90: PKOLWebBrowser(WB).OleObject.Document.getElementById('imgtype_input').value := 'lineart';|5: end;|0:|28:procedure THiAsmClass.img_6;|5:begin|35: wb := PControl(ToIntegerEvent(h));|91: PKOLWebBrowser(WB).OleObject.Document.getElementById('imgtype_input').value := 'animated';|5: end;|0:|77://---------------------------------------------------------------------------|0:|26:procedure THiAsmClass.Any;|5:begin|35: wb := PControl(ToIntegerEvent(h));|82: PKOLWebBrowser(WB).OleObject.Document.getElementsByTagName('div').item(92).Click;|5: end;|0:|30:procedure THiAsmClass.Colored;|5:begin|35: wb := PControl(ToIntegerEvent(h));|82: PKOLWebBrowser(WB).OleObject.Document.getElementsByTagName('div').item(95).Click;|5: end;|0:|28:procedure THiAsmClass.Black;|5:begin|35: wb := PControl(ToIntegerEvent(h));|82: PKOLWebBrowser(WB).OleObject.Document.getElementsByTagName('div').item(97).Click;|5: end;|0:|34:procedure THiAsmClass.Transparent;|5:begin|35: wb := PControl(ToIntegerEvent(h));|83: PKOLWebBrowser(WB).OleObject.Document.getElementsByTagName('div').item(100).Click;|5: end;|0:|77://---------------------------------------------------------------------------|0:|26:procedure THiAsmClass.Zap;|5:begin|35: wb := PControl(ToIntegerEvent(h));|92: PKOLWebBrowser(WB).OleObject.Document.getElementById('_dKg').value := ToStringEvent (Name);|92: PKOLWebBrowser(WB).OleObject.Document.getElementById('_SKg').value := ToStringEvent (Site);|104: PKOLWebBrowser(WB).OleObject.Document.getElementById('imgsz_input').value := 'qsvga'; // Размер 400x300|112: PKOLWebBrowser(WB).OleObject.Document.getElementsByClassName('jfk-button jfk-button-action _JQ').item(0).Click;|5: end;|0:|4:end.|
link(h,2177314:h,[(132,32)(27,32)])
link(Name,2177314:Текст,[(139,32)(34,32)])
link(Site,2177314:Сайт,[(146,32)(41,32)])
}
END_SDK


Хотя в коде наверно лучше объявить клобальную переменную wb := PControl(ToIntegerEvent(h)); Чтобы не писать каждый раз

И скажите зачем нужно в коде TKOLWebBrowser = PWebBrowser; а то немного списал и без него работает. Просто в примерах всегда так делают

Редактировалось 3 раз(а), последний 2017-12-21 23:41:02
карма: 2

0
Ответов: 3930
Рейтинг: 620
#414: 2017-12-22 12:16:09 ЛС | профиль | цитата
Поиск нужного тега в тексте - компонент BlockFind.
карма: 19

0
Ответов: 51
Рейтинг: 0
#415: 2018-08-15 12:08:01 ЛС | профиль | цитата
Есть кто живой? нужна помощь в написание кода и правильном его подключение,
в кратце суть программы это большая база данных, со многими страницами , туда заносят инфу и надо сделать условие , если машина проезжает более n количество км то должна загораться лампочка или через ленту показывать что надо к примеру ТО или замена масла , сделать на отдельной вкладке или снизу , не важно , главное должно показывать когда надо делать ТО, замену масла и тд и тп, данные про пройденные км записываются в таблицу на странице моторесурса , машин будет много.
Сама программа прикрепленна , точнее то что есть сейчас .

Add(ChildGroupBox,16594303,847,74)
{
link(onEvent1,5968126:doEvent2,[(943,80)(943,258)])
}
BEGIN_SDK
Add(EditMulti,9384139,21,21)
{
EventCount=1
WorkCount=2
Width=881
Height=585
link(doWork1,10546403:doBringToFront,[(28,27)(28,111)])
}
Add(GroupBox,10546403,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="Персонал"
Point(doBringToFront)
Point(doSendToBack)
}
Add(MultiStrPart,16530701,555,319)
{
Char="\9"
Count=1
link(onSplit,13977232:doString,[])
}
Add(Button,722977,37,252)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,6261690:doOpen,[(85,258)(85,192)])
}
Add(Button,9298806,219,273)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,6451170:doClear,[(361,279)(361,164)])
}
Add(StringTableMT,6451170,471,151)
{
Left=10
Top=55
Width=775
Height=320
Columns=#4:№=25|20:Військове звання=150|7:ПІБ=200|27:Серія,номер посвідчення=150|20:Дата та № наказу=150|0:|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,9248840:doRead,[])
}
Add(Button,16355538,303,151)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,11826088:doOperation,[])
}
Add(Math,11826088,352,151)
{
Op2=1
ResultType=0
link(onResult,11892657:doEvent1,[])
link(Op1,6451170:Count,[(358,132)(418,132)(418,215)(477,215)])
}
Add(Edit,6924426,93,130)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,9384139:onEvent1,[(513,143)(513,27)])
}
Add(Label,5399162,142,130)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,6261690,100,186)
{
Name="db"
link(onOpen,5124064:doEvent1,[])
link(FileName,6924426:Text,[(106,174)(99,174)])
}
Add(DSC_Exec,11620320,163,235)
{
SQL="CREATE TABLE table2 (number int, firstname char, lastname char, serial char, date char)"
DSManager="db"
}
Add(DSC_Exec,8618512,520,95)
{
DSManager="db"
}
Add(ArrayRW,9248840,603,158)
{
link(onRead,4885776:doSplit,[])
link(Array,12011409:Var3,[(609,142)(553,142)(553,216)])
}
Add(Hub,11892657,408,151)
{
link(onEvent1,6451170:doAdd,[])
link(onEvent2,2342500:doString,[(446,164)(446,101)])
}
Add(FormatStr,2342500,471,95)
{
DataCount=1
Mask="INSERT INTO table2 (number) VALUES (%1)"
link(onFString,8618512:doExec,[])
}
Add(DSC_Query,12224532,268,200)
{
SQL="SELECT * FROM table2"
DSManager="db"
link(onQuery,6451170:doMT_Add,[(386,206)(386,192)])
}
Add(DSC_Exec,3428744,695,228)
{
DSManager="db"
}
Add(FormatStr,4361700,646,228)
{
DataCount=5
Mask="UPDATE table2 SET firstname='%2', lastname='%3', serial='%4', date='%5' WHERE number=%1"
link(onFString,3428744:doExec,[])
link(Str1,4885776:Part1,[])
link(Str2,4885776:Part2,[])
link(Str3,4885776:Part3,[])
link(Str4,4885776:Part4,[])
link(Str5,4885776:Part5,[])
}
Add(MultiStrPart,4885776,646,158)
{
Char="\9"
Count=5
link(onSplit,4361700:doString,[(690,164)(690,199)(634,199)(634,234)])
}
Add(Hub,5124064,149,186)
{
link(onEvent1,12224532:doQuery,[(215,192)(215,206)])
link(onEvent2,11620320:doExec,[])
}
Add(Button,6320311,289,319)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,8987325:doEvent1,[])
}
Add(Hub,8987325,345,319)
{
link(onEvent1,12390890:doRead,[])
link(onEvent2,10031616:doData,[])
}
Add(DoData,10031616,387,326)
{
link(onEventData,6451170:doDelete,[(445,332)(445,171)])
link(Data,6296645:Var1,[(393,265)])
}
Add(DSC_Exec,12949506,653,319)
{
DSManager="db"
}
Add(FormatStr,13977232,604,319)
{
DataCount=1
Mask="DELETE FROM table2 WHERE number=%1"
link(onFString,12949506:doExec,[])
link(Str1,16530701:Part1,[(610,307)(586,307)(586,363)(561,363)])
}
Add(ArrayRW,12390890,506,319)
{
link(onRead,16530701:doSplit,[])
link(Array,12011409:Var2,[])
link(Index,6296645:Var2,[(519,294)(463,294)])
}
Add(GetDataEx,12011409,506,211)
{
Angle=3
link(Data,6451170:Strings,[(491,216)])
}
Add(GetDataEx,6296645,457,260)
{
Angle=1
link(Data,6451170:Index,[(498,265)])
}
END_SDK
Add(TabControl,8774474,175,203)
{
Left=215
Top=6
Width=735
Height=440
Tabs=#10:Інформація|8:Персонал|2:ТО|4:Шини|3:АКБ|5:Масло|18:Охолоджуюча рідина|15:Тормозна рідина|3:ЗІП|10:Моторесурс|
Bitmaps=[]
Buttons=0
HotTrack=0
Point(PageTab)
link(onChange,4412880:doEvent,[(231,220)(340,220)(556,220)(556,258)])
}
Add(ChildGroupBox,3392,847,116)
{
link(onEvent1,5968126:doEvent3,[(943,122)(943,265)])
}
BEGIN_SDK
Add(EditMulti,594006,-14,14)
{
EventCount=1
WorkCount=2
Width=783
Height=585
link(doWork1,14145463:doBringToFront,[(77,20)(77,111)])
link(doWork2,8670019:doText,[(29,27)(29,178)])
}
Add(GroupBox,14145463,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="ТО"
Point(doBringToFront)
}
Add(MultiStrPart,6596111,534,361)
{
Char="\9"
Count=1
link(onSplit,12549810:doString,[])
}
Add(Button,10578518,16,294)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,9742640:doOpen,[(64,300)(64,234)])
}
Add(Button,8792157,198,315)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,10156469:doClear,[(340,321)(340,206)])
}
Add(StringTableMT,10156469,450,193)
{
Left=10
Top=55
Width=775
Height=320
Columns=#4:№=25|19:Дата проведення=150|10:Вид ТО=150|23:Показник спідометру=150|19:Висновок про ТО=200|0:|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,7660174:doRead,[])
}
Add(Button,12281969,282,193)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,7952942:doOperation,[])
}
Add(Math,7952942,331,193)
{
Op2=1
ResultType=0
link(onResult,9388554:doEvent1,[])
link(Op1,10156469:Count,[(337,174)(397,174)(397,257)(456,257)])
}
Add(Edit,8670019,72,172)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,594006:onEvent1,[(436,185)(436,20)])
}
Add(Label,10005151,121,172)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,9742640,79,228)
{
Name="db"
link(onOpen,12589275:doEvent1,[])
link(FileName,8670019:Text,[(85,216)(78,216)])
}
Add(DSC_Exec,16276188,142,277)
{
SQL="CREATE TABLE table3 (number int, firstname char, lastname char, date char, conclusion char)"
DSManager="db"
}
Add(DSC_Exec,3063644,499,137)
{
DSManager="db"
}
Add(ArrayRW,7660174,582,200)
{
link(onRead,2536623:doSplit,[])
link(Array,355376:Var3,[(588,184)(532,184)(532,258)])
}
Add(Hub,9388554,387,193)
{
link(onEvent1,10156469:doAdd,[])
link(onEvent2,6135054:doString,[(425,206)(425,143)])
}
Add(FormatStr,6135054,450,137)
{
DataCount=1
Mask="INSERT INTO table3 (number) VALUES (%1)"
link(onFString,3063644:doExec,[])
}
Add(DSC_Query,3811334,247,242)
{
SQL="SELECT * FROM table3"
DSManager="db"
link(onQuery,10156469:doMT_Add,[(365,248)(365,234)])
}
Add(DSC_Exec,13779534,674,270)
{
DSManager="db"
}
Add(FormatStr,2197243,625,270)
{
DataCount=5
Mask="UPDATE table3 SET firstname='%2', lastname='%3', date='%4', conclusion='%5' WHERE number=%1"
link(onFString,13779534:doExec,[])
link(Str1,2536623:Part1,[])
link(Str2,2536623:Part2,[])
link(Str3,2536623:Part3,[])
link(Str4,2536623:Part4,[])
link(Str5,2536623:Part5,[])
}
Add(MultiStrPart,2536623,625,200)
{
Char="\9"
Count=5
link(onSplit,2197243:doString,[(669,206)(669,241)(613,241)(613,276)])
}
Add(Hub,12589275,128,228)
{
link(onEvent1,3811334:doQuery,[(194,234)(194,248)])
link(onEvent2,16276188:doExec,[])
}
Add(Button,2956267,268,361)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,6767165:doEvent1,[])
}
Add(Hub,6767165,324,361)
{
link(onEvent1,12972110:doRead,[])
link(onEvent2,361708:doData,[])
}
Add(DoData,361708,366,368)
{
link(onEventData,10156469:doDelete,[(415,374)(415,211)(444,211)])
link(Data,7895740:Var1,[(372,307)])
}
Add(DSC_Exec,12366266,632,361)
{
DSManager="db"
}
Add(FormatStr,12549810,583,361)
{
DataCount=1
Mask="DELETE FROM table3 WHERE number=%1"
link(onFString,12366266:doExec,[])
link(Str1,6596111:Part1,[(589,349)(565,349)(565,405)(540,405)])
}
Add(ArrayRW,12972110,485,361)
{
link(onRead,6596111:doSplit,[])
link(Array,355376:Var2,[])
link(Index,7895740:Var2,[(498,336)(442,336)])
}
Add(GetDataEx,355376,485,253)
{
Angle=3
link(Data,10156469:Strings,[(470,258)])
}
Add(GetDataEx,7895740,436,302)
{
Angle=1
link(Data,10156469:Index,[(477,307)])
}
END_SDK
Add(ChildGroupBox,13958430,845,158)
{
link(onEvent1,5968126:doEvent4,[(943,164)(943,272)])
}
BEGIN_SDK
Add(EditMulti,11052900,21,21)
{
EventCount=1
WorkCount=2
Width=769
Height=571
link(doWork1,7766036:doBringToFront,[(28,27)(28,111)])
link(doWork2,2042301:doText,[(64,34)(64,136)])
}
Add(GroupBox,7766036,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="Шини"
Point(doBringToFront)
}
Add(MultiStrPart,164653,569,319)
{
Char="\9"
Count=1
link(onSplit,16206179:doString,[])
}
Add(Button,10697705,51,252)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,11438517:doOpen,[(99,258)(99,192)])
}
Add(Button,765990,233,273)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,12222526:doClear,[(375,279)(375,164)])
}
Add(StringTableMT,12222526,485,151)
{
Left=10
Top=55
Width=775
Height=320
Columns=#4:№=25|20:Заводсткий номер=150|10:Розмір=100|18:Завод-виробник=150|21:Дата виготовлення=150|31:Дата встановлення та пробіг=250|25:Дата зняття та пробіг=250|18:Причина зняття=200|0:|0:|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,2912116:doRead,[])
}
Add(Button,1627946,317,151)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,11123210:doOperation,[])
}
Add(Math,11123210,366,151)
{
Op2=1
ResultType=0
link(onResult,1709848:doEvent1,[])
link(Op1,12222526:Count,[(372,132)(432,132)(432,215)(491,215)])
}
Add(Edit,2042301,107,130)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,11052900:onEvent1,[(465,143)(465,27)])
}
Add(Label,14593757,156,130)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,11438517,114,186)
{
Name="db"
link(onOpen,69171:doEvent1,[])
link(FileName,2042301:Text,[(120,174)(113,174)])
}
Add(DSC_Exec,5760494,177,235)
{
SQL="CREATE TABLE table4 (number int, firstname char, lastname char, factory char, date char, install char, remove char, cause char)"
DSManager="db"
}
Add(DSC_Exec,2306334,534,95)
{
DSManager="db"
}
Add(ArrayRW,2912116,617,158)
{
link(onRead,4873003:doSplit,[])
link(Array,8100482:Var3,[(623,142)(567,142)(567,216)])
}
Add(Hub,1709848,422,151)
{
link(onEvent1,12222526:doAdd,[])
link(onEvent2,13982991:doString,[(460,164)(460,101)])
}
Add(FormatStr,13982991,485,95)
{
DataCount=1
Mask="INSERT INTO table4 (number) VALUES (%1)"
link(onFString,2306334:doExec,[])
}
Add(DSC_Query,15845815,282,200)
{
SQL="SELECT * FROM table4"
DSManager="db"
link(onQuery,12222526:doMT_Add,[(400,206)(400,192)])
}
Add(DSC_Exec,623392,744,228)
{
DSManager="db"
}
Add(FormatStr,13284577,660,228)
{
DataCount=8
Mask="UPDATE table4 SET firstname='%2', lastname='%3', factory='%4', date='%5', install='%6', remove='%7', cause='%8' WHERE number=%1"
link(onFString,623392:doExec,[])
link(Str1,4873003:Part1,[])
link(Str2,4873003:Part2,[])
link(Str3,4873003:Part3,[])
link(Str4,4873003:Part4,[])
link(Str5,4873003:Part5,[])
link(Str6,4873003:Part6,[])
link(Str7,4873003:Part7,[])
link(Str8,4873003:Part8,[])
}
Add(MultiStrPart,4873003,660,158)
{
Char="\9"
Count=8
link(onSplit,13284577:doString,[(704,164)(704,199)(648,199)(648,234)])
}
Add(Hub,69171,163,186)
{
link(onEvent1,15845815:doQuery,[(229,192)(229,206)])
link(onEvent2,5760494:doExec,[])
}
Add(Button,15015739,303,319)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,5234139:doEvent1,[])
}
Add(Hub,5234139,359,319)
{
link(onEvent1,8789522:doRead,[])
link(onEvent2,3503678:doData,[])
}
Add(DoData,3503678,401,326)
{
link(onEventData,12222526:doDelete,[(459,332)(459,171)])
link(Data,1425860:Var1,[(407,265)])
}
Add(DSC_Exec,16768126,667,319)
{
DSManager="db"
}
Add(FormatStr,16206179,618,319)
{
DataCount=1
Mask="DELETE FROM table4 WHERE number=%1"
link(onFString,16768126:doExec,[])
link(Str1,164653:Part1,[(624,307)(600,307)(600,363)(575,363)])
}
Add(ArrayRW,8789522,520,319)
{
link(onRead,164653:doSplit,[])
link(Array,8100482:Var2,[])
link(Index,1425860:Var2,[(533,294)(477,294)])
}
Add(GetDataEx,8100482,520,211)
{
Angle=3
link(Data,12222526:Strings,[(505,216)])
}
Add(GetDataEx,1425860,471,260)
{
Angle=1
link(Data,12222526:Index,[(512,265)])
}
END_SDK
Add(ChildGroupBox,12437118,846,207)
{
link(onEvent1,5968126:doEvent5,[(943,213)(943,279)])
}
BEGIN_SDK
Add(EditMulti,2678438,21,21)
{
EventCount=1
WorkCount=2
Width=797
Height=599
link(doWork1,11109616:doBringToFront,[(28,27)(28,111)])
link(doWork2,12530325:doText,[(57,34)(57,136)])
}
Add(GroupBox,11109616,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="АКБ"
Point(doBringToFront)
}
Add(MultiStrPart,16078728,555,319)
{
Char="\9"
Count=1
link(onSplit,7767836:doString,[])
}
Add(Button,11203241,37,252)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,1541997:doOpen,[(85,258)(85,192)])
}
Add(Button,4458194,219,273)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,1489459:doClear,[(361,279)(361,164)])
}
Add(StringTableMT,1489459,471,151)
{
Left=10
Top=55
Width=775
Height=320
Columns=#4:№=25|13:№ батареї=100|17:Марка батареї=150|18:Завод-виробник=150|21:Дата виготовлення=150|29:Приведення у робочий стан=200|16:Встановлення=150|12:Дата КТЦ=150|26:Дата та причина зняття=250|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,5757406:doRead,[])
}
Add(Button,8590332,303,151)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,2138464:doOperation,[])
}
Add(Math,2138464,352,151)
{
Op2=1
ResultType=0
link(onResult,3796150:doEvent1,[])
link(Op1,1489459:Count,[(358,132)(418,132)(418,215)(477,215)])
}
Add(Edit,12530325,93,130)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,2678438:onEvent1,[(471,143)(471,27)])
}
Add(Label,598003,142,130)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,1541997,100,186)
{
Name="db"
link(onOpen,4580828:doEvent1,[])
link(FileName,12530325:Text,[(106,174)(99,174)])
}
Add(DSC_Exec,15987716,163,235)
{
SQL="CREATE TABLE table5 (number int, firstname char, lastname char, factory char, date char, state char, installation char, training char, cause char)"
DSManager="db"
}
Add(DSC_Exec,16705274,520,95)
{
DSManager="db"
}
Add(ArrayRW,5757406,603,158)
{
link(onRead,11663236:doSplit,[])
link(Array,12674698:Var3,[(609,142)(553,142)(553,216)])
}
Add(Hub,3796150,408,151)
{
link(onEvent1,1489459:doAdd,[])
link(onEvent2,164066:doString,[(446,164)(446,101)])
}
Add(FormatStr,164066,471,95)
{
DataCount=1
Mask="INSERT INTO table5 (number) VALUES (%1)"
link(onFString,16705274:doExec,[])
}
Add(DSC_Query,3556222,268,200)
{
SQL="SELECT * FROM table5"
DSManager="db"
link(onQuery,1489459:doMT_Add,[(386,206)(386,192)])
}
Add(DSC_Exec,1996129,772,228)
{
DSManager="db"
}
Add(FormatStr,12564212,646,228)
{
DataCount=9
Mask="UPDATE table5 SET firstname='%2', lastname='%3',factory='%4', date='%5', state='%6' , installation='%7', training='%8', cause='%9' WHERE number=%1"
link(onFString,1996129:doExec,[])
link(Str1,11663236:Part1,[])
link(Str2,11663236:Part2,[])
link(Str3,11663236:Part3,[])
link(Str4,11663236:Part4,[])
link(Str5,11663236:Part5,[])
link(Str6,11663236:Part6,[])
link(Str7,11663236:Part7,[])
link(Str8,11663236:Part8,[])
link(Str9,11663236:Part9,[])
}
Add(MultiStrPart,11663236,646,158)
{
Char="\9"
Count=9
link(onSplit,12564212:doString,[(690,164)(690,199)(634,199)(634,234)])
}
Add(Hub,4580828,149,186)
{
link(onEvent1,3556222:doQuery,[(215,192)(215,206)])
link(onEvent2,15987716:doExec,[])
}
Add(Button,16054055,289,319)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,6925697:doEvent1,[])
}
Add(Hub,6925697,345,319)
{
link(onEvent1,3491835:doRead,[])
link(onEvent2,7449784:doData,[])
}
Add(DoData,7449784,387,326)
{
link(onEventData,1489459:doDelete,[(445,332)(445,171)])
link(Data,12358231:Var1,[(393,265)])
}
Add(DSC_Exec,7579152,653,319)
{
DSManager="db"
}
Add(FormatStr,7767836,604,319)
{
DataCount=1
Mask="DELETE FROM table5 WHERE number=%1"
link(onFString,7579152:doExec,[])
link(Str1,16078728:Part1,[(610,307)(586,307)(586,363)(561,363)])
}
Add(ArrayRW,3491835,506,319)
{
link(onRead,16078728:doSplit,[])
link(Array,12674698:Var2,[])
link(Index,12358231:Var2,[(519,294)(463,294)])
}
Add(GetDataEx,12674698,506,211)
{
Angle=3
link(Data,1489459:Strings,[(491,216)])
}
Add(GetDataEx,12358231,457,260)
{
Angle=1
link(Data,1489459:Index,[(498,265)])
}
END_SDK
Add(ChildGroupBox,12602276,846,256)
{
link(onEvent1,5968126:doEvent6,[(943,262)(943,286)])
}
BEGIN_SDK
Add(EditMulti,3944223,0,14)
{
EventCount=1
WorkCount=2
Width=839
Height=585
link(doWork1,3695041:doBringToFront,[(7,20)])
link(doWork2,13614708:doText,[(43,27)(43,164)])
}
Add(GroupBox,3695041,7,112)
{
Left=220
Top=35
Width=775
Height=450
Caption="Масло"
Point(doBringToFront)
}
Add(MultiStrPart,13327469,548,347)
{
Char="\9"
Count=1
link(onSplit,11016733:doString,[])
}
Add(Button,12470845,30,280)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,4409359:doOpen,[(78,286)(78,220)])
}
Add(Button,9005124,212,301)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,12397356:doClear,[(354,307)(354,192)])
}
Add(StringTableMT,12397356,464,179)
{
Left=10
Top=55
Width=775
Height=320
Columns=#4:№=25|21:Дата заміни масла=200|13:Тип масла=150|24:Причина заміни масла=250|23:Дата заміни фільтру=200|26:Причина заміни фільтру=250|0:|0:|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,2213808:doRead,[])
}
Add(Button,2222468,296,179)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,5021796:doOperation,[])
}
Add(Math,5021796,345,179)
{
Op2=1
ResultType=0
link(onResult,11461881:doEvent1,[])
link(Op1,12397356:Count,[(351,160)(411,160)(411,243)(470,243)])
}
Add(Edit,13614708,86,158)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,3944223:onEvent1,[(478,171)(478,20)])
}
Add(Label,7069515,135,158)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,4409359,93,214)
{
Name="db"
link(onOpen,9846779:doEvent1,[])
link(FileName,13614708:Text,[(99,202)(92,202)])
}
Add(DSC_Exec,6978250,156,263)
{
SQL="CREATE TABLE table6 (number int, firstname char, lastname char, cause char, date char, filter char)"
DSManager="db"
}
Add(DSC_Exec,1493733,513,123)
{
DSManager="db"
}
Add(ArrayRW,2213808,596,186)
{
link(onRead,2571016:doSplit,[])
link(Array,4410071:Var3,[(602,170)(546,170)(546,244)])
}
Add(Hub,11461881,401,179)
{
link(onEvent1,12397356:doAdd,[])
link(onEvent2,2009613:doString,[(439,192)(439,129)])
}
Add(FormatStr,2009613,464,123)
{
DataCount=1
Mask="INSERT INTO table6 (number) VALUES (%1)"
link(onFString,1493733:doExec,[])
}
Add(DSC_Query,15798435,261,228)
{
SQL="SELECT * FROM table6"
DSManager="db"
link(onQuery,12397356:doMT_Add,[(379,234)(379,220)])
}
Add(DSC_Exec,11379607,772,256)
{
DSManager="db"
}
Add(FormatStr,15297647,639,256)
{
DataCount=6
Mask="UPDATE table6 SET firstname='%2', lastname='%3', cause='%4', date='%5', filter='%6' WHERE number=%1"
link(onFString,11379607:doExec,[])
link(Str1,2571016:Part1,[])
link(Str2,2571016:Part2,[])
link(Str3,2571016:Part3,[])
link(Str4,2571016:Part4,[])
link(Str5,2571016:Part5,[])
link(Str6,2571016:Part6,[])
}
Add(MultiStrPart,2571016,639,186)
{
Char="\9"
Count=6
link(onSplit,15297647:doString,[(683,192)(683,227)(627,227)(627,262)])
}
Add(Hub,9846779,142,214)
{
link(onEvent1,15798435:doQuery,[(208,220)(208,234)])
link(onEvent2,6978250:doExec,[])
}
Add(Button,7148669,282,347)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,15398364:doEvent1,[])
}
Add(Hub,15398364,338,347)
{
link(onEvent1,14184427:doRead,[])
link(onEvent2,13652696:doData,[])
}
Add(DoData,13652696,380,354)
{
link(onEventData,12397356:doDelete,[(438,360)(438,199)])
link(Data,8455910:Var1,[(386,293)])
}
Add(DSC_Exec,8749688,646,347)
{
DSManager="db"
}
Add(FormatStr,11016733,597,347)
{
DataCount=1
Mask="DELETE FROM table6 WHERE number=%1"
link(onFString,8749688:doExec,[])
link(Str1,13327469:Part1,[(603,335)(579,335)(579,391)(554,391)])
}
Add(ArrayRW,14184427,499,347)
{
link(onRead,13327469:doSplit,[])
link(Array,4410071:Var2,[])
link(Index,8455910:Var2,[(512,322)(456,322)])
}
Add(GetDataEx,4410071,499,239)
{
Angle=3
link(Data,12397356:Strings,[(484,244)])
}
Add(GetDataEx,8455910,450,288)
{
Angle=1
link(Data,12397356:Index,[(491,293)])
}
END_SDK
Add(ChildGroupBox,7725053,846,305)
{
link(onEvent1,5968126:doEvent7,[(943,311)(943,293)])
}
BEGIN_SDK
Add(EditMulti,3276299,21,21)
{
EventCount=1
WorkCount=2
Width=797
Height=585
link(doWork1,2250338:doBringToFront,[(28,27)(28,111)])
link(doWork2,12758551:doText,[(81,34)(81,178)])
}
Add(GroupBox,2250338,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="Охолоджуюча рідина"
Point(doBringToFront)
}
Add(MultiStrPart,11193971,604,361)
{
Char="\9"
Count=1
link(onSplit,7187556:doString,[])
}
Add(Button,7621771,86,294)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,3823219:doOpen,[(134,300)(134,234)])
}
Add(Button,6950051,268,315)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,7261521:doClear,[(410,321)(410,206)])
}
Add(StringTableMT,7261521,520,193)
{
Left=10
Top=55
Width=775
Height=320
Columns=#4:№=25|22:Дата заміни рідини=150|14:Тип рідини=200|18:Причина заміни=200|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,9813648:doRead,[])
}
Add(Button,5857724,352,193)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,15887589:doOperation,[])
}
Add(Math,15887589,401,193)
{
Op2=1
ResultType=0
link(onResult,3341652:doEvent1,[])
link(Op1,7261521:Count,[(407,174)(467,174)(467,257)(526,257)])
}
Add(Edit,12758551,142,172)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,3276299:onEvent1,[(496,185)(496,27)])
}
Add(Label,15381254,191,172)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,3823219,149,228)
{
Name="db"
link(onOpen,6688445:doEvent1,[])
link(FileName,12758551:Text,[(155,216)(148,216)])
}
Add(DSC_Exec,1789287,212,277)
{
SQL="CREATE TABLE table7 (number int, firstname char, lastname char, cause char)"
DSManager="db"
}
Add(DSC_Exec,12537168,569,137)
{
DSManager="db"
}
Add(ArrayRW,9813648,652,200)
{
link(onRead,1315024:doSplit,[])
link(Array,16245542:Var3,[(658,184)(602,184)(602,258)])
}
Add(Hub,3341652,457,193)
{
link(onEvent1,7261521:doAdd,[])
link(onEvent2,15364540:doString,[(495,206)(495,143)])
}
Add(FormatStr,15364540,520,137)
{
DataCount=1
Mask="INSERT INTO table7 (number) VALUES (%1)"
link(onFString,12537168:doExec,[])
}
Add(DSC_Query,9317544,317,242)
{
SQL="SELECT * FROM table7"
DSManager="db"
link(onQuery,7261521:doMT_Add,[(435,248)(435,234)])
}
Add(DSC_Exec,7252923,744,270)
{
DSManager="db"
}
Add(FormatStr,7483739,695,270)
{
DataCount=4
Mask="UPDATE table7 SET firstname='%2', lastname='%3', cause='%4' WHERE number=%1"
link(onFString,7252923:doExec,[])
link(Str1,1315024:Part1,[])
link(Str2,1315024:Part2,[])
link(Str3,1315024:Part3,[])
link(Str4,1315024:Part4,[])
}
Add(MultiStrPart,1315024,695,200)
{
Char="\9"
Count=4
link(onSplit,7483739:doString,[(739,206)(739,241)(683,241)(683,276)])
}
Add(Hub,6688445,198,228)
{
link(onEvent1,9317544:doQuery,[(264,234)(264,248)])
link(onEvent2,1789287:doExec,[])
}
Add(Button,12564371,338,361)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,4543428:doEvent1,[])
}
Add(Hub,4543428,394,361)
{
link(onEvent1,13862924:doRead,[])
link(onEvent2,1966287:doData,[])
}
Add(DoData,1966287,436,368)
{
link(onEventData,7261521:doDelete,[(494,374)(494,213)])
link(Data,12472011:Var1,[(442,307)])
}
Add(DSC_Exec,11719274,702,361)
{
DSManager="db"
}
Add(FormatStr,7187556,653,361)
{
DataCount=1
Mask="DELETE FROM table7 WHERE number=%1"
link(onFString,11719274:doExec,[])
link(Str1,11193971:Part1,[(659,349)(635,349)(635,405)(610,405)])
}
Add(ArrayRW,13862924,555,361)
{
link(onRead,11193971:doSplit,[])
link(Array,16245542:Var2,[])
link(Index,12472011:Var2,[(568,336)(512,336)])
}
Add(GetDataEx,16245542,555,253)
{
Angle=3
link(Data,7261521:Strings,[(540,258)])
}
Add(GetDataEx,12472011,506,302)
{
Angle=1
link(Data,7261521:Index,[(547,307)])
}
END_SDK
Add(ChildGroupBox,6441274,846,347)
{
link(onEvent1,5968126:doEvent8,[(944,353)(944,300)])
}
BEGIN_SDK
Add(EditMulti,14658651,21,21)
{
EventCount=1
WorkCount=2
Width=797
Height=585
link(doWork1,9482439:doBringToFront,[(28,27)(28,111)])
link(doWork2,9880777:doText,[(57,34)(57,192)])
}
Add(GroupBox,9482439,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="Тормозна рідина"
Point(doBringToFront)
}
Add(MultiStrPart,11808187,555,375)
{
Char="\9"
Count=1
link(onSplit,14921085:doString,[])
}
Add(Button,16461806,37,308)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,11676265:doOpen,[(85,314)(85,248)])
}
Add(Button,4100224,219,329)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,11628349:doClear,[(361,335)(361,220)])
}
Add(StringTableMT,11628349,471,207)
{
Left=10
Top=55
Width=775
Height=320
Columns=#4:№=25|22:Дата заміни рідини=150|14:Тип рідини=150|25:Причини заміни рідини=200|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,14554881:doRead,[])
}
Add(Button,10175587,303,207)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,13477734:doOperation,[])
}
Add(Math,13477734,352,207)
{
Op2=1
ResultType=0
link(onResult,14374679:doEvent1,[])
link(Op1,11628349:Count,[(358,188)(418,188)(418,271)(477,271)])
}
Add(Edit,9880777,93,186)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,14658651:onEvent1,[(471,199)(471,27)])
}
Add(Label,626523,142,186)
{
Left=10
Top=14
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,11676265,100,242)
{
Name="db"
link(onOpen,5852984:doEvent1,[])
link(FileName,9880777:Text,[(106,230)(99,230)])
}
Add(DSC_Exec,6635697,163,291)
{
SQL="CREATE TABLE table8 (number int, firstname char, lastname char,cause char)"
DSManager="db"
}
Add(DSC_Exec,13306669,520,151)
{
DSManager="db"
}
Add(ArrayRW,14554881,603,214)
{
link(onRead,1415404:doSplit,[])
link(Array,9121665:Var3,[(609,198)(553,198)(553,272)])
}
Add(Hub,14374679,408,207)
{
link(onEvent1,11628349:doAdd,[])
link(onEvent2,1146953:doString,[(446,220)(446,157)])
}
Add(FormatStr,1146953,471,151)
{
DataCount=1
Mask="INSERT INTO table8 (number) VALUES (%1)"
link(onFString,13306669:doExec,[])
}
Add(DSC_Query,10021401,268,256)
{
SQL="SELECT * FROM table8"
DSManager="db"
link(onQuery,11628349:doMT_Add,[(386,262)(386,248)])
}
Add(DSC_Exec,9590347,695,284)
{
DSManager="db"
}
Add(FormatStr,3525371,646,284)
{
DataCount=4
Mask="UPDATE table8 SET firstname='%2', lastname='%3', cause='%4' WHERE number=%1"
link(onFString,9590347:doExec,[])
link(Str1,1415404:Part1,[])
link(Str2,1415404:Part2,[])
link(Str3,1415404:Part3,[])
link(Str4,1415404:Part4,[])
}
Add(MultiStrPart,1415404,646,214)
{
Char="\9"
Count=4
link(onSplit,3525371:doString,[(690,220)(690,255)(634,255)(634,290)])
}
Add(Hub,5852984,149,242)
{
link(onEvent1,10021401:doQuery,[(215,248)(215,262)])
link(onEvent2,6635697:doExec,[])
}
Add(Button,13607318,289,375)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,7314400:doEvent1,[])
}
Add(Hub,7314400,345,375)
{
link(onEvent1,901330:doRead,[])
link(onEvent2,7677846:doData,[])
}
Add(DoData,7677846,387,382)
{
link(onEventData,11628349:doDelete,[(445,388)(445,227)])
link(Data,11513600:Var1,[(393,321)])
}
Add(DSC_Exec,15743862,653,375)
{
DSManager="db"
}
Add(FormatStr,14921085,604,375)
{
DataCount=1
Mask="DELETE FROM table8 WHERE number=%1"
link(onFString,15743862:doExec,[])
link(Str1,11808187:Part1,[(610,363)(586,363)(586,419)(561,419)])
}
Add(ArrayRW,901330,506,375)
{
link(onRead,11808187:doSplit,[])
link(Array,9121665:Var2,[])
link(Index,11513600:Var2,[(519,350)(463,350)])
}
Add(GetDataEx,9121665,506,267)
{
Angle=3
link(Data,11628349:Strings,[(491,272)])
}
Add(GetDataEx,11513600,457,316)
{
Angle=1
link(Data,11628349:Index,[(498,321)])
}
END_SDK
Add(DatePicker,6955404,0,21)
{
Left=880
Top=5
Width=115
Height=21
}
Add(ChanelToIndex,983114,126,210)
{
link(onIndex,8774474:PageTab,[])
}
Add(Hub,16008142,91,203)
{
link(onEvent1,983114:doWork2,[(112,209)(112,223)])
link(onEvent2,983114:doWork1,[])
}
Add(ChildGroupBox,2049293,846,398)
{
link(onEvent1,5968126:doEvent9,[(944,404)(944,307)])
}
BEGIN_SDK
Add(EditMulti,10278234,21,21)
{
EventCount=1
WorkCount=2
Width=832
Height=536
link(doWork1,5492797:doBringToFront,[(28,27)(30,34)(28,111)])
link(doWork2,8211285:doText,[(73,34)(73,115)])
}
Add(GroupBox,5492797,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="ЗІП"
Point(doBringToFront)
}
Add(Button,12661638,252,252)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,15469714:doClear,[(394,258)(394,143)(497,144)])
}
Add(StringTableMT,15469714,504,130)
{
Left=10
Top=55
Width=760
Height=320
Columns=#4:№=25|16:Найменування=150|12:Кількість=75|13:Наявність=150|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,4396345:doRead,[])
}
Add(Button,12082724,336,130)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,10464164:doOperation,[])
}
Add(Math,10464164,385,130)
{
Op2=1
ResultType=0
link(onResult,14385736:doEvent1,[])
link(Op1,15469714:Count,[(391,111)(451,111)(451,194)(510,194)])
}
Add(Edit,8211285,126,109)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,10278234:onEvent1,[(506,122)(506,27)])
}
Add(Label,12175055,175,109)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,8917315,133,165)
{
Name="db"
link(onOpen,8537194:doEvent1,[])
link(FileName,8211285:Text,[(139,153)(132,153)])
}
Add(DSC_Exec,6109932,196,214)
{
SQL="CREATE TABLE table9 (number int, firstname char, lastname char, availability char)"
DSManager="db"
}
Add(DSC_Exec,3352109,553,74)
{
DSManager="db"
}
Add(ArrayRW,4396345,636,137)
{
link(onRead,7276389:doSplit,[])
link(Array,13512207:Var3,[(642,121)(586,121)(586,195)])
}
Add(Hub,14385736,441,130)
{
link(onEvent1,15469714:doAdd,[])
link(onEvent2,13810872:doString,[(479,143)(479,80)])
}
Add(FormatStr,13810872,504,74)
{
DataCount=1
Mask="INSERT INTO table9 (number) VALUES (%1)"
link(onFString,3352109:doExec,[])
}
Add(DSC_Query,11464347,301,179)
{
SQL="SELECT * FROM table9"
DSManager="db"
link(onQuery,15469714:doMT_Add,[(419,185)(419,171)])
}
Add(DSC_Exec,13958286,728,207)
{
DSManager="db"
}
Add(FormatStr,8698081,679,207)
{
DataCount=4
Mask="UPDATE table9 SET firstname='%2', lastname='%3', availability='%4' WHERE number=%1"
link(onFString,13958286:doExec,[])
link(Str1,7276389:Part1,[])
link(Str2,7276389:Part2,[(692,177)])
link(Str3,7276389:Part3,[])
link(Str4,7276389:Part4,[])
}
Add(MultiStrPart,7276389,679,137)
{
Char="\9"
Count=4
link(onSplit,8698081:doString,[(723,143)(723,178)(667,178)(667,213)])
}
Add(Hub,8537194,182,165)
{
link(onEvent1,11464347:doQuery,[(248,171)(248,185)])
link(onEvent2,6109932:doExec,[])
}
Add(Button,838602,322,298)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,3158010:doEvent1,[])
}
Add(Hub,3158010,378,298)
{
link(onEvent1,12698045:doRead,[])
link(onEvent2,5386638:doData,[])
}
Add(DoData,5386638,420,305)
{
link(onEventData,15469714:doDelete,[(478,311)(478,150)])
link(Data,6121884:Var1,[(426,244)])
}
Add(DSC_Exec,14026919,686,298)
{
DSManager="db"
}
Add(FormatStr,2168871,637,298)
{
DataCount=1
Mask="DELETE FROM table9 WHERE number=%1"
link(onFString,14026919:doExec,[])
link(Str1,13695267:Part1,[(643,286)(619,286)(619,342)(594,342)])
}
Add(ArrayRW,12698045,539,298)
{
link(onRead,13695267:doSplit,[])
link(Array,13512207:Var2,[])
link(Index,6121884:Var2,[(552,273)(496,273)])
}
Add(GetDataEx,13512207,539,190)
{
Angle=3
link(Data,15469714:Strings,[(524,195)])
}
Add(GetDataEx,6121884,490,239)
{
Angle=1
link(Data,15469714:Index,[(531,244)])
}
Add(MultiStrPart,13695267,588,298)
{
Char="\9"
Count=1
link(onSplit,2168871:doString,[])
}
Add(Button,15782808,70,231)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,8917315:doOpen,[(118,237)(118,171)])
}
END_SDK
Add(DoData,1090255,763,32)
{
link(onEventData,13869979:doWork1,[])
}
Add(DoData,12636495,763,74)
{
link(onEventData,16594303:doWork1,[])
}
Add(DoData,2973519,763,116)
{
link(onEventData,3392:doWork1,[])
}
Add(DoData,11432164,761,158)
{
link(onEventData,13958430:doWork1,[])
}
Add(DoData,12030643,762,207)
{
link(onEventData,12437118:doWork1,[])
}
Add(DoData,11648305,762,256)
{
link(onEventData,12602276:doWork1,[])
}
Add(DoData,15919337,762,305)
{
link(onEventData,7725053:doWork1,[])
}
Add(DoData,3114967,762,347)
{
link(onEventData,6441274:doWork1,[])
}
Add(DoData,772131,762,398)
{
link(onEventData,2049293:doWork1,[])
}
Add(IndexToChanel,4412880,672,252)
{
Count=11
link(onEvent1,1090255:doData,[(744,258)(744,38)])
link(onEvent2,12636495:doData,[(744,265)(744,80)])
link(onEvent3,2973519:doData,[(744,272)(744,122)])
link(onEvent4,11432164:doData,[(744,279)(744,164)])
link(onEvent5,12030643:doData,[(744,286)(744,213)])
link(onEvent6,11648305:doData,[(744,293)(744,262)])
link(onEvent7,15919337:doData,[(744,300)(744,311)])
link(onEvent8,3114967:doData,[(744,307)(744,353)])
link(onEvent9,772131:doData,[(744,314)(744,404)])
link(onEvent10,14087333:doData,[(744,321)(744,451)])
}
Add(MainForm,5210529,328,105)
{
Width=1044
Height=606
Point(onClose)
link(onCreate,4133222:In,[])
}
Add(Hub,5968126,1008,245)
{
InCount=10
link(onEvent1,2811278:In,[])
}
Add(Hub,5246273,504,252)
{
OutCount=10
link(onEvent1,13869979:doWork2,[(556,258)(556,45)])
link(onEvent2,16594303:doWork2,[(556,265)(556,87)])
link(onEvent3,3392:doWork2,[(556,272)(556,129)])
link(onEvent4,13958430:doWork2,[(556,279)(556,171)])
link(onEvent5,12437118:doWork2,[(556,286)(556,220)])
link(onEvent6,12602276:doWork2,[(556,293)(556,269)])
link(onEvent7,7725053:doWork2,[(556,300)(556,318)])
link(onEvent8,6441274:doWork2,[(556,307)(556,360)])
link(onEvent9,2049293:doWork2,[(556,314)(556,411)])
link(onEvent10,11784741:doWork2,[(556,321)(556,458)])
}
Add(ListBox,5671226,406,245)
{
Left=5
Top=30
Width=200
Height=665
DataType=1
Point(Index)
Point(onDblClick)
link(onClick,5246273:doEvent1,[])
}
Add(DoData,736780,427,350)
{
link(onEventData,5671226:doDelete,[(467,356)(467,317)(366,317)(366,265)])
link(Data,5671226:Index,[])
}
Add(Button,16015661,343,350)
{
Left=150
Top=5
Width=60
Caption="Удалить"
link(onClick,736780:doData,[])
}
Add(ODialog,4673223,126,56)
{
Filter="Текст|*.txt"
link(onExecute,14485583:doEvent1,[])
}
Add(SDialog,6419896,126,105)
{
Filter="Текст|*.txt"
link(onExecute,12522412:doEvent1,[])
}
Add(Menu,7920668,0,77)
{
Menu=#4:Файл|1:(|5:Новий|8:Відкрити|8:Зберегти|11:Зберегти як|1:-|5:Вихід|1:)|8:Допомога|12:Про програму|
Point(onSelectNum)
link(onSelectNum,3934991:doEvent,[])
}
Add(IndexToChanel,3934991,49,84)
{
Count=11
link(onEvent3,4673223:doExecute,[(117,104)(117,62)])
link(onEvent4,5625880:doWork2,[])
link(onEvent5,5625880:doWork3,[(117,118)])
link(onEvent10,5210529:doClose,[(201,153)(201,132)])
link(onEvent11,10924091:doMessage,[])
}
Add(Hub,14485583,182,56)
{
link(onEvent1,13865704:doWork2,[])
link(onEvent2,12700761:In,[])
}
Add(Memory,12805926,329,56)
{
}
Add(Message,10924091,126,154)
{
Message="Привет "
}
Add(HubEx,5625880,113,105)
{
link(onEvent,6419896:doExecute,[])
}
Add(Hub,12522412,182,105)
{
link(onEvent1,13865704:doWork3,[(300,111)])
link(onEvent2,13036038:In,[])
}
Add(HubEx,13865704,296,56)
{
link(onEvent,12805926:doValue,[])
}
Add(ChildGroupBox,11784741,849,445)
{
link(onEvent1,5968126:doEvent10,[(944,451)(944,314)])
}
BEGIN_SDK
Add(EditMulti,13082838,21,21)
{
EventCount=1
WorkCount=2
Width=832
Height=536
link(doWork1,12209291:doBringToFront,[(28,27)(30,34)(28,111)])
link(doWork2,7743094:doText,[(73,34)(73,115)])
}
Add(GroupBox,12209291,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="Моторесурс"
Point(doBringToFront)
}
Add(Button,9425159,252,252)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,7735608:doClear,[(394,258)(394,143)(497,144)])
}
Add(StringTableMT,7735608,504,130)
{
Left=10
Top=55
Width=760
Height=320
Columns=#6:Рік=50|10:Січень=100|9:Лютий=100|12:Березень=100|11:Квітень=100|11:Травень=100|11:Червень=100|10:Липень=100|11:Серпень=100|12:Вересень=100|11:Жовтень=100|12:Листопад=100|11:Грудень=100|10:Річний=150|25:З початку експлатації=250|23:Після останнього КР=250|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,1283587:doRead,[])
}
Add(Button,2317060,336,130)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,5922852:doOperation,[])
}
Add(Math,5922852,385,130)
{
Op2=1
ResultType=0
link(onResult,14753751:doEvent1,[])
link(Op1,7735608:Count,[(391,111)(451,111)(451,194)(510,194)])
}
Add(Edit,7743094,126,109)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onEnter,13082838:onEvent1,[(506,122)(506,27)])
}
Add(Label,14235026,182,109)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,10583734,133,165)
{
Name="db"
link(onOpen,1870618:doEvent1,[])
link(FileName,7743094:Text,[(139,153)(132,153)])
}
Add(DSC_Exec,2633806,196,214)
{
SQL="CREATE TABLE table10 (number int, firstname char, lastname char, Jan char, feb char, march char , april char, may char, june char, jule char, august char, sept char, october char, november char, december char, year char, start char, end char)"
DSManager="db"
}
Add(DSC_Exec,16616374,553,74)
{
DSManager="db"
}
Add(ArrayRW,1283587,636,137)
{
link(onRead,8118530:doSplit,[])
link(Array,16774790:Var3,[(642,121)(586,121)(586,195)])
}
Add(Hub,14753751,441,130)
{
link(onEvent1,7735608:doAdd,[])
link(onEvent2,14995619:doString,[(479,143)(479,80)])
}
Add(FormatStr,14995619,504,74)
{
DataCount=1
Mask="INSERT INTO table10 (number) VALUES (%1)"
link(onFString,16616374:doExec,[])
}
Add(DSC_Query,15192787,301,179)
{
SQL="SELECT * FROM table10"
DSManager="db"
link(onQuery,7735608:doMT_Add,[(419,185)(419,171)])
}
Add(DSC_Exec,10253509,749,270)
{
DSManager="db"
}
Add(FormatStr,6136212,679,207)
{
DataCount=17
Mask="UPDATE table10 SET firstname='%2', lastname='%3', feb = '%4', march = '%5' , april = '%6', may = '%7', june = '%8', jule = '%9', august = '%10', sept = '%11' , october = '%12' , november = '%13', december = '%14', year= '%15' , start= '%16', end= '%17' WHERE number=%1"
link(onFString,10253509:doExec,[(764,213)(764,245)(737,245)(737,276)])
link(Str1,8118530:Part1,[])
link(Str2,8118530:Part2,[])
link(Str3,8118530:Part3,[])
link(Str4,8118530:Part4,[])
link(Str5,8118530:Part5,[])
link(Str6,8118530:Part6,[])
link(Str7,8118530:Part7,[])
link(Str8,8118530:Part8,[])
link(Str9,8118530:Part9,[])
link(Str10,8118530:Part10,[])
link(Str11,8118530:Part11,[])
link(Str12,8118530:Part12,[])
link(Str13,8118530:Part13,[])
link(Str14,8118530:Part14,[])
link(Str15,8118530:Part15,[])
link(Str16,8118530:Part16,[])
link(Str17,8118530:Part17,[])
}
Add(MultiStrPart,8118530,679,137)
{
Char="\9"
Count=17
link(onSplit,6136212:doString,[(723,143)(723,178)(667,178)(667,213)])
}
Add(Hub,1870618,182,165)
{
link(onEvent1,15192787:doQuery,[(248,171)(248,185)])
link(onEvent2,2633806:doExec,[])
}
Add(Button,3984982,322,298)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,1303128:doEvent1,[])
}
Add(Hub,1303128,378,298)
{
link(onEvent1,8562638:doRead,[])
link(onEvent2,15559044:doData,[])
}
Add(DoData,15559044,420,305)
{
link(onEventData,7735608:doDelete,[(478,311)(478,150)])
link(Data,11617938:Var1,[(426,244)])
}
Add(DSC_Exec,11160853,686,298)
{
DSManager="db"
}
Add(FormatStr,4574577,637,298)
{
DataCount=1
Mask="DELETE FROM table10 WHERE number=%1"
link(onFString,11160853:doExec,[])
link(Str1,5605138:Part1,[(643,286)(619,286)(619,342)(594,342)])
}
Add(ArrayRW,8562638,539,298)
{
link(onRead,5605138:doSplit,[])
link(Array,16774790:Var2,[])
link(Index,11617938:Var2,[(552,273)(496,273)])
}
Add(GetDataEx,16774790,539,190)
{
Angle=3
link(Data,7735608:Strings,[(524,195)])
}
Add(GetDataEx,11617938,490,239)
{
Angle=1
link(Data,7735608:Index,[(531,244)])
}
Add(MultiStrPart,5605138,588,298)
{
Char="\9"
Count=1
link(onSplit,4574577:doString,[])
}
Add(Button,7490277,35,165)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,10583734:doOpen,[(118,171)(118,171)])
}
END_SDK
Add(DoData,14087333,763,445)
{
link(onEventData,11784741:doWork1,[])
}
Add(InfoTip,10612721,828,345)
{
Info=#0:|26: Тормозна рідина|
Width=169
Height=39
}
Add(InfoTip,13875501,828,303)
{
Info=#1: |34: Охолоджуюча рідина|
Width=169
Height=39
}
Add(InfoTip,1920936,828,205)
{
Info=#0:|12: АКБ|
Width=169
Height=39
}
Add(InfoTip,13177498,828,156)
{
Info=#0:|13: Шини|
Width=169
Height=39
}
Add(InfoTip,12905837,828,114)
{
Info=#0:|11: ТО|
Width=169
Height=39
}
Add(InfoTip,16183452,485,16)
{
Info=#18:Сторінки програми |
Width=561
Height=487
}
Add(InfoTip,14087171,828,254)
{
Info=#0:|14: Масло|
Width=169
Height=39
}
Add(InfoTip,9347721,828,394)
{
Info=#0:|12: ЗІП|
Width=169
Height=39
}
Add(InfoTip,6981593,828,72)
{
Info=#0:|17: Персонал|
Width=169
Height=39
}
Add(InfoTip,1691909,828,23)
{
Info=#0:|20: Информація|
Width=169
Height=46
}
Add(InfoTip,10770090,826,441)
{
Info=#0:|19: Моторесурс|
Width=169
Height=39
}
Add(LineBreak,8882554,259,245)
{
Caption="Занос данных"
link(Out,5671226:doAdd,[])
Primary=[2811278,812,0]
}
Add(LineBreak,16480005,259,266)
{
Caption="Открытие"
link(Out,5671226:doLoad,[(375,272)(375,279)])
Primary=[12700761,-42,-203]
}
Add(LineBreak,8408385,259,287)
{
Caption="Сохранение "
link(Out,5671226:doSave,[(371,293)(371,286)])
Primary=[13036038,-35,-175]
}
Add(ChildGroupBox,13869979,847,32)
{
link(onEvent3,5968126:doEvent1,[(943,52)(943,251)])
}
BEGIN_SDK
Add(EditMulti,1093219,-21,14)
{
EventCount=3
WorkCount=2
Width=790
Height=599
link(doWork1,1821971:doBringToFront,[(28,20)(28,111)])
link(doWork2,12731683:doText,[(29,27)(29,152)])
}
Add(GroupBox,1821971,35,105)
{
Left=220
Top=35
Width=775
Height=450
Caption="Інформація"
Point(doBringToFront)
}
Add(Button,2336772,23,266)
{
Left=265
Top=34
Width=100
Font=[Broadway,12,0,8421504,0]
Caption="Завантажити"
link(onClick,2788739:doOpen,[(71,272)(71,206)])
}
Add(Button,7745239,205,287)
{
Left=375
Top=34
Width=70
Font=[Broadway,12,0,8421504,0]
Caption="Очистить"
link(onClick,3507321:doClear,[(347,293)(347,178)])
}
Add(StringTableMT,3507321,457,165)
{
Left=10
Top=55
Width=775
Height=320
Columns=#4:№=25|22:Загальні відомості=200|9:Данні=250|
StrDelimiter="\9"
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(onLineChange)
Point(Index)
link(onLineChange,8097891:doRead,[])
}
Add(Button,5227062,289,165)
{
Left=10
Top=34
Width=120
Caption="Добавить строку"
link(onClick,5709514:doOperation,[])
}
Add(Math,5709514,338,165)
{
Op2=1
ResultType=0
link(onResult,15254699:doEvent1,[])
link(Op1,3507321:Count,[(344,146)(404,146)(404,229)(463,229)])
}
Add(Edit,12731683,79,146)
{
Left=60
Top=13
Width=465
Text="MyDataBase1.db"
link(onChange,1093219:onEvent2,[(440,152)(440,27)])
link(onEnter,1093219:onEvent3,[(440,159)(440,34)])
}
Add(Label,15829541,128,144)
{
Left=10
Top=13
Width=48
Height=17
Caption="Имя БД:"
}
Add(DS_SQLite,2788739,86,200)
{
Name="db"
link(onOpen,16210215:doEvent1,[])
link(FileName,12731683:Text,[(92,188)(85,188)])
}
Add(DSC_Exec,3817980,149,249)
{
SQL="CREATE TABLE table1 (number int, firstname char, lastname char)"
DSManager="db"
}
Add(DSC_Exec,13011596,506,109)
{
DSManager="db"
}
Add(ArrayRW,8097891,589,172)
{
link(onRead,1975636:doSplit,[])
link(Array,10746862:Var3,[(595,156)(539,156)(539,230)])
}
Add(Hub,15254699,394,165)
{
link(onEvent1,3507321:doAdd,[])
link(onEvent2,363894:doString,[(432,178)(432,115)])
}
Add(FormatStr,363894,457,109)
{
DataCount=1
Mask="INSERT INTO table1 (number) VALUES (%1)"
link(onFString,13011596:doExec,[])
}
Add(DSC_Query,5954143,254,214)
{
SQL="SELECT * FROM table1"
DSManager="db"
link(onQuery,3507321:doMT_Add,[(372,220)(372,206)])
}
Add(DSC_Exec,8261552,681,242)
{
DSManager="db"
}
Add(FormatStr,14594587,632,242)
{
DataCount=3
Mask="UPDATE table1 SET firstname='%2', lastname='%3' WHERE number=%1"
link(onFString,8261552:doExec,[])
link(Str1,1975636:Part1,[])
link(Str2,1975636:Part2,[])
link(Str3,1975636:Part3,[])
}
Add(MultiStrPart,1975636,632,172)
{
Char="\9"
Count=3
link(onSplit,14594587:doString,[(676,178)(676,213)(620,213)(620,248)])
}
Add(Hub,16210215,135,200)
{
link(onEvent1,5954143:doQuery,[(201,206)(201,220)])
link(onEvent2,3817980:doExec,[])
}
Add(Button,9039559,275,333)
{
Left=135
Top=34
Width=120
Caption="Удалить строку"
link(onClick,12175230:doEvent1,[])
}
Add(Hub,12175230,331,333)
{
link(onEvent1,16009664:doRead,[])
link(onEvent2,14938611:doData,[])
}
Add(DoData,14938611,373,340)
{
link(onEventData,3507321:doDelete,[(431,346)(431,185)])
link(Data,13069318:Var1,[(379,279)])
}
Add(DSC_Exec,2818224,639,333)
{
DSManager="db"
}
Add(FormatStr,9911972,590,333)
{
DataCount=1
Mask="DELETE FROM table1 WHERE number=%1"
link(onFString,2818224:doExec,[])
link(Str1,1062532:Part1,[(596,321)(572,321)(572,377)(547,377)])
}
Add(ArrayRW,16009664,492,333)
{
link(onRead,1062532:doSplit,[])
link(Array,10746862:Var2,[])
link(Index,13069318:Var2,[(505,308)(449,308)])
}
Add(GetDataEx,10746862,492,225)
{
Angle=3
link(Data,3507321:Strings,[(477,230)])
}
Add(GetDataEx,13069318,443,274)
{
Angle=1
link(Data,3507321:Index,[(484,279)])
}
Add(MultiStrPart,1062532,541,333)
{
Char="\9"
Count=1
link(onSplit,9911972:doString,[])
}
END_SDK
Add(LineBreak,491666,-21,203)
{
Caption="Открытие вкладок"
link(Out,16008142:doEvent1,[])
Primary=[4133222,392,-84]
}




Редактировалось 1 раз(а), последний 2018-08-15 12:10:36
карма: 1

0
415
Сообщение
...
Прикрепленные файлы
(файлы не залиты)