code_18860.txt
Подбить одновременно ОБЩИЙ ИТОГ - сам думай (хотя там и думать-то нечего).
------------ Дoбавленo в 18.08:
user_asm писал(а):
Можно как то реализовать через Excel-файлы?------------ Дoбавленo в 18.34:
А правильнее так:
Add(MainForm,7423308,77,154)
{
Width=749
Height=472
link(onCreate,524209:doEnum,[])
}
Add(StringTable,2937595,203,168)
{
Width=741
Height=205
Align=2
FileName="base.txt"
Columns=#9:Пункт=100|10:Работы=300|14:Количество=100|13:Стоимость=200|
Grid=0
link(onClick,8857643:doAdd,[])
}
Add(StringTable,8857643,273,168)
{
Top=205
Width=741
Height=195
Align=2
Columns=#9:Пункт=100|10:Работы=300|14:Количество=100|13:Стоимость=100|9:Сумма=100|
Grid=0
Point(onBeforeLineChange)
Point(onLineChange)
Point(Matrix)
link(Str,2937595:Select,[(279,156)(250,156)(250,218)(216,218)])
link(onBeforeLineChange,11728440:doValue,[])
link(onLineChange,13643092:doRead,[(415,188)(415,363)(257,363)(257,307)])
}
Add(StrList,3781076,133,105)
{
Strings=#21:10;Ознакомление;1;100|15:11;Расчет;1;200|17:12;Сличение;1;300|20:13;Составление;1;400|
}
Add(ArrayEnum,524209,147,168)
{
link(onItem,2937595:doAdd,[])
link(Array,3781076:Array,[])
}
Add(MatrixRW,8775606,287,245)
{
X=3
link(onRead,3064903:doValue,[])
link(Matrix,9355003:Var2,[])
}
Add(MatrixRW,13643092,273,301)
{
X=2
link(onRead,7481812:doOperation,[])
link(Matrix,9355003:Var1,[(279,236)])
}
Add(GetDataEx,9355003,287,231)
{
link(Data,8857643:Matrix,[])
}
Add(Math,7481812,343,301)
{
OpType=2
link(onResult,16463700:doWrite,[])
link(Op2,3064903:Value,[])
}
Add(Memory,3064903,350,245)
{
}
Add(MatrixRW,16463700,462,294)
{
X=4
link(Matrix,9355003:Var3,[(468,236)])
link(Y,11728440:Value,[])
}
Add(Memory,11728440,483,175)
{
link(onData,8775606:doRead,[(522,181)(522,219)(261,219)(261,251)])
}