Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2019-01-15 19:37:27 ЛС | профиль | цитата
zhorik5 писал(а):
грубо говоря к ячейке с условием Заправка прибавить 20р. а к ячейке с условием ремонт прибавить 50р.
И к Roznica и Partner тоже ?
Так это вообще делается элементарно.
как-то так

Add(MainForm,13172333,84,84)
{
Width=797
Height=374
Position=1
Point(onClose)
link(onCreate,12969259:doOpen,[])
link(onClose,12969259:doClose,[])
}
Add(Button,8993294,175,154)
{
Left=690
Top=10
Width=75
Font=[MS Sans Serif,8,1,0,1]
Caption="UPDATE"
link(onClick,7667942:doEvent1,[])
}
Add(DS_SQLite,12969259,133,98)
{
Name="global"
FileName="c:\HiAsm_AltBuild\Projects\zhorik5\zhor2\global.db"
WaitClose=0
link(onOpen,13179759:doEvent1,[])
}
Add(StrList,6193653,350,105)
{
Point(doGetString)
Point(onGetString)
link(onGetString,2479743:doSplit,[])
}
Add(For,1910295,259,168)
{
Start=3
link(onEvent,6193653:doGetString,[(321,174)(321,139)])
link(onStop,6418945:doDelete,[])
link(End,6193653:Count,[(272,152)(363,152)])
}
Add(MultiStrData,2479743,399,112)
{
Char=","
From=1
Count=1
link(onPart1,4324985:doString,[])
}
Add(FormatStr,4324985,448,112)
{
Mask="%1=%1+%2,"
link(onFString,5706406:doStrCat,[])
link(Str2,8571458:EditText,[])
}
Add(StrCat,5706406,497,112)
{
Point(doClear)
link(Str1,13425065:Var1,[(503,100)(493,100)(493,150)])
}
Add(Delete,6418945,497,175)
{
Count=1
Direction=1
link(onDelete,8361769:doString,[])
link(Str,13425065:Var2,[])
}
Add(FormatStr,8361769,546,175)
{
Mask="UPDATE price SET %1 WHERE vid_rabor="%2" ;"
link(onFString,15791570:doEvent1,[])
link(Str2,238159:EditText,[(559,89)(293,89)])
}
Add(MT_String,688585,273,105)
{
Delimeter=","
link(onResult,6193653:doAdd,[])
}
Add(DSC_Query,351101,217,105)
{
SQL="pragma table_info(price);"
DSManager="global"
link(onQuery,688585:doStr,[])
link(onColumns,6193653:doClear,[])
}
Add(Memo,3009810,644,175)
{
Left=20
Top=40
Width=750
Height=280
}
Add(GetDataEx,13425065,497,145)
{
link(Data,5706406:Result,[])
}
Add(ComboBox,238159,273,49)
{
Left=115
Top=10
Width=155
Height=21
ReadOnly=0
Point(EditText)
}
Add(DSC_Query,12791313,224,49)
{
SQL="SELECT naimenovanie FROM vid_rabot;"
DSManager="global"
link(onQuery,238159:doAdd,[])
link(onColumns,238159:doClear,[])
}
Add(Hub,13179759,175,98)
{
link(onEvent1,12791313:doQuery,[(207,104)(207,55)])
link(onEvent2,351101:doQuery,[])
}
Add(ComboBox,8571458,441,49)
{
Left=400
Top=10
Height=21
Strings=#1:0|2:20|2:50|
ReadOnly=0
Point(EditText)
}
Add(Label,13674496,140,49)
{
Left=25
Top=15
Width=90
Height=17
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Вид работ"
AutoSize=1
Alignment=1
}
Add(Label,4569099,399,49)
{
Left=330
Top=15
Width=63
Height=17
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Сумма"
AutoSize=1
Alignment=1
}
Add(Hub,7667942,217,154)
{
OutCount=3
link(onEvent1,5706406:doClear,[(485,160)(485,125)])
link(onEvent2,3009810:doClear,[(627,167)(627,188)])
link(onEvent3,1910295:doFor,[])
}
Add(DSC_Exec,3397730,644,217)
{
DSManager="global"
}
Add(Hub,15791570,588,175)
{
link(onEvent1,3009810:doAdd,[])
link(onEvent2,3397730:doExec,[(618,188)(618,223)])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 1 раз(а), последний 2019-01-15 21:30:17