* napravljena procedura da uzmima 5 rekorda za stampu uzima svaki sledeci record…

MlekaraMain.cpp

@@ -157,11 +157,18 @@ void __fastcall TMainForm::FormShow(TObject *Sender)
 //----------------------------------------------------------------------------
 void __fastcall TMainForm::Pregled()
 {
-		db->cdsStampa->Active = false;
-		db->sdsStampa->ParamByName("ID")->AsInteger = db->cdsArtikli->FieldByName("id_uredjaja")->AsInteger;
-		db->sdsStampa->ParamByName("D1")->AsDateTime = db->cdsArtikli->FieldByName("OD")->AsDateTime;
-		db->sdsStampa->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->AsDateTime;
-		db->cdsStampa->Active = true;
+//		db->cdsStampa->Active = false;
+//		db->sdsStampa->ParamByName("ID")->AsInteger = db->cdsArtikli->FieldByName("id_uredjaja")->AsInteger;
+//		db->sdsStampa->ParamByName("D1")->AsDateTime = db->cdsArtikli->FieldByName("OD")->AsDateTime;
+//		db->sdsStampa->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->AsDateTime;
+//		db->cdsStampa->Active = true;
+
+		db->spStampa->Active = false;
+		db->spStampa->ParamByName("ID")->AsInteger = db->cdsArtikli->FieldByName("id_uredjaja")->AsInteger;
+		db->spStampa->ParamByName("D1")->AsDateTime = db->cdsArtikli->FieldByName("OD")->AsDateTime;
+		db->spStampa->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->AsDateTime;
+		db->spStampa->Active = true;
+
 
 		cxGrid7DBChartView1->Title->Text = "Vreme merenje u satima za posudu "+IntToStr(db->cdsArtikli->FieldByName("id_uredjaja")->AsInteger);
 		cxGrid8DBChartView1->Title->Text = "Zapis od "+db->cdsArtikli->FieldByName("OD")->AsString;

MlekaraMain.dfm

@@ -22,7 +22,7 @@ object MainForm: TMainForm
     Height = 657
     Align = alClient
     TabOrder = 0
-    Properties.ActivePage = cxTabSheet1
+    Properties.ActivePage = cxTabSheet2
     Properties.CustomButtons.Buttons = <>
     ClientRectBottom = 657
     ClientRectRight = 1489
@@ -71,8 +71,6 @@ object MainForm: TMainForm
           Height = 346
           Align = alLeft
           TabOrder = 0
-          ExplicitLeft = 3
-          ExplicitTop = 6
           object cxGrid5DBChartView1: TcxGridDBChartView
             DataController.DataSource = db.DataSource1
             DiagramColumn.Active = True
@@ -252,8 +250,6 @@ object MainForm: TMainForm
             Caption = 'Snimi'
             TabOrder = 0
             OnClick = btSaveClick
-            ExplicitLeft = 72
-            ExplicitTop = 1
           end
           object btNew: TcxButton
             Left = 2
@@ -274,8 +270,6 @@ object MainForm: TMainForm
             Caption = 'Pregled'
             TabOrder = 2
             OnClick = cxButton3Click
-            ExplicitLeft = 177
-            ExplicitTop = 1
           end
         end
         object cxLabel4: TcxLabel
@@ -450,7 +444,7 @@ object MainForm: TMainForm
             Align = alLeft
             TabOrder = 0
             object cxGrid7DBChartView1: TcxGridDBChartView
-              DataController.DataSource = db.dsStampa
+              DataController.DataSource = db.dsSpStampa
               DiagramLine.Active = True
               DiagramLine.Legend.Alignment = cpaCenter
               DiagramLine.Legend.Border = lbSingle
@@ -578,7 +572,7 @@ object MainForm: TMainForm
             Align = alClient
             TabOrder = 0
             object cxGrid8DBChartView1: TcxGridDBChartView
-              DataController.DataSource = db.dsStampa
+              DataController.DataSource = db.dsSpStampa
               DiagramLine.Active = True
               DiagramLine.Legend.Alignment = cpaStart
               DiagramLine.Legend.Border = lbSingle
@@ -652,7 +646,7 @@ object MainForm: TMainForm
       PrinterPage.PageSize.Y = 11700
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 1
-      ReportDocument.CreationDate = 44165.456728900460000000
+      ReportDocument.CreationDate = 44169.582512685190000000
       BuiltInReportLink = True
       HiddenComponents = {}
       ExcludedComponents = {}
@@ -679,7 +673,7 @@ object MainForm: TMainForm
       PrinterPage.PageSize.Y = 11700
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 1
-      ReportDocument.CreationDate = 44165.456728969900000000
+      ReportDocument.CreationDate = 44169.582512916670000000
       BuiltInReportLink = True
       HiddenComponents = {}
       ExcludedComponents = {}

Win32/Debug/MlekaraCB.map

 
  Start Length Name Class
- 0001:00401000 00000ADF8H _TEXT                  CODE
- 0002:0040C000 0000038B4H _DATA                  DATA
- 0003:0040F8B4 0000001C0H _BSS                   BSS
+ 0001:00401000 00000AE00H _TEXT                  CODE
+ 0002:0040C000 000003930H _DATA                  DATA
+ 0003:0040F930 0000001C0H _BSS                   BSS
  0004:00000000 00000009CH _TLS                   TLS

__history/MlekaraMain.cpp.~14~ → __history/MlekaraMain.cpp.~24~

@@ -150,30 +150,47 @@ void __fastcall TMainForm::FormShow(TObject *Sender)
 	db->openArtikliCds();
 	db->cdsUredjaj->Active = false;
 	db->cdsUredjaj->Active = true;
+    db->cdsArtikli->Edit();
 	db->dsArtikli->OnDataChange = &ArtikliDataChange;
 
 }
