Вверх ↑
Ответов: 254
Рейтинг: 6
#1: 2014-01-19 23:15:25 ЛС | профиль | цитата
вообще-то она не будет продаваться - она разрабатывается для предприятия, где я работаю.
------------ Дoбавленo в 22.57:
да и суть немного в другом
расчитывать возраст получилось, но вот как сделать так, чтобы каждый день к начальному значению возраста автоматом плюсовалась еденичка?
------------ Дoбавленo в 23.15:
Add(MainForm,11607186,91,238)
{
Width=954
Height=403
Caption="график вакцинации"
BorderStyle=4
Position=1
Point(doVisible)
Point(onClose)
link(onCreate,7309284:doEvent1,[])
}
Add(MTStrTbl,15761846,840,616)
{
@Color=5592575
Left=280
Top=50
Width=570
Height=215
Name="график"
Columns=#6:корпус|4:дата|9:поголовье|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
TextAlign=2
Point(doVisible)
}
Add(Button,949453,49,574)
{
Left=420
Top=15
Width=135
TabOrder=-1
Caption="рассчитать"
link(onClick,11771530:doString,[])
}
Add(ComboBox,11406695,84,511)
{
Left=300
Top=15
Width=110
Height=21
Strings=#8:корпус 1|8:корпус 2|8:корпус 3|8:корпус 4|8:корпус 5|
Text="корпус"
Point(EditText)
}
Add(DatePicker,9450650,119,371)
{
Left=155
Top=20
Width=110
Height=21
Font=[MS Sans Serif,6,0,0,1]
Point(doLeft)
Point(doTop)
Point(doSetFocus)
Point(doBringToFront)
Point(DateTime)
Point(doSendToBack)
link(onChange,11647900:doConvert,[(163,377)(163,409)(107,409)(107,440)])
}
Add(DS_SQLite,6991059,273,259)
{
@Color=5636095
Name="11"
FileName="memtytyory.db"
Point(onError)
link(onOpen,13846613:doExec,[(313,265)(313,244)])
link(onError,7054140:doEvent2,[])
}
Add(Message,3808633,406,259)
{
}
Add(DSC_Exec,13846613,315,238)
{
@Color=5636095
SQL="CREATE TABLE IF NOT EXISTS [grafikdata] (\r\n[id] INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,\r\n[name] TEXT,\r\n[date1] REAL,\r\n[date2] REAL,\r\n[result] REAL);"
DSManager="11"
link(onError,7054140:doEvent1,[(359,251)(359,265)])
}
Add(LineBreakEx,8042414,329,273)
{
Type=1
link(OnEvent,7054140:doEvent3,[])
}
Add(DSC_Exec,12182020,245,567)
{
@Color=5636095
DSManager="11"
link(onExec,10771421:doEvent1,[])
link(onError,3606489:doWork,[(282,580)(282,587)])
}
Add(FormatStr,11771530,105,574)
{
DataCount=4
Mask="INSERT INTO [grafikdata] ([name], [date1], [date2]) VALUES('%1', '%2', '%3'); "
link(onFString,14909773:doEvent2,[(148,580)(148,608)])
link(Str1,11406695:String,[(111,565)(97,565)])
link(Str2,13542443:Value,[(118,478)(167,478)])
link(Str3,1478493:Value,[(125,530)(279,530)])
}
Add(MST_DB,10553212,840,574)
{
@Color=5592575
MSTControl="график"
Point(doClearAll)
Point(doClear)
}
Add(LineBreakEx,3606489,287,581)
{
}
Add(Hub,10771421,308,567)
{
OutCount=5
link(onEvent1,10553212:doClearAll,[(337,573)(337,553)(651,546)(651,594)])
link(onEvent2,15451509:doData,[])
link(onEvent4,4614904:doQuery,[(336,594)(336,636)])
}
Add(DSC_Query,4614904,343,630)
{
@Color=5636095
SQL="SELECT [name], [date1], [date2], [result] from [grafikdata]"
DSManager="11"
link(onQuery,13313127:doEvent1,[])
link(onError,3923348:doWork,[])
}
Add(LineBreakEx,3923348,392,644)
{
}
Add(DoData,15451509,364,574)
{
Data=String(корпус)
link(onEventData,3754311:doAdd,[])
}
Add(MT_Add,3754311,406,574)
{
Data=String(поголовье)
link(onAdd,10823801:doAdd,[])
}
Add(HubEx,9772768,630,581)
{
link(onEvent,10553212:doAddCols,[(678,587)(678,566)(787,566)(787,587)])
}
Add(MT_MultiMem,15251959,532,602)
{
Count=5
}
Add(Hub,13313127,413,630)
{
OutCount=3
link(onEvent1,15251959:doValue,[(479,636)(479,608)])
link(onEvent2,8156537:doString,[(497,643)(497,692)])
link(onEvent3,10341187:doAdd,[(508,650)(508,839)])
}
Add(MT_AddData,10341187,525,833)
{
Count=5
link(onAdd,10553212:doAddRow,[(753,839)(753,580)])
link(Data1,15251959:Value1,[(531,733)(538,733)])
link(Data2,15251959:Value2,[(538,733)(545,733)])
link(Data3,15251959:Value3,[(545,733)(552,733)])
link(Data4,3581241:Var1,[(552,705)])
}
Add(Hub,7309284,140,252)
{
OutCount=3
link(onEvent1,6991059:doOpen,[(214,258)(214,265)])
link(onEvent2,922736:doMTString,[(172,265)(172,293)])
link(onEvent3,6668430:In,[(172,272)(172,321)])
}
Add(MT_String,922736,189,273)
{
link(onResult,2904434:doRowAction,[])
}
Add(MST_RowAction,2904434,231,273)
{
@Color=5592575
MSTControl="график"
}
Add(Hub,7054140,371,259)
{
InCount=3
link(onEvent1,3808633:doMessage,[])
}
Add(Hub,14909773,217,595)
{
InCount=2
link(onEvent1,12182020:doExec,[(238,601)(238,573)])
}
Add(LineBreak,12199041,161,588)
{
Caption="база1"
link(Out,14909773:doEvent1,[(211,594)(211,601)])
Primary=[6668430,28,-273]
}
Add(MT_Add,10823801,448,574)
{
Data=String(возраст)
link(onAdd,13615503:doAdd,[(487,580)(487,580)])
}
Add(MT_Add,13615503,494,574)
{
Data=String(вывод)
link(onAdd,9772768:doWork1,[(634,580)])
}
Add(GetDataEx,8895160,749,802)
{
Angle=1
}
Add(GetDataEx,10574426,567,665)
{
}
Add(DatePicker,14055264,224,378)
{
Left=125
Top=56
Width=115
Height=21
Point(DateTime)
link(onChange,10854376:doConvert,[(268,384)(268,408)(219,408)(219,433)])
}
Add(FormatStr,8156537,567,686)
{
DataCount=1
Mask="SELECT (date(date1)- date(date2)) from [grafikdata]"
link(onFString,11422646:doQuery,[])
link(Str1,15251959:Value4,[(573,660)(559,660)])
}
Add(DSC_Query,11422646,609,686)
{
@Color=5636095
DSManager="11"
link(onQuery,10214565:doAdd,[])
link(onError,6059374:doWork,[])
}
Add(LineBreakEx,6059374,651,700)
{
}
Add(MT_Memory,4303723,728,686)
{
}
Add(MT_Add,10214565,672,686)
{
InputMT=1
link(onAdd,4303723:doValue,[])
link(Data,3581241:Var2,[(678,670)(720,670)])
}
Add(GetDataEx,15937933,714,721)
{
Angle=1
link(Data,4303723:Value,[(734,726)])
}
Add(DateConvertor,11647900,119,434)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
link(onResult,13542443:doValue,[])
link(Data,9450650:DateTime,[])
}
Add(Memory,13542443,161,434)
{
}
Add(DateConvertor,10854376,231,427)
{
Mode=9
Format="dd-MM-yyyy"
Point(Data)
link(onResult,1478493:doValue,[])
link(Data,14055264:DateTime,[(237,419)(230,419)])
}
Add(Memory,1478493,273,427)
{
}
Add(GetDataEx,1467516,714,707)
{
Angle=2
link(Data,15937933:Var3,[])
}
Add(GetDataEx,3581241,714,700)
{
Angle=2
link(Data,1467516:Var2,[])
}



почему не считает?
карма: 0

0