Tad, Вот опять меня в SQLite затянули . Я один проект сделал с использованием БД. Но для меня это было настоящим потрясением моей головы
Кстати, Tad, сом-порт в вашей конфигурации не работает, мне пришлось добавить Timer и DoDate. Не могу сделать запрос в SQLite на извлечение из базы данных для точек. Выдает синтаксическую ошибку. Ругается на характеристику REAL. Просьба указать на ошибку....
Add(MainForm,15663453,238,91) { Width=1224 Height=732 Color=15780518 Caption="Температура в помещении" BorderStyle=1 ClientSize=0 Position=1 Point(onClose) Point(Close) link(onCreate,7098561:doEvent1,[]) link(Close,11914673:Left,[(244,79)(222,79)(222,221)(244,221)]) } Add(Hub,7098561,287,105) { OutCount=4 link(onEvent1,7935657:doOpen,[]) link(onEvent2,4937493:doEnumPorts,[(315,118)(315,125)]) link(onEvent3,4404277:doTimer,[(313,125)(313,202)(233,202)(233,237)]) } Add(DS_SQLite,7935657,532,105) { Name="rt" FileName="C:\\Room_temperature.db" link(onOpen,1699441:doExec,[]) } Add(DSC_Exec,1699441,574,105) { SQL="CREATE Table1 IF NOT EXISTS data(\r\n data REAL,\r\n t REAL);\r\n \r\n\r\n " DSManager="rt" } Add(Label,7480715,490,119) { Left=60 Top=14 Width=83 Height=42 Color=15780518 Font=[MS Sans Serif,8,1,16711680,1] WinStyle=4 Caption="COM-порт №°\r\n\r\nСкорость" AutoSize=1 } Add(If_else,2513173,448,196) { Type=5 Op2=String() link(onTrue,1696897:doSearch,[]) } Add(ComboBox,7690426,448,119) { Left=125 Top=39 Width=75 Height=21 Color=15780518 Font=[MS Sans Serif,8,1,0,1] WinStyle=4 Strings=#3:300|3:600|4:1200|4:2400|4:4800|4:9600|5:14400|5:19200|5:28800|5:38400|5:57600|6:115200| Text="19200" Point(EditText) } Add(ComboBox,8658105,385,119) { Left=150 Top=13 Width=50 Height=21 Color=15780518 Font=[MS Sans Serif,8,1,0,1] WinStyle=4 Text="" DataType=1 ReadOnly=0 DropDownCount=15 Point(EditText) } Add(Switch,7986566,329,175) { DataOn=String(255,СТОП) DataOff=String(0,ПУСК) Point(State) Point(onOff) Point(onOn) link(onSwitch,11914673:doSplit,[(369,181)(369,169)(232,169)(232,181)]) link(onOff,6263210:doClose,[(380,188)(380,202)]) link(onOn,6263210:doOpen,[]) } Add(COM,6263210,399,189) { BaudRate=15 link(onRead,2513173:doCompare,[]) link(Port,8658105:EditText,[]) link(BaudRate,7690426:EditText,[(412,177)(468,177)]) } Add(EnumCOM,4937493,329,119) { OutType=0 link(onEnumPorts,8658105:doAdd,[]) } Add(BlockFind,1696897,490,196) { IncludeBlock=1 StartBlock="T=" EndBlock="C" link(onSearch,9240330:doData,[]) link(onEndSearch,15847114:doQuery,[(534,209)(534,328)]) } Add(BitBtn,12852987,280,175) { Left=70 Top=66 Width=125 Color=0 Font=[MS Sans Serif,8,1,16777215,1] Caption="Пуск" Point(doColor) link(onClick,7986566:doSwitch,[]) } Add(StrPart,11914673,238,175) { Char="," Point(Left) link(onSplit,12852987:doCaption,[]) link(onPart,12852987:doColor,[]) } Add(ChangeMon,9240330,539,196) { link(onData,11937578:doEvent1,[(579,202)(579,195)]) } Add(DSC_Exec,6082265,665,189) { DSManager="rt" link(onExec,6263210:doRXClear,[(709,195)(709,290)(373,290)(373,209)]) link(onError,15663453:doCaption,[(709,202)(709,150)(226,150)(226,97)]) } Add(FormatStr,3396857,623,189) { Mask="INSERT INTO data values (julianday('now', 'localtime'), %1);" link(onFString,6082265:doExec,[]) } Add(PlotPoints,15672558,1092,455) { Grapher="Gamma" Shape=2 } Add(Plotter,12597280,1092,378) { Left=10 Top=100 Width=1200 Height=600 Name="Gamma" GridX=24 GridY=25 MinH=-10 MaxH=40 MaxW=24 } Add(PlotAxis,16137541,777,35) { Grapher="Gamma" Name="ноль" Color=16711680 } Add(PlotAxis,4916857,833,35) { Grapher="Gamma" Name="19" Color=32768 Style=1 Y=19 } Add(PlotAxis,5954945,889,35) { Grapher="Gamma" Name="24" Color=128 Style=1 Y=24 } Add(Label,7506625,973,42) { Left=55 Top=280 Width=165 Caption="Верхняя температурная норма" } Add(Label,5273543,973,84) { Left=55 Top=355 Width=160 Caption="Нижняя температурная норма" } Add(Hub,11937578,588,189) { link(onEvent1,3396857:doString,[]) link(onEvent2,12848750:doAdd,[(614,202)(614,279)(513,279)(513,356)]) } Add(Memo,12848750,525,350) { Left=550 Top=10 Width=215 AddType=1 ScrollBars=2 } Add(Timer,4404277,245,231) { Interval=200 link(onTimer,13091773:doData,[]) } Add(DoData,13091773,301,231) { Data=Integer(128) link(onEventData,6263210:doRead,[(366,237)(366,223)]) } Add(DSC_Query,15847114,665,322) { SQL="SELECT * FROM Table1 WHERE "data REAL" ='%1', "t REAL" ='%2';" DSManager="rt" link(onError,2027084:doAdd,[]) } Add(Button,4246772,399,364) { Left=785 Top=30 } Add(Memo,2027084,714,336) { Left=860 Top=5 Width=290 AddType=1 ScrollBars=2 }
--- Добавлено в 2018-12-11 07:52:57запрос надо было делать не из TABLE а из data. Теперь нет ошибки но все равно нифига по запросу не выдает. Редактировалось 1 раз(а), последний 2018-12-11 07:52:57
|