-//---------------------------------------------------------------------------
-void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
+//----------------------------------------------------------------------------
+void __fastcall TMainForm::Pregled()
 {
-	if (Field == NULL) {
-
 		db->cdsStampa->Active = false;
 		db->sdsStampa->ParamByName("ID")->AsInteger = db->cdsArtikli->FieldByName("id_uredjaja")->AsInteger;
 		db->sdsStampa->ParamByName("D1")->AsDateTime = db->cdsArtikli->FieldByName("OD")->AsDateTime;
 		db->sdsStampa->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->AsDateTime;
-		db->cdsStampa->Active = false;
+		db->cdsStampa->Active = true;
+
 		cxGrid7DBChartView1->Title->Text = "Vreme merenje u satima za posudu "+IntToStr(db->cdsArtikli->FieldByName("id_uredjaja")->AsInteger);
+		cxGrid8DBChartView1->Title->Text = "Zapis od "+db->cdsArtikli->FieldByName("OD")->AsString;
 
+		db->sqlMaxTemp->Close();
+		db->sqlMaxTemp->ParamByName("ID")->AsInteger = db->cdsArtikli->FieldByName("id_uredjaja")->AsInteger;
+		db->sqlMaxTemp->ParamByName("D1")->AsDateTime = db->cdsArtikli->FieldByName("OD")->AsDateTime;
+		db->sqlMaxTemp->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->AsDateTime;
+		db->sqlMaxTemp->ExecSQL();
+		db->sqlMaxTemp->Open();
 
 		AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
 		AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
+
 		cxLabel6->Caption = db->cdsArtikli->FieldByName("Artikal")->AsString;
 		cxLabel16->Caption = db->cdsArtikli->FieldByName("Kolicina")->AsString;
 		cxLabel15->Caption = db->cdsArtikli->FieldByName("od")->AsString;
 		cxLabel14->Caption = db->cdsArtikli->FieldByName("do")->AsString;
-		cxLabel13->Caption = 200;
-		cxLabel11->Caption = 300;
+		cxLabel13->Caption = db->sqlMaxTemp->FieldByName("max_temp")->AsString;
+		cxLabel11->Caption = db->cdsArtikli->FieldByName("zadata_temperatura")->AsString;
+
+		db->sqlMaxTemp->Close();
+}
+//---------------------------------------------------------------------------
+void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
+{
+	if (Field == NULL) {
+
+		Pregled();
 	}
 }
 void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
@@ -197,3 +214,25 @@ void __fastcall TMainForm::cxButton1Click(TObject *Sender)
 }
 //---------------------------------------------------------------------------
 
