GanjaKyp писал(а):
В чем может быть проблемаЛеонид писал(а):
ваша БД не выполняет функцию деления на Cos(MyLat)Выполните её сами и подайте в БД цифры.
сам с усам
Add(MainForm,2953706,112,182)
{
}
Add(FormatStr,11843317,217,182)
{
DataCount=4
Mask="SELECT * FROM `points` WHERE ((`lat` BETWEEN " & (%1) & " AND " & (%2) & ") AND (`lon` BETWEEN " & (%3) & " AND " & (%4) & ")) AND (" & group.SubString(3) & ")""
link(onFString,15060307:doEvent1,[])
link(Str1,2340729:Result,[(223,159)(174,159)])
link(Str2,759322:Result,[(230,152)(223,152)])
link(Str3,5241524:Result,[(237,159)(272,159)])
link(Str4,14613243:Result,[(244,159)(321,159)])
}
Add(Edit,3132135,161,49)
{
Left=80
Top=25
Width=85
Text="57.0"
}
Add(Edit,15137493,238,49)
{
Left=175
Top=25
Width=95
Text="37.0"
}
Add(Edit,2905153,315,49)
{
Left=275
Top=25
Width=65
Text="500"
}
Add(Label,10957871,111,49)
{
Left=95
Top=5
Width=247
Height=17
Caption="Широта [гр] Долгота [гр] Радиус [км]"
}
Add(Button,3901432,112,112)
{
Left=15
Top=25
link(onClick,2340729:doCalc,[])
}
Add(Memo,622492,315,175)
{
Left=5
Top=55
Width=365
Height=150
}
Add(Hub,15060307,273,182)
{
link(onEvent1,622492:doClear,[])
link(onEvent2,622492:doAdd,[(298,195)(298,181)])
}
Add(MathParse,2340729,168,112)
{
MathStr="round((%1 - %2/111.1111),0.0001)"
AngleMode=1
link(onResult,759322:doCalc,[])
link(X1,9634024:Var2,[])
link(X2,11418290:Var1,[(181,89)])
}
Add(MathParse,759322,217,112)
{
MathStr="round((%1 + %2/111.1111),0.0001)"
AngleMode=1
link(onResult,5241524:doCalc,[])
link(X1,5641770:Var2,[])
link(X2,11418290:Var2,[])
}
Add(MathParse,5241524,266,112)
{
DataCount=3
MathStr="round((%3 - %2/111.1111/cos(%1)),0.0001)"
AngleMode=1
link(onResult,14613243:doCalc,[])
link(X1,3170166:Var2,[])
link(X2,3924030:Var2,[])
link(X3,6011208:Var2,[])
}
Add(MathParse,14613243,315,112)
{
DataCount=3
MathStr="round((%3 + %2/111.1111/cos(%1)),0.0001)"
AngleMode=1
link(onResult,11843317:doString,[(354,118)(354,167)(207,167)(207,188)])
link(X1,3170166:Var3,[(321,96)])
link(X2,13121798:Var3,[(328,89)])
link(X3,6011208:Var3,[(335,102)])
}
Add(GetDataEx,11418290,224,84)
{
Angle=1
link(Data,3924030:Var1,[])
}
Add(GetDataEx,9634024,168,91)
{
Angle=3
link(Data,3132135:Text,[(167,96)])
}
Add(GetDataEx,5641770,217,91)
{
Angle=3
link(Data,9634024:Var3,[])
}
Add(GetDataEx,3170166,266,91)
{
Angle=3
link(Data,5641770:Var3,[])
}
Add(GetDataEx,13121798,315,84)
{
link(Data,2905153:Text,[])
}
Add(GetDataEx,3924030,273,84)
{
Angle=1
link(Data,13121798:Var1,[])
}
Add(GetDataEx,6011208,280,97)
{
Angle=3
link(Data,15137493:Text,[(244,102)])
}