не правильно работает часть схемы с sqlite

Вверх ↑

Форумы Помощь по пакетуне правильно работает часть схемы с sqlite ← Ctrl1 2 3 4 5 678 9Ctrl →

Этот топик читают: Гость

Ответов: 16884

Рейтинг: 1239

#91: 2014-01-24 21:36:16 ЛС | профиль | цитата

Что просишь, то и получаешь.
Для того, чтобы получить нужное, применяй WHERE

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 254

Рейтинг: 6

#92: 2014-01-24 22:04:36 ЛС | профиль | цитата

Tad, ну а как тогда сделать, чтобы проставлялось конкретно в текущей ячейке, а не во всех?
------------ Дoбавленo в 21.48:
все, решил проблему

------------ Дoбавленo в 21.49:
Tad, вы гений!!!

Add(MainForm,11607186,119,77)
{
 Width=690
 Height=341
 Caption="график вакцинации"
 BorderStyle=4
 Position=1
 Point(doVisible)
 Point(onClose)
 link(onCreate,7309284:doEvent1,[])
}
Add(MTStrTbl,15761846,868,455)
{
 @Color=5592575
 Left=200
 Top=20
 Width=455
 Height=285
 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,77,413)
{
 Left=35
 Top=130
 Width=135
 TabOrder=-1
 Caption="рассчитать"
 link(onClick,11771530:doString,[])
}
Add(ComboBox,11406695,112,350)
{
 Left=40
 Top=20
 Width=110
 Height=21
 Strings=#8:корпус 1|8:корпус 2|8:корпус 3|8:корпус 4|8:корпус 5|
 Text="корпус"
 Point(EditText)
}
Add(DatePicker,9450650,147,210)
{
 Left=35
 Top=55
 Width=110
 Height=21
 Font=[MS Sans Serif,6,0,0,1]
 Point(doLeft)
 Point(doTop)
 Point(doSetFocus)
 Point(doBringToFront)
 Point(DateTime)
 Point(doSendToBack)
 Point(DateInt)
 link(onChange,11647900:doConvert,[(191,216)(191,248)(135,248)(135,279)])
}
Add(DS_SQLite,6991059,301,98)
{
 @Color=5636095
 Name="11"
 FileName="7.db"
 Point(onError)
 link(onOpen,13846613:doExec,[(341,104)(341,83)])
 link(onError,7054140:doEvent2,[])
}
Add(Message,3808633,434,98)
{
}
Add(DSC_Exec,13846613,343,77)
{
 @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,\r\n[result2] REAL);"
 DSManager="11"
 link(onError,7054140:doEvent1,[(387,90)(387,104)])
}
Add(LineBreakEx,8042414,357,112)
{
 Type=1
 link(OnEvent,7054140:doEvent3,[])
}
Add(DSC_Exec,12182020,273,406)
{
 @Color=5636095
 DSManager="11"
 link(onExec,10771421:doEvent1,[])
 link(onError,3606489:doWork,[(310,419)(310,426)])
}
Add(FormatStr,11771530,133,413)
{
 DataCount=4
 Mask="INSERT INTO [grafikdata] ([name], [date1], [date2]) VALUES('%1', '%2', '%3'); "
 link(onFString,14909773:doEvent2,[(176,419)(176,447)])
 link(Str1,11406695:String,[(139,404)(125,404)])
 link(Str2,13542443:Value,[(146,359)(195,359)])
 link(Str3,9526050:Value,[(153,352)(307,352)])
}
Add(MST_DB,10553212,868,413)
{
 @Color=5592575
 MSTControl="график"
 Point(doClearAll)
 Point(doClear)
}
Add(LineBreakEx,3606489,315,420)
{
}
Add(Hub,10771421,336,406)
{
 OutCount=5
 link(onEvent1,10553212:doClearAll,[(365,412)(365,392)(679,385)(679,433)])
 link(onEvent2,15451509:doData,[])
 link(onEvent4,4614904:doQuery,[(364,433)(364,475)])
}
Add(DSC_Query,4614904,371,469)
{
 @Color=5636095
 SQL="SELECT [name], [date1], [date2], [result], strftime('%J',date(date2)) - strftime('%J',date(date1)) from [grafikdata]"
 DSManager="11"
 link(onQuery,13313127:doEvent1,[])
 link(onError,3923348:doWork,[])
}
Add(LineBreakEx,3923348,420,483)
{
}
Add(DoData,15451509,392,413)
{
 Data=String(корпус)
 link(onEventData,3754311:doAdd,[])
}
Add(MT_Add,3754311,434,413)
{
 Data=String(поголовье)
 link(onAdd,14482110:doAdd,[])
}
Add(HubEx,9772768,658,420)
{
 link(onEvent,10553212:doAddCols,[(706,426)(706,405)(815,405)(815,426)])
}
Add(MT_MultiMem,15251959,560,441)
{
 Count=5
}
Add(Hub,13313127,441,469)
{
 OutCount=4
 link(onEvent1,15251959:doValue,[(507,475)(507,447)])
 link(onEvent2,8156537:doString,[(525,482)(525,531)])
 link(onEvent3,10341187:doAdd,[(536,489)(536,678)])
}
Add(MT_AddData,10341187,553,672)
{
 Count=5
 link(onAdd,10553212:doAddRow,[(781,678)(781,419)])
 link(Data1,15251959:Value1,[(559,572)(566,572)])
 link(Data2,15251959:Value2,[(566,572)(573,572)])
 link(Data3,15251959:Value3,[(573,572)(580,572)])
 link(Data4,4303723:Value,[(580,614)(762,614)])
 link(Data5,15251959:Value5,[(587,572)(594,572)])
}
Add(Hub,7309284,168,91)
{
 OutCount=3
 link(onEvent1,6991059:doOpen,[(242,97)(242,104)(290,101)])
 link(onEvent2,922736:doMTString,[(200,104)(200,132)])
 link(onEvent3,6668430:In,[(200,111)(200,160)])
}
Add(MT_String,922736,217,112)
{
 link(onResult,2904434:doRowAction,[])
}
Add(MST_RowAction,2904434,259,112)
{
 @Color=5592575
 MSTControl="график"
}
Add(Hub,7054140,399,98)
{
 InCount=3
 link(onEvent1,3808633:doMessage,[])
}
Add(Hub,14909773,245,434)
{
 InCount=2
 link(onEvent1,12182020:doExec,[(266,440)(266,412)])
}
Add(LineBreak,5187788,189,427)
{
 Caption="база1"
 link(Out,14909773:doEvent1,[(239,433)(239,440)])
 Primary=[6668430,28,-273]
}
Add(MT_Add,13615503,522,413)
{
 Data=String(вывод)
 link(onAdd,6589868:doAdd,[(562,419)(562,412)])
}
Add(GetDataEx,8895160,777,641)
{
 Angle=1
}
Add(GetDataEx,10574426,595,504)
{
}
Add(FormatStr,8156537,595,525)
{
 DataCount=1
 Mask="SELECT strftime('%d', 'now',"+1 days") from [grafikdata];\r\n"
 link(onFString,11422646:doQuery,[])
 link(Str1,15251959:Value4,[(601,499)(587,499)])
}
Add(DSC_Query,11422646,637,525)
{
 @Color=5636095
 DSManager="11"
 link(onQuery,4303723:doValue,[])
 link(onError,6059374:doWork,[])
}
Add(LineBreakEx,6059374,679,539)
{
}
Add(MT_Memory,4303723,756,525)
{
}
Add(DateConvertor,11647900,147,273)
{
 Mode=9
 Format="yyyy-MM-dd"
 Point(Data)
 link(onResult,13542443:doValue,[])
 link(Data,9450650:DateInt,[(153,264)(160,264)])
}
Add(Memory,13542443,189,273)
{
}
Add(Button,13092170,63,280)
{
 Left=45
 Top=270
 link(onClick,10553212:doClear,[(481,286)(481,440)])
}
Add(FormatStr,4407252,595,602)
{
 DataCount=1
 Mask="SELECT strftime('%J',date(date2)) - strftime('%J',date(date1)) from [grafikdata];\r\n\r\n\r\n"
 link(onFString,13712482:doQuery,[])
}
Add(DSC_Query,13712482,637,602)
{
 @Color=5636095
 DSManager="11"
 link(onQuery,15304954:doValue,[])
 link(onError,2500762:doWork,[])
}
Add(LineBreakEx,2500762,679,616)
{
}
Add(MT_Memory,15304954,805,602)
{
}
Add(MT_Add,14482110,480,413)
{
 Data=String(вывод)
 link(onAdd,13615503:doAdd,[])
}
Add(DatePicker,9834281,259,196)
{
 Left=35
 Top=90
 Width=110
 Height=21
 Font=[MS Sans Serif,6,0,0,1]
 Point(doLeft)
 Point(doTop)
 Point(doSetFocus)
 Point(doBringToFront)
 Point(DateTime)
 Point(doSendToBack)
 Point(DateInt)
 link(onChange,14156535:doConvert,[(303,202)(303,234)(247,234)(247,265)])
}
Add(DateConvertor,14156535,259,259)
{
 Mode=9
 Format="yyyy-MM-dd"
 Point(Data)
 link(onResult,9526050:doValue,[])
 link(Data,9834281:DateInt,[(265,250)(272,250)])
}
Add(Memory,9526050,301,259)
{
}
Add(MT_Add,6589868,571,406)
{
 Data=String(вывод)
 link(onAdd,9772768:doWork1,[(662,412)])
}

