Вверх ↑
Ответов: 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