Add(MainForm,11607186,119,91)
{
 Width=715
 Height=346
 Caption="график вакцинации"
 BorderStyle=4
 Position=1
 Point(doVisible)
 Point(onClose)
 link(onCreate,7309284:doEvent1,[])
}
Add(MTStrTbl,15761846,490,49)
{
 @Color=5592575
 Left=300
 Top=50
 Width=385
 Height=215
 Name="график"
 Columns=#6:корпус|4:дата|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
}
Add(Button,949453,21,581)
{
 Left=420
 Top=15
 Width=135
 TabOrder=-1
 Caption="рассчитать"
 link(onClick,14909773:doEvent2,[(61,587)(61,594)])
}
Add(ComboBox,11406695,112,511)
{
 Left=300
 Top=15
 Width=110
 Height=21
 Strings=#8:корпус 1|8:корпус 2|8:корпус 3|8:корпус 4|8:корпус 5|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|2:5||
 Text="корпус"
 Point(EditText)
}
Add(MTStrTbl,5113738,448,49)
{
 @Color=43520
 Left=20
 Top=115
 Width=250
 Height=155
 Name="вакцинация"
 Columns=#14:ВАКЦИНАЦИЯ=150|17:ВОЗРАСТ (ДНИ)=100|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|4:100||
 Point(doSetFocus)
 Point(onSelect)
}
Add(Edit,16767801,182,287)
{
 Left=101
 Top=45
 Width=110
 Text="0"
 DataType=2
}
Add(Button,12084787,28,343)
{
 Left=15
 Top=70
 Width=195
 Height=30
 TabOrder=-1
 Caption="добавить"
 link(onClick,3450958:doEvent2,[(90,349)(90,356)])
}
Add(ComboBox,4864849,140,273)
{
 Left=85
 Top=15
 Width=125
 Height=21
 Strings=#2:БМ|2:БГ|2:БН|3:ИБК|3:ИЛТ|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|2:5||
 Text="вакцинацияя"
 Point(EditText)
}
Add(DatePicker,9450650,161,511)
{
 Left=565
 Top=15
 Width=110
 Height=21
 Font=[MS Sans Serif,6,0,0,1]
 Point(doLeft)
 Point(doTop)
 Point(doSetFocus)
 Point(doBringToFront)
 Point(DateTime)
 Point(doSendToBack)
}
Add(DS_SQLite,6991059,203,112)
{
 @Color=5636095
 Name="11"
 FileName="vet.db"
 Point(onError)
 link(onOpen,13846613:doExec,[(243,118)(243,97)])
 link(onError,7054140:doEvent2,[])
}
Add(Message,3808633,343,112)
{
}
Add(DSC_Exec,13846613,252,91)
{
 @Color=5636095
 SQL="CREATE TABLE IF NOT EXISTS [events] (\r\n[id] INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,\r\n[name] TEXT,\r\n[data] INTEGER);\r\n\r\nCREATE TABLE IF NOT EXISTS [tasks] (\r\n[id] INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,\r\n[name] TEXT,\r\n[dtime] REAL);"
 DSManager="11"
 link(onError,7054140:doEvent1,[(296,104)(296,118)])
}
Add(DSC_Exec,7884957,189,343)
{
 @Color=5636095
 DSManager="11"
 link(onExec,15277953:doEvent1,[])
 link(onError,14022728:doWork,[])
}
Add(FormatStr,8126504,147,343)
{
 Mask="INSERT INTO [events] ([name], [data]) VALUES('%1', %2);  "
 link(onFString,7884957:doExec,[])
 link(Str1,4864849:String,[])
 link(Str2,16767801:Text,[(160,327)(188,327)])
}
Add(MST_DB,953009,364,350)
{
 @Color=43520
 MSTControl="вакцинация"
 Point(doClear)
}
Add(Hub,15277953,252,343)
{
 link(onEvent1,953009:doClear,[(274,349)(274,396)(357,396)(357,370)])
 link(onEvent2,11511635:doQuery,[])
}
Add(DSC_Query,11511635,287,350)
{
 @Color=5636095
 SQL="SELECT [name], [data] from [events]"
 DSManager="11"
 link(onQuery,953009:doAddRow,[])
 link(onError,12129855:doWork,[])
}
Add(LineBreakEx,14022728,231,350)
{
}
Add(LineBreakEx,8042414,266,126)
{
 Type=1
 link(OnEvent,7054140:doEvent3,[])
}
Add(LineBreakEx,12129855,336,364)
{
}
Add(DSC_Exec,12182020,182,581)
{
 @Color=5636095
 DSManager="11"
 link(onExec,10771421:doEvent1,[])
 link(onError,3606489:doWork,[])
}
Add(FormatStr,11771530,119,581)
{
 DataCount=3
 Mask="INSERT INTO [tasks] ([name], [dtime]) VALUES('%1', %2);  "
 link(onFString,12182020:doExec,[])
 link(Str1,11406695:String,[])
 link(Str2,9450650:DateTime,[(132,569)(167,569)])
}
Add(MST_DB,10553212,658,588)
{
 @Color=5592575
 MSTControl="график"
 Point(doClearAll)
}
Add(LineBreakEx,3606489,224,588)
{
}
Add(Hub,10771421,245,581)
{
 OutCount=4
 link(onEvent1,10553212:doClearAll,[(459,587)(459,608)])
 link(onEvent2,15451509:doData,[])
 link(onEvent3,12922371:doQuery,[])
 link(onEvent4,4614904:doQuery,[(277,608)(277,650)])
}
Add(DSC_Query,4614904,287,644)
{
 @Color=5636095
 SQL="SELECT [name], strftime("%d.%m.%Y", 1721424.5 + [dtime]), [dtime] from [tasks]"
 DSManager="11"
 link(onQuery,13313127:doEvent1,[])
 link(onError,3923348:doWork,[])
}
Add(LineBreakEx,3923348,329,658)
{
}
Add(DSC_Query,12922371,385,595)
{
 @Color=5636095
 SQL="SELECT [name] from [events]"
 DSManager="11"
 link(onQuery,9772768:doWork2,[])
 link(onError,4829472:doWork,[])
}
Add(LineBreakEx,4829472,427,609)
{
}
Add(DoData,15451509,287,588)
{
 Data=String(аЗаАаДаАаНаИаЕ)
 link(onEventData,3754311:doAdd,[])
}
Add(MT_Add,3754311,336,588)
{
 Data=String(б?аЕаКб?б?аАб? аДаАб?аА)
 link(onAdd,9772768:doWork1,[(431,594)])
}
Add(HubEx,9772768,427,595)
{
 link(onEvent,10553212:doAddCols,[])
}
Add(FormatStr,8156537,413,693)
{
 DataCount=1
 Mask="SELECT strftime("%d.%m.%Y", 1721424.5 + %1 + [data]) from [events]"
 link(onFString,11422646:doQuery,[])
 link(Str1,15251959:Value3,[])
}
Add(DSC_Query,11422646,462,693)
{
 @Color=5636095
 DSManager="11"
 link(onQuery,10214565:doAdd,[])
 link(onError,6059374:doWork,[])
}
Add(LineBreakEx,6059374,504,707)
{
}
Add(MT_MultiMem,15251959,399,644)
{
 Count=3
}
Add(Hub,13313127,350,644)
{
 OutCount=4
 link(onEvent1,15251959:doValue,[])
 link(onEvent2,8156537:doString,[(389,657)(389,699)])
 link(onEvent3,10341187:doAdd,[(382,664)(382,748)])
 link(onEvent4,4303723:doClear,[(476,671)(476,706)])
}
Add(MT_Memory,4303723,588,693)
{
}
Add(MT_Add,10214565,532,693)
{
 InputMT=1
 link(onAdd,4303723:doValue,[])
 link(Data,15937933:Var3,[(538,677)(580,677)])
}
Add(MT_AddData,10341187,399,742)
{
 Count=3
 link(onAdd,10553212:doAddRow,[(627,748)(627,594)])
 link(Data1,15251959:Value1,[])
 link(Data2,15251959:Value2,[])
 link(Data3,15937933:Var1,[(419,733)])
}
Add(GetDataEx,15937933,574,728)
{
 Angle=1
 link(Data,4303723:Value,[(594,733)])
}
Add(Label,2084213,140,231)
{
 Left=15
 Top=15
 Width=64
 Height=17
 Caption="вакцинация"
}
Add(Label,6975909,182,245)
{
 Left=15
 Top=45
 Width=78
 Height=17
 Caption="возраст (дней)"
}
Add(Button,8086717,119,42)
{
 Left=620
 Top=275
 Width=65
 Height=25
 Hint="Сворачивает в трей"
 Caption="Свернуть"
 link(onClick,3126296:doEvent1,[])
}
Add(TrayIcon,6079368,238,35)
{
 Hint="Кукушка"
 FormHook=0
 ShowWORemoveIcon=0
 Text="двойной клик - развернуть"
 link(onDblClick,11103182:doCase,[])
}
Add(Case,11103182,294,42)
{
 Value=Integer(0)
 link(onTrue,7275996:doEvent1,[])
}
Add(Hub,3126296,210,42)
{
 InCount=2
 OutCount=1
 link(onEvent1,6079368:doHide,[])
}
Add(ChanelToIndex,12581794,385,49)
{
 link(onIndex,11607186:doVisible,[(429,55)(429,88)(109,88)(109,125)])
}
Add(Hub,7275996,343,49)
{
 link(onEvent1,6079368:doShow,[(365,55)(365,28)(226,28)(226,41)])
 link(onEvent2,12581794:doWork2,[])
}
Add(Hub,7309284,168,105)
{
 OutCount=5
 link(onEvent1,3126296:doEvent2,[(192,111)(192,55)])
 link(onEvent2,6991059:doOpen,[])
 link(onEvent3,922736:doMTString,[(190,125)(190,174)])
 link(onEvent4,3450958:doEvent1,[(194,132)(194,240)(107,240)(107,349)])
 link(onEvent5,14909773:doEvent1,[(194,139)(194,363)(58,363)(58,587)])
}
Add(Button,9281433,56,112)
{
 Left=550
 Top=275
 Width=65
 Height=25
 Caption="Закрыть"
 link(onClick,11607186:doClose,[])
}
Add(MT_String,922736,294,154)
{
 link(onResult,2904434:doRowAction,[])
}
Add(MST_RowAction,2904434,343,154)
{
 @Color=5592575
 MSTControl="график"
}
Add(MST_UseEditCtrl,4456658,427,350)
{
 @Color=5592575
 MSTControl="график"
 PColor(onCellSize,8421440)
 PColor(onEscCell,32768)
 link(onCellSize,10186838:doValue,[])
 link(onEnterCell,5538646:doCompare,[(478,363)(478,426)])
 link(onEscCell,13024665:doSendToBack,[(469,370)(469,454)])
}
Add(MT_MultiData,15385769,588,420)
{
 Point(Data)
 link(onData1,13024665:doLeft,[])
 link(onData2,13024665:doTop,[])
 link(Data,10186838:Value,[])
}
Add(DatePicker,13024665,679,413)
{
 Left=130
 Top=280
 Width=90
 Height=21
 Font=[MS Sans Serif,6,0,0,1]
 Visible=1
 Point(doLeft)
 Point(doTop)
 Point(doSetFocus)
 Point(doBringToFront)
 Point(DateTime)
 Point(doSendToBack)
 Point(Data)
 link(OnChange,10442733:doConvert,[(722,419)(722,468)(667,468)(667,482)])
 link(Data,4456658:Cell,[(685,398)(454,398)])
}
Add(MT_Memory,10186838,588,350)
{
}
Add(DateConvertor,10442733,679,476)
{
 Mode=9
 Format="dd-MM-yyyy"
 Point(Data)
 Point(Result)
 link(onResult,4456658:doSetData,[(735,482)(735,339)(415,339)(415,356)])
 link(Data,13024665:DateTime,[])
}
Add(If_else,5538646,504,420)
{
 Type=2
 Op2=Integer(0)
 link(onTrue,12222291:doEvent1,[])
 link(Op1,4456658:SubItem,[(510,406)(440,406)])
}
Add(Hub,12222291,553,420)
{
 OutCount=3
 link(onEvent1,15385769:doSeparateMT,[])
 link(onEvent2,13024665:doSetFocus,[(672,433)(672,440)])
 link(onEvent3,13024665:doBringToFront,[(672,440)(672,447)])
}
Add(Edit,12372284,147,385)
{
 Left=20
 Top=280
 Width=100
 Visible=1
 Text="1"
 DataType=2
}
Add(DoData,10362313,147,427)
{
 link(onEventData,2555565:doSort,[])
 link(Data,12372284:Text,[])
}
Add(MST_SortInCol,2555565,189,427)
{
 @Color=43520
 MSTControl="вакцинация"
}
Add(Hub,3450958,119,343)
{
 InCount=2
 link(onEvent1,8126504:doString,[])
 link(onEvent2,10362313:doData,[(140,356)(140,433)])
}
Add(Hub,7054140,308,112)
{
 InCount=3
 link(onEvent1,3808633:doMessage,[])
}
Add(Hub,14909773,70,581)
{
 InCount=2
 link(onEvent1,11771530:doString,[])
}
/code]
я правильно сделал? А как теперь можно сделать очистку базы?
[size=9][color=gray]------------ Дoбавленo в 22.30:[/color][/size]
я правильно сделал? А как теперь можно сделать очистку базы?
[size=9][color=gray]------------ Дoбавленo в 22.31:[/color][/size]
я правильно сделал? А как теперь можно сделать очистку базы?
[size=9][color=gray]------------ Дoбавленo в 22.36:[/color][/size]
[quote]Имея в БД первую таблицу с таким справочником (можно иметь несколько вариантов вакцинации), вторую с номером корпуса и начальной датой отсчета и третью с отметками об исполнении, можно получить любое напоминание, статистику и всё что нужно.
ИМХО.[/quote]

[b]miver[/b], с помощью чего можно реализовать отметки об исполнении и напоминание?
кстати можно как-то в первой таблице изменение чисел в edit привязать к вычислениям во второй таблице? При добавлении новой строки первой таблицы во второй таблице автоматом высчитывается дата. А если я меняю число в ячейке то как его вновь привязать к вычислениям?
[size=9][color=gray]------------ Дoбавленo в 22.42:[/color][/size]
я правильно сделал? А как теперь можно сделать очистку базы?
[quote]Имея в БД первую таблицу с таким справочником (можно иметь несколько вариантов вакцинации), вторую с номером корпуса и начальной датой отсчета и третью с отметками об исполнении, можно получить любое напоминание, статистику и всё что нужно.
ИМХО.[/quote]

[b]miver[/b], с помощью чего можно реализовать отметки об исполнении и напоминание?
кстати можно как-то в первой таблице изменение чисел в edit привязать к вычислениям во второй таблице? При добавлении новой строки первой таблицы во второй таблице автоматом высчитывается дата. А если я меняю число в ячейке то как его вновь привязать к вычислениям?