теперь работает
------------ Дoбавленo в 21.51:
но теперь не обновляется результат расчетов при изменении текущей даты
------------ Дoбавленo в 22.01:
все работает

как всегда моя не внимательность - все работает прекрасно

вот работающий код

Add(MainForm,11607186,182,161)
{
 Width=690
 Height=341
 Caption="график вакцинации"
 BorderStyle=4
 Position=1
 Point(doVisible)
 Point(onClose)
 link(onCreate,7309284:doEvent1,[])
}
Add(MTStrTbl,15761846,931,539)
{
 @Color=5592575
 Left=200
 Top=20
 Width=455
 Height=285
 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,140,497)
{
 Left=35
 Top=130
 Width=135
 TabOrder=-1
 Caption="рассчитать"
 link(onClick,11771530:doString,[])
}
Add(ComboBox,11406695,175,434)
{
 Left=40
 Top=20
 Width=110
 Height=21
 Strings=#8:корпус 1|8:корпус 2|8:корпус 3|8:корпус 4|8:корпус 5|
 Text="корпус"
 Point(EditText)
}
Add(DatePicker,9450650,210,294)
{
 Left=35
 Top=55
 Width=110
 Height=21
 Font=[MS Sans Serif,6,0,0,1]
 Point(doLeft)
 Point(doTop)
 Point(doSetFocus)
 Point(doBringToFront)
 Point(DateTime)
 Point(doSendToBack)
 Point(DateInt)
 link(onChange,11647900:doConvert,[(254,300)(254,332)(198,332)(198,363)])
}
Add(DS_SQLite,6991059,364,182)
{
 @Color=5636095
 Name="11"
 FileName="77.db"
 Point(onError)
 link(onOpen,13846613:doExec,[(404,188)(404,167)])
 link(onError,7054140:doEvent2,[])
}
Add(Message,3808633,497,182)
{
}
Add(DSC_Exec,13846613,406,161)
{
 @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,\r\n[result2] REAL);"
 DSManager="11"
 link(onError,7054140:doEvent1,[(450,174)(450,188)])
}
Add(LineBreakEx,8042414,420,196)
{
 Type=1
 link(OnEvent,7054140:doEvent3,[])
}
Add(DSC_Exec,12182020,336,490)
{
 @Color=5636095
 DSManager="11"
 link(onExec,10771421:doEvent1,[])
 link(onError,3606489:doWork,[(373,503)(373,510)])
}
Add(FormatStr,11771530,196,497)
{
 DataCount=4
 Mask="INSERT INTO [grafikdata] ([name], [date1], [date2]) VALUES('%1', '%2', '%3'); "
 link(onFString,14909773:doEvent2,[(239,503)(239,531)])
 link(Str1,11406695:String,[(202,488)(188,488)])
 link(Str2,13542443:Value,[(209,443)(258,443)])
 link(Str3,9526050:Value,[(216,436)(370,436)])
}
Add(MST_DB,10553212,931,497)
{
 @Color=5592575
 MSTControl="график"
 Point(doClearAll)
 Point(doClear)
}
Add(LineBreakEx,3606489,378,504)
{
}
Add(Hub,10771421,399,490)
{
 OutCount=5
 link(onEvent1,10553212:doClearAll,[(428,496)(428,476)(742,469)(742,517)])
 link(onEvent2,15451509:doData,[])
 link(onEvent4,4614904:doQuery,[(427,517)(427,559)])
}
Add(DSC_Query,4614904,434,553)
{
 @Color=5636095
 SQL="SELECT [name], [date1], [date2], [result], strftime('%J',date('now','localtime')) - strftime('%J',date(date1)) from [grafikdata]"
 DSManager="11"
 link(onQuery,13313127:doEvent1,[])
 link(onError,3923348:doWork,[])
}
Add(LineBreakEx,3923348,483,567)
{
}
Add(DoData,15451509,455,497)
{
 Data=String(корпус)
 link(onEventData,3754311:doAdd,[])
}
Add(MT_Add,3754311,497,497)
{
 Data=String(поголовье)
 link(onAdd,14482110:doAdd,[])
}
Add(HubEx,9772768,721,504)
{
 link(onEvent,10553212:doAddCols,[(769,510)(769,489)(878,489)(878,510)])
}
Add(MT_MultiMem,15251959,623,525)
{
 Count=5
}
Add(Hub,13313127,504,553)
{
 OutCount=4
 link(onEvent1,15251959:doValue,[(570,559)(570,531)])
 link(onEvent2,8156537:doString,[(588,566)(588,615)])
 link(onEvent3,10341187:doAdd,[(599,573)(599,762)])
}
Add(MT_AddData,10341187,616,756)
{
 Count=5
 link(onAdd,10553212:doAddRow,[(844,762)(844,503)])
 link(Data1,15251959:Value1,[(622,656)(629,656)])
 link(Data2,15251959:Value2,[(629,656)(636,656)])
 link(Data3,15251959:Value3,[(636,656)(643,656)])
 link(Data4,4303723:Value,[(643,698)(825,698)])
 link(Data5,15251959:Value5,[(650,656)(657,656)])
}
Add(Hub,7309284,231,175)
{
 OutCount=3
 link(onEvent1,6991059:doOpen,[(305,181)(305,188)(353,185)])
 link(onEvent2,922736:doMTString,[(263,188)(263,216)])
 link(onEvent3,6668430:In,[(263,195)(263,244)])
}
Add(MT_String,922736,280,196)
{
 link(onResult,2904434:doRowAction,[])
}
Add(MST_RowAction,2904434,322,196)
{
 @Color=5592575
 MSTControl="график"
}
Add(Hub,7054140,462,182)
{
 InCount=3
 link(onEvent1,3808633:doMessage,[])
}
Add(Hub,14909773,308,518)
{
 InCount=2
 link(onEvent1,12182020:doExec,[(329,524)(329,496)])
}
Add(LineBreak,8365797,252,511)
{
 Caption="база1"
 link(Out,14909773:doEvent1,[(302,517)(302,524)])
 Primary=[6668430,28,-273]
}
Add(MT_Add,13615503,585,497)
{
 Data=String(вывод)
 link(onAdd,6589868:doAdd,[(625,503)(625,496)])
}
Add(GetDataEx,8895160,840,725)
{
 Angle=1
}
Add(GetDataEx,10574426,658,588)
{
}
Add(FormatStr,8156537,658,609)
{
 DataCount=1
 Mask="SELECT strftime('%d', 'now',"+1 days") from [grafikdata];\r\n"
 link(onFString,11422646:doQuery,[])
 link(Str1,15251959:Value4,[(664,583)(650,583)])
}
Add(DSC_Query,11422646,700,609)
{
 @Color=5636095
 DSManager="11"
 link(onQuery,4303723:doValue,[])
 link(onError,6059374:doWork,[])
}
Add(LineBreakEx,6059374,742,623)
{
}
Add(MT_Memory,4303723,819,609)
{
}
Add(DateConvertor,11647900,210,357)
{
 Mode=9
 Format="yyyy-MM-dd"
 Point(Data)
 link(onResult,13542443:doValue,[])
 link(Data,9450650:DateInt,[(216,348)(223,348)])
}
Add(Memory,13542443,252,357)
{
}
Add(Button,13092170,126,364)
{
 Left=45
 Top=270
 link(onClick,10553212:doClear,[(544,370)(544,524)])
}
Add(FormatStr,4407252,658,686)
{
 DataCount=1
 Mask="SELECT strftime('%J',date('now','localtime')) - strftime('%J',date(date1)) from [grafikdata];\r\n\r\n\r\n"
 link(onFString,13712482:doQuery,[])
}
Add(DSC_Query,13712482,700,686)
{
 @Color=5636095
 DSManager="11"
 link(onQuery,15304954:doValue,[])
 link(onError,2500762:doWork,[])
}
Add(LineBreakEx,2500762,742,700)
{
}
Add(MT_Memory,15304954,868,686)
{
}
Add(MT_Add,14482110,543,497)
{
 Data=String(вывод)
 link(onAdd,13615503:doAdd,[])
}
Add(DatePicker,9834281,322,280)
{
 Left=35
 Top=90
 Width=110
 Height=21
 Font=[MS Sans Serif,6,0,0,1]
 Point(doLeft)
 Point(doTop)
 Point(doSetFocus)
 Point(doBringToFront)
 Point(DateTime)
 Point(doSendToBack)
 Point(DateInt)
 link(onChange,14156535:doConvert,[(366,286)(366,318)(310,318)(310,349)])
}
Add(DateConvertor,14156535,322,343)
{
 Mode=9
 Format="yyyy-MM-dd"
 Point(Data)
 link(onResult,9526050:doValue,[])
 link(Data,9834281:DateInt,[(328,334)(335,334)])
}
Add(Memory,9526050,364,343)
{
}
Add(MT_Add,6589868,634,490)
{
 Data=String(вывод)
 link(onAdd,9772768:doWork1,[(725,496)])
}

------------ Дoбавленo в 22.02:
Tad, подскажите пожалуйста, как работать с dll
можно например вынести часть кода во внешнюю библиотеку и оттуда через базу вытаскивать данные?
------------ Дoбавленo в 22.04:
Ребята, спасибо Вам огромное! Благодаря Вам я начал понимать sqlite

карма: 0

Ответов: 16884

Рейтинг: 1239

#93: 2014-01-24 22:07:42 ЛС | профиль | цитата

Medvedoc писал(а):

но теперь не обновляется результат расчетов при изменении текущей даты

nesco писал(а):

не смеши мои тапочки

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 254

Рейтинг: 6

#94: 2014-01-24 22:10:11 ЛС | профиль | цитата

Tad, вы о чем? Все работает прекрасно

карма: 0

Ответов: 16884

Рейтинг: 1239

#95: 2014-01-24 22:11:03 ЛС | профиль | цитата

Medvedoc писал(а):

подскажите пожалуйста, как работать с dll

Dll нужна, когда она используется несколькими разными программами.
------------ Дoбавленo в 22.11:

Medvedoc писал(а):

вы о чем?

Medvedoc писал(а):

но теперь не обновляется результат расчетов при изменении текущей даты

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 254

Рейтинг: 6

#96: 2014-01-24 22:12:54 ЛС | профиль | цитата