+void __fastcall TMainForm::cxButton2Click(TObject *Sender)
+{
+	cxGroupBox9->Visible = false;
+	dxComponentPrinter2->RebuildReport();
+	dxComponentPrinter2->Print(false,NULL,NULL);
+	cxGroupBox9->Visible = true;
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TMainForm::FormCreate(TObject *Sender)
+{
+	cxPageControl1->ActivePage = cxTabSheet1;
+}
+//---------------------------------------------------------------------------
+
+
+void __fastcall TMainForm::cxButton3Click(TObject *Sender)
+{
+	Pregled();
+}
+//---------------------------------------------------------------------------
+

dbUtility/__history/dbDm.dfm.~37~ → dbUtility/__history/dbDm.dfm.~47~

@@ -4,9 +4,9 @@ object db: Tdb
   Width = 1042
   object sdsMlekara: TSQLDataSet
     CommandText = 
-      'select id,temperatura,(temperatura / 20) as temper,'#13#10'DATE_FORMAT' +
-      '(vreme,'#39'%H:%i:%s'#39') as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraad' +
-      'min.mlekara ORDER BY vreme1 DESC LIMIT 20'
+      'select id,temperatura/10.00 as temperatura,(temperatura / 20) as' +
+      ' temper,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vreme,'#13#10'vreme as vrem' +
+      'e1 '#13#10'from c0mlekaraadmin.mlekara ORDER BY vreme1 DESC LIMIT 20'
     MaxBlobSize = -1
     Params = <>
     SQLConnection = DataModule1.mysql
@@ -15,9 +15,6 @@ object db: Tdb
     object sdsMlekaraid: TIntegerField
       FieldName = 'id'
     end
-    object sdsMlekaratemperatura: TIntegerField
-      FieldName = 'temperatura'
-    end
     object sdsMlekaravreme: TStringField
       FieldName = 'vreme'
       Size = 13
@@ -27,6 +24,11 @@ object db: Tdb
       Precision = 16
       Size = 4
     end
+    object sdsMlekaratemperatura: TFMTBCDField
+      FieldName = 'temperatura'
+      Precision = 18
+      Size = 4
+    end
   end
   object dspMlekara: TDataSetProvider
     DataSet = sdsMlekara
@@ -42,9 +44,6 @@ object db: Tdb
     object cdsMlekaraid: TIntegerField
       FieldName = 'id'
     end
-    object cdsMlekaratemperatura: TIntegerField
-      FieldName = 'temperatura'
-    end
     object cdsMlekaravreme: TStringField
       FieldName = 'vreme'
       Size = 13
@@ -54,6 +53,11 @@ object db: Tdb
       Precision = 16
       Size = 4
     end
+    object cdsMlekaratemperatura: TFMTBCDField
+      FieldName = 'temperatura'
+      Precision = 18
+      Size = 4
+    end
   end
   object dsMlekara: TDataSource
     DataSet = cdsMlekara
@@ -68,9 +72,9 @@ object db: Tdb
   end
   object SQLDataSet1: TSQLDataSet
     CommandText = 
-      'select id,temperatura as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr' +
-      'eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =' +
-      ' 1'#13#10'ORDER BY vreme1 DESC LIMIT 7'
+      'select id,temperatura/10.00 as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39')' +
+      ' as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'wher' +
+      'e id = 1'#13#10'ORDER BY vreme1 DESC LIMIT 7'
     MaxBlobSize = -1
     Params = <>
     SQLConnection = DataModule1.mysql
@@ -83,8 +87,10 @@ object db: Tdb
       FieldName = 'vreme'
       Size = 13
     end
-    object SQLDataSet1C: TIntegerField
+    object SQLDataSet1C: TFMTBCDField
       FieldName = 'C'
+      Precision = 18
+      Size = 4
     end
   end
   object DataSetProvider1: TDataSetProvider
@@ -105,8 +111,10 @@ object db: Tdb
       FieldName = 'vreme'
       Size = 13
     end
-    object ClientDataSet1C: TIntegerField
+    object ClientDataSet1C: TFMTBCDField
       FieldName = 'C'
+      Precision = 18
+      Size = 4
     end
   end
   object DataSource1: TDataSource
@@ -116,9 +124,9 @@ object db: Tdb
   end
   object SQLDataSet2: TSQLDataSet
     CommandText = 
-      'select id,temperatura as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr' +
-      'eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =' +
-      ' 2'#13#10'ORDER BY vreme1 DESC LIMIT 7'
+      'select id,temperatura/10.00 as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39')' +
+      ' as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'wher' +
+      'e id = 2'#13#10'ORDER BY vreme1 DESC LIMIT 7'
     MaxBlobSize = -1
     Params = <>
     SQLConnection = DataModule1.mysql
@@ -131,8 +139,10 @@ object db: Tdb
       FieldName = 'vreme'
       Size = 13
     end
-    object SQLDataSet2C: TIntegerField
+    object SQLDataSet2C: TFMTBCDField
       FieldName = 'C'
+      Precision = 18
+      Size = 4
     end
   end
   object DataSetProvider2: TDataSetProvider
@@ -153,8 +163,10 @@ object db: Tdb
       FieldName = 'vreme'
       Size = 13
     end
-    object ClientDataSet2C: TIntegerField
+    object ClientDataSet2C: TFMTBCDField
       FieldName = 'C'
+      Precision = 18
+      Size = 4
     end
   end
   object DataSource2: TDataSource
@@ -164,9 +176,9 @@ object db: Tdb
   end
   object SQLDataSet3: TSQLDataSet
     CommandText = 
-      'select id,temperatura as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr' +
-      'eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =' +
-      ' 3'#13#10'ORDER BY vreme1 DESC LIMIT 7'
+      'select id,temperatura/10.00 as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39')' +
+      ' as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'wher' +
+      'e id = 3'#13#10'ORDER BY vreme1 DESC LIMIT 7'
     MaxBlobSize = -1
     Params = <>
     SQLConnection = DataModule1.mysql
@@ -179,8 +191,10 @@ object db: Tdb
       FieldName = 'vreme'
       Size = 13
     end
-    object SQLDataSet3C: TIntegerField
+    object SQLDataSet3C: TFMTBCDField
       FieldName = 'C'
+      Precision = 18
+      Size = 4
     end
   end
   object DataSetProvider3: TDataSetProvider
@@ -201,8 +215,10 @@ object db: Tdb
       FieldName = 'vreme'
       Size = 13
     end
-    object ClientDataSet3C: TIntegerField
+    object ClientDataSet3C: TFMTBCDField
       FieldName = 'C'
+      Precision = 18
+      Size = 4
     end
   end
   object DataSource3: TDataSource
@@ -212,9 +228,9 @@ object db: Tdb
   end
   object SQLDataSet4: TSQLDataSet
     CommandText = 
-      'select id,temperatura as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr' +
-      'eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =' +
-      ' 4'#13#10'ORDER BY vreme1 DESC LIMIT 7'
+      'select id,temperatura/10.00 as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39')' +
+      ' as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'wher' +
+      'e id = 4'#13#10'ORDER BY vreme1 DESC LIMIT 7'
     MaxBlobSize = -1
     Params = <>
     SQLConnection = DataModule1.mysql
@@ -227,8 +243,10 @@ object db: Tdb
       FieldName = 'vreme'
       Size = 13
     end
-    object SQLDataSet4C: TIntegerField
+    object SQLDataSet4C: TFMTBCDField
       FieldName = 'C'
+      Precision = 18
+      Size = 4
     end
   end
   object DataSetProvider4: TDataSetProvider
@@ -249,8 +267,10 @@ object db: Tdb
       FieldName = 'vreme'
       Size = 13
     end
-    object ClientDataSet4C: TIntegerField
+    object ClientDataSet4C: TFMTBCDField
       FieldName = 'C'
+      Precision = 18
+      Size = 4
     end
   end
   object DataSource4: TDataSource
@@ -269,7 +289,7 @@ object db: Tdb
     MaxBlobSize = -1
     Params = <>
     SQLConnection = DataModule1.mysql
-    Left = 520
+    Left = 521
     Top = 32
     object sdsArtikliidArtikli: TIntegerField
       FieldName = 'idArtikli'
@@ -291,6 +311,9 @@ object db: Tdb
     object sdsArtikliid_uredjaja: TIntegerField
       FieldName = 'id_uredjaja'
     end
+    object sdsArtiklizadata_temperatura: TSingleField
+      FieldName = 'zadata_temperatura'
+    end
   end
   object dspArtikli: TDataSetProvider
     DataSet = sdsArtikli
@@ -325,6 +348,9 @@ object db: Tdb
     object cdsArtikliid_uredjaja: TIntegerField
       FieldName = 'id_uredjaja'
     end
+    object cdsArtiklizadata_temperatura: TSingleField
+      FieldName = 'zadata_temperatura'
+    end
   end
   object dsArtikli: TDataSource
     DataSet = cdsArtikli
@@ -364,4 +390,103 @@ object db: Tdb
     Left = 784
     Top = 152
   end
+  object sdsStampa: TSQLDataSet
+    Active = True
+    CommandText = 
+      'select temperatura/10.00 as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as v' +
+      'reme '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme be' +
+      'tween :D1 and :D2'
+    MaxBlobSize = -1
+    Params = <
+      item
+        DataType = ftInteger
+        Name = 'ID'
+        ParamType = ptInput
+        Value = '1'
+      end
+      item
+        DataType = ftDate
+        Name = 'D1'
+        ParamType = ptInput
+        Value = '11/13/2020'
+      end
+      item
+        DataType = ftDate
+        Name = 'D2'
+        ParamType = ptInput
+        Value = '11/14/2020'
+      end>
+    SQLConnection = DataModule1.mysql
+    Left = 520
+    Top = 233
+    object sdsStampavreme: TStringField
+      FieldName = 'vreme'
+      Size = 13
+    end
+    object sdsStampat: TFMTBCDField
+      FieldName = 't'
+      Precision = 18
+      Size = 4
+    end
+  end
+  object dspStampa: TDataSetProvider
+    DataSet = sdsStampa
+    OnGetTableName = dspArtikliGetTableName
+    Left = 608
+    Top = 232
+  end
+  object cdsStampa: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    ProviderName = 'dspStampa'
+    AfterPost = cdsArtikliAfterPost
+    Left = 696
+    Top = 232
+    object cdsStampavreme: TStringField
+      FieldName = 'vreme'
+      Size = 13
+    end
+    object cdsStampat: TFMTBCDField
+      FieldName = 't'
+      Precision = 18
+      Size = 4
+    end
+  end
+  object dsStampa: TDataSource
+    DataSet = cdsStampa
+    Left = 784
+    Top = 232
+  end
+  object sqlMaxTemp: TSQLQuery
+    MaxBlobSize = -1
+    Params = <
+      item
+        DataType = ftInteger
+        Name = 'ID'
+        ParamType = ptInput
+      end
+      item
+        DataType = ftDateTime
+        Name = 'D1'
+        ParamType = ptInput
+      end
+      item
+        DataType = ftDateTime
+        Name = 'D2'
+        ParamType = ptInput
+      end>
+    SQL.Strings = (
+      'select max(temperatura/10.00) as max_temp '
+      'from c0mlekaraadmin.mlekara '
+      'where id = :ID and vreme between :D1 and :D2'
+      'group by id')
+    SQLConnection = DataModule1.mysql
+    Left = 520
+    Top = 312
+    object sqlMaxTempmax_temp: TFMTBCDField
+      FieldName = 'max_temp'
+      Precision = 18
+      Size = 4
+    end
+  end
 end

dbUtility/__history/dbDm.h.~21~ → dbUtility/__history/dbDm.h.~31~

@@ -25,10 +25,8 @@ __published:	// IDE-managed Components
 	TClientDataSet *cdsMlekara;
 	TDataSource *dsMlekara;
 	TIntegerField *sdsMlekaraid;
-	TIntegerField *sdsMlekaratemperatura;
 	TStringField *sdsMlekaravreme;
 	TIntegerField *cdsMlekaraid;
-	TIntegerField *cdsMlekaratemperatura;
 	TStringField *cdsMlekaravreme;
 	TTimer *Timer1;
 	TSQLDataSet *SQLDataSet1;
@@ -64,14 +62,6 @@ __published:	// IDE-managed Components
 	TStringField *StringField8;
 	TDataSource *DataSource4;
 	TTimer *Timer2;
-	TIntegerField *SQLDataSet1C;
-	TIntegerField *ClientDataSet1C;
-	TIntegerField *SQLDataSet2C;
-	TIntegerField *ClientDataSet2C;
-	TIntegerField *SQLDataSet3C;
-	TIntegerField *ClientDataSet3C;
-	TIntegerField *SQLDataSet4C;
-	TIntegerField *ClientDataSet4C;
 	TFMTBCDField *sdsMlekaratemper;
 	TFMTBCDField *cdsMlekaratemper;
 	TSQLDataSet *sdsArtikli;
@@ -88,9 +78,41 @@ __published:	// IDE-managed Components
 	TSingleField *cdsArtikliKolicina;
 	TSQLTimeStampField *cdsArtikliod;
 	TSQLTimeStampField *cdsArtiklido;
+	TSQLDataSet *sdsUredjaj;
+	TDataSetProvider *dspUredjaj;
+	TClientDataSet *cdsUredjaj;
+	TDataSource *dsUredjaj;
+	TIntegerField *sdsUredjajid;
+	TIntegerField *cdsUredjajid;
+	TIntegerField *sdsArtikliid_uredjaja;
+	TIntegerField *cdsArtikliid_uredjaja;
+	TSQLDataSet *sdsStampa;
+	TDataSetProvider *dspStampa;
+	TClientDataSet *cdsStampa;
+	TDataSource *dsStampa;
+	TStringField *sdsStampavreme;
+	TStringField *cdsStampavreme;
+	TSingleField *sdsArtiklizadata_temperatura;
+	TSingleField *cdsArtiklizadata_temperatura;
+	TSQLQuery *sqlMaxTemp;
+	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 Timer2Timer(TObject *Sender);
 	void __fastcall cdsArtikliAfterPost(TDataSet *DataSet);
+	void __fastcall dspArtikliGetTableName(TObject *Sender, TDataSet *DataSet,
+          UnicodeString &TableName);
 private:	// User declarations
 public:		// User declarations
 	__fastcall Tdb(TComponent* Owner);

dbUtility/dbDm.dfm

@@ -391,7 +391,6 @@ object db: Tdb
     Top = 152
   end
   object sdsStampa: TSQLDataSet
-    Active = True
     CommandText = 
       'select temperatura/10.00 as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as v' +
       'reme '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme be' +
@@ -489,4 +488,53 @@ object db: Tdb
       Size = 4
     end
   end
+  object spStampa: TSQLStoredProc
+    MaxBlobSize = -1
+    Params = <
+      item
+        DataType = ftInteger
+        Precision = 4
+        Name = 'id'
+        ParamType = ptInput
+      end
+      item
+        DataType = ftTimeStamp
+        Precision = 8
+        Name = 'd1'
+        ParamType = ptInput
+      end
+      item
+        DataType = ftTimeStamp
+        Precision = 8
+        Name = 'd2'
+        ParamType = ptInput
+      end>
+    SQLConnection = DataModule1.mysql
+    StoredProcName = 'printGetFiveRecords'
+    Left = 520
+    Top = 368
+    object spStampat: TFMTBCDField
+      FieldName = 't'
+      Precision = 18
+      Size = 4
+    end
+    object spStampavreme: TStringField
+      FieldName = 'vreme'
+      Size = 13
+    end
+    object spStampav2: TIntegerField
+      FieldName = 'v2'
+    end
+    object spStampav1: TIntegerField
+      FieldName = 'v1'
+    end
+    object spStampav3: TIntegerField
+      FieldName = 'v3'
+    end
+  end
+  object dsSpStampa: TDataSource
+    DataSet = spStampa
+    Left = 592
+    Top = 368
+  end
 end

dbUtility/dbDm.h

@@ -108,6 +108,13 @@ __published:	// IDE-managed Components
 	TFMTBCDField *sdsStampat;
 	TFMTBCDField *cdsStampat;
 	TFMTBCDField *sqlMaxTempmax_temp;
+	TSQLStoredProc *spStampa;
+	TFMTBCDField *spStampat;
+	TStringField *spStampavreme;
+	TIntegerField *spStampav2;
+	TIntegerField *spStampav1;
+	TIntegerField *spStampav3;
+	TDataSource *dsSpStampa;
 	void __fastcall Timer1Timer(TObject *Sender);
 	void __fastcall Timer2Timer(TObject *Sender);
 	void __fastcall cdsArtikliAfterPost(TDataSet *DataSet);