miver, отлично - работает вроде 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 привязать к вычислениям во второй таблице? При добавлении новой строки первой таблицы во второй таблице автоматом высчитывается дата. А если я меняю число в ячейке то как его вновь привязать к вычислениям?
|
не полный код
Поиск
Друзья
Администрация