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
Show whitespace changes
Inline Side-by-side
Showing with 577 additions and 1024 deletions
MlekaraMain.cpp
View file @ c55d14ca
...@@ -157,11 +157,18 @@ void __fastcall TMainForm::FormShow(TObject *Sender) ...@@ -157,11 +157,18 @@ void __fastcall TMainForm::FormShow(TObject *Sender)
//---------------------------------------------------------------------------- //----------------------------------------------------------------------------
void __fastcall TMainForm::Pregled() void __fastcall TMainForm::Pregled()
{ {
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;
db->sdsStampa->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->AsDateTime; // db->sdsStampa->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->AsDateTime;
db->cdsStampa->Active = true; // 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); 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; cxGrid8DBChartView1->Title->Text = "Zapis od "+db->cdsArtikli->FieldByName("OD")->AsString;
......
MlekaraMain.dfm
View file @ c55d14ca
...@@ -22,7 +22,7 @@ object MainForm: TMainForm ...@@ -22,7 +22,7 @@ object MainForm: TMainForm
Height = 657 Height = 657
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ClientRectBottom = 657 ClientRectBottom = 657
ClientRectRight = 1489 ClientRectRight = 1489
...@@ -71,8 +71,6 @@ object MainForm: TMainForm ...@@ -71,8 +71,6 @@ 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
...@@ -252,8 +250,6 @@ object MainForm: TMainForm ...@@ -252,8 +250,6 @@ object MainForm: TMainForm
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
...@@ -274,8 +270,6 @@ object MainForm: TMainForm ...@@ -274,8 +270,6 @@ object MainForm: TMainForm
Caption = 'Pregled' Caption = 'Pregled'
TabOrder = 2 TabOrder = 2
OnClick = cxButton3Click OnClick = cxButton3Click
ExplicitLeft = 177
ExplicitTop = 1
end end
end end
object cxLabel4: TcxLabel object cxLabel4: TcxLabel
...@@ -450,7 +444,7 @@ object MainForm: TMainForm ...@@ -450,7 +444,7 @@ object MainForm: TMainForm
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object cxGrid7DBChartView1: TcxGridDBChartView object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa DataController.DataSource = db.dsSpStampa
DiagramLine.Active = True DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle DiagramLine.Legend.Border = lbSingle
...@@ -578,7 +572,7 @@ object MainForm: TMainForm ...@@ -578,7 +572,7 @@ object MainForm: TMainForm
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object cxGrid8DBChartView1: TcxGridDBChartView object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa DataController.DataSource = db.dsSpStampa
DiagramLine.Active = True DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart DiagramLine.Legend.Alignment = cpaStart
DiagramLine.Legend.Border = lbSingle DiagramLine.Legend.Border = lbSingle
...@@ -652,7 +646,7 @@ object MainForm: TMainForm ...@@ -652,7 +646,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 = 44165.456728900460000000 ReportDocument.CreationDate = 44169.582512685190000000
BuiltInReportLink = True BuiltInReportLink = True
HiddenComponents = {} HiddenComponents = {}
ExcludedComponents = {} ExcludedComponents = {}
...@@ -679,7 +673,7 @@ object MainForm: TMainForm ...@@ -679,7 +673,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 = 44165.456728969900000000 ReportDocument.CreationDate = 44169.582512916670000000
BuiltInReportLink = True BuiltInReportLink = True
HiddenComponents = {} HiddenComponents = {}
ExcludedComponents = {} ExcludedComponents = {}
......
Win32/Debug/MlekaraCB.map
View file @ c55d14ca
Start Length Name Class Start Length Name Class
0001:00401000 00000ADF8H _TEXT CODE 0001:00401000 00000AE00H _TEXT CODE
0002:0040C000 0000038B4H _DATA DATA 0002:0040C000 000003930H _DATA DATA
0003:0040F8B4 0000001C0H _BSS BSS 0003:0040F930 0000001C0H _BSS BSS
0004:00000000 00000009CH _TLS TLS 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) ...@@ -150,30 +150,47 @@ void __fastcall TMainForm::FormShow(TObject *Sender)
db->openArtikliCds(); db->openArtikliCds();
db->cdsUredjaj->Active = false; db->cdsUredjaj->Active = false;
db->cdsUredjaj->Active = true; db->cdsUredjaj->Active = true;
db->cdsArtikli->Edit();
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;
db->sdsStampa->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->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); 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; AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime; AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
cxLabel6->Caption = db->cdsArtikli->FieldByName("Artikal")->AsString; cxLabel6->Caption = db->cdsArtikli->FieldByName("Artikal")->AsString;
cxLabel16->Caption = db->cdsArtikli->FieldByName("Kolicina")->AsString; cxLabel16->Caption = db->cdsArtikli->FieldByName("Kolicina")->AsString;
cxLabel15->Caption = db->cdsArtikli->FieldByName("od")->AsString; cxLabel15->Caption = db->cdsArtikli->FieldByName("od")->AsString;
cxLabel14->Caption = db->cdsArtikli->FieldByName("do")->AsString; cxLabel14->Caption = db->cdsArtikli->FieldByName("do")->AsString;
cxLabel13->Caption = 200; cxLabel13->Caption = db->sqlMaxTemp->FieldByName("max_temp")->AsString;
cxLabel11->Caption = 300; 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) void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
...@@ -197,3 +214,25 @@ void __fastcall TMainForm::cxButton1Click(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();
}
//---------------------------------------------------------------------------
__history/MlekaraMain.dfm.~38~ → __history/MlekaraMain.dfm.~46~
View file @ c55d14ca
object MainForm: TMainForm object MainForm: TMainForm
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'MainForm' Caption = 'Merenje 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
...@@ -21,18 +22,14 @@ object MainForm: TMainForm ...@@ -21,18 +22,14 @@ object MainForm: TMainForm
Height = 657 Height = 657
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
Properties.ActivePage = cxTabSheet2 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 = 136 Width = 96
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
...@@ -611,231 +624,52 @@ object MainForm: TMainForm ...@@ -611,231 +624,52 @@ object MainForm: TMainForm
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = cxButton2Click
end end
end end
end end
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 print: TfrxReport
Version = '4.15'
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 44160.809089050930000000
ReportOptions.LastChange = 44160.809089050930000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
'begin'
''
'end.')
Left = 928
Top = 120
Datasets = <
item
DataSet = frxDBArtikal
DataSetName = 'frxArtikal'
end>
Variables = <>
Style = <
item
Name = 'Title'
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Header'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Group header'
Color = 16053492
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Data'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
end
item
Name = 'Group footer'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Header line'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftBottom]
Frame.Width = 2.000000000000000000
end>
object Data: TfrxDataPage
Height = 1000.000000000000000000
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
object ReportTitle1: TfrxReportTitle
Height = 26.456710000000000000
Top = 18.897650000000000000
Width = 740.787880000000000000
object Memo1: TfrxMemoView
Align = baWidth
Width = 740.787880000000000000
Height = 22.677180000000000000
ShowHint = False
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
HAlign = haCenter
Memo.UTF8W = (
'Report')
ParentFont = False
Style = 'Title'
VAlign = vaCenter
end
end
object PageHeader1: TfrxPageHeader
Height = 22.677180000000000000
Top = 68.031540000000000000
Width = 740.787880000000000000
object Memo2: TfrxMemoView
Width = 740.787401574803200000
Height = 22.677180000000000000
ShowHint = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftBottom]
Frame.Width = 2.000000000000000000
ParentFont = False
Style = 'Header line'
end
end
object MasterData1: TfrxMasterData
Height = 18.897650000000000000
Top = 151.181200000000000000
Width = 740.787880000000000000
DataSet = frxDBArtikal
DataSetName = 'frxArtikal'
RowCount = 0
end
object PageFooter1: TfrxPageFooter
Height = 26.456710000000000000
Top = 230.551330000000000000
Width = 740.787880000000000000
object Memo3: TfrxMemoView
Align = baWidth
Width = 740.787880000000000000
ShowHint = False
Frame.Typ = [ftTop]
Frame.Width = 2.000000000000000000
end
object Memo4: TfrxMemoView
Top = 1.000000000000000000
Height = 22.677180000000000000
ShowHint = False
AutoWidth = True
Memo.UTF8W = (
'[Date] [Time]')
end
object Memo5: TfrxMemoView
Align = baRight
Left = 665.197280000000000000
Top = 1.000000000000000000
Width = 75.590600000000000000
Height = 22.677180000000000000
ShowHint = False
HAlign = haRight
Memo.UTF8W = (
'Page [Page#]')
end
end
end
end
object frxDBDPrint: TfrxDBDataset
UserName = 'frxDiag'
CloseDataSource = False
FieldAliases.Strings = (
'temperatura=temperatura'
'vreme=vreme')
DataSource = db.dsStampa
BCDToCurrency = False
Left = 928
Top = 176
end
object frxDBArtikal: TfrxDBDataset
UserName = 'frxArtikal'
CloseDataSource = False
DataSource = db.dsArtikli
BCDToCurrency = False
Left = 936
Top = 232
end
object dxComponentPrinter1: TdxComponentPrinter object dxComponentPrinter1: TdxComponentPrinter
CurrentLink = dxComponentPrinter1Link1 CurrentLink = dxComponentPrinter1Link1
PrintTitle = 'Merenje temperature'
Version = 0 Version = 0
Left = 784 Left = 568
Top = 152 Top = 424
object dxComponentPrinter1Link1: TdxCustomContainerReportLink object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True Active = True
Component = cxGroupBox6 Component = cxGroupBox6
PrinterPage.DMPaper = 9 PrinterPage.DMPaper = 9
PrinterPage.Footer = 200 PrinterPage.Footer = 200
PrinterPage.GrayShading = True
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Right = 500
PrinterPage.Margins.Top = 500
PrinterPage.PageSize.X = 8300
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 44165.456728900460000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
object dxComponentPrinter2: TdxComponentPrinter
CurrentLink = dxComponentPrinter2Link1
Version = 0
Left = 1208
Top = 419
object dxComponentPrinter2Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox7
PrinterPage.DMPaper = 9
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
...@@ -845,7 +679,7 @@ object MainForm: TMainForm ...@@ -845,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 = 44161.412318703700000000 ReportDocument.CreationDate = 44165.456728969900000000
BuiltInReportLink = True BuiltInReportLink = True
HiddenComponents = {} HiddenComponents = {}
ExcludedComponents = {} ExcludedComponents = {}
......
__history/MlekaraMain.dfm.~39~ → __history/MlekaraMain.dfm.~47~
View file @ c55d14ca
object MainForm: TMainForm object MainForm: TMainForm
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'MainForm' Caption = 'Merenje 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 = cxTabSheet2 Properties.ActivePage = cxTabSheet2
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
...@@ -197,8 +190,6 @@ object MainForm: TMainForm ...@@ -197,8 +190,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 +197,6 @@ object MainForm: TMainForm ...@@ -206,7 +197,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,9 +242,9 @@ object MainForm: TMainForm ...@@ -252,9 +242,9 @@ 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 = 136 Width = 96
Height = 51 Height = 51
Align = alLeft Align = alLeft
Caption = 'Snimi' Caption = 'Snimi'
...@@ -264,13 +254,23 @@ object MainForm: TMainForm ...@@ -264,13 +254,23 @@ object MainForm: TMainForm
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
end
end end
object cxLabel4: TcxLabel object cxLabel4: TcxLabel
Left = 16 Left = 16
...@@ -346,6 +346,20 @@ object MainForm: TMainForm ...@@ -346,6 +346,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 +367,6 @@ object MainForm: TMainForm ...@@ -353,8 +367,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 +375,6 @@ object MainForm: TMainForm ...@@ -363,7 +375,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 +384,6 @@ object MainForm: TMainForm ...@@ -373,7 +384,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 +434,6 @@ object MainForm: TMainForm ...@@ -424,7 +434,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 +443,6 @@ object MainForm: TMainForm ...@@ -434,7 +443,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 +450,9 @@ object MainForm: TMainForm ...@@ -442,6 +450,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 +562,6 @@ object MainForm: TMainForm ...@@ -551,8 +562,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 +571,6 @@ object MainForm: TMainForm ...@@ -562,10 +571,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 +578,8 @@ object MainForm: TMainForm ...@@ -573,6 +578,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
...@@ -611,223 +618,16 @@ object MainForm: TMainForm ...@@ -611,223 +618,16 @@ object MainForm: TMainForm
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = cxButton2Click
end end
end end
end end
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 print: TfrxReport
Version = '4.15'
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 44160.809089050930000000
ReportOptions.LastChange = 44160.809089050930000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
'begin'
''
'end.')
Left = 928
Top = 120
Datasets = <
item
DataSet = frxDBArtikal
DataSetName = 'frxArtikal'
end>
Variables = <>
Style = <
item
Name = 'Title'
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Header'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Group header'
Color = 16053492
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Data'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
end
item
Name = 'Group footer'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Header line'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftBottom]
Frame.Width = 2.000000000000000000
end>
object Data: TfrxDataPage
Height = 1000.000000000000000000
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
object ReportTitle1: TfrxReportTitle
Height = 26.456710000000000000
Top = 18.897650000000000000
Width = 740.787880000000000000
object Memo1: TfrxMemoView
Align = baWidth
Width = 740.787880000000000000
Height = 22.677180000000000000
ShowHint = False
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
HAlign = haCenter
Memo.UTF8W = (
'Report')
ParentFont = False
Style = 'Title'
VAlign = vaCenter
end
end
object PageHeader1: TfrxPageHeader
Height = 22.677180000000000000
Top = 68.031540000000000000
Width = 740.787880000000000000
object Memo2: TfrxMemoView
Width = 740.787401574803200000
Height = 22.677180000000000000
ShowHint = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftBottom]
Frame.Width = 2.000000000000000000
ParentFont = False
Style = 'Header line'
end
end
object MasterData1: TfrxMasterData
Height = 18.897650000000000000
Top = 151.181200000000000000
Width = 740.787880000000000000
DataSet = frxDBArtikal
DataSetName = 'frxArtikal'
RowCount = 0
end
object PageFooter1: TfrxPageFooter
Height = 26.456710000000000000
Top = 230.551330000000000000
Width = 740.787880000000000000
object Memo3: TfrxMemoView
Align = baWidth
Width = 740.787880000000000000
ShowHint = False
Frame.Typ = [ftTop]
Frame.Width = 2.000000000000000000
end
object Memo4: TfrxMemoView
Top = 1.000000000000000000
Height = 22.677180000000000000
ShowHint = False
AutoWidth = True
Memo.UTF8W = (
'[Date] [Time]')
end
object Memo5: TfrxMemoView
Align = baRight
Left = 665.197280000000000000
Top = 1.000000000000000000
Width = 75.590600000000000000
Height = 22.677180000000000000
ShowHint = False
HAlign = haRight
Memo.UTF8W = (
'Page [Page#]')
end
end
end
end
object frxDBDPrint: TfrxDBDataset
UserName = 'frxDiag'
CloseDataSource = False
FieldAliases.Strings = (
'temperatura=temperatura'
'vreme=vreme')
DataSource = db.dsStampa
BCDToCurrency = False
Left = 928
Top = 176
end
object frxDBArtikal: TfrxDBDataset
UserName = 'frxArtikal'
CloseDataSource = False
DataSource = db.dsArtikli
BCDToCurrency = False
Left = 936
Top = 232
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
...@@ -836,6 +636,7 @@ object MainForm: TMainForm ...@@ -836,6 +636,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
...@@ -845,7 +646,7 @@ object MainForm: TMainForm ...@@ -845,7 +646,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 = 44161.412318703700000000 ReportDocument.CreationDate = 44169.582512685190000000
BuiltInReportLink = True BuiltInReportLink = True
HiddenComponents = {} HiddenComponents = {}
ExcludedComponents = {} ExcludedComponents = {}
...@@ -862,6 +663,7 @@ object MainForm: TMainForm ...@@ -862,6 +663,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
...@@ -871,7 +673,7 @@ object MainForm: TMainForm ...@@ -871,7 +673,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 = 44161.431397407410000000 ReportDocument.CreationDate = 44169.582512916670000000
BuiltInReportLink = True BuiltInReportLink = True
HiddenComponents = {} HiddenComponents = {}
ExcludedComponents = {} ExcludedComponents = {}
......
__history/MlekaraMain.dfm.~37~ → __history/MlekaraMain.dfm.~48~
View file @ c55d14ca
object MainForm: TMainForm object MainForm: TMainForm
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'MainForm' Caption = 'Merenje 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 = cxTabSheet2 Properties.ActivePage = cxTabSheet2
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
...@@ -197,8 +190,6 @@ object MainForm: TMainForm ...@@ -197,8 +190,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 +197,6 @@ object MainForm: TMainForm ...@@ -206,7 +197,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,9 +242,9 @@ object MainForm: TMainForm ...@@ -252,9 +242,9 @@ 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 = 136 Width = 96
Height = 51 Height = 51
Align = alLeft Align = alLeft
Caption = 'Snimi' Caption = 'Snimi'
...@@ -264,13 +254,23 @@ object MainForm: TMainForm ...@@ -264,13 +254,23 @@ object MainForm: TMainForm
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
end
end end
object cxLabel4: TcxLabel object cxLabel4: TcxLabel
Left = 16 Left = 16
...@@ -346,6 +346,20 @@ object MainForm: TMainForm ...@@ -346,6 +346,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 +367,6 @@ object MainForm: TMainForm ...@@ -353,8 +367,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 +375,6 @@ object MainForm: TMainForm ...@@ -363,7 +375,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 +384,6 @@ object MainForm: TMainForm ...@@ -373,7 +384,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 +434,6 @@ object MainForm: TMainForm ...@@ -424,7 +434,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,14 +443,16 @@ object MainForm: TMainForm ...@@ -434,14 +443,16 @@ 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.dsSpStampa
DiagramLine.Active = True DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter DiagramLine.Legend.Alignment = cpaCenter
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
...@@ -549,9 +560,8 @@ object MainForm: TMainForm ...@@ -549,9 +560,8 @@ object MainForm: TMainForm
Top = 273 Top = 273
Align = alRight Align = alRight
Alignment = alCenterCenter Alignment = alCenterCenter
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
...@@ -561,10 +571,6 @@ object MainForm: TMainForm ...@@ -561,10 +571,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
...@@ -572,6 +578,8 @@ object MainForm: TMainForm ...@@ -572,6 +578,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
...@@ -592,6 +600,7 @@ object MainForm: TMainForm ...@@ -592,6 +600,7 @@ object MainForm: TMainForm
Top = 2 Top = 2
Align = alTop Align = alTop
Alignment = alCenterCenter Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1 TabOrder = 1
Height = 39 Height = 39
Width = 492 Width = 492
...@@ -609,231 +618,52 @@ object MainForm: TMainForm ...@@ -609,231 +618,52 @@ object MainForm: TMainForm
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = cxButton2Click
end end
end end
end end
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 print: TfrxReport
Version = '4.15'
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 44160.809089050930000000
ReportOptions.LastChange = 44160.809089050930000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
'begin'
''
'end.')
Left = 928
Top = 120
Datasets = <
item
DataSet = frxDBArtikal
DataSetName = 'frxArtikal'
end>
Variables = <>
Style = <
item
Name = 'Title'
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Header'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Group header'
Color = 16053492
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Data'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
end
item
Name = 'Group footer'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end
item
Name = 'Header line'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftBottom]
Frame.Width = 2.000000000000000000
end>
object Data: TfrxDataPage
Height = 1000.000000000000000000
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
object ReportTitle1: TfrxReportTitle
Height = 26.456710000000000000
Top = 18.897650000000000000
Width = 740.787880000000000000
object Memo1: TfrxMemoView
Align = baWidth
Width = 740.787880000000000000
Height = 22.677180000000000000
ShowHint = False
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
HAlign = haCenter
Memo.UTF8W = (
'Report')
ParentFont = False
Style = 'Title'
VAlign = vaCenter
end
end
object PageHeader1: TfrxPageHeader
Height = 22.677180000000000000
Top = 68.031540000000000000
Width = 740.787880000000000000
object Memo2: TfrxMemoView
Width = 740.787401574803200000
Height = 22.677180000000000000
ShowHint = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftBottom]
Frame.Width = 2.000000000000000000
ParentFont = False
Style = 'Header line'
end
end
object MasterData1: TfrxMasterData
Height = 18.897650000000000000
Top = 151.181200000000000000
Width = 740.787880000000000000
DataSet = frxDBArtikal
DataSetName = 'frxArtikal'
RowCount = 0
end
object PageFooter1: TfrxPageFooter
Height = 26.456710000000000000
Top = 230.551330000000000000
Width = 740.787880000000000000
object Memo3: TfrxMemoView
Align = baWidth
Width = 740.787880000000000000
ShowHint = False
Frame.Typ = [ftTop]
Frame.Width = 2.000000000000000000
end
object Memo4: TfrxMemoView
Top = 1.000000000000000000
Height = 22.677180000000000000
ShowHint = False
AutoWidth = True
Memo.UTF8W = (
'[Date] [Time]')
end
object Memo5: TfrxMemoView
Align = baRight
Left = 665.197280000000000000
Top = 1.000000000000000000
Width = 75.590600000000000000
Height = 22.677180000000000000
ShowHint = False
HAlign = haRight
Memo.UTF8W = (
'Page [Page#]')
end
end
end
end
object frxDBDPrint: TfrxDBDataset
UserName = 'frxDiag'
CloseDataSource = False
FieldAliases.Strings = (
'temperatura=temperatura'
'vreme=vreme')
DataSource = db.dsStampa
BCDToCurrency = False
Left = 928
Top = 176
end
object frxDBArtikal: TfrxDBDataset
UserName = 'frxArtikal'
CloseDataSource = False
DataSource = db.dsArtikli
BCDToCurrency = False
Left = 936
Top = 232
end
object dxComponentPrinter1: TdxComponentPrinter object dxComponentPrinter1: TdxComponentPrinter
CurrentLink = dxComponentPrinter1Link1 CurrentLink = dxComponentPrinter1Link1
PrintTitle = 'Merenje temperature'
Version = 0 Version = 0
Left = 784 Left = 568
Top = 152 Top = 424
object dxComponentPrinter1Link1: TdxCustomContainerReportLink object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True Active = True
Component = cxGroupBox6 Component = cxGroupBox6
PrinterPage.DMPaper = 9 PrinterPage.DMPaper = 9
PrinterPage.Footer = 200 PrinterPage.Footer = 200
PrinterPage.GrayShading = True
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Right = 500
PrinterPage.Margins.Top = 500
PrinterPage.PageSize.X = 8300
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 44169.582512685190000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
object dxComponentPrinter2: TdxComponentPrinter
CurrentLink = dxComponentPrinter2Link1
Version = 0
Left = 1208
Top = 419
object dxComponentPrinter2Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox7
PrinterPage.DMPaper = 9
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
...@@ -843,7 +673,7 @@ object MainForm: TMainForm ...@@ -843,7 +673,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 = 44161.412318703700000000 ReportDocument.CreationDate = 44169.582512916670000000
BuiltInReportLink = True BuiltInReportLink = True
HiddenComponents = {} HiddenComponents = {}
ExcludedComponents = {} ExcludedComponents = {}
......
__history/MlekaraMain.dfm.~36~ → __history/MlekaraMain.dfm.~49~
View file @ c55d14ca
object MainForm: TMainForm object MainForm: TMainForm
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'MainForm' Caption = 'Merenje 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 = cxTabSheet2 Properties.ActivePage = cxTabSheet2
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
...@@ -197,8 +190,6 @@ object MainForm: TMainForm ...@@ -197,8 +190,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 +197,6 @@ object MainForm: TMainForm ...@@ -206,7 +197,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,9 +242,9 @@ object MainForm: TMainForm ...@@ -252,9 +242,9 @@ 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 = 136 Width = 96
Height = 51 Height = 51
Align = alLeft Align = alLeft
Caption = 'Snimi' Caption = 'Snimi'
...@@ -264,13 +254,23 @@ object MainForm: TMainForm ...@@ -264,13 +254,23 @@ object MainForm: TMainForm
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
end
end end
object cxLabel4: TcxLabel object cxLabel4: TcxLabel
Left = 16 Left = 16
...@@ -346,6 +346,20 @@ object MainForm: TMainForm ...@@ -346,6 +346,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 +367,6 @@ object MainForm: TMainForm ...@@ -353,8 +367,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 +375,6 @@ object MainForm: TMainForm ...@@ -363,7 +375,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 +384,6 @@ object MainForm: TMainForm ...@@ -373,7 +384,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 +434,6 @@ object MainForm: TMainForm ...@@ -424,7 +434,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,14 +443,16 @@ object MainForm: TMainForm ...@@ -434,14 +443,16 @@ 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.dsSpStampa
DiagramLine.Active = True DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter DiagramLine.Legend.Alignment = cpaCenter
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
...@@ -549,9 +560,8 @@ object MainForm: TMainForm ...@@ -549,9 +560,8 @@ object MainForm: TMainForm
Top = 273 Top = 273
Align = alRight Align = alRight
Alignment = alCenterCenter Alignment = alCenterCenter
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
...@@ -561,17 +571,15 @@ object MainForm: TMainForm ...@@ -561,17 +571,15 @@ 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.dsSpStampa
DiagramLine.Active = True DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart DiagramLine.Legend.Alignment = cpaStart
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
...@@ -591,234 +599,71 @@ object MainForm: TMainForm ...@@ -591,234 +599,71 @@ object MainForm: TMainForm
Left = 2 Left = 2
Top = 2 Top = 2
Align = alTop Align = alTop
Caption = 'cxGroupBox9' Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1 TabOrder = 1
Height = 39 Height = 39
Width = 492 Width = 492
end object cxButton2: TcxButton
end Left = 376
end Top = 2
end Width = 114
end Height = 35
object cxDBLookupComboBox1: TcxDBLookupComboBox Align = alRight
Left = 16 Caption = 'Stampaj'
Top = 326 TabOrder = 0
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 print: TfrxReport
Version = '4.15'
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 44160.809089050930000000
ReportOptions.LastChange = 44160.809089050930000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
'begin'
''
'end.')
Left = 928
Top = 120
Datasets = <
item
DataSet = frxDBArtikal
DataSetName = 'frxArtikal'
end>
Variables = <>
Style = <
item
Name = 'Title'
Color = clGray
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite Font.Color = clWindowText
Font.Height = -16 Font.Height = -11
Font.Name = 'Arial' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton2Click
end end
item
Name = 'Header'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end end
item
Name = 'Group header'
Color = 16053492
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end end
item
Name = 'Data'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
end end
item
Name = 'Group footer'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
end end
item
Name = 'Header line'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftBottom]
Frame.Width = 2.000000000000000000
end>
object Data: TfrxDataPage
Height = 1000.000000000000000000
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
object ReportTitle1: TfrxReportTitle
Height = 26.456710000000000000
Top = 18.897650000000000000
Width = 740.787880000000000000
object Memo1: TfrxMemoView
Align = baWidth
Width = 740.787880000000000000
Height = 22.677180000000000000
ShowHint = False
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
HAlign = haCenter
Memo.UTF8W = (
'Report')
ParentFont = False
Style = 'Title'
VAlign = vaCenter
end
end
object PageHeader1: TfrxPageHeader
Height = 22.677180000000000000
Top = 68.031540000000000000
Width = 740.787880000000000000
object Memo2: TfrxMemoView
Width = 740.787401574803200000
Height = 22.677180000000000000
ShowHint = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftBottom]
Frame.Width = 2.000000000000000000
ParentFont = False
Style = 'Header line'
end
end
object MasterData1: TfrxMasterData
Height = 18.897650000000000000
Top = 151.181200000000000000
Width = 740.787880000000000000
DataSet = frxDBArtikal
DataSetName = 'frxArtikal'
RowCount = 0
end
object PageFooter1: TfrxPageFooter
Height = 26.456710000000000000
Top = 230.551330000000000000
Width = 740.787880000000000000
object Memo3: TfrxMemoView
Align = baWidth
Width = 740.787880000000000000
ShowHint = False
Frame.Typ = [ftTop]
Frame.Width = 2.000000000000000000
end
object Memo4: TfrxMemoView
Top = 1.000000000000000000
Height = 22.677180000000000000
ShowHint = False
AutoWidth = True
Memo.UTF8W = (
'[Date] [Time]')
end
object Memo5: TfrxMemoView
Align = baRight
Left = 665.197280000000000000
Top = 1.000000000000000000
Width = 75.590600000000000000
Height = 22.677180000000000000
ShowHint = False
HAlign = haRight
Memo.UTF8W = (
'Page [Page#]')
end
end
end
end
object frxDBDPrint: TfrxDBDataset
UserName = 'frxDiag'
CloseDataSource = False
FieldAliases.Strings = (
'temperatura=temperatura'
'vreme=vreme')
DataSource = db.dsStampa
BCDToCurrency = False
Left = 928
Top = 176
end
object frxDBArtikal: TfrxDBDataset
UserName = 'frxArtikal'
CloseDataSource = False
DataSource = db.dsArtikli
BCDToCurrency = False
Left = 936
Top = 232
end end
object dxComponentPrinter1: TdxComponentPrinter object dxComponentPrinter1: TdxComponentPrinter
CurrentLink = dxComponentPrinter1Link1 CurrentLink = dxComponentPrinter1Link1
PrintTitle = 'Merenje temperature'
Version = 0 Version = 0
Left = 784 Left = 568
Top = 152 Top = 424
object dxComponentPrinter1Link1: TdxCustomContainerReportLink object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True Active = True
Component = cxGroupBox6 Component = cxGroupBox6
PrinterPage.DMPaper = 9 PrinterPage.DMPaper = 9
PrinterPage.Footer = 200 PrinterPage.Footer = 200
PrinterPage.GrayShading = True
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Right = 500
PrinterPage.Margins.Top = 500
PrinterPage.PageSize.X = 8300
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 44169.582512685190000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
object dxComponentPrinter2: TdxComponentPrinter
CurrentLink = dxComponentPrinter2Link1
Version = 0
Left = 1208
Top = 419
object dxComponentPrinter2Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox7
PrinterPage.DMPaper = 9
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
...@@ -828,7 +673,7 @@ object MainForm: TMainForm ...@@ -828,7 +673,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 = 44161.412318703700000000 ReportDocument.CreationDate = 44169.582512916670000000
BuiltInReportLink = True BuiltInReportLink = True
HiddenComponents = {} HiddenComponents = {}
ExcludedComponents = {} ExcludedComponents = {}
......
dbUtility/__history/dbDm.dfm.~37~ → dbUtility/__history/dbDm.dfm.~47~
View file @ c55d14ca
...@@ -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 c0mlekaraadmin.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: TIntegerField object SQLDataSet1C: TFMTBCDField
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: TIntegerField object ClientDataSet1C: TFMTBCDField
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: TIntegerField object SQLDataSet2C: TFMTBCDField
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: TIntegerField object ClientDataSet2C: TFMTBCDField
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: TIntegerField object SQLDataSet3C: TFMTBCDField
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: TIntegerField object ClientDataSet3C: TFMTBCDField
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: TIntegerField object SQLDataSet4C: TFMTBCDField
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: TIntegerField object ClientDataSet4C: TFMTBCDField
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 = 520 Left = 521
Top = 32 Top = 32
object sdsArtikliidArtikli: TIntegerField object sdsArtikliidArtikli: TIntegerField
FieldName = 'idArtikli' FieldName = 'idArtikli'
...@@ -291,6 +311,9 @@ object db: Tdb ...@@ -291,6 +311,9 @@ object db: Tdb
object sdsArtikliid_uredjaja: TIntegerField object sdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja' FieldName = 'id_uredjaja'
end end
object sdsArtiklizadata_temperatura: TSingleField
FieldName = 'zadata_temperatura'
end
end end
object dspArtikli: TDataSetProvider object dspArtikli: TDataSetProvider
DataSet = sdsArtikli DataSet = sdsArtikli
...@@ -325,6 +348,9 @@ object db: Tdb ...@@ -325,6 +348,9 @@ object db: Tdb
object cdsArtikliid_uredjaja: TIntegerField object cdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja' FieldName = 'id_uredjaja'
end end
object cdsArtiklizadata_temperatura: TSingleField
FieldName = 'zadata_temperatura'
end
end end
object dsArtikli: TDataSource object dsArtikli: TDataSource
DataSet = cdsArtikli DataSet = cdsArtikli
...@@ -364,4 +390,103 @@ object db: Tdb ...@@ -364,4 +390,103 @@ object db: Tdb
Left = 784 Left = 784
Top = 152 Top = 152
end 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 end
dbUtility/__history/dbDm.h.~21~ → dbUtility/__history/dbDm.h.~31~
View file @ c55d14ca
...@@ -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;
...@@ -88,9 +78,41 @@ __published: // IDE-managed Components ...@@ -88,9 +78,41 @@ __published: // IDE-managed Components
TSingleField *cdsArtikliKolicina; TSingleField *cdsArtikliKolicina;
TSQLTimeStampField *cdsArtikliod; TSQLTimeStampField *cdsArtikliod;
TSQLTimeStampField *cdsArtiklido; 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 Timer1Timer(TObject *Sender);
void __fastcall Timer2Timer(TObject *Sender); void __fastcall Timer2Timer(TObject *Sender);
void __fastcall cdsArtikliAfterPost(TDataSet *DataSet); void __fastcall cdsArtikliAfterPost(TDataSet *DataSet);
void __fastcall dspArtikliGetTableName(TObject *Sender, TDataSet *DataSet,
UnicodeString &TableName);
private: // User declarations private: // User declarations
public: // User declarations public: // User declarations
__fastcall Tdb(TComponent* Owner); __fastcall Tdb(TComponent* Owner);
......
dbUtility/dbDm.dfm
View file @ c55d14ca
...@@ -391,7 +391,6 @@ object db: Tdb ...@@ -391,7 +391,6 @@ object db: Tdb
Top = 152 Top = 152
end end
object sdsStampa: TSQLDataSet object sdsStampa: TSQLDataSet
Active = True
CommandText = CommandText =
'select temperatura/10.00 as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as v' + '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' + 'reme '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme be' +
...@@ -489,4 +488,53 @@ object db: Tdb ...@@ -489,4 +488,53 @@ object db: Tdb
Size = 4 Size = 4
end end
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 end
dbUtility/dbDm.h
View file @ c55d14ca
...@@ -108,6 +108,13 @@ __published: // IDE-managed Components ...@@ -108,6 +108,13 @@ __published: // IDE-managed Components
TFMTBCDField *sdsStampat; TFMTBCDField *sdsStampat;
TFMTBCDField *cdsStampat; TFMTBCDField *cdsStampat;
TFMTBCDField *sqlMaxTempmax_temp; TFMTBCDField *sqlMaxTempmax_temp;
TSQLStoredProc *spStampa;
TFMTBCDField *spStampat;
TStringField *spStampavreme;
TIntegerField *spStampav2;
TIntegerField *spStampav1;
TIntegerField *spStampav3;
TDataSource *dsSpStampa;
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);
......
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