по поводу второго - все обновляется. просто был прописан select на разницу между двумя датами. Все поправил.
про dll можно поподробнее?

карма: 0

Ответов: 16884

Рейтинг: 1239

#97: 2014-01-24 22:22:04 ЛС | профиль | цитата

Подробнее http://otvet.mail.ru/#question/19080626

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 254

Рейтинг: 6

#98: 2014-01-24 22:26:27 ЛС | профиль | цитата

спасибо

карма: 0

Ответов: 16884

Рейтинг: 1239

#99: 2014-01-25 11:02:40 ЛС | профиль | цитата

Medvedoc писал(а):

вот работающий код

Извини, но это не код. Это пародия на "работающий код".

Единственное, чему ты пока научился, это раскрашивать элементы, ставить в схему лишние элементы и линки.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 704

Рейтинг: 44

#100: 2014-01-25 12:11:23 ЛС | профиль | цитата

Tad писал(а):

Извини, но это не код. Это пародия на "работающий код".
Единственное, чему ты пока научился, это раскрашивать элементы, ставить в схему лишние элементы и линки.

карма: 0

Ответов: 16884

Рейтинг: 1239

#101: 2014-01-25 14:56:49 ЛС | профиль | цитата

Medvedoc, Ответь на пару вопросов:
1. Схема вакцинации одна для всех выводков (корпусов) или для каждого выводка (корпуса) своя ?
2. Вакцину подмешиваете в питьё дозаторами или веслом в бочке ?
3. Учет погибших ведется или нет ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Гость

Ответов: 17029

Рейтинг: 0

#102: 2014-01-25 18:26:08 правка | ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2017-03-03 07:46:00

карма: 0

Ответов: 254

Рейтинг: 6

#103: 2014-01-25 18:28:41 ЛС | профиль | цитата

Kazbek17, я понимаю, что смешно. Это равносильно, что я у тебя спрошу про html 5 и css 3, а ты растеряешься. Не надо злорадствовать.
Все начинают с чего-то. Я думаю твоя первая схема была тоже не ахти

Так что спасибо вам за терпение. А Вас Tad, прошу подучить меня путем наведения на ошибки.

карма: 0

Ответов: 16884

Рейтинг: 1239

#104: 2014-01-25 18:46:50 ЛС | профиль | цитата

Medvedoc, вот отсюда и надо начинать проектирование БД.
1. По твоему ответу можно понять, что есть две схемы вакцинации.
2. Вполне возможно организовать автоматическую вакцинацию и отметку о выполнении мероприятия.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 254

Рейтинг: 6

#105: 2014-01-25 18:50:48 ЛС | профиль | цитата

про отметку я думал и продолжаю думать. Но пока вот завершил этот кусок и теперь могу браться за решение второго куска. Я делал поиск по таблице с датами вакцианций, чтобы в определенный день срабатывало напоминание в виде всплывающего окошка со звуком.. Там будет описание наименование вакцинации и корпуса. Пока получилось сделать, но загвоздка в том, что когда заканчивается поиск последнего заданного значения выводятся значения последние из таблицы. Если не понятно могу приложить схемку. Она еще сырая правда.

карма: 0

Форумы Помощь по пакетуне правильно работает часть схемы с sqlite ← Ctrl1 2 3 4 5 678 9Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)