Skip to content

M
merenje-temperature
Commit c55d14ca authored by Sasa Jankov's avatar Sasa Jankov
Browse files
Options

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

* napravljena procedura da uzmima 5 rekorda za stampu uzima svaki sledeci record npr. ako ima 31 ukupno uzece 1 8 16 24 i 31
parent 67dc124b
Expand all Show whitespace changes
Inline Side-by-side
Showing with 309 additions and 67 deletions
MlekaraMain.cpp
View file @ c55d14ca
......@@ -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
View file @ c55d14ca
......@@ -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
View file @ c55d14ca
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
Win32/Debug/dbDm.obj
View file @ c55d14ca
No preview for this file type
__history/MlekaraMain.cpp.~14~ → __history/MlekaraMain.cpp.~24~
View file @ c55d14ca
......@@ -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~
View file @ c55d14ca
......@@ -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~
View file @ c55d14ca
......@@ -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
View file @ c55d14ca
......@@ -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
View file @ c55d14ca
......@@ -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);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment