Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
M
merenje-temperature
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
mlekara-merenje_temperature
merenje-temperature
Commits
c6585ac0
Commit
c6585ac0
authored
Nov 30, 2020
by
Zoran Krstin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- temp da je float
parent
99b3f33f
Show whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
163 additions
and
131 deletions
+163
-131
MlekaraCB.cbproj
MlekaraCB.cbproj
+3
-3
MlekaraMain.cpp
MlekaraMain.cpp
+22
-4
MlekaraMain.dfm
MlekaraMain.dfm
+45
-43
MlekaraMain.h
MlekaraMain.h
+5
-1
Connection.dfm
dbUtility/Connection.dfm
+5
-27
dbDm.dfm
dbUtility/dbDm.dfm
+70
-40
dbDm.h
dbUtility/dbDm.h
+13
-13
No files found.
MlekaraCB.cbproj
View file @
c6585ac0
...
@@ -38,7 +38,7 @@
...
@@ -38,7 +38,7 @@
<Multithreaded>true</Multithreaded>
<Multithreaded>true</Multithreaded>
<Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
<Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<AllPackageLibs>rtl.lib;vcl.lib;dbrtl.lib;dbexpress.lib;DbxCommonDriver.lib;DBXMySQLDriver.lib;dsnap.lib;cxLibraryRS19.lib;dxGDIPlusRS19.lib;dxCoreRS19.lib;dxThemeRS19.lib;vclx.lib;cxEditorsRS19.lib;cxDataRS19.lib;vclimg.lib;vcldb.lib;cxGridRS19.lib;dxLayoutControlRS19.lib;cxPageControlRS19.lib;dxComnRS19.lib;cxExportRS19.lib;xmlrtl.lib;dxServerModeRS19.lib;dxSkinsCoreRS19.lib;dxSkinscxPCPainterRS19.lib;dxSkinBlackRS19.lib;dxSkinBlueprintRS19.lib;dxSkinBlueRS19.lib;dxSkinCaramelRS19.lib;dxSkinCoffeeRS19.lib;dxSkinDarkRoomRS19.lib;dxSkinDarkSideRS19.lib;dxSkinDevExpressDarkStyleRS19.lib;dxSkinDevExpressStyleRS19.lib;dxSkinFoggyRS19.lib;dxSkinGlassOceansRS19.lib;dxSkinHighContrastRS19.lib;dxSkiniMaginaryRS19.lib;dxSkinLilianRS19.lib;dxSkinLiquidSkyRS19.lib;dxSkinLondonLiquidSkyRS19.lib;dxSkinMcSkinRS19.lib;dxSkinMoneyTwinsRS19.lib;dxSkinOffice2007BlackRS19.lib;dxSkinOffice2007BlueRS19.lib;dxSkinOffice2007GreenRS19.lib;dxSkinOffice2007PinkRS19.lib;dxSkinOffice2007SilverRS19.lib;dxSkinOffice2010BlackRS19.lib;dxSkinOffice2010BlueRS19.lib;dxSkinOffice2010SilverRS19.lib;dxSkinOffice2013WhiteRS19.lib;dxSkinPumpkinRS19.lib;dxSkinSevenClassicRS19.lib;dxSkinSevenRS19.lib;dxSkinSharpPlusRS19.lib;dxSkinSharpRS19.lib;dxSkinSilverRS19.lib;dxSkinSpringTimeRS19.lib;dxSkinStardustRS19.lib;dxSkinSummer2008RS19.lib;dxSkinTheAsphaltWorldRS19.lib;dxSkinValentineRS19.lib;dxSkinVS2010RS19.lib;dxSkinWhiteprintRS19.lib;dxSkinXmas2008BlueRS19.lib;cxPageControldxBarPopupMenuRS19.lib;dxBarRS19.lib;frx19.lib;fs19.lib;fqb190.lib;bdertl.lib;IndySystem.lib;tmsdXE5.lib;adortl.lib;vclactnband.lib;VclSmp.lib;frxDB19.lib;fsDB19.lib;dxPSCoreRS19.lib;dxPScxCommonRS19.lib;dxPSLnksRS19.lib;dxPScxExtCommonRS19.lib;dxPScxGridLnkRS19.lib;dxPSdxLCLnkRS19.lib;dxPsPrVwAdvRS19.lib;dxBarExtItemsRS19.lib;dxPSPrVwRibbonRS19.lib;dxRibbonRS19.lib;dxSkinsdxBarPainterRS19.lib;dxSkinsdxRibbonPainterRS19.lib;dxPScxPCProdRS19.lib</AllPackageLibs>
<AllPackageLibs>rtl.lib;vcl.lib;dbrtl.lib;dbexpress.lib;DbxCommonDriver.lib;DBXMySQLDriver.lib;dsnap.lib;cxLibraryRS19.lib;dxGDIPlusRS19.lib;dxCoreRS19.lib;dxThemeRS19.lib;vclx.lib;cxEditorsRS19.lib;cxDataRS19.lib;vclimg.lib;vcldb.lib;cxGridRS19.lib;dxLayoutControlRS19.lib;cxPageControlRS19.lib;dxComnRS19.lib;cxExportRS19.lib;xmlrtl.lib;dxServerModeRS19.lib;dxSkinsCoreRS19.lib;dxSkinscxPCPainterRS19.lib;dxSkinBlackRS19.lib;dxSkinBlueprintRS19.lib;dxSkinBlueRS19.lib;dxSkinCaramelRS19.lib;dxSkinCoffeeRS19.lib;dxSkinDarkRoomRS19.lib;dxSkinDarkSideRS19.lib;dxSkinDevExpressDarkStyleRS19.lib;dxSkinDevExpressStyleRS19.lib;dxSkinFoggyRS19.lib;dxSkinGlassOceansRS19.lib;dxSkinHighContrastRS19.lib;dxSkiniMaginaryRS19.lib;dxSkinLilianRS19.lib;dxSkinLiquidSkyRS19.lib;dxSkinLondonLiquidSkyRS19.lib;dxSkinMcSkinRS19.lib;dxSkinMoneyTwinsRS19.lib;dxSkinOffice2007BlackRS19.lib;dxSkinOffice2007BlueRS19.lib;dxSkinOffice2007GreenRS19.lib;dxSkinOffice2007PinkRS19.lib;dxSkinOffice2007SilverRS19.lib;dxSkinOffice2010BlackRS19.lib;dxSkinOffice2010BlueRS19.lib;dxSkinOffice2010SilverRS19.lib;dxSkinOffice2013WhiteRS19.lib;dxSkinPumpkinRS19.lib;dxSkinSevenClassicRS19.lib;dxSkinSevenRS19.lib;dxSkinSharpPlusRS19.lib;dxSkinSharpRS19.lib;dxSkinSilverRS19.lib;dxSkinSpringTimeRS19.lib;dxSkinStardustRS19.lib;dxSkinSummer2008RS19.lib;dxSkinTheAsphaltWorldRS19.lib;dxSkinValentineRS19.lib;dxSkinVS2010RS19.lib;dxSkinWhiteprintRS19.lib;dxSkinXmas2008BlueRS19.lib;cxPageControldxBarPopupMenuRS19.lib;dxBarRS19.lib;frx19.lib;fs19.lib;fqb190.lib;bdertl.lib;IndySystem.lib;tmsdXE5.lib;adortl.lib;vclactnband.lib;VclSmp.lib;frxDB19.lib;fsDB19.lib;dxPSCoreRS19.lib;dxPScxCommonRS19.lib;dxPSLnksRS19.lib;dxPScxExtCommonRS19.lib;dxPScxGridLnkRS19.lib;dxPSdxLCLnkRS19.lib;dxPsPrVwAdvRS19.lib;dxBarExtItemsRS19.lib;dxPSPrVwRibbonRS19.lib;dxRibbonRS19.lib;dxSkinsdxBarPainterRS19.lib;dxSkinsdxRibbonPainterRS19.lib;dxPScxPCProdRS19.lib
;tmscxe5.lib;bcbie.lib;bcbsmp.lib
</AllPackageLibs>
<_TCHARMapping>wchar_t</_TCHARMapping>
<_TCHARMapping>wchar_t</_TCHARMapping>
<ILINK_LibraryPath>C:\Program Files (x86)\Components\FastReport 4\LibD19\;C:\projects\Embracadero\Cashit\;dbUtility\;..\..\..\Desktop\Mlekara\;$(ILINK_LibraryPath)</ILINK_LibraryPath>
<ILINK_LibraryPath>C:\Program Files (x86)\Components\FastReport 4\LibD19\;C:\projects\Embracadero\Cashit\;dbUtility\;..\..\..\Desktop\Mlekara\;$(ILINK_LibraryPath)</ILINK_LibraryPath>
<ProjectType>CppVCLApplication</ProjectType>
<ProjectType>CppVCLApplication</ProjectType>
...
@@ -85,8 +85,8 @@
...
@@ -85,8 +85,8 @@
<ILINK_TranslatedLibraryPath>$(BDSLIB)\$(PLATFORM)\debug\$(LANGDIR);$(ILINK_TranslatedLibraryPath)</ILINK_TranslatedLibraryPath>
<ILINK_TranslatedLibraryPath>$(BDSLIB)\$(PLATFORM)\debug\$(LANGDIR);$(ILINK_TranslatedLibraryPath)</ILINK_TranslatedLibraryPath>
</PropertyGroup>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<LinkPackageStatics>fqb190.lib</LinkPackageStatics>
<LinkPackageStatics>fqb190.lib
;tmscxe5.lib
</LinkPackageStatics>
<LinkPackageImports>rtl.bpi;vcl.bpi;dbrtl.bpi;dbexpress.bpi;DbxCommonDriver.bpi;DBXMySQLDriver.bpi;dsnap.bpi;cxLibraryRS19.bpi;dxGDIPlusRS19.bpi;dxCoreRS19.bpi;dxThemeRS19.bpi;vclx.bpi;cxEditorsRS19.bpi;cxDataRS19.bpi;vclimg.bpi;vcldb.bpi;cxGridRS19.bpi;dxLayoutControlRS19.bpi;cxPageControlRS19.bpi;dxComnRS19.bpi;cxExportRS19.bpi;xmlrtl.bpi;dxServerModeRS19.bpi;dxSkinsCoreRS19.bpi;dxSkinscxPCPainterRS19.bpi;dxSkinBlackRS19.bpi;dxSkinBlueprintRS19.bpi;dxSkinBlueRS19.bpi;dxSkinCaramelRS19.bpi;dxSkinCoffeeRS19.bpi;dxSkinDarkRoomRS19.bpi;dxSkinDarkSideRS19.bpi;dxSkinDevExpressDarkStyleRS19.bpi;dxSkinDevExpressStyleRS19.bpi;dxSkinFoggyRS19.bpi;dxSkinGlassOceansRS19.bpi;dxSkinHighContrastRS19.bpi;dxSkiniMaginaryRS19.bpi;dxSkinLilianRS19.bpi;dxSkinLiquidSkyRS19.bpi;dxSkinLondonLiquidSkyRS19.bpi;dxSkinMcSkinRS19.bpi;dxSkinMoneyTwinsRS19.bpi;dxSkinOffice2007BlackRS19.bpi;dxSkinOffice2007BlueRS19.bpi;dxSkinOffice2007GreenRS19.bpi;dxSkinOffice2007PinkRS19.bpi;dxSkinOffice2007SilverRS19.bpi;dxSkinOffice2010BlackRS19.bpi;dxSkinOffice2010BlueRS19.bpi;dxSkinOffice2010SilverRS19.bpi;dxSkinOffice2013WhiteRS19.bpi;dxSkinPumpkinRS19.bpi;dxSkinSevenClassicRS19.bpi;dxSkinSevenRS19.bpi;dxSkinSharpPlusRS19.bpi;dxSkinSharpRS19.bpi;dxSkinSilverRS19.bpi;dxSkinSpringTimeRS19.bpi;dxSkinStardustRS19.bpi;dxSkinSummer2008RS19.bpi;dxSkinTheAsphaltWorldRS19.bpi;dxSkinValentineRS19.bpi;dxSkinVS2010RS19.bpi;dxSkinWhiteprintRS19.bpi;dxSkinXmas2008BlueRS19.bpi;cxPageControldxBarPopupMenuRS19.bpi;dxBarRS19.bpi;frx19.bpi;fs19.bpi;bdertl.bpi;IndySystem.bpi;tmsdXE5.bpi;adortl.bpi;vclactnband.bpi;VclSmp.bpi;frxDB19.bpi;fsDB19.bpi;dxPSCoreRS19.bpi;dxPScxCommonRS19.bpi;dxPSLnksRS19.bpi;dxPScxExtCommonRS19.bpi;dxPScxGridLnkRS19.bpi;dxPSdxLCLnkRS19.bpi;dxPsPrVwAdvRS19.bpi;dxBarExtItemsRS19.bpi;dxPSPrVwRibbonRS19.bpi;dxRibbonRS19.bpi;dxSkinsdxBarPainterRS19.bpi;dxSkinsdxRibbonPainterRS19.bpi;dxPScxPCProdRS19.bpi</LinkPackageImports>
<LinkPackageImports>rtl.bpi;vcl.bpi;dbrtl.bpi;dbexpress.bpi;DbxCommonDriver.bpi;DBXMySQLDriver.bpi;dsnap.bpi;cxLibraryRS19.bpi;dxGDIPlusRS19.bpi;dxCoreRS19.bpi;dxThemeRS19.bpi;vclx.bpi;cxEditorsRS19.bpi;cxDataRS19.bpi;vclimg.bpi;vcldb.bpi;cxGridRS19.bpi;dxLayoutControlRS19.bpi;cxPageControlRS19.bpi;dxComnRS19.bpi;cxExportRS19.bpi;xmlrtl.bpi;dxServerModeRS19.bpi;dxSkinsCoreRS19.bpi;dxSkinscxPCPainterRS19.bpi;dxSkinBlackRS19.bpi;dxSkinBlueprintRS19.bpi;dxSkinBlueRS19.bpi;dxSkinCaramelRS19.bpi;dxSkinCoffeeRS19.bpi;dxSkinDarkRoomRS19.bpi;dxSkinDarkSideRS19.bpi;dxSkinDevExpressDarkStyleRS19.bpi;dxSkinDevExpressStyleRS19.bpi;dxSkinFoggyRS19.bpi;dxSkinGlassOceansRS19.bpi;dxSkinHighContrastRS19.bpi;dxSkiniMaginaryRS19.bpi;dxSkinLilianRS19.bpi;dxSkinLiquidSkyRS19.bpi;dxSkinLondonLiquidSkyRS19.bpi;dxSkinMcSkinRS19.bpi;dxSkinMoneyTwinsRS19.bpi;dxSkinOffice2007BlackRS19.bpi;dxSkinOffice2007BlueRS19.bpi;dxSkinOffice2007GreenRS19.bpi;dxSkinOffice2007PinkRS19.bpi;dxSkinOffice2007SilverRS19.bpi;dxSkinOffice2010BlackRS19.bpi;dxSkinOffice2010BlueRS19.bpi;dxSkinOffice2010SilverRS19.bpi;dxSkinOffice2013WhiteRS19.bpi;dxSkinPumpkinRS19.bpi;dxSkinSevenClassicRS19.bpi;dxSkinSevenRS19.bpi;dxSkinSharpPlusRS19.bpi;dxSkinSharpRS19.bpi;dxSkinSilverRS19.bpi;dxSkinSpringTimeRS19.bpi;dxSkinStardustRS19.bpi;dxSkinSummer2008RS19.bpi;dxSkinTheAsphaltWorldRS19.bpi;dxSkinValentineRS19.bpi;dxSkinVS2010RS19.bpi;dxSkinWhiteprintRS19.bpi;dxSkinXmas2008BlueRS19.bpi;cxPageControldxBarPopupMenuRS19.bpi;dxBarRS19.bpi;frx19.bpi;fs19.bpi;bdertl.bpi;IndySystem.bpi;tmsdXE5.bpi;adortl.bpi;vclactnband.bpi;VclSmp.bpi;frxDB19.bpi;fsDB19.bpi;dxPSCoreRS19.bpi;dxPScxCommonRS19.bpi;dxPSLnksRS19.bpi;dxPScxExtCommonRS19.bpi;dxPScxGridLnkRS19.bpi;dxPSdxLCLnkRS19.bpi;dxPsPrVwAdvRS19.bpi;dxBarExtItemsRS19.bpi;dxPSPrVwRibbonRS19.bpi;dxRibbonRS19.bpi;dxSkinsdxBarPainterRS19.bpi;dxSkinsdxRibbonPainterRS19.bpi;dxPScxPCProdRS19.bpi
;bcbie.bpi;bcbsmp.bpi
</LinkPackageImports>
</PropertyGroup>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<Defines>NDEBUG;$(Defines)</Defines>
<Defines>NDEBUG;$(Defines)</Defines>
...
...
MlekaraMain.cpp
View file @
c6585ac0
...
@@ -154,11 +154,9 @@ void __fastcall TMainForm::FormShow(TObject *Sender)
...
@@ -154,11 +154,9 @@ void __fastcall TMainForm::FormShow(TObject *Sender)
db
->
dsArtikli
->
OnDataChange
=
&
ArtikliDataChange
;
db
->
dsArtikli
->
OnDataChange
=
&
ArtikliDataChange
;
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
-
void
__fastcall
TMainForm
::
ArtikliDataChange
(
TObject
*
Sender
,
TField
*
Field
)
void
__fastcall
TMainForm
::
Pregled
(
)
{
{
if
(
Field
==
NULL
)
{
db
->
cdsStampa
->
Active
=
false
;
db
->
cdsStampa
->
Active
=
false
;
db
->
sdsStampa
->
ParamByName
(
"ID"
)
->
AsInteger
=
db
->
cdsArtikli
->
FieldByName
(
"id_uredjaja"
)
->
AsInteger
;
db
->
sdsStampa
->
ParamByName
(
"ID"
)
->
AsInteger
=
db
->
cdsArtikli
->
FieldByName
(
"id_uredjaja"
)
->
AsInteger
;
db
->
sdsStampa
->
ParamByName
(
"D1"
)
->
AsDateTime
=
db
->
cdsArtikli
->
FieldByName
(
"OD"
)
->
AsDateTime
;
db
->
sdsStampa
->
ParamByName
(
"D1"
)
->
AsDateTime
=
db
->
cdsArtikli
->
FieldByName
(
"OD"
)
->
AsDateTime
;
...
@@ -186,6 +184,13 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
...
@@ -186,6 +184,13 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
cxLabel11
->
Caption
=
db
->
cdsArtikli
->
FieldByName
(
"zadata_temperatura"
)
->
AsString
;
cxLabel11
->
Caption
=
db
->
cdsArtikli
->
FieldByName
(
"zadata_temperatura"
)
->
AsString
;
db
->
sqlMaxTemp
->
Close
();
db
->
sqlMaxTemp
->
Close
();
}
//---------------------------------------------------------------------------
void
__fastcall
TMainForm
::
ArtikliDataChange
(
TObject
*
Sender
,
TField
*
Field
)
{
if
(
Field
==
NULL
)
{
Pregled
();
}
}
}
}
void
__fastcall
TMainForm
::
AdvDateTimePicker1Change
(
TObject
*
Sender
)
void
__fastcall
TMainForm
::
AdvDateTimePicker1Change
(
TObject
*
Sender
)
...
@@ -218,3 +223,16 @@ void __fastcall TMainForm::cxButton2Click(TObject *Sender)
...
@@ -218,3 +223,16 @@ void __fastcall TMainForm::cxButton2Click(TObject *Sender)
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void
__fastcall
TMainForm
::
FormCreate
(
TObject
*
Sender
)
{
cxPageControl1
->
ActivePage
=
cxTabSheet1
;
}
//---------------------------------------------------------------------------
void
__fastcall
TMainForm
::
cxButton3Click
(
TObject
*
Sender
)
{
Pregled
();
}
//---------------------------------------------------------------------------
MlekaraMain.dfm
View file @
c6585ac0
object MainForm: TMainForm
object MainForm: TMainForm
Left = 0
Left = 0
Top = 0
Top = 0
Caption = 'M
ainForm
'
Caption = 'M
erenje temperature
'
ClientHeight = 657
ClientHeight = 657
ClientWidth = 1489
ClientWidth = 1489
Color = clBtnFace
Color = clBtnFace
...
@@ -11,6 +11,7 @@ object MainForm: TMainForm
...
@@ -11,6 +11,7 @@ object MainForm: TMainForm
Font.Name = 'Tahoma'
Font.Name = 'Tahoma'
Font.Style = []
Font.Style = []
OldCreateOrder = False
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
OnShow = FormShow
PixelsPerInch = 96
PixelsPerInch = 96
TextHeight = 13
TextHeight = 13
...
@@ -23,16 +24,12 @@ object MainForm: TMainForm
...
@@ -23,16 +24,12 @@ object MainForm: TMainForm
TabOrder = 0
TabOrder = 0
Properties.ActivePage = cxTabSheet1
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectRight = 1489
ClientRectTop = 24
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
Caption = 'Glavna'
ImageIndex = 0
ImageIndex = 0
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
object cxGrid1: TcxGrid
Left = 0
Left = 0
Top = 0
Top = 0
...
@@ -40,8 +37,6 @@ object MainForm: TMainForm
...
@@ -40,8 +37,6 @@ object MainForm: TMainForm
Height = 283
Height = 283
Align = alClient
Align = alClient
TabOrder = 0
TabOrder = 0
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
DiagramColumn.Active = True
...
@@ -67,8 +62,6 @@ object MainForm: TMainForm
...
@@ -67,8 +62,6 @@ object MainForm: TMainForm
Align = alBottom
Align = alBottom
Alignment = alCenterCenter
Alignment = alCenterCenter
TabOrder = 1
TabOrder = 1
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Height = 350
Width = 1489
Width = 1489
object cxGrid5: TcxGrid
object cxGrid5: TcxGrid
...
@@ -78,6 +71,8 @@ object MainForm: TMainForm
...
@@ -78,6 +71,8 @@ object MainForm: TMainForm
Height = 346
Height = 346
Align = alLeft
Align = alLeft
TabOrder = 0
TabOrder = 0
ExplicitLeft = 3
ExplicitTop = 6
object cxGrid5DBChartView1: TcxGridDBChartView
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Active = True
...
@@ -197,8 +192,6 @@ object MainForm: TMainForm
...
@@ -197,8 +192,6 @@ object MainForm: TMainForm
object cxTabSheet2: TcxTabSheet
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
Caption = 'Stampa'
ImageIndex = 1
ImageIndex = 1
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
object cxGroupBox2: TcxGroupBox
Left = 0
Left = 0
Top = 0
Top = 0
...
@@ -206,7 +199,6 @@ object MainForm: TMainForm
...
@@ -206,7 +199,6 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Alignment = alCenterCenter
TabOrder = 0
TabOrder = 0
Transparent = True
Transparent = True
ExplicitHeight = 614
Height = 633
Height = 633
Width = 297
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
object cxDBTextEdit1: TcxDBTextEdit
...
@@ -252,25 +244,39 @@ object MainForm: TMainForm
...
@@ -252,25 +244,39 @@ object MainForm: TMainForm
Height = 55
Height = 55
Width = 293
Width = 293
object btSave: TcxButton
object btSave: TcxButton
Left =
137
Left =
98
Top = 2
Top = 2
Width =
13
6
Width =
9
6
Height = 51
Height = 51
Align = alLeft
Align = alLeft
Caption = 'Snimi'
Caption = 'Snimi'
TabOrder = 0
TabOrder = 0
OnClick = btSaveClick
OnClick = btSaveClick
ExplicitLeft = 72
ExplicitTop = 1
end
end
object btNew: TcxButton
object btNew: TcxButton
Left = 2
Left = 2
Top = 2
Top = 2
Width =
135
Width =
96
Height = 51
Height = 51
Align = alLeft
Align = alLeft
Caption = 'Novi'
Caption = 'Novi'
TabOrder = 1
TabOrder = 1
OnClick = btNewClick
OnClick = btNewClick
end
end
object cxButton3: TcxButton
Left = 194
Top = 2
Width = 96
Height = 51
Align = alLeft
Caption = 'Pregled'
TabOrder = 2
OnClick = cxButton3Click
ExplicitLeft = 177
ExplicitTop = 1
end
end
end
object cxLabel4: TcxLabel
object cxLabel4: TcxLabel
Left = 16
Left = 16
...
@@ -346,6 +352,20 @@ object MainForm: TMainForm
...
@@ -346,6 +352,20 @@ object MainForm: TMainForm
TabOrder = 11
TabOrder = 11
Width = 105
Width = 105
end
end
object cxDBLookupComboBox1: TcxDBLookupComboBox
Left = 16
Top = 302
DataBinding.DataField = 'id_uredjaja'
DataBinding.DataSource = db.dsArtikli
Properties.KeyFieldNames = 'id'
Properties.ListColumns = <
item
FieldName = 'id'
end>
Properties.ListSource = db.dsUredjaj
TabOrder = 12
Width = 88
end
end
end
object cxGroupBox3: TcxGroupBox
object cxGroupBox3: TcxGroupBox
Left = 297
Left = 297
...
@@ -353,8 +373,6 @@ object MainForm: TMainForm
...
@@ -353,8 +373,6 @@ object MainForm: TMainForm
Align = alClient
Align = alClient
Alignment = alCenterCenter
Alignment = alCenterCenter
TabOrder = 1
TabOrder = 1
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Height = 633
Width = 1192
Width = 1192
object cxGroupBox5: TcxGroupBox
object cxGroupBox5: TcxGroupBox
...
@@ -363,7 +381,6 @@ object MainForm: TMainForm
...
@@ -363,7 +381,6 @@ object MainForm: TMainForm
Align = alTop
Align = alTop
Alignment = alCenterCenter
Alignment = alCenterCenter
TabOrder = 0
TabOrder = 0
ExplicitWidth = 1063
Height = 271
Height = 271
Width = 1188
Width = 1188
object cxGrid6: TcxGrid
object cxGrid6: TcxGrid
...
@@ -373,7 +390,6 @@ object MainForm: TMainForm
...
@@ -373,7 +390,6 @@ object MainForm: TMainForm
Height = 267
Height = 267
Align = alClient
Align = alClient
TabOrder = 0
TabOrder = 0
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.DataSource = db.dsArtikli
...
@@ -424,7 +440,6 @@ object MainForm: TMainForm
...
@@ -424,7 +440,6 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
Style.BorderStyle = ebsNone
TabOrder = 1
TabOrder = 1
ExplicitHeight = 339
Height = 358
Height = 358
Width = 679
Width = 679
object cxGrid7: TcxGrid
object cxGrid7: TcxGrid
...
@@ -434,7 +449,6 @@ object MainForm: TMainForm
...
@@ -434,7 +449,6 @@ object MainForm: TMainForm
Height = 315
Height = 315
Align = alLeft
Align = alLeft
TabOrder = 0
TabOrder = 0
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Active = True
...
@@ -442,6 +456,9 @@ object MainForm: TMainForm
...
@@ -442,6 +456,9 @@ object MainForm: TMainForm
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
DiagramLine.Legend.Position = cppLeft
DiagramLine.AxisCategory.Title.Text = 'Merenje temperature'
DiagramLine.Values.HotSpotSize = 7
DiagramLine.Values.LineWidth = 3
Title.Alignment = cpaCenter
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
Title.Position = cppBottom
...
@@ -551,8 +568,6 @@ object MainForm: TMainForm
...
@@ -551,8 +568,6 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
Style.BorderStyle = ebsNone
TabOrder = 2
TabOrder = 2
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Height = 358
Width = 496
Width = 496
object cxGrid8: TcxGrid
object cxGrid8: TcxGrid
...
@@ -562,10 +577,6 @@ object MainForm: TMainForm
...
@@ -562,10 +577,6 @@ object MainForm: TMainForm
Height = 315
Height = 315
Align = alClient
Align = alClient
TabOrder = 0
TabOrder = 0
ExplicitLeft = 126
ExplicitTop = 128
ExplicitWidth = 250
ExplicitHeight = 200
object cxGrid8DBChartView1: TcxGridDBChartView
object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Active = True
...
@@ -573,6 +584,8 @@ object MainForm: TMainForm
...
@@ -573,6 +584,8 @@ object MainForm: TMainForm
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.Position = cppLeft
DiagramLine.Legend.Position = cppLeft
DiagramLine.AxisCategory.Title.Text = 'Naslov'
DiagramLine.Values.LineWidth = 3
Title.Alignment = cpaCenter
Title.Alignment = cpaCenter
Title.Position = cppTop
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.Border = tbNone
...
@@ -618,22 +631,9 @@ object MainForm: TMainForm
...
@@ -618,22 +631,9 @@ object MainForm: TMainForm
end
end
end
end
end
end
object cxDBLookupComboBox1: TcxDBLookupComboBox
Left = 16
Top = 326
DataBinding.DataField = 'id_uredjaja'
DataBinding.DataSource = db.dsArtikli
Properties.KeyFieldNames = 'id'
Properties.ListColumns = <
item
FieldName = 'id'
end>
Properties.ListSource = db.dsUredjaj
TabOrder = 1
Width = 88
end
object dxComponentPrinter1: TdxComponentPrinter
object dxComponentPrinter1: TdxComponentPrinter
CurrentLink = dxComponentPrinter1Link1
CurrentLink = dxComponentPrinter1Link1
PrintTitle = 'Merenje temperature'
Version = 0
Version = 0
Left = 568
Left = 568
Top = 424
Top = 424
...
@@ -642,6 +642,7 @@ object MainForm: TMainForm
...
@@ -642,6 +642,7 @@ object MainForm: TMainForm
Component = cxGroupBox6
Component = cxGroupBox6
PrinterPage.DMPaper = 9
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
PrinterPage.Footer = 200
PrinterPage.GrayShading = True
PrinterPage.Header = 200
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Left = 500
...
@@ -651,7 +652,7 @@ object MainForm: TMainForm
...
@@ -651,7 +652,7 @@ object MainForm: TMainForm
PrinterPage.PageSize.Y = 11700
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 4416
1.41231870370
0000000
ReportDocument.CreationDate = 4416
5.45672890046
0000000
BuiltInReportLink = True
BuiltInReportLink = True
HiddenComponents = {}
HiddenComponents = {}
ExcludedComponents = {}
ExcludedComponents = {}
...
@@ -668,6 +669,7 @@ object MainForm: TMainForm
...
@@ -668,6 +669,7 @@ object MainForm: TMainForm
Component = cxGroupBox7
Component = cxGroupBox7
PrinterPage.DMPaper = 9
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
PrinterPage.Footer = 200
PrinterPage.GrayShading = True
PrinterPage.Header = 200
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Left = 500
...
@@ -677,7 +679,7 @@ object MainForm: TMainForm
...
@@ -677,7 +679,7 @@ object MainForm: TMainForm
PrinterPage.PageSize.Y = 11700
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 4416
1.43139740741
0000000
ReportDocument.CreationDate = 4416
5.45672896990
0000000
BuiltInReportLink = True
BuiltInReportLink = True
HiddenComponents = {}
HiddenComponents = {}
ExcludedComponents = {}
ExcludedComponents = {}
...
...
MlekaraMain.h
View file @
c6585ac0
...
@@ -171,7 +171,6 @@ __published: // IDE-managed Components
...
@@ -171,7 +171,6 @@ __published: // IDE-managed Components
TcxLabel
*
cxLabel4
;
TcxLabel
*
cxLabel4
;
TAdvDateTimePicker
*
AdvDateTimePicker2
;
TAdvDateTimePicker
*
AdvDateTimePicker2
;
TcxLabel
*
Uredjaj
;
TcxLabel
*
Uredjaj
;
TcxDBLookupComboBox
*
cxDBLookupComboBox1
;
TdxComponentPrinter
*
dxComponentPrinter1
;
TdxComponentPrinter
*
dxComponentPrinter1
;
TAdvDateTimePicker
*
AdvDateTimePicker1
;
TAdvDateTimePicker
*
AdvDateTimePicker1
;
TcxGroupBox
*
cxGroupBox5
;
TcxGroupBox
*
cxGroupBox5
;
...
@@ -218,6 +217,8 @@ __published: // IDE-managed Components
...
@@ -218,6 +217,8 @@ __published: // IDE-managed Components
TcxButton
*
cxButton2
;
TcxButton
*
cxButton2
;
TdxComponentPrinter
*
dxComponentPrinter2
;
TdxComponentPrinter
*
dxComponentPrinter2
;
TdxCustomContainerReportLink
*
dxComponentPrinter2Link1
;
TdxCustomContainerReportLink
*
dxComponentPrinter2Link1
;
TcxDBLookupComboBox
*
cxDBLookupComboBox1
;
TcxButton
*
cxButton3
;
void
__fastcall
btNewClick
(
TObject
*
Sender
);
void
__fastcall
btNewClick
(
TObject
*
Sender
);
void
__fastcall
btSaveClick
(
TObject
*
Sender
);
void
__fastcall
btSaveClick
(
TObject
*
Sender
);
void
__fastcall
FormShow
(
TObject
*
Sender
);
void
__fastcall
FormShow
(
TObject
*
Sender
);
...
@@ -225,11 +226,14 @@ __published: // IDE-managed Components
...
@@ -225,11 +226,14 @@ __published: // IDE-managed Components
void
__fastcall
AdvDateTimePicker2Change
(
TObject
*
Sender
);
void
__fastcall
AdvDateTimePicker2Change
(
TObject
*
Sender
);
void
__fastcall
cxButton1Click
(
TObject
*
Sender
);
void
__fastcall
cxButton1Click
(
TObject
*
Sender
);
void
__fastcall
cxButton2Click
(
TObject
*
Sender
);
void
__fastcall
cxButton2Click
(
TObject
*
Sender
);
void
__fastcall
FormCreate
(
TObject
*
Sender
);
void
__fastcall
cxButton3Click
(
TObject
*
Sender
);
private
:
// User declarations
private
:
// User declarations
Tdb
*
dbGets
;
Tdb
*
dbGets
;
void
__fastcall
TMainForm
::
ArtikliDataChange
(
TObject
*
Sender
,
TField
*
Field
);
void
__fastcall
TMainForm
::
ArtikliDataChange
(
TObject
*
Sender
,
TField
*
Field
);
public
:
// User declarations
public
:
// User declarations
__fastcall
TMainForm
(
TComponent
*
Owner
);
__fastcall
TMainForm
(
TComponent
*
Owner
);
void
__fastcall
Pregled
();
};
};
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
extern
PACKAGE
TMainForm
*
MainForm
;
extern
PACKAGE
TMainForm
*
MainForm
;
...
...
dbUtility/Connection.dfm
View file @
c6585ac0
...
@@ -5,43 +5,21 @@ object DataModule1: TDataModule1
...
@@ -5,43 +5,21 @@ object DataModule1: TDataModule1
object mysql: TSQLConnection
object mysql: TSQLConnection
ConnectionName = 'MySQLConnection'
ConnectionName = 'MySQLConnection'
DriverName = 'MySQL'
DriverName = 'MySQL'
LoadParamsOnConnect = True
LoginPrompt = False
LoginPrompt = False
Params.Strings = (
Params.Strings = (
'DriverUnit=Data.DBXMySQL'
'DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver190.' +
'bpl'
'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
'nd.Data.DbxCommonDriver,Version=19.0.0.0,Culture=neutral,PublicK' +
'eyToken=91d62ebb5b0d1b1b'
'MetaDataPackageLoader=TDBXMySqlMetaDataCommandFactory,DbxMySQLDr' +
'iver190.bpl'
'MetaDataAssemblyLoader=Borland.Data.TDBXMySqlMetaDataCommandFact' +
'ory,Borland.Data.DbxMySQLDriver,Version=19.0.0.0,Culture=neutral' +
',PublicKeyToken=91d62ebb5b0d1b1b'
'GetDriverFunc=getSQLDriverMYSQL'
'LibraryName=dbxmys.dll'
'LibraryNameOsx=libsqlmys.dylib'
'VendorLib=LIBMYSQL.dll'
'VendorLibWin64=libmysql.dll'
'VendorLibOsx=libmysqlclient.dylib'
'MaxBlobSize=-1'
'DriverName=MySQL'
'DriverName=MySQL'
'HostName=
46.174.100.13
'
'HostName=
127.0.0.1
'
'Database=c0mlekaraadmin'
'Database=c0mlekaraadmin'
'User_Name=c0mlekaraadmin'
'User_Name=root'
'Password=Ml3K@rA!'
'ServerCharSet='
'ServerCharSet='
'BlobSize=-1'
'BlobSize=-1'
'ErrorResourceFile='
'ErrorResourceFile='
'LocaleCode=0000'
'LocaleCode=0000'
'Compressed=False'
'Compressed=False'
'Encrypted=False'
'Encrypted=False'
'ConnectTimeout=60'
)
'ConnectTimeout=60'
Connected = True
'Password=bus999')
Left = 64
Left = 64
Top = 24
Top = 24
end
end
...
...
dbUtility/dbDm.dfm
View file @
c6585ac0
...
@@ -4,9 +4,9 @@ object db: Tdb
...
@@ -4,9 +4,9 @@ object db: Tdb
Width = 1042
Width = 1042
object sdsMlekara: TSQLDataSet
object sdsMlekara: TSQLDataSet
CommandText =
CommandText =
'select id,temperatura
,(temperatura / 20) as temper,'#13#10'DATE_FORMAT
' +
'select id,temperatura
/10.00 as temperatura,(temperatura / 20) as
' +
'
(vreme,'#39'%H:%i:%s'#39') as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraad
' +
'
temper,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vreme,'#13#10'vreme as vrem
' +
'min.mlekara ORDER BY vreme1 DESC LIMIT 20'
'
e1 '#13#10'from c0mlekaraad
min.mlekara ORDER BY vreme1 DESC LIMIT 20'
MaxBlobSize = -1
MaxBlobSize = -1
Params = <>
Params = <>
SQLConnection = DataModule1.mysql
SQLConnection = DataModule1.mysql
...
@@ -15,9 +15,6 @@ object db: Tdb
...
@@ -15,9 +15,6 @@ object db: Tdb
object sdsMlekaraid: TIntegerField
object sdsMlekaraid: TIntegerField
FieldName = 'id'
FieldName = 'id'
end
end
object sdsMlekaratemperatura: TIntegerField
FieldName = 'temperatura'
end
object sdsMlekaravreme: TStringField
object sdsMlekaravreme: TStringField
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
...
@@ -27,6 +24,11 @@ object db: Tdb
...
@@ -27,6 +24,11 @@ object db: Tdb
Precision = 16
Precision = 16
Size = 4
Size = 4
end
end
object sdsMlekaratemperatura: TFMTBCDField
FieldName = 'temperatura'
Precision = 18
Size = 4
end
end
end
object dspMlekara: TDataSetProvider
object dspMlekara: TDataSetProvider
DataSet = sdsMlekara
DataSet = sdsMlekara
...
@@ -42,9 +44,6 @@ object db: Tdb
...
@@ -42,9 +44,6 @@ object db: Tdb
object cdsMlekaraid: TIntegerField
object cdsMlekaraid: TIntegerField
FieldName = 'id'
FieldName = 'id'
end
end
object cdsMlekaratemperatura: TIntegerField
FieldName = 'temperatura'
end
object cdsMlekaravreme: TStringField
object cdsMlekaravreme: TStringField
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
...
@@ -54,6 +53,11 @@ object db: Tdb
...
@@ -54,6 +53,11 @@ object db: Tdb
Precision = 16
Precision = 16
Size = 4
Size = 4
end
end
object cdsMlekaratemperatura: TFMTBCDField
FieldName = 'temperatura'
Precision = 18
Size = 4
end
end
end
object dsMlekara: TDataSource
object dsMlekara: TDataSource
DataSet = cdsMlekara
DataSet = cdsMlekara
...
@@ -68,9 +72,9 @@ object db: Tdb
...
@@ -68,9 +72,9 @@ object db: Tdb
end
end
object SQLDataSet1: TSQLDataSet
object SQLDataSet1: TSQLDataSet
CommandText =
CommandText =
'select id,temperatura
as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr
' +
'select id,temperatura
/10.00 as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39')
' +
'
eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =
' +
'
as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'wher
' +
' 1'#13#10'ORDER BY vreme1 DESC LIMIT 7'
'
e id =
1'#13#10'ORDER BY vreme1 DESC LIMIT 7'
MaxBlobSize = -1
MaxBlobSize = -1
Params = <>
Params = <>
SQLConnection = DataModule1.mysql
SQLConnection = DataModule1.mysql
...
@@ -83,8 +87,10 @@ object db: Tdb
...
@@ -83,8 +87,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object SQLDataSet1C: T
Integer
Field
object SQLDataSet1C: T
FMTBCD
Field
FieldName = 'C'
FieldName = 'C'
Precision = 18
Size = 4
end
end
end
end
object DataSetProvider1: TDataSetProvider
object DataSetProvider1: TDataSetProvider
...
@@ -105,8 +111,10 @@ object db: Tdb
...
@@ -105,8 +111,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object ClientDataSet1C: T
Integer
Field
object ClientDataSet1C: T
FMTBCD
Field
FieldName = 'C'
FieldName = 'C'
Precision = 18
Size = 4
end
end
end
end
object DataSource1: TDataSource
object DataSource1: TDataSource
...
@@ -116,9 +124,9 @@ object db: Tdb
...
@@ -116,9 +124,9 @@ object db: Tdb
end
end
object SQLDataSet2: TSQLDataSet
object SQLDataSet2: TSQLDataSet
CommandText =
CommandText =
'select id,temperatura
as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr
' +
'select id,temperatura
/10.00 as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39')
' +
'
eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =
' +
'
as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'wher
' +
' 2'#13#10'ORDER BY vreme1 DESC LIMIT 7'
'
e id =
2'#13#10'ORDER BY vreme1 DESC LIMIT 7'
MaxBlobSize = -1
MaxBlobSize = -1
Params = <>
Params = <>
SQLConnection = DataModule1.mysql
SQLConnection = DataModule1.mysql
...
@@ -131,8 +139,10 @@ object db: Tdb
...
@@ -131,8 +139,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object SQLDataSet2C: T
Integer
Field
object SQLDataSet2C: T
FMTBCD
Field
FieldName = 'C'
FieldName = 'C'
Precision = 18
Size = 4
end
end
end
end
object DataSetProvider2: TDataSetProvider
object DataSetProvider2: TDataSetProvider
...
@@ -153,8 +163,10 @@ object db: Tdb
...
@@ -153,8 +163,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object ClientDataSet2C: T
Integer
Field
object ClientDataSet2C: T
FMTBCD
Field
FieldName = 'C'
FieldName = 'C'
Precision = 18
Size = 4
end
end
end
end
object DataSource2: TDataSource
object DataSource2: TDataSource
...
@@ -164,9 +176,9 @@ object db: Tdb
...
@@ -164,9 +176,9 @@ object db: Tdb
end
end
object SQLDataSet3: TSQLDataSet
object SQLDataSet3: TSQLDataSet
CommandText =
CommandText =
'select id,temperatura
as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr
' +
'select id,temperatura
/10.00 as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39')
' +
'
eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =
' +
'
as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'wher
' +
' 3'#13#10'ORDER BY vreme1 DESC LIMIT 7'
'
e id =
3'#13#10'ORDER BY vreme1 DESC LIMIT 7'
MaxBlobSize = -1
MaxBlobSize = -1
Params = <>
Params = <>
SQLConnection = DataModule1.mysql
SQLConnection = DataModule1.mysql
...
@@ -179,8 +191,10 @@ object db: Tdb
...
@@ -179,8 +191,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object SQLDataSet3C: T
Integer
Field
object SQLDataSet3C: T
FMTBCD
Field
FieldName = 'C'
FieldName = 'C'
Precision = 18
Size = 4
end
end
end
end
object DataSetProvider3: TDataSetProvider
object DataSetProvider3: TDataSetProvider
...
@@ -201,8 +215,10 @@ object db: Tdb
...
@@ -201,8 +215,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object ClientDataSet3C: T
Integer
Field
object ClientDataSet3C: T
FMTBCD
Field
FieldName = 'C'
FieldName = 'C'
Precision = 18
Size = 4
end
end
end
end
object DataSource3: TDataSource
object DataSource3: TDataSource
...
@@ -212,9 +228,9 @@ object db: Tdb
...
@@ -212,9 +228,9 @@ object db: Tdb
end
end
object SQLDataSet4: TSQLDataSet
object SQLDataSet4: TSQLDataSet
CommandText =
CommandText =
'select id,temperatura
as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr
' +
'select id,temperatura
/10.00 as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39')
' +
'
eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =
' +
'
as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'wher
' +
' 4'#13#10'ORDER BY vreme1 DESC LIMIT 7'
'
e id =
4'#13#10'ORDER BY vreme1 DESC LIMIT 7'
MaxBlobSize = -1
MaxBlobSize = -1
Params = <>
Params = <>
SQLConnection = DataModule1.mysql
SQLConnection = DataModule1.mysql
...
@@ -227,8 +243,10 @@ object db: Tdb
...
@@ -227,8 +243,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object SQLDataSet4C: T
Integer
Field
object SQLDataSet4C: T
FMTBCD
Field
FieldName = 'C'
FieldName = 'C'
Precision = 18
Size = 4
end
end
end
end
object DataSetProvider4: TDataSetProvider
object DataSetProvider4: TDataSetProvider
...
@@ -249,8 +267,10 @@ object db: Tdb
...
@@ -249,8 +267,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object ClientDataSet4C: T
Integer
Field
object ClientDataSet4C: T
FMTBCD
Field
FieldName = 'C'
FieldName = 'C'
Precision = 18
Size = 4
end
end
end
end
object DataSource4: TDataSource
object DataSource4: TDataSource
...
@@ -269,7 +289,7 @@ object db: Tdb
...
@@ -269,7 +289,7 @@ object db: Tdb
MaxBlobSize = -1
MaxBlobSize = -1
Params = <>
Params = <>
SQLConnection = DataModule1.mysql
SQLConnection = DataModule1.mysql
Left = 52
0
Left = 52
1
Top = 32
Top = 32
object sdsArtikliidArtikli: TIntegerField
object sdsArtikliidArtikli: TIntegerField
FieldName = 'idArtikli'
FieldName = 'idArtikli'
...
@@ -371,36 +391,42 @@ object db: Tdb
...
@@ -371,36 +391,42 @@ object db: Tdb
Top = 152
Top = 152
end
end
object sdsStampa: TSQLDataSet
object sdsStampa: TSQLDataSet
Active = True
CommandText =
CommandText =
'select temperatura
as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vreme '#13
+
'select temperatura
/10.00 as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as v'
+
#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme between
' +
'reme '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme be
' +
':D1 and :D2'
'
tween
:D1 and :D2'
MaxBlobSize = -1
MaxBlobSize = -1
Params = <
Params = <
item
item
DataType = ftInteger
DataType = ftInteger
Name = 'ID'
Name = 'ID'
ParamType = ptInput
ParamType = ptInput
Value = '1'
end
end
item
item
DataType = ftDate
Time
DataType = ftDate
Name = 'D1'
Name = 'D1'
ParamType = ptInput
ParamType = ptInput
Value = '11/13/2020'
end
end
item
item
DataType = ftDate
Time
DataType = ftDate
Name = 'D2'
Name = 'D2'
ParamType = ptInput
ParamType = ptInput
Value = '11/14/2020'
end>
end>
SQLConnection = DataModule1.mysql
SQLConnection = DataModule1.mysql
Left = 520
Left = 520
Top = 23
2
Top = 23
3
object sdsStampavreme: TStringField
object sdsStampavreme: TStringField
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object sdsStampat: T
Integer
Field
object sdsStampat: T
FMTBCD
Field
FieldName = 't'
FieldName = 't'
Precision = 18
Size = 4
end
end
end
end
object dspStampa: TDataSetProvider
object dspStampa: TDataSetProvider
...
@@ -420,8 +446,10 @@ object db: Tdb
...
@@ -420,8 +446,10 @@ object db: Tdb
FieldName = 'vreme'
FieldName = 'vreme'
Size = 13
Size = 13
end
end
object cdsStampat: T
Integer
Field
object cdsStampat: T
FMTBCD
Field
FieldName = 't'
FieldName = 't'
Precision = 18
Size = 4
end
end
end
end
object dsStampa: TDataSource
object dsStampa: TDataSource
...
@@ -448,15 +476,17 @@ object db: Tdb
...
@@ -448,15 +476,17 @@ object db: Tdb
ParamType = ptInput
ParamType = ptInput
end>
end>
SQL.Strings = (
SQL.Strings = (
'select max(temperatura) as max_temp '
'select max(temperatura
/10.00
) as max_temp '
'from c0mlekaraadmin.mlekara '
'from c0mlekaraadmin.mlekara '
'where id = :ID and vreme between :D1 and :D2'
'where id = :ID and vreme between :D1 and :D2'
'group by id')
'group by id')
SQLConnection = DataModule1.mysql
SQLConnection = DataModule1.mysql
Left = 520
Left = 520
Top = 312
Top = 312
object sqlMaxTempmax_temp: T
Integer
Field
object sqlMaxTempmax_temp: T
FMTBCD
Field
FieldName = 'max_temp'
FieldName = 'max_temp'
Precision = 18
Size = 4
end
end
end
end
end
end
dbUtility/dbDm.h
View file @
c6585ac0
...
@@ -25,10 +25,8 @@ __published: // IDE-managed Components
...
@@ -25,10 +25,8 @@ __published: // IDE-managed Components
TClientDataSet
*
cdsMlekara
;
TClientDataSet
*
cdsMlekara
;
TDataSource
*
dsMlekara
;
TDataSource
*
dsMlekara
;
TIntegerField
*
sdsMlekaraid
;
TIntegerField
*
sdsMlekaraid
;
TIntegerField
*
sdsMlekaratemperatura
;
TStringField
*
sdsMlekaravreme
;
TStringField
*
sdsMlekaravreme
;
TIntegerField
*
cdsMlekaraid
;
TIntegerField
*
cdsMlekaraid
;
TIntegerField
*
cdsMlekaratemperatura
;
TStringField
*
cdsMlekaravreme
;
TStringField
*
cdsMlekaravreme
;
TTimer
*
Timer1
;
TTimer
*
Timer1
;
TSQLDataSet
*
SQLDataSet1
;
TSQLDataSet
*
SQLDataSet1
;
...
@@ -64,14 +62,6 @@ __published: // IDE-managed Components
...
@@ -64,14 +62,6 @@ __published: // IDE-managed Components
TStringField
*
StringField8
;
TStringField
*
StringField8
;
TDataSource
*
DataSource4
;
TDataSource
*
DataSource4
;
TTimer
*
Timer2
;
TTimer
*
Timer2
;
TIntegerField
*
SQLDataSet1C
;
TIntegerField
*
ClientDataSet1C
;
TIntegerField
*
SQLDataSet2C
;
TIntegerField
*
ClientDataSet2C
;
TIntegerField
*
SQLDataSet3C
;
TIntegerField
*
ClientDataSet3C
;
TIntegerField
*
SQLDataSet4C
;
TIntegerField
*
ClientDataSet4C
;
TFMTBCDField
*
sdsMlekaratemper
;
TFMTBCDField
*
sdsMlekaratemper
;
TFMTBCDField
*
cdsMlekaratemper
;
TFMTBCDField
*
cdsMlekaratemper
;
TSQLDataSet
*
sdsArtikli
;
TSQLDataSet
*
sdsArtikli
;
...
@@ -102,12 +92,22 @@ __published: // IDE-managed Components
...
@@ -102,12 +92,22 @@ __published: // IDE-managed Components
TDataSource
*
dsStampa
;
TDataSource
*
dsStampa
;
TStringField
*
sdsStampavreme
;
TStringField
*
sdsStampavreme
;
TStringField
*
cdsStampavreme
;
TStringField
*
cdsStampavreme
;
TIntegerField
*
sdsStampat
;
TIntegerField
*
cdsStampat
;
TSingleField
*
sdsArtiklizadata_temperatura
;
TSingleField
*
sdsArtiklizadata_temperatura
;
TSingleField
*
cdsArtiklizadata_temperatura
;
TSingleField
*
cdsArtiklizadata_temperatura
;
TSQLQuery
*
sqlMaxTemp
;
TSQLQuery
*
sqlMaxTemp
;
TIntegerField
*
sqlMaxTempmax_temp
;
TFMTBCDField
*
sdsMlekaratemperatura
;
TFMTBCDField
*
SQLDataSet1C
;
TFMTBCDField
*
ClientDataSet1C
;
TFMTBCDField
*
cdsMlekaratemperatura
;
TFMTBCDField
*
SQLDataSet2C
;
TFMTBCDField
*
ClientDataSet2C
;
TFMTBCDField
*
SQLDataSet3C
;
TFMTBCDField
*
ClientDataSet3C
;
TFMTBCDField
*
SQLDataSet4C
;
TFMTBCDField
*
ClientDataSet4C
;
TFMTBCDField
*
sdsStampat
;
TFMTBCDField
*
cdsStampat
;
TFMTBCDField
*
sqlMaxTempmax_temp
;
void
__fastcall
Timer1Timer
(
TObject
*
Sender
);
void
__fastcall
Timer1Timer
(
TObject
*
Sender
);
void
__fastcall
Timer2Timer
(
TObject
*
Sender
);
void
__fastcall
Timer2Timer
(
TObject
*
Sender
);
void
__fastcall
cdsArtikliAfterPost
(
TDataSet
*
DataSet
);
void
__fastcall
cdsArtikliAfterPost
(
TDataSet
*
DataSet
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment