Skip to content

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

no message

parent e1d1f64c
Show whitespace changes
Inline Side-by-side
Showing with 8041 additions and 6588 deletions
MlekaraMain.cpp
View file @ 99b3f33f
......@@ -150,6 +150,7 @@ void __fastcall TMainForm::FormShow(TObject *Sender)
db->openArtikliCds();
db->cdsUredjaj->Active = false;
db->cdsUredjaj->Active = true;
db->cdsArtikli->Edit();
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
......@@ -163,17 +164,28 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
db->sdsStampa->ParamByName("D1")->AsDateTime = db->cdsArtikli->FieldByName("OD")->AsDateTime;
db->sdsStampa->ParamByName("D2")->AsDateTime = db->cdsArtikli->FieldByName("DO")->AsDateTime;
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::AdvDateTimePicker1Change(TObject *Sender)
......@@ -197,3 +209,12 @@ 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;
}
//---------------------------------------------------------------------------
MlekaraMain.dfm
View file @ 99b3f33f
......@@ -2,8 +2,8 @@ object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
ClientHeight = 657
ClientWidth = 1489
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
......@@ -17,28 +17,31 @@ object MainForm: TMainForm
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Width = 1489
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Width = 1489
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
......@@ -60,13 +63,14 @@ object MainForm: TMainForm
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1364
Width = 1489
object cxGrid5: TcxGrid
Left = 2
Top = 2
......@@ -193,7 +197,8 @@ object MainForm: TMainForm
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
......@@ -201,7 +206,8 @@ object MainForm: TMainForm
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
......@@ -243,7 +249,6 @@ object MainForm: TMainForm
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
......@@ -327,6 +332,20 @@ object MainForm: TMainForm
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
......@@ -334,29 +353,27 @@ object MainForm: TMainForm
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1192
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
ExplicitWidth = 1063
Height = 271
Width = 1063
Width = 1188
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Width = 1184
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
......@@ -388,6 +405,12 @@ object MainForm: TMainForm
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
......@@ -401,17 +424,17 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 339
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Height = 315
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
......@@ -501,7 +524,6 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 675
object cxButton1: TcxButton
......@@ -519,19 +541,79 @@ object MainForm: TMainForm
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
ExplicitLeft = 541
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 681
Left = 694
Top = 273
Align = alLeft
Align = alRight
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
object cxGrid8: TcxGrid
Left = 2
Top = 41
Width = 492
Height = 315
Align = alClient
TabOrder = 0
ExplicitLeft = 126
ExplicitTop = 128
ExplicitWidth = 250
ExplicitHeight = 200
object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.Position = tpBottom
object cxGrid8DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid8DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid8Level1: TcxGridLevel
GridView = cxGrid8DBChartView1
end
end
object cxGroupBox9: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 39
Width = 492
object cxButton2: TcxButton
Left = 376
Top = 2
Width = 114
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton2Click
end
end
end
end
end
......@@ -550,210 +632,14 @@ object MainForm: TMainForm
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 = 216.000000000000000000
PaperHeight = 279.000000000000000000
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
Left = 568
Top = 424
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PageNumberFormat = pnfNumeral
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
PrinterPage.Header = 200
......@@ -765,8 +651,33 @@ object MainForm: TMainForm
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 44160.853941597220000000
AssignedFormatValues = [fvTime, fvPageNumber]
ReportDocument.CreationDate = 44161.412318703700000000
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.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 = 44161.431397407410000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
......
MlekaraMain.h
View file @ 99b3f33f
......@@ -129,7 +129,6 @@
class TMainForm : public TForm
{
__published: // IDE-managed Components
TfrxReport *print;
TcxPageControl *cxPageControl1;
TcxTabSheet *cxTabSheet1;
TcxTabSheet *cxTabSheet2;
......@@ -173,8 +172,6 @@ __published: // IDE-managed Components
TAdvDateTimePicker *AdvDateTimePicker2;
TcxLabel *Uredjaj;
TcxDBLookupComboBox *cxDBLookupComboBox1;
TfrxDBDataset *frxDBDPrint;
TfrxDBDataset *frxDBArtikal;
TdxComponentPrinter *dxComponentPrinter1;
TAdvDateTimePicker *AdvDateTimePicker1;
TcxGroupBox *cxGroupBox5;
......@@ -208,12 +205,26 @@ __published: // IDE-managed Components
TcxButton *cxButton1;
TdxCustomContainerReportLink *dxComponentPrinter1Link1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxLabel *cxLabel17;
TcxDBTextEdit *cxDBTextEdit3;
TcxGridDBColumn *cxGrid6DBTableView1id_uredjaja;
TcxGridDBColumn *cxGrid6DBTableView1zadata_temperatura;
TcxGrid *cxGrid8;
TcxGridLevel *cxGrid8Level1;
TcxGroupBox *cxGroupBox9;
TcxGridDBChartView *cxGrid8DBChartView1;
TcxGridDBChartSeries *cxGrid8DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid8DBChartView1DataGroup1;
TcxButton *cxButton2;
TdxComponentPrinter *dxComponentPrinter2;
TdxCustomContainerReportLink *dxComponentPrinter2Link1;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall cxButton1Click(TObject *Sender);
void __fastcall cxButton2Click(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
......
Win32/Debug/MlekaraCB.map
View file @ 99b3f33f
Start Length Name Class
0001:00401000 00000A99CH _TEXT CODE
0002:0040C000 000003600H _DATA DATA
0003:0040F600 0000001C0H _BSS BSS
0001:00401000 00000ADB4H _TEXT CODE
0002:0040C000 0000038B4H _DATA DATA
0003:0040F8B4 0000001C0H _BSS BSS
0004:00000000 00000009CH _TLS TLS
Win32/Debug/dbDm.obj
View file @ 99b3f33f
No preview for this file type
__history/MlekaraMain.cpp.~13~ → __history/MlekaraMain.cpp.~15~
View file @ 99b3f33f
......@@ -148,6 +148,8 @@ void __fastcall TMainForm::btSaveClick(TObject *Sender)
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->cdsUredjaj->Active = false;
db->cdsUredjaj->Active = true;
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
......@@ -160,7 +162,7 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
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);
......
__history/MlekaraMain.cpp.~12~ → __history/MlekaraMain.cpp.~16~
View file @ 99b3f33f
......@@ -148,6 +148,8 @@ void __fastcall TMainForm::btSaveClick(TObject *Sender)
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->cdsUredjaj->Active = false;
db->cdsUredjaj->Active = true;
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
......@@ -160,7 +162,9 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
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);
AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
......@@ -169,7 +173,7 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
cxLabel15->Caption = db->cdsArtikli->FieldByName("od")->AsString;
cxLabel14->Caption = db->cdsArtikli->FieldByName("do")->AsString;
cxLabel13->Caption = 200;
cxLabel11->Caption = 300;
cxLabel11->Caption = db->cdsArtikli->FieldByName("zadata_temperatura")->AsString;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
......
__history/MlekaraMain.cpp.~11~ → __history/MlekaraMain.cpp.~17~
View file @ 99b3f33f
......@@ -148,6 +148,9 @@ void __fastcall TMainForm::btSaveClick(TObject *Sender)
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->cdsUredjaj->Active = false;
db->cdsUredjaj->Active = true;
db->cdsArtikli->Edit();
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
......@@ -160,7 +163,9 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
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);
AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
......@@ -169,7 +174,7 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
cxLabel15->Caption = db->cdsArtikli->FieldByName("od")->AsString;
cxLabel14->Caption = db->cdsArtikli->FieldByName("do")->AsString;
cxLabel13->Caption = 200;
cxLabel11->Caption = 300;
cxLabel11->Caption = db->cdsArtikli->FieldByName("zadata_temperatura")->AsString;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
......@@ -186,8 +191,10 @@ void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
void __fastcall TMainForm::cxButton1Click(TObject *Sender)
{
cxGroupBox8->Visible = false;
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
cxGroupBox8->Visible = true;
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~10~ → __history/MlekaraMain.cpp.~18~
View file @ 99b3f33f
......@@ -116,6 +116,7 @@
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma link "dxPSContainerLnk"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
......@@ -147,6 +148,9 @@ void __fastcall TMainForm::btSaveClick(TObject *Sender)
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->cdsUredjaj->Active = false;
db->cdsUredjaj->Active = true;
db->cdsArtikli->Edit();
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
......@@ -159,7 +163,15 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
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);
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;
......@@ -167,8 +179,8 @@ void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
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;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
......@@ -183,3 +195,12 @@ void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cxButton1Click(TObject *Sender)
{
cxGroupBox8->Visible = false;
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
cxGroupBox8->Visible = true;
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~19~ 0 → 100644
View file @ 99b3f33f
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma link "dxPSContainerLnk"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
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)
{
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 = true;
cxGrid7DBChartView1->Title->Text = "Vreme merenje u satima za posudu "+IntToStr(db->cdsArtikli->FieldByName("id_uredjaja")->AsInteger);
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 = db->sqlMaxTemp->FieldByName("max_temp")->AsString;
cxLabel11->Caption = db->cdsArtikli->FieldByName("zadata_temperatura")->AsString;
db->sqlMaxTemp->Close();
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cxButton1Click(TObject *Sender)
{
cxGroupBox8->Visible = false;
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
cxGroupBox8->Visible = true;
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~20~ 0 → 100644
View file @ 99b3f33f
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma link "dxPSContainerLnk"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
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)
{
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 = 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 = db->sqlMaxTemp->FieldByName("max_temp")->AsString;
cxLabel11->Caption = db->cdsArtikli->FieldByName("zadata_temperatura")->AsString;
db->sqlMaxTemp->Close();
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cxButton1Click(TObject *Sender)
{
cxGroupBox8->Visible = false;
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
cxGroupBox8->Visible = true;
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~21~ 0 → 100644
View file @ 99b3f33f
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma link "dxPSContainerLnk"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
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)
{
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 = 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 = db->sqlMaxTemp->FieldByName("max_temp")->AsString;
cxLabel11->Caption = db->cdsArtikli->FieldByName("zadata_temperatura")->AsString;
db->sqlMaxTemp->Close();
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cxButton1Click(TObject *Sender)
{
cxGroupBox8->Visible = false;
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
cxGroupBox8->Visible = true;
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~22~ 0 → 100644
View file @ 99b3f33f
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma link "dxPSContainerLnk"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
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)
{
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 = 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 = db->sqlMaxTemp->FieldByName("max_temp")->AsString;
cxLabel11->Caption = db->cdsArtikli->FieldByName("zadata_temperatura")->AsString;
db->sqlMaxTemp->Close();
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cxButton1Click(TObject *Sender)
{
cxGroupBox8->Visible = false;
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
cxGroupBox8->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cxButton2Click(TObject *Sender)
{
cxGroupBox6->Visible = false;
dxComponentPrinter2->RebuildReport();
dxComponentPrinter2->Print(false,NULL,NULL);
cxGroupBox6->Visible = true;
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~23~ 0 → 100644
View file @ 99b3f33f
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma link "dxPSContainerLnk"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
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)
{
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 = 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 = db->sqlMaxTemp->FieldByName("max_temp")->AsString;
cxLabel11->Caption = db->cdsArtikli->FieldByName("zadata_temperatura")->AsString;
db->sqlMaxTemp->Close();
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cxButton1Click(TObject *Sender)
{
cxGroupBox8->Visible = false;
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
cxGroupBox8->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cxButton2Click(TObject *Sender)
{
cxGroupBox9->Visible = false;
dxComponentPrinter2->RebuildReport();
dxComponentPrinter2->Print(false,NULL,NULL);
cxGroupBox9->Visible = true;
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~5~ deleted 100644 → 0
View file @ e1d1f64c
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
{
if (Field == NULL) {
AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btPrintClick(TObject *Sender)
{
// 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;
//
//
// if ( print->LoadFromFile( GetCurrentDir() + "\\Diagram_sa_artiklom.fr3" ) )
// {
// print->ShowReport( );
// }
// else
// ShowMessage( "Ne postoji fajl: " + GetCurrentDir() + "\\Diagram_sa_artiklom.fr3" );
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,null,null);
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~6~ deleted 100644 → 0
View file @ e1d1f64c
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
{
if (Field == NULL) {
AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btPrintClick(TObject *Sender)
{
// 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;
//
//
// if ( print->LoadFromFile( GetCurrentDir() + "\\Diagram_sa_artiklom.fr3" ) )
// {
// print->ShowReport( );
// }
// else
// ShowMessage( "Ne postoji fajl: " + GetCurrentDir() + "\\Diagram_sa_artiklom.fr3" );
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,null);
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~7~ deleted 100644 → 0
View file @ e1d1f64c
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
{
if (Field == NULL) {
AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btPrintClick(TObject *Sender)
{
// 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;
//
//
// if ( print->LoadFromFile( GetCurrentDir() + "\\Diagram_sa_artiklom.fr3" ) )
// {
// print->ShowReport( );
// }
// else
// ShowMessage( "Ne postoji fajl: " + GetCurrentDir() + "\\Diagram_sa_artiklom.fr3" );
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~8~ deleted 100644 → 0
View file @ e1d1f64c
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
{
if (Field == NULL) {
AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btPrintClick(TObject *Sender)
{
// 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;
//
//
// if ( print->LoadFromFile( GetCurrentDir() + "\\Diagram_sa_artiklom.fr3" ) )
// {
// print->ShowReport( );
// }
// else
// ShowMessage( "Ne postoji fajl: " + GetCurrentDir() + "\\Diagram_sa_artiklom.fr3" );
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~9~ deleted 100644 → 0
View file @ e1d1f64c
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MlekaraMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxNavigator"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinBlueprint"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinDevExpressDarkStyle"
#pragma link "dxSkinDevExpressStyle"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkinHighContrast"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinOffice2013White"
#pragma link "dxSkinPumpkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsDefaultPainters"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSevenClassic"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSharpPlus"
#pragma link "dxSkinSilver"
#pragma link "dxSkinSpringTime"
#pragma link "dxSkinStardust"
#pragma link "dxSkinSummer2008"
#pragma link "dxSkinTheAsphaltWorld"
#pragma link "dxSkinValentine"
#pragma link "dxSkinVS2010"
#pragma link "dxSkinWhiteprint"
#pragma link "dxSkinXmas2008Blue"
#pragma link "cxGridChartView"
#pragma link "cxGridDBChartView"
#pragma link "cxContainer"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxGridDBCardView"
#pragma link "cxGroupBox"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "frxClass"
#pragma link "cxCalendar"
#pragma link "cxDBEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxButtons"
#pragma link "AdvDateTimePicker"
#pragma link "cxDBLookupComboBox"
#pragma link "cxDBLookupEdit"
#pragma link "cxLookupEdit"
#pragma link "frxDBSet"
#pragma link "cxDrawTextUtils"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSCore"
#pragma link "dxPScxCommon"
#pragma link "dxPScxEditorProducers"
#pragma link "dxPScxExtEditorProducers"
#pragma link "dxPScxGridLayoutViewLnk"
#pragma link "dxPScxGridLnk"
#pragma link "dxPScxPageControlProducer"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSPDFExport"
#pragma link "dxPSPDFExportCore"
#pragma link "dxPSPrVwAdv"
#pragma link "dxPSPrVwRibbon"
#pragma link "dxPSPrVwStd"
#pragma link "dxPSUtl"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxWrap"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btNewClick(TObject *Sender)
{
db->cdsArtikli->Append();
AdvDateTimePicker1->DateTime = Now();
AdvDateTimePicker2->DateTime = Now();
db->cdsArtikli->FieldByName("od")->AsDateTime = Now();
db->cdsArtikli->FieldByName("do")->AsDateTime = Now();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btSaveClick(TObject *Sender)
{
db->cdsArtikli->Post();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormShow(TObject *Sender)
{
db->openArtikliCds();
db->dsArtikli->OnDataChange = &ArtikliDataChange;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field)
{
if (Field == NULL) {
AdvDateTimePicker1->DateTime = db->cdsArtikli->FieldByName("od")->AsDateTime;
AdvDateTimePicker2->DateTime = db->cdsArtikli->FieldByName("do")->AsDateTime;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("od")->AsDateTime = AdvDateTimePicker1->DateTime;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
{
db->cdsArtikli->FieldByName("do")->AsDateTime = AdvDateTimePicker2->DateTime;
}
//---------------------------------------------------------------------------
__history/MlekaraMain.dfm.~20~ deleted 100644 → 0
View file @ e1d1f64c
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
Height = 350
Width = 1364
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
Height = 271
Width = 1063
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 1
Height = 339
Width = 671
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 536
Top = 47
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 536
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 536
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 536
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 536
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 536
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 667
object cxButton1: TcxButton
Left = 541
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 673
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
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 = 216.000000000000000000
PaperHeight = 279.000000000000000000
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
Version = 0
Left = 784
Top = 152
end
end
__history/MlekaraMain.dfm.~21~ deleted 100644 → 0
View file @ e1d1f64c
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
Height = 350
Width = 1364
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
Height = 271
Width = 1063
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 1
Height = 339
Width = 671
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 536
Top = 47
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 536
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 536
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 536
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 536
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 536
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 667
object cxButton1: TcxButton
Left = 541
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 673
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
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 = 216.000000000000000000
PaperHeight = 279.000000000000000000
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Component = cxGroupBox6
PrinterPage.DMPaper = 1
PrinterPage.Footer = 200
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Right = 500
PrinterPage.Margins.Top = 500
PrinterPage.PageSize.X = 8500
PrinterPage.PageSize.Y = 11000
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~22~ deleted 100644 → 0
View file @ e1d1f64c
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
Height = 350
Width = 1364
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
Height = 271
Width = 1063
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 1
Height = 339
Width = 671
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 536
Top = 47
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 536
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 536
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 536
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 536
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 536
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 667
object cxButton1: TcxButton
Left = 541
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 673
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
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 = 216.000000000000000000
PaperHeight = 279.000000000000000000
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Component = cxGroupBox6
PrinterPage.DMPaper = 1
PrinterPage.Footer = 200
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Right = 500
PrinterPage.Margins.Top = 500
PrinterPage.PageSize.X = 8500
PrinterPage.PageSize.Y = 11000
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~23~ deleted 100644 → 0
View file @ e1d1f64c
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
Height = 350
Width = 1364
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
Height = 271
Width = 1063
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 339
Width = 671
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 536
Top = 47
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 536
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 536
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 536
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 536
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 536
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 667
object cxButton1: TcxButton
Left = 541
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 673
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
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 = 216.000000000000000000
PaperHeight = 279.000000000000000000
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Component = cxGroupBox6
PrinterPage.DMPaper = 1
PrinterPage.Footer = 200
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Right = 500
PrinterPage.Margins.Top = 500
PrinterPage.PageSize.X = 8500
PrinterPage.PageSize.Y = 11000
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~24~ deleted 100644 → 0
View file @ e1d1f64c
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
Height = 350
Width = 1364
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
Height = 271
Width = 1063
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 339
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 541
Top = 41
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 541
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 541
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 541
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 541
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 541
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 675
object cxButton1: TcxButton
Left = 549
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
ExplicitLeft = 541
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 681
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
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 = 216.000000000000000000
PaperHeight = 279.000000000000000000
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Component = cxGroupBox6
PrinterPage.DMPaper = 1
PrinterPage.Footer = 200
PrinterPage.Header = 200
PrinterPage.Margins.Bottom = 500
PrinterPage.Margins.Left = 500
PrinterPage.Margins.Right = 500
PrinterPage.Margins.Top = 500
PrinterPage.PageSize.X = 8500
PrinterPage.PageSize.Y = 11000
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~25~ deleted 100644 → 0
View file @ e1d1f64c
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
Height = 350
Width = 1364
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
Height = 271
Width = 1063
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 339
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 541
Top = 41
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 541
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 541
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 541
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 541
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 541
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 675
object cxButton1: TcxButton
Left = 549
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
ExplicitLeft = 541
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 681
Top = 273
Align = alLeft
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
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 = 216.000000000000000000
PaperHeight = 279.000000000000000000
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PageNumberFormat = pnfNumeral
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
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 = 44160.853941597220000000
AssignedFormatValues = [fvTime, fvPageNumber]
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~29~ → __history/MlekaraMain.dfm.~32~
View file @ 99b3f33f
......@@ -23,14 +23,12 @@ object MainForm: TMainForm
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
object cxGrid1: TcxGrid
Left = 0
Top = 0
......@@ -38,7 +36,6 @@ object MainForm: TMainForm
Height = 264
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
......@@ -64,7 +61,6 @@ object MainForm: TMainForm
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
Height = 350
Width = 1364
object cxGrid5: TcxGrid
......@@ -193,7 +189,6 @@ object MainForm: TMainForm
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
......@@ -243,7 +238,6 @@ object MainForm: TMainForm
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
......@@ -327,6 +321,20 @@ object MainForm: TMainForm
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
......@@ -334,8 +342,6 @@ object MainForm: TMainForm
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
object cxGroupBox5: TcxGroupBox
......@@ -344,7 +350,6 @@ object MainForm: TMainForm
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
Height = 271
Width = 1063
object cxGrid6: TcxGrid
......@@ -354,9 +359,6 @@ object MainForm: TMainForm
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
......@@ -410,8 +412,6 @@ object MainForm: TMainForm
Height = 296
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
......@@ -427,7 +427,7 @@ object MainForm: TMainForm
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
......@@ -501,7 +501,6 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 675
object cxButton1: TcxButton
......@@ -519,7 +518,6 @@ object MainForm: TMainForm
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
ExplicitLeft = 541
end
end
end
......@@ -529,7 +527,6 @@ object MainForm: TMainForm
Align = alLeft
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
end
......@@ -636,8 +633,8 @@ object MainForm: TMainForm
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 216.000000000000000000
PaperHeight = 279.000000000000000000
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
......@@ -753,7 +750,6 @@ object MainForm: TMainForm
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PageNumberFormat = pnfNumeral
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
PrinterPage.Header = 200
......@@ -765,8 +761,7 @@ object MainForm: TMainForm
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 44160.853941597220000000
AssignedFormatValues = [fvTime, fvPageNumber]
ReportDocument.CreationDate = 44161.412318703700000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
......
__history/MlekaraMain.dfm.~28~ → __history/MlekaraMain.dfm.~33~
View file @ 99b3f33f
......@@ -23,14 +23,12 @@ object MainForm: TMainForm
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
object cxGrid1: TcxGrid
Left = 0
Top = 0
......@@ -38,7 +36,6 @@ object MainForm: TMainForm
Height = 264
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
......@@ -64,7 +61,6 @@ object MainForm: TMainForm
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
Height = 350
Width = 1364
object cxGrid5: TcxGrid
......@@ -193,7 +189,6 @@ object MainForm: TMainForm
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
......@@ -243,7 +238,6 @@ object MainForm: TMainForm
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
......@@ -327,6 +321,20 @@ object MainForm: TMainForm
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
......@@ -334,8 +342,6 @@ object MainForm: TMainForm
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
object cxGroupBox5: TcxGroupBox
......@@ -344,7 +350,6 @@ object MainForm: TMainForm
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
Height = 271
Width = 1063
object cxGrid6: TcxGrid
......@@ -354,9 +359,6 @@ object MainForm: TMainForm
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
......@@ -388,6 +390,12 @@ object MainForm: TMainForm
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
......@@ -410,8 +418,6 @@ object MainForm: TMainForm
Height = 296
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
......@@ -427,8 +433,7 @@ object MainForm: TMainForm
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
......@@ -502,7 +507,6 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 675
object cxButton1: TcxButton
......@@ -520,7 +524,6 @@ object MainForm: TMainForm
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
ExplicitLeft = 541
end
end
end
......@@ -530,7 +533,6 @@ object MainForm: TMainForm
Align = alLeft
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
end
......@@ -637,8 +639,8 @@ object MainForm: TMainForm
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 216.000000000000000000
PaperHeight = 279.000000000000000000
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
......@@ -754,7 +756,6 @@ object MainForm: TMainForm
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PageNumberFormat = pnfNumeral
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
PrinterPage.Header = 200
......@@ -766,8 +767,7 @@ object MainForm: TMainForm
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 44160.853941597220000000
AssignedFormatValues = [fvTime, fvPageNumber]
ReportDocument.CreationDate = 44161.412318703700000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
......
__history/MlekaraMain.dfm.~27~ → __history/MlekaraMain.dfm.~34~
View file @ 99b3f33f
......@@ -2,8 +2,8 @@ object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
ClientHeight = 657
ClientWidth = 1501
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
......@@ -17,28 +17,31 @@ object MainForm: TMainForm
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Width = 1501
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1501
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Width = 1501
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
......@@ -60,13 +63,14 @@ object MainForm: TMainForm
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1364
Width = 1501
object cxGrid5: TcxGrid
Left = 2
Top = 2
......@@ -193,7 +197,8 @@ object MainForm: TMainForm
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
......@@ -201,7 +206,8 @@ object MainForm: TMainForm
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
......@@ -243,7 +249,6 @@ object MainForm: TMainForm
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
......@@ -327,6 +332,20 @@ object MainForm: TMainForm
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
......@@ -334,29 +353,27 @@ object MainForm: TMainForm
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1204
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
ExplicitWidth = 1063
Height = 271
Width = 1063
Width = 1200
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Width = 1196
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
......@@ -388,6 +405,12 @@ object MainForm: TMainForm
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
......@@ -401,17 +424,17 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 339
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Height = 315
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
......@@ -427,8 +450,7 @@ object MainForm: TMainForm
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
......@@ -502,7 +524,6 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 675
object cxButton1: TcxButton
......@@ -520,19 +541,19 @@ object MainForm: TMainForm
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
ExplicitLeft = 541
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 681
Left = 706
Top = 273
Align = alLeft
Align = alRight
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
end
end
end
......@@ -637,8 +658,8 @@ object MainForm: TMainForm
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 216.000000000000000000
PaperHeight = 279.000000000000000000
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
......@@ -754,7 +775,6 @@ object MainForm: TMainForm
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PageNumberFormat = pnfNumeral
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
PrinterPage.Header = 200
......@@ -766,8 +786,7 @@ object MainForm: TMainForm
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 44160.853941597220000000
AssignedFormatValues = [fvTime, fvPageNumber]
ReportDocument.CreationDate = 44161.412318703700000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
......
__history/MlekaraMain.dfm.~26~ → __history/MlekaraMain.dfm.~35~
View file @ 99b3f33f
......@@ -2,8 +2,8 @@ object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 638
ClientWidth = 1364
ClientHeight = 657
ClientWidth = 1489
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
......@@ -17,28 +17,31 @@ object MainForm: TMainForm
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1364
Height = 638
Width = 1489
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1167
ClientRectBottom = 638
ClientRectRight = 1364
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1364
Height = 264
Width = 1489
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
......@@ -60,13 +63,14 @@ object MainForm: TMainForm
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 264
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1167
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1364
Width = 1489
object cxGrid5: TcxGrid
Left = 2
Top = 2
......@@ -193,7 +197,8 @@ object MainForm: TMainForm
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1167
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
......@@ -201,7 +206,8 @@ object MainForm: TMainForm
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
Height = 614
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
......@@ -243,7 +249,6 @@ object MainForm: TMainForm
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
ExplicitWidth = 357
Height = 55
Width = 293
object btSave: TcxButton
......@@ -319,6 +324,7 @@ object MainForm: TMainForm
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
......@@ -326,6 +332,20 @@ object MainForm: TMainForm
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
......@@ -333,29 +353,27 @@ object MainForm: TMainForm
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitLeft = 361
ExplicitWidth = 806
Height = 614
Width = 1067
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1192
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 802
ExplicitWidth = 1063
Height = 271
Width = 1063
Width = 1188
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1059
Width = 1184
Height = 267
Align = alClient
TabOrder = 0
ExplicitTop = 18
ExplicitWidth = 798
ExplicitHeight = 311
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
......@@ -387,6 +405,12 @@ object MainForm: TMainForm
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
......@@ -400,17 +424,17 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 339
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 296
Height = 315
Align = alLeft
TabOrder = 0
ExplicitTop = 2
ExplicitHeight = 335
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
......@@ -426,8 +450,7 @@ object MainForm: TMainForm
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
Visible = False
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
......@@ -501,7 +524,6 @@ object MainForm: TMainForm
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
ExplicitWidth = 659
Height = 39
Width = 675
object cxButton1: TcxButton
......@@ -519,19 +541,19 @@ object MainForm: TMainForm
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
ExplicitLeft = 541
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 681
Left = 694
Top = 273
Align = alLeft
Align = alRight
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 665
Height = 339
Width = 399
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
end
end
end
......@@ -636,8 +658,8 @@ object MainForm: TMainForm
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 216.000000000000000000
PaperHeight = 279.000000000000000000
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
......@@ -753,7 +775,6 @@ object MainForm: TMainForm
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PageNumberFormat = pnfNumeral
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
PrinterPage.Header = 200
......@@ -765,8 +786,7 @@ object MainForm: TMainForm
PrinterPage.PageSize.Y = 11700
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 1
ReportDocument.CreationDate = 44160.853941597220000000
AssignedFormatValues = [fvTime, fvPageNumber]
ReportDocument.CreationDate = 44161.412318703700000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
......
__history/MlekaraMain.dfm.~36~ 0 → 100644
View file @ 99b3f33f
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 657
ClientWidth = 1489
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1489
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1489
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1489
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1192
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 1063
Height = 271
Width = 1188
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1184
Height = 267
Align = alClient
TabOrder = 0
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 315
Align = alLeft
TabOrder = 0
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 541
Top = 41
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 541
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 541
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 541
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 541
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 541
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
Height = 39
Width = 675
object cxButton1: TcxButton
Left = 549
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 694
Top = 273
Align = alRight
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
object cxGrid8: TcxGrid
Left = 2
Top = 41
Width = 492
Height = 315
Align = alClient
TabOrder = 0
ExplicitLeft = 126
ExplicitTop = 128
ExplicitWidth = 250
ExplicitHeight = 200
object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.Position = tpBottom
object cxGrid8DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid8DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid8Level1: TcxGridLevel
GridView = cxGrid8DBChartView1
end
end
object cxGroupBox9: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Caption = 'cxGroupBox9'
TabOrder = 1
Height = 39
Width = 492
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
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 = 44161.412318703700000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~37~ 0 → 100644
View file @ 99b3f33f
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 657
ClientWidth = 1489
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1489
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1489
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1489
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1192
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 1063
Height = 271
Width = 1188
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1184
Height = 267
Align = alClient
TabOrder = 0
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 315
Align = alLeft
TabOrder = 0
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 541
Top = 41
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 541
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 541
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 541
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 541
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 541
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
Height = 39
Width = 675
object cxButton1: TcxButton
Left = 549
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 694
Top = 273
Align = alRight
Alignment = alCenterCenter
TabOrder = 2
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
object cxGrid8: TcxGrid
Left = 2
Top = 41
Width = 492
Height = 315
Align = alClient
TabOrder = 0
ExplicitLeft = 126
ExplicitTop = 128
ExplicitWidth = 250
ExplicitHeight = 200
object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.Position = tpBottom
object cxGrid8DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid8DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid8Level1: TcxGridLevel
GridView = cxGrid8DBChartView1
end
end
object cxGroupBox9: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 1
Height = 39
Width = 492
object cxButton2: TcxButton
Left = 376
Top = 2
Width = 114
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
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 = 44161.412318703700000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~38~ 0 → 100644
View file @ 99b3f33f
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 657
ClientWidth = 1489
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1489
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1489
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1489
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1192
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 1063
Height = 271
Width = 1188
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1184
Height = 267
Align = alClient
TabOrder = 0
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 315
Align = alLeft
TabOrder = 0
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 541
Top = 41
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 541
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 541
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 541
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 541
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 541
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
Height = 39
Width = 675
object cxButton1: TcxButton
Left = 549
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 694
Top = 273
Align = alRight
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 2
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
object cxGrid8: TcxGrid
Left = 2
Top = 41
Width = 492
Height = 315
Align = alClient
TabOrder = 0
ExplicitLeft = 126
ExplicitTop = 128
ExplicitWidth = 250
ExplicitHeight = 200
object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.Position = tpBottom
object cxGrid8DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid8DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid8Level1: TcxGridLevel
GridView = cxGrid8DBChartView1
end
end
object cxGroupBox9: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 39
Width = 492
object cxButton2: TcxButton
Left = 376
Top = 2
Width = 114
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 784
Top = 152
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
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 = 44161.412318703700000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~39~ 0 → 100644
View file @ 99b3f33f
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 657
ClientWidth = 1489
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1489
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1489
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1489
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1192
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 1063
Height = 271
Width = 1188
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1184
Height = 267
Align = alClient
TabOrder = 0
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 315
Align = alLeft
TabOrder = 0
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 541
Top = 41
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 541
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 541
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 541
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 541
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 541
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
Height = 39
Width = 675
object cxButton1: TcxButton
Left = 549
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 694
Top = 273
Align = alRight
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 2
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
object cxGrid8: TcxGrid
Left = 2
Top = 41
Width = 492
Height = 315
Align = alClient
TabOrder = 0
ExplicitLeft = 126
ExplicitTop = 128
ExplicitWidth = 250
ExplicitHeight = 200
object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.Position = tpBottom
object cxGrid8DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid8DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid8Level1: TcxGridLevel
GridView = cxGrid8DBChartView1
end
end
object cxGroupBox9: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 39
Width = 492
object cxButton2: TcxButton
Left = 376
Top = 2
Width = 114
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 568
Top = 424
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
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 = 44161.412318703700000000
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.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 = 44161.431397407410000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~40~ 0 → 100644
View file @ 99b3f33f
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 657
ClientWidth = 1489
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1489
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1489
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1489
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1192
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 1063
Height = 271
Width = 1188
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1184
Height = 267
Align = alClient
TabOrder = 0
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 315
Align = alLeft
TabOrder = 0
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 541
Top = 41
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 541
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 541
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 541
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 541
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 541
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
Height = 39
Width = 675
object cxButton1: TcxButton
Left = 549
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 694
Top = 273
Align = alRight
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 2
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
object cxGrid8: TcxGrid
Left = 2
Top = 41
Width = 492
Height = 315
Align = alClient
TabOrder = 0
ExplicitLeft = 126
ExplicitTop = 128
ExplicitWidth = 250
ExplicitHeight = 200
object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.Position = tpBottom
object cxGrid8DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid8DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid8Level1: TcxGridLevel
GridView = cxGrid8DBChartView1
end
end
object cxGroupBox9: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 39
Width = 492
object cxButton2: TcxButton
Left = 376
Top = 2
Width = 114
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton2Click
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 568
Top = 424
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
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 = 44161.412318703700000000
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.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 = 44161.431397407410000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.dfm.~41~ 0 → 100644
View file @ 99b3f33f
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 657
ClientWidth = 1489
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
Left = 0
Top = 0
Width = 1489
Height = 657
Align = alClient
TabOrder = 0
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
ExplicitWidth = 1364
ExplicitHeight = 638
ClientRectBottom = 657
ClientRectRight = 1489
ClientRectTop = 24
object cxTabSheet1: TcxTabSheet
Caption = 'Glavna'
ImageIndex = 0
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1489
Height = 283
Align = alClient
TabOrder = 0
ExplicitWidth = 1364
ExplicitHeight = 264
object cxGrid1DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsMlekara
DiagramColumn.Active = True
Title.Text = 'Pregled svih uredjaja i njihovih maksimalnih vrednosti'
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'id'
end
object cxGrid1DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'temperatura'
GroupSummaryKind = skMax
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBChartView1
end
end
object cxGroupBox1: TcxGroupBox
Left = 0
Top = 283
Align = alBottom
Alignment = alCenterCenter
TabOrder = 1
ExplicitTop = 264
ExplicitWidth = 1364
Height = 350
Width = 1489
object cxGrid5: TcxGrid
Left = 2
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 0
object cxGrid5DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource1
DiagramColumn.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 1'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid5DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid5DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBChartView1
end
end
object cxGrid4: TcxGrid
Left = 582
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 1
object cxGrid4DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource3
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 3'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid4DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid4DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBChartView1
end
end
object cxGrid3: TcxGrid
Left = 872
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 2
object cxGrid3DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource4
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 4'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid3DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid3DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid3Level1: TcxGridLevel
GridView = cxGrid3DBChartView1
end
end
object cxGrid2: TcxGrid
Left = 292
Top = 2
Width = 290
Height = 346
Align = alLeft
TabOrder = 3
object cxGrid2DBChartView1: TcxGridDBChartView
DataController.DataSource = db.DataSource2
DiagramArea.Active = True
DiagramColumn.Legend.Alignment = cpaEnd
DiagramColumn.Legend.Border = lbSingle
DiagramColumn.Legend.KeyBorder = lbSingle
DiagramColumn.Legend.Position = cppLeft
Title.Alignment = cpaStart
Title.Text = 'Uzivo pregled za senzor 2'
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.DiagramSelector = True
ToolBox.Position = tpBottom
object cxGrid2DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid2DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 'C'
end
end
object cxGrid2Level1: TcxGridLevel
GridView = cxGrid2DBChartView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = 'Stampa'
ImageIndex = 1
ExplicitWidth = 1364
ExplicitHeight = 614
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 0
Align = alLeft
Alignment = alCenterCenter
TabOrder = 0
Transparent = True
ExplicitHeight = 614
Height = 633
Width = 297
object cxDBTextEdit1: TcxDBTextEdit
Left = 16
Top = 102
DataBinding.DataField = 'Artikal'
DataBinding.DataSource = db.dsArtikli
TabOrder = 0
Width = 259
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 16
Top = 152
DataBinding.DataField = 'Kolicina'
DataBinding.DataSource = db.dsArtikli
TabOrder = 1
Width = 105
end
object cxLabel1: TcxLabel
Left = 16
Top = 79
Caption = 'Artikal'
Transparent = True
end
object cxLabel2: TcxLabel
Left = 16
Top = 129
Caption = 'Kolicina'
Transparent = True
end
object cxLabel3: TcxLabel
Left = 16
Top = 179
Caption = 'Datum i vreme od'
Transparent = True
end
object cxGroupBox4: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 5
Height = 55
Width = 293
object btSave: TcxButton
Left = 137
Top = 2
Width = 136
Height = 51
Align = alLeft
Caption = 'Snimi'
TabOrder = 0
OnClick = btSaveClick
end
object btNew: TcxButton
Left = 2
Top = 2
Width = 135
Height = 51
Align = alLeft
Caption = 'Novi'
TabOrder = 1
OnClick = btNewClick
end
end
object cxLabel4: TcxLabel
Left = 16
Top = 229
Caption = 'Datum i vreme do'
Transparent = True
end
object AdvDateTimePicker2: TAdvDateTimePicker
Left = 16
Top = 252
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 7
OnChange = AdvDateTimePicker2Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object Uredjaj: TcxLabel
Left = 16
Top = 279
Caption = 'Uredjaj'
Transparent = True
end
object AdvDateTimePicker1: TAdvDateTimePicker
Left = 16
Top = 202
Width = 186
Height = 21
Date = 44160.096412037030000000
Format = ''
Time = 44160.096412037030000000
DoubleBuffered = True
Kind = dkDateTime
ParentDoubleBuffered = False
TabOrder = 9
OnChange = AdvDateTimePicker1Change
BorderStyle = bsSingle
Ctl3D = True
DateTime = 44160.096412037030000000
TimeFormat = 'HH:MM:ss'
Version = '1.2.0.6'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
end
object cxLabel17: TcxLabel
Left = 16
Top = 329
Caption = 'Zadata temperatura'
Transparent = True
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 16
Top = 352
DataBinding.DataField = 'zadata_temperatura'
DataBinding.DataSource = db.dsArtikli
TabOrder = 11
Width = 105
end
end
object cxGroupBox3: TcxGroupBox
Left = 297
Top = 0
Align = alClient
Alignment = alCenterCenter
TabOrder = 1
ExplicitWidth = 1067
ExplicitHeight = 614
Height = 633
Width = 1192
object cxGroupBox5: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
TabOrder = 0
ExplicitWidth = 1063
Height = 271
Width = 1188
object cxGrid6: TcxGrid
Left = 2
Top = 2
Width = 1184
Height = 267
Align = alClient
TabOrder = 0
ExplicitWidth = 1059
object cxGrid6DBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = db.dsArtikli
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 50
object cxGrid6DBTableView1idArtikli: TcxGridDBColumn
DataBinding.FieldName = 'idArtikli'
end
object cxGrid6DBTableView1Artikal: TcxGridDBColumn
DataBinding.FieldName = 'Artikal'
Width = 187
end
object cxGrid6DBTableView1Kolicina: TcxGridDBColumn
DataBinding.FieldName = 'Kolicina'
Width = 75
end
object cxGrid6DBTableView1od: TcxGridDBColumn
DataBinding.FieldName = 'od'
end
object cxGrid6DBTableView1do: TcxGridDBColumn
DataBinding.FieldName = 'do'
end
object cxGrid6DBTableView1id_uredjaja: TcxGridDBColumn
DataBinding.FieldName = 'id_uredjaja'
end
object cxGrid6DBTableView1zadata_temperatura: TcxGridDBColumn
DataBinding.FieldName = 'zadata_temperatura'
end
end
object cxGrid6Level1: TcxGridLevel
GridView = cxGrid6DBTableView1
end
end
end
object cxGroupBox6: TcxGroupBox
Left = 2
Top = 273
Align = alLeft
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
ExplicitHeight = 339
Height = 358
Width = 679
object cxGrid7: TcxGrid
Left = 2
Top = 41
Width = 535
Height = 315
Align = alLeft
TabOrder = 0
ExplicitHeight = 296
object cxGrid7DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaCenter
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.Orientation = cpoHorizontal
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Text = 'Vreme merenje u satima'
Title.Position = cppBottom
ToolBox.Position = tpBottom
object cxGrid7DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid7DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBChartView1
end
end
object cxLabel5: TcxLabel
Left = 541
Top = 41
Caption = 'Vrsta proizvoda :'
end
object cxLabel6: TcxLabel
Left = 543
Top = 70
Style.TextStyle = [fsBold]
end
object cxLabel7: TcxLabel
Left = 541
Top = 93
Caption = 'Kolicina :'
end
object cxLabel8: TcxLabel
Left = 541
Top = 139
Caption = 'Vreme pocetka merenja'
end
object cxLabel9: TcxLabel
Left = 541
Top = 185
Caption = 'Vreme kraja merenja'
end
object cxLabel10: TcxLabel
Left = 541
Top = 231
Caption = 'Max merena temp :'
end
object cxLabel11: TcxLabel
Left = 543
Top = 300
Style.TextStyle = [fsBold]
end
object cxLabel12: TcxLabel
Left = 541
Top = 277
Caption = 'Zadata temperatura'
end
object cxLabel13: TcxLabel
Left = 543
Top = 254
Style.TextStyle = [fsBold]
end
object cxLabel14: TcxLabel
Left = 543
Top = 208
Style.TextStyle = [fsBold]
end
object cxLabel15: TcxLabel
Left = 543
Top = 162
Style.TextStyle = [fsBold]
end
object cxLabel16: TcxLabel
Left = 543
Top = 116
Style.TextStyle = [fsBold]
end
object cxGroupBox8: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 13
Height = 39
Width = 675
object cxButton1: TcxButton
Left = 549
Top = 2
Width = 124
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton1Click
end
end
end
object cxGroupBox7: TcxGroupBox
Left = 694
Top = 273
Align = alRight
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 2
ExplicitLeft = 681
ExplicitHeight = 339
Height = 358
Width = 496
object cxGrid8: TcxGrid
Left = 2
Top = 41
Width = 492
Height = 315
Align = alClient
TabOrder = 0
ExplicitLeft = 126
ExplicitTop = 128
ExplicitWidth = 250
ExplicitHeight = 200
object cxGrid8DBChartView1: TcxGridDBChartView
DataController.DataSource = db.dsStampa
DiagramLine.Active = True
DiagramLine.Legend.Alignment = cpaStart
DiagramLine.Legend.Border = lbSingle
DiagramLine.Legend.KeyBorder = lbSingle
DiagramLine.Legend.Position = cppLeft
Title.Alignment = cpaCenter
Title.Position = cppTop
ToolBox.Border = tbNone
ToolBox.Position = tpBottom
object cxGrid8DBChartView1DataGroup1: TcxGridDBChartDataGroup
DataBinding.FieldName = 'vreme'
end
object cxGrid8DBChartView1Series1: TcxGridDBChartSeries
DataBinding.FieldName = 't'
end
end
object cxGrid8Level1: TcxGridLevel
GridView = cxGrid8DBChartView1
end
end
object cxGroupBox9: TcxGroupBox
Left = 2
Top = 2
Align = alTop
Alignment = alCenterCenter
Style.BorderStyle = ebsNone
TabOrder = 1
Height = 39
Width = 492
object cxButton2: TcxButton
Left = 376
Top = 2
Width = 114
Height = 35
Align = alRight
Caption = 'Stampaj'
TabOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = cxButton2Click
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
CurrentLink = dxComponentPrinter1Link1
Version = 0
Left = 568
Top = 424
object dxComponentPrinter1Link1: TdxCustomContainerReportLink
Active = True
Component = cxGroupBox6
PrinterPage.DMPaper = 9
PrinterPage.Footer = 200
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 = 44161.412318703700000000
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.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 = 44161.431397407410000000
BuiltInReportLink = True
HiddenComponents = {}
ExcludedComponents = {}
AggregatedReportLinks = {}
end
end
end
__history/MlekaraMain.h.~10~ → __history/MlekaraMain.h.~14~
View file @ 99b3f33f
......@@ -123,6 +123,7 @@
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
#include "dxPSContainerLnk.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
......@@ -193,7 +194,6 @@ __published: // IDE-managed Components
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
TcxGridDBChartView *cxGrid7DBChartView1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid7DBChartView1DataGroup1;
TcxLabel *cxLabel8;
TcxLabel *cxLabel9;
......@@ -204,11 +204,16 @@ __published: // IDE-managed Components
TcxLabel *cxLabel14;
TcxLabel *cxLabel15;
TcxLabel *cxLabel16;
TcxGroupBox *cxGroupBox8;
TcxButton *cxButton1;
TdxCustomContainerReportLink *dxComponentPrinter1Link1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall cxButton1Click(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
......
__history/MlekaraMain.h.~9~ → __history/MlekaraMain.h.~15~
View file @ 99b3f33f
......@@ -123,6 +123,7 @@
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
#include "dxPSContainerLnk.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
......@@ -166,7 +167,6 @@ __published: // IDE-managed Components
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btPrint;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
......@@ -194,7 +194,6 @@ __published: // IDE-managed Components
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
TcxGridDBChartView *cxGrid7DBChartView1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid7DBChartView1DataGroup1;
TcxLabel *cxLabel8;
TcxLabel *cxLabel9;
......@@ -205,11 +204,18 @@ __published: // IDE-managed Components
TcxLabel *cxLabel14;
TcxLabel *cxLabel15;
TcxLabel *cxLabel16;
TcxGroupBox *cxGroupBox8;
TcxButton *cxButton1;
TdxCustomContainerReportLink *dxComponentPrinter1Link1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxLabel *cxLabel17;
TcxDBTextEdit *cxDBTextEdit3;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall cxButton1Click(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
......
__history/MlekaraMain.h.~8~ → __history/MlekaraMain.h.~16~
View file @ 99b3f33f
......@@ -123,6 +123,7 @@
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
#include "dxPSContainerLnk.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
......@@ -166,7 +167,6 @@ __published: // IDE-managed Components
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btPrint;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
......@@ -194,7 +194,6 @@ __published: // IDE-managed Components
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
TcxGridDBChartView *cxGrid7DBChartView1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid7DBChartView1DataGroup1;
TcxLabel *cxLabel8;
TcxLabel *cxLabel9;
......@@ -205,12 +204,20 @@ __published: // IDE-managed Components
TcxLabel *cxLabel14;
TcxLabel *cxLabel15;
TcxLabel *cxLabel16;
TcxGroupBox *cxGroupBox8;
TcxButton *cxButton1;
TdxCustomContainerReportLink *dxComponentPrinter1Link1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxLabel *cxLabel17;
TcxDBTextEdit *cxDBTextEdit3;
TcxGridDBColumn *cxGrid6DBTableView1id_uredjaja;
TcxGridDBColumn *cxGrid6DBTableView1zadata_temperatura;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall btPrintClick(TObject *Sender);
void __fastcall cxButton1Click(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
......
__history/MlekaraMain.h.~6~ → __history/MlekaraMain.h.~17~
View file @ 99b3f33f
......@@ -123,6 +123,7 @@
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
#include "dxPSContainerLnk.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
......@@ -166,7 +167,6 @@ __published: // IDE-managed Components
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btPrint;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
......@@ -194,14 +194,36 @@ __published: // IDE-managed Components
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
TcxGridDBChartView *cxGrid7DBChartView1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid7DBChartView1DataGroup1;
TcxLabel *cxLabel8;
TcxLabel *cxLabel9;
TcxLabel *cxLabel10;
TcxLabel *cxLabel11;
TcxLabel *cxLabel12;
TcxLabel *cxLabel13;
TcxLabel *cxLabel14;
TcxLabel *cxLabel15;
TcxLabel *cxLabel16;
TcxGroupBox *cxGroupBox8;
TcxButton *cxButton1;
TdxCustomContainerReportLink *dxComponentPrinter1Link1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxLabel *cxLabel17;
TcxDBTextEdit *cxDBTextEdit3;
TcxGridDBColumn *cxGrid6DBTableView1id_uredjaja;
TcxGridDBColumn *cxGrid6DBTableView1zadata_temperatura;
TcxGrid *cxGrid8;
TcxGridLevel *cxGrid8Level1;
TcxGroupBox *cxGroupBox9;
TcxGridDBChartView *cxGrid8DBChartView1;
TcxGridDBChartSeries *cxGrid8DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid8DBChartView1DataGroup1;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall btPrintClick(TObject *Sender);
void __fastcall cxButton1Click(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
......
__history/MlekaraMain.h.~18~ 0 → 100644
View file @ 99b3f33f
//---------------------------------------------------------------------------
#ifndef MlekaraMainH
#define MlekaraMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//USER INCLUDE
#include "dbDm.h"
#include "cxClasses.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxNavigator.hpp"
#include "cxStyles.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinBlueprint.hpp"
#include "dxSkinCaramel.hpp"
#include "dxSkinCoffee.hpp"
#include "dxSkinDarkRoom.hpp"
#include "dxSkinDarkSide.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinGlassOceans.hpp"
#include "dxSkinHighContrast.hpp"
#include "dxSkiniMaginary.hpp"
#include "dxSkinLilian.hpp"
#include "dxSkinLiquidSky.hpp"
#include "dxSkinLondonLiquidSky.hpp"
#include "dxSkinMcSkin.hpp"
#include "dxSkinMoneyTwins.hpp"
#include "dxSkinOffice2007Black.hpp"
#include "dxSkinOffice2007Blue.hpp"
#include "dxSkinOffice2007Green.hpp"
#include "dxSkinOffice2007Pink.hpp"
#include "dxSkinOffice2007Silver.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinOffice2013White.hpp"
#include "dxSkinPumpkin.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"
#include "dxSkinsDefaultPainters.hpp"
#include "dxSkinSeven.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinSharp.hpp"
#include "dxSkinSharpPlus.hpp"
#include "dxSkinSilver.hpp"
#include "dxSkinSpringTime.hpp"
#include "dxSkinStardust.hpp"
#include "dxSkinSummer2008.hpp"
#include "dxSkinTheAsphaltWorld.hpp"
#include "dxSkinValentine.hpp"
#include "dxSkinVS2010.hpp"
#include "dxSkinWhiteprint.hpp"
#include "dxSkinXmas2008Blue.hpp"
#include <Data.DB.hpp>
#include "cxGridChartView.hpp"
#include "cxGridDBChartView.hpp"
#include "cxContainer.hpp"
#include "cxGridCardView.hpp"
#include "cxGridCustomLayoutView.hpp"
#include "cxGridDBCardView.hpp"
#include "cxGroupBox.hpp"
#include "cxPC.hpp"
#include "cxPCdxBarPopupMenu.hpp"
#include "frxClass.hpp"
#include "cxCalendar.hpp"
#include "cxDBEdit.hpp"
#include "cxDropDownEdit.hpp"
#include "cxLabel.hpp"
#include "cxMaskEdit.hpp"
#include "cxTextEdit.hpp"
#include "cxButtons.hpp"
#include <Vcl.Menus.hpp>
#include <Vcl.ComCtrls.hpp>
#include "AdvDateTimePicker.hpp"
#include "cxDBLookupComboBox.hpp"
#include "cxDBLookupEdit.hpp"
#include "cxLookupEdit.hpp"
#include "frxDBSet.hpp"
#include "cxDrawTextUtils.hpp"
#include "dxBkgnd.hpp"
#include "dxPrnDev.hpp"
#include "dxPrnPg.hpp"
#include "dxPSCompsProvider.hpp"
#include "dxPSCore.hpp"
#include "dxPScxCommon.hpp"
#include "dxPScxEditorProducers.hpp"
#include "dxPScxExtEditorProducers.hpp"
#include "dxPScxGridLayoutViewLnk.hpp"
#include "dxPScxGridLnk.hpp"
#include "dxPScxPageControlProducer.hpp"
#include "dxPSEdgePatterns.hpp"
#include "dxPSEngn.hpp"
#include "dxPSFillPatterns.hpp"
#include "dxPSGlbl.hpp"
#include "dxPSPDFExport.hpp"
#include "dxPSPDFExportCore.hpp"
#include "dxPSPrVwAdv.hpp"
#include "dxPSPrVwRibbon.hpp"
#include "dxPSPrVwStd.hpp"
#include "dxPSUtl.hpp"
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
#include "dxPSContainerLnk.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TfrxReport *print;
TcxPageControl *cxPageControl1;
TcxTabSheet *cxTabSheet1;
TcxTabSheet *cxTabSheet2;
TcxGrid *cxGrid1;
TcxGridDBChartView *cxGrid1DBChartView1;
TcxGridDBChartDataGroup *cxGrid1DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid1DBChartView1Series1;
TcxGridLevel *cxGrid1Level1;
TcxGroupBox *cxGroupBox1;
TcxGrid *cxGrid5;
TcxGridDBChartView *cxGrid5DBChartView1;
TcxGridDBChartDataGroup *cxGrid5DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid5DBChartView1Series1;
TcxGridLevel *cxGrid5Level1;
TcxGrid *cxGrid4;
TcxGridDBChartView *cxGrid4DBChartView1;
TcxGridDBChartDataGroup *cxGrid4DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid4DBChartView1Series1;
TcxGridLevel *cxGrid4Level1;
TcxGrid *cxGrid3;
TcxGridDBChartView *cxGrid3DBChartView1;
TcxGridDBChartDataGroup *cxGrid3DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid3DBChartView1Series1;
TcxGridLevel *cxGrid3Level1;
TcxGrid *cxGrid2;
TcxGridDBChartView *cxGrid2DBChartView1;
TcxGridDBChartDataGroup *cxGrid2DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid2DBChartView1Series1;
TcxGridLevel *cxGrid2Level1;
TcxGroupBox *cxGroupBox2;
TcxGroupBox *cxGroupBox3;
TcxDBTextEdit *cxDBTextEdit1;
TcxDBTextEdit *cxDBTextEdit2;
TcxLabel *cxLabel1;
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
TAdvDateTimePicker *AdvDateTimePicker2;
TcxLabel *Uredjaj;
TcxDBLookupComboBox *cxDBLookupComboBox1;
TfrxDBDataset *frxDBDPrint;
TfrxDBDataset *frxDBArtikal;
TdxComponentPrinter *dxComponentPrinter1;
TAdvDateTimePicker *AdvDateTimePicker1;
TcxGroupBox *cxGroupBox5;
TcxGrid *cxGrid6;
TcxGridDBTableView *cxGrid6DBTableView1;
TcxGridDBColumn *cxGrid6DBTableView1idArtikli;
TcxGridDBColumn *cxGrid6DBTableView1Artikal;
TcxGridDBColumn *cxGrid6DBTableView1Kolicina;
TcxGridDBColumn *cxGrid6DBTableView1od;
TcxGridDBColumn *cxGrid6DBTableView1do;
TcxGridLevel *cxGrid6Level1;
TcxGroupBox *cxGroupBox6;
TcxGroupBox *cxGroupBox7;
TcxGrid *cxGrid7;
TcxGridLevel *cxGrid7Level1;
TcxLabel *cxLabel5;
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
TcxGridDBChartView *cxGrid7DBChartView1;
TcxGridDBChartDataGroup *cxGrid7DBChartView1DataGroup1;
TcxLabel *cxLabel8;
TcxLabel *cxLabel9;
TcxLabel *cxLabel10;
TcxLabel *cxLabel11;
TcxLabel *cxLabel12;
TcxLabel *cxLabel13;
TcxLabel *cxLabel14;
TcxLabel *cxLabel15;
TcxLabel *cxLabel16;
TcxGroupBox *cxGroupBox8;
TcxButton *cxButton1;
TdxCustomContainerReportLink *dxComponentPrinter1Link1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxLabel *cxLabel17;
TcxDBTextEdit *cxDBTextEdit3;
TcxGridDBColumn *cxGrid6DBTableView1id_uredjaja;
TcxGridDBColumn *cxGrid6DBTableView1zadata_temperatura;
TcxGrid *cxGrid8;
TcxGridLevel *cxGrid8Level1;
TcxGroupBox *cxGroupBox9;
TcxGridDBChartView *cxGrid8DBChartView1;
TcxGridDBChartSeries *cxGrid8DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid8DBChartView1DataGroup1;
TcxButton *cxButton2;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall cxButton1Click(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
__history/MlekaraMain.h.~19~ 0 → 100644
View file @ 99b3f33f
//---------------------------------------------------------------------------
#ifndef MlekaraMainH
#define MlekaraMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//USER INCLUDE
#include "dbDm.h"
#include "cxClasses.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxNavigator.hpp"
#include "cxStyles.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinBlueprint.hpp"
#include "dxSkinCaramel.hpp"
#include "dxSkinCoffee.hpp"
#include "dxSkinDarkRoom.hpp"
#include "dxSkinDarkSide.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinGlassOceans.hpp"
#include "dxSkinHighContrast.hpp"
#include "dxSkiniMaginary.hpp"
#include "dxSkinLilian.hpp"
#include "dxSkinLiquidSky.hpp"
#include "dxSkinLondonLiquidSky.hpp"
#include "dxSkinMcSkin.hpp"
#include "dxSkinMoneyTwins.hpp"
#include "dxSkinOffice2007Black.hpp"
#include "dxSkinOffice2007Blue.hpp"
#include "dxSkinOffice2007Green.hpp"
#include "dxSkinOffice2007Pink.hpp"
#include "dxSkinOffice2007Silver.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinOffice2013White.hpp"
#include "dxSkinPumpkin.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"
#include "dxSkinsDefaultPainters.hpp"
#include "dxSkinSeven.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinSharp.hpp"
#include "dxSkinSharpPlus.hpp"
#include "dxSkinSilver.hpp"
#include "dxSkinSpringTime.hpp"
#include "dxSkinStardust.hpp"
#include "dxSkinSummer2008.hpp"
#include "dxSkinTheAsphaltWorld.hpp"
#include "dxSkinValentine.hpp"
#include "dxSkinVS2010.hpp"
#include "dxSkinWhiteprint.hpp"
#include "dxSkinXmas2008Blue.hpp"
#include <Data.DB.hpp>
#include "cxGridChartView.hpp"
#include "cxGridDBChartView.hpp"
#include "cxContainer.hpp"
#include "cxGridCardView.hpp"
#include "cxGridCustomLayoutView.hpp"
#include "cxGridDBCardView.hpp"
#include "cxGroupBox.hpp"
#include "cxPC.hpp"
#include "cxPCdxBarPopupMenu.hpp"
#include "frxClass.hpp"
#include "cxCalendar.hpp"
#include "cxDBEdit.hpp"
#include "cxDropDownEdit.hpp"
#include "cxLabel.hpp"
#include "cxMaskEdit.hpp"
#include "cxTextEdit.hpp"
#include "cxButtons.hpp"
#include <Vcl.Menus.hpp>
#include <Vcl.ComCtrls.hpp>
#include "AdvDateTimePicker.hpp"
#include "cxDBLookupComboBox.hpp"
#include "cxDBLookupEdit.hpp"
#include "cxLookupEdit.hpp"
#include "frxDBSet.hpp"
#include "cxDrawTextUtils.hpp"
#include "dxBkgnd.hpp"
#include "dxPrnDev.hpp"
#include "dxPrnPg.hpp"
#include "dxPSCompsProvider.hpp"
#include "dxPSCore.hpp"
#include "dxPScxCommon.hpp"
#include "dxPScxEditorProducers.hpp"
#include "dxPScxExtEditorProducers.hpp"
#include "dxPScxGridLayoutViewLnk.hpp"
#include "dxPScxGridLnk.hpp"
#include "dxPScxPageControlProducer.hpp"
#include "dxPSEdgePatterns.hpp"
#include "dxPSEngn.hpp"
#include "dxPSFillPatterns.hpp"
#include "dxPSGlbl.hpp"
#include "dxPSPDFExport.hpp"
#include "dxPSPDFExportCore.hpp"
#include "dxPSPrVwAdv.hpp"
#include "dxPSPrVwRibbon.hpp"
#include "dxPSPrVwStd.hpp"
#include "dxPSUtl.hpp"
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
#include "dxPSContainerLnk.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TfrxReport *print;
TcxPageControl *cxPageControl1;
TcxTabSheet *cxTabSheet1;
TcxTabSheet *cxTabSheet2;
TcxGrid *cxGrid1;
TcxGridDBChartView *cxGrid1DBChartView1;
TcxGridDBChartDataGroup *cxGrid1DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid1DBChartView1Series1;
TcxGridLevel *cxGrid1Level1;
TcxGroupBox *cxGroupBox1;
TcxGrid *cxGrid5;
TcxGridDBChartView *cxGrid5DBChartView1;
TcxGridDBChartDataGroup *cxGrid5DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid5DBChartView1Series1;
TcxGridLevel *cxGrid5Level1;
TcxGrid *cxGrid4;
TcxGridDBChartView *cxGrid4DBChartView1;
TcxGridDBChartDataGroup *cxGrid4DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid4DBChartView1Series1;
TcxGridLevel *cxGrid4Level1;
TcxGrid *cxGrid3;
TcxGridDBChartView *cxGrid3DBChartView1;
TcxGridDBChartDataGroup *cxGrid3DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid3DBChartView1Series1;
TcxGridLevel *cxGrid3Level1;
TcxGrid *cxGrid2;
TcxGridDBChartView *cxGrid2DBChartView1;
TcxGridDBChartDataGroup *cxGrid2DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid2DBChartView1Series1;
TcxGridLevel *cxGrid2Level1;
TcxGroupBox *cxGroupBox2;
TcxGroupBox *cxGroupBox3;
TcxDBTextEdit *cxDBTextEdit1;
TcxDBTextEdit *cxDBTextEdit2;
TcxLabel *cxLabel1;
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
TAdvDateTimePicker *AdvDateTimePicker2;
TcxLabel *Uredjaj;
TcxDBLookupComboBox *cxDBLookupComboBox1;
TfrxDBDataset *frxDBDPrint;
TfrxDBDataset *frxDBArtikal;
TdxComponentPrinter *dxComponentPrinter1;
TAdvDateTimePicker *AdvDateTimePicker1;
TcxGroupBox *cxGroupBox5;
TcxGrid *cxGrid6;
TcxGridDBTableView *cxGrid6DBTableView1;
TcxGridDBColumn *cxGrid6DBTableView1idArtikli;
TcxGridDBColumn *cxGrid6DBTableView1Artikal;
TcxGridDBColumn *cxGrid6DBTableView1Kolicina;
TcxGridDBColumn *cxGrid6DBTableView1od;
TcxGridDBColumn *cxGrid6DBTableView1do;
TcxGridLevel *cxGrid6Level1;
TcxGroupBox *cxGroupBox6;
TcxGroupBox *cxGroupBox7;
TcxGrid *cxGrid7;
TcxGridLevel *cxGrid7Level1;
TcxLabel *cxLabel5;
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
TcxGridDBChartView *cxGrid7DBChartView1;
TcxGridDBChartDataGroup *cxGrid7DBChartView1DataGroup1;
TcxLabel *cxLabel8;
TcxLabel *cxLabel9;
TcxLabel *cxLabel10;
TcxLabel *cxLabel11;
TcxLabel *cxLabel12;
TcxLabel *cxLabel13;
TcxLabel *cxLabel14;
TcxLabel *cxLabel15;
TcxLabel *cxLabel16;
TcxGroupBox *cxGroupBox8;
TcxButton *cxButton1;
TdxCustomContainerReportLink *dxComponentPrinter1Link1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxLabel *cxLabel17;
TcxDBTextEdit *cxDBTextEdit3;
TcxGridDBColumn *cxGrid6DBTableView1id_uredjaja;
TcxGridDBColumn *cxGrid6DBTableView1zadata_temperatura;
TcxGrid *cxGrid8;
TcxGridLevel *cxGrid8Level1;
TcxGroupBox *cxGroupBox9;
TcxGridDBChartView *cxGrid8DBChartView1;
TcxGridDBChartSeries *cxGrid8DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid8DBChartView1DataGroup1;
TcxButton *cxButton2;
TdxComponentPrinter *dxComponentPrinter2;
TdxCustomContainerReportLink *dxComponentPrinter2Link1;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall cxButton1Click(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
__history/MlekaraMain.h.~20~ 0 → 100644
View file @ 99b3f33f
//---------------------------------------------------------------------------
#ifndef MlekaraMainH
#define MlekaraMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//USER INCLUDE
#include "dbDm.h"
#include "cxClasses.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxNavigator.hpp"
#include "cxStyles.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinBlueprint.hpp"
#include "dxSkinCaramel.hpp"
#include "dxSkinCoffee.hpp"
#include "dxSkinDarkRoom.hpp"
#include "dxSkinDarkSide.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinGlassOceans.hpp"
#include "dxSkinHighContrast.hpp"
#include "dxSkiniMaginary.hpp"
#include "dxSkinLilian.hpp"
#include "dxSkinLiquidSky.hpp"
#include "dxSkinLondonLiquidSky.hpp"
#include "dxSkinMcSkin.hpp"
#include "dxSkinMoneyTwins.hpp"
#include "dxSkinOffice2007Black.hpp"
#include "dxSkinOffice2007Blue.hpp"
#include "dxSkinOffice2007Green.hpp"
#include "dxSkinOffice2007Pink.hpp"
#include "dxSkinOffice2007Silver.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinOffice2013White.hpp"
#include "dxSkinPumpkin.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"
#include "dxSkinsDefaultPainters.hpp"
#include "dxSkinSeven.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinSharp.hpp"
#include "dxSkinSharpPlus.hpp"
#include "dxSkinSilver.hpp"
#include "dxSkinSpringTime.hpp"
#include "dxSkinStardust.hpp"
#include "dxSkinSummer2008.hpp"
#include "dxSkinTheAsphaltWorld.hpp"
#include "dxSkinValentine.hpp"
#include "dxSkinVS2010.hpp"
#include "dxSkinWhiteprint.hpp"
#include "dxSkinXmas2008Blue.hpp"
#include <Data.DB.hpp>
#include "cxGridChartView.hpp"
#include "cxGridDBChartView.hpp"
#include "cxContainer.hpp"
#include "cxGridCardView.hpp"
#include "cxGridCustomLayoutView.hpp"
#include "cxGridDBCardView.hpp"
#include "cxGroupBox.hpp"
#include "cxPC.hpp"
#include "cxPCdxBarPopupMenu.hpp"
#include "frxClass.hpp"
#include "cxCalendar.hpp"
#include "cxDBEdit.hpp"
#include "cxDropDownEdit.hpp"
#include "cxLabel.hpp"
#include "cxMaskEdit.hpp"
#include "cxTextEdit.hpp"
#include "cxButtons.hpp"
#include <Vcl.Menus.hpp>
#include <Vcl.ComCtrls.hpp>
#include "AdvDateTimePicker.hpp"
#include "cxDBLookupComboBox.hpp"
#include "cxDBLookupEdit.hpp"
#include "cxLookupEdit.hpp"
#include "frxDBSet.hpp"
#include "cxDrawTextUtils.hpp"
#include "dxBkgnd.hpp"
#include "dxPrnDev.hpp"
#include "dxPrnPg.hpp"
#include "dxPSCompsProvider.hpp"
#include "dxPSCore.hpp"
#include "dxPScxCommon.hpp"
#include "dxPScxEditorProducers.hpp"
#include "dxPScxExtEditorProducers.hpp"
#include "dxPScxGridLayoutViewLnk.hpp"
#include "dxPScxGridLnk.hpp"
#include "dxPScxPageControlProducer.hpp"
#include "dxPSEdgePatterns.hpp"
#include "dxPSEngn.hpp"
#include "dxPSFillPatterns.hpp"
#include "dxPSGlbl.hpp"
#include "dxPSPDFExport.hpp"
#include "dxPSPDFExportCore.hpp"
#include "dxPSPrVwAdv.hpp"
#include "dxPSPrVwRibbon.hpp"
#include "dxPSPrVwStd.hpp"
#include "dxPSUtl.hpp"
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
#include "dxPSContainerLnk.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TfrxReport *print;
TcxPageControl *cxPageControl1;
TcxTabSheet *cxTabSheet1;
TcxTabSheet *cxTabSheet2;
TcxGrid *cxGrid1;
TcxGridDBChartView *cxGrid1DBChartView1;
TcxGridDBChartDataGroup *cxGrid1DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid1DBChartView1Series1;
TcxGridLevel *cxGrid1Level1;
TcxGroupBox *cxGroupBox1;
TcxGrid *cxGrid5;
TcxGridDBChartView *cxGrid5DBChartView1;
TcxGridDBChartDataGroup *cxGrid5DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid5DBChartView1Series1;
TcxGridLevel *cxGrid5Level1;
TcxGrid *cxGrid4;
TcxGridDBChartView *cxGrid4DBChartView1;
TcxGridDBChartDataGroup *cxGrid4DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid4DBChartView1Series1;
TcxGridLevel *cxGrid4Level1;
TcxGrid *cxGrid3;
TcxGridDBChartView *cxGrid3DBChartView1;
TcxGridDBChartDataGroup *cxGrid3DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid3DBChartView1Series1;
TcxGridLevel *cxGrid3Level1;
TcxGrid *cxGrid2;
TcxGridDBChartView *cxGrid2DBChartView1;
TcxGridDBChartDataGroup *cxGrid2DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid2DBChartView1Series1;
TcxGridLevel *cxGrid2Level1;
TcxGroupBox *cxGroupBox2;
TcxGroupBox *cxGroupBox3;
TcxDBTextEdit *cxDBTextEdit1;
TcxDBTextEdit *cxDBTextEdit2;
TcxLabel *cxLabel1;
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
TAdvDateTimePicker *AdvDateTimePicker2;
TcxLabel *Uredjaj;
TcxDBLookupComboBox *cxDBLookupComboBox1;
TfrxDBDataset *frxDBDPrint;
TfrxDBDataset *frxDBArtikal;
TdxComponentPrinter *dxComponentPrinter1;
TAdvDateTimePicker *AdvDateTimePicker1;
TcxGroupBox *cxGroupBox5;
TcxGrid *cxGrid6;
TcxGridDBTableView *cxGrid6DBTableView1;
TcxGridDBColumn *cxGrid6DBTableView1idArtikli;
TcxGridDBColumn *cxGrid6DBTableView1Artikal;
TcxGridDBColumn *cxGrid6DBTableView1Kolicina;
TcxGridDBColumn *cxGrid6DBTableView1od;
TcxGridDBColumn *cxGrid6DBTableView1do;
TcxGridLevel *cxGrid6Level1;
TcxGroupBox *cxGroupBox6;
TcxGroupBox *cxGroupBox7;
TcxGrid *cxGrid7;
TcxGridLevel *cxGrid7Level1;
TcxLabel *cxLabel5;
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
TcxGridDBChartView *cxGrid7DBChartView1;
TcxGridDBChartDataGroup *cxGrid7DBChartView1DataGroup1;
TcxLabel *cxLabel8;
TcxLabel *cxLabel9;
TcxLabel *cxLabel10;
TcxLabel *cxLabel11;
TcxLabel *cxLabel12;
TcxLabel *cxLabel13;
TcxLabel *cxLabel14;
TcxLabel *cxLabel15;
TcxLabel *cxLabel16;
TcxGroupBox *cxGroupBox8;
TcxButton *cxButton1;
TdxCustomContainerReportLink *dxComponentPrinter1Link1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxLabel *cxLabel17;
TcxDBTextEdit *cxDBTextEdit3;
TcxGridDBColumn *cxGrid6DBTableView1id_uredjaja;
TcxGridDBColumn *cxGrid6DBTableView1zadata_temperatura;
TcxGrid *cxGrid8;
TcxGridLevel *cxGrid8Level1;
TcxGroupBox *cxGroupBox9;
TcxGridDBChartView *cxGrid8DBChartView1;
TcxGridDBChartSeries *cxGrid8DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid8DBChartView1DataGroup1;
TcxButton *cxButton2;
TdxComponentPrinter *dxComponentPrinter2;
TdxCustomContainerReportLink *dxComponentPrinter2Link1;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall cxButton1Click(TObject *Sender);
void __fastcall cxButton2Click(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
__history/MlekaraMain.h.~4~ deleted 100644 → 0
View file @ e1d1f64c
//---------------------------------------------------------------------------
#ifndef MlekaraMainH
#define MlekaraMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//USER INCLUDE
#include "dbDm.h"
#include "cxClasses.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxNavigator.hpp"
#include "cxStyles.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinBlueprint.hpp"
#include "dxSkinCaramel.hpp"
#include "dxSkinCoffee.hpp"
#include "dxSkinDarkRoom.hpp"
#include "dxSkinDarkSide.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinGlassOceans.hpp"
#include "dxSkinHighContrast.hpp"
#include "dxSkiniMaginary.hpp"
#include "dxSkinLilian.hpp"
#include "dxSkinLiquidSky.hpp"
#include "dxSkinLondonLiquidSky.hpp"
#include "dxSkinMcSkin.hpp"
#include "dxSkinMoneyTwins.hpp"
#include "dxSkinOffice2007Black.hpp"
#include "dxSkinOffice2007Blue.hpp"
#include "dxSkinOffice2007Green.hpp"
#include "dxSkinOffice2007Pink.hpp"
#include "dxSkinOffice2007Silver.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinOffice2013White.hpp"
#include "dxSkinPumpkin.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"
#include "dxSkinsDefaultPainters.hpp"
#include "dxSkinSeven.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinSharp.hpp"
#include "dxSkinSharpPlus.hpp"
#include "dxSkinSilver.hpp"
#include "dxSkinSpringTime.hpp"
#include "dxSkinStardust.hpp"
#include "dxSkinSummer2008.hpp"
#include "dxSkinTheAsphaltWorld.hpp"
#include "dxSkinValentine.hpp"
#include "dxSkinVS2010.hpp"
#include "dxSkinWhiteprint.hpp"
#include "dxSkinXmas2008Blue.hpp"
#include <Data.DB.hpp>
#include "cxGridChartView.hpp"
#include "cxGridDBChartView.hpp"
#include "cxContainer.hpp"
#include "cxGridCardView.hpp"
#include "cxGridCustomLayoutView.hpp"
#include "cxGridDBCardView.hpp"
#include "cxGroupBox.hpp"
#include "cxPC.hpp"
#include "cxPCdxBarPopupMenu.hpp"
#include "frxClass.hpp"
#include "cxCalendar.hpp"
#include "cxDBEdit.hpp"
#include "cxDropDownEdit.hpp"
#include "cxLabel.hpp"
#include "cxMaskEdit.hpp"
#include "cxTextEdit.hpp"
#include "cxButtons.hpp"
#include <Vcl.Menus.hpp>
#include <Vcl.ComCtrls.hpp>
#include "AdvDateTimePicker.hpp"
#include "cxDBLookupComboBox.hpp"
#include "cxDBLookupEdit.hpp"
#include "cxLookupEdit.hpp"
#include "frxDBSet.hpp"
#include "cxDrawTextUtils.hpp"
#include "dxBkgnd.hpp"
#include "dxPrnDev.hpp"
#include "dxPrnPg.hpp"
#include "dxPSCompsProvider.hpp"
#include "dxPSCore.hpp"
#include "dxPScxCommon.hpp"
#include "dxPScxEditorProducers.hpp"
#include "dxPScxExtEditorProducers.hpp"
#include "dxPScxGridLayoutViewLnk.hpp"
#include "dxPScxGridLnk.hpp"
#include "dxPScxPageControlProducer.hpp"
#include "dxPSEdgePatterns.hpp"
#include "dxPSEngn.hpp"
#include "dxPSFillPatterns.hpp"
#include "dxPSGlbl.hpp"
#include "dxPSPDFExport.hpp"
#include "dxPSPDFExportCore.hpp"
#include "dxPSPrVwAdv.hpp"
#include "dxPSPrVwRibbon.hpp"
#include "dxPSPrVwStd.hpp"
#include "dxPSUtl.hpp"
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TfrxReport *print;
TcxPageControl *cxPageControl1;
TcxTabSheet *cxTabSheet1;
TcxTabSheet *cxTabSheet2;
TcxGrid *cxGrid1;
TcxGridDBChartView *cxGrid1DBChartView1;
TcxGridDBChartDataGroup *cxGrid1DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid1DBChartView1Series1;
TcxGridLevel *cxGrid1Level1;
TcxGroupBox *cxGroupBox1;
TcxGrid *cxGrid5;
TcxGridDBChartView *cxGrid5DBChartView1;
TcxGridDBChartDataGroup *cxGrid5DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid5DBChartView1Series1;
TcxGridLevel *cxGrid5Level1;
TcxGrid *cxGrid4;
TcxGridDBChartView *cxGrid4DBChartView1;
TcxGridDBChartDataGroup *cxGrid4DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid4DBChartView1Series1;
TcxGridLevel *cxGrid4Level1;
TcxGrid *cxGrid3;
TcxGridDBChartView *cxGrid3DBChartView1;
TcxGridDBChartDataGroup *cxGrid3DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid3DBChartView1Series1;
TcxGridLevel *cxGrid3Level1;
TcxGrid *cxGrid2;
TcxGridDBChartView *cxGrid2DBChartView1;
TcxGridDBChartDataGroup *cxGrid2DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid2DBChartView1Series1;
TcxGridLevel *cxGrid2Level1;
TcxGroupBox *cxGroupBox2;
TcxGroupBox *cxGroupBox3;
TcxDBTextEdit *cxDBTextEdit1;
TcxDBTextEdit *cxDBTextEdit2;
TcxLabel *cxLabel1;
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btPrint;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
TAdvDateTimePicker *AdvDateTimePicker2;
TcxLabel *Uredjaj;
TcxDBLookupComboBox *cxDBLookupComboBox1;
TfrxDBDataset *frxDBDPrint;
TfrxDBDataset *frxDBArtikal;
TdxComponentPrinter *dxComponentPrinter1;
TdxGridReportLink *dxComponentPrinter1Link1;
TAdvDateTimePicker *AdvDateTimePicker1;
TcxGroupBox *cxGroupBox5;
TcxGrid *cxGrid6;
TcxGridDBTableView *cxGrid6DBTableView1;
TcxGridDBColumn *cxGrid6DBTableView1idArtikli;
TcxGridDBColumn *cxGrid6DBTableView1Artikal;
TcxGridDBColumn *cxGrid6DBTableView1Kolicina;
TcxGridDBColumn *cxGrid6DBTableView1od;
TcxGridDBColumn *cxGrid6DBTableView1do;
TcxGridLevel *cxGrid6Level1;
TcxGroupBox *cxGroupBox6;
TcxGroupBox *cxGroupBox7;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall btPrintClick(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
__history/MlekaraMain.h.~5~ deleted 100644 → 0
View file @ e1d1f64c
//---------------------------------------------------------------------------
#ifndef MlekaraMainH
#define MlekaraMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//USER INCLUDE
#include "dbDm.h"
#include "cxClasses.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxNavigator.hpp"
#include "cxStyles.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinBlueprint.hpp"
#include "dxSkinCaramel.hpp"
#include "dxSkinCoffee.hpp"
#include "dxSkinDarkRoom.hpp"
#include "dxSkinDarkSide.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinGlassOceans.hpp"
#include "dxSkinHighContrast.hpp"
#include "dxSkiniMaginary.hpp"
#include "dxSkinLilian.hpp"
#include "dxSkinLiquidSky.hpp"
#include "dxSkinLondonLiquidSky.hpp"
#include "dxSkinMcSkin.hpp"
#include "dxSkinMoneyTwins.hpp"
#include "dxSkinOffice2007Black.hpp"
#include "dxSkinOffice2007Blue.hpp"
#include "dxSkinOffice2007Green.hpp"
#include "dxSkinOffice2007Pink.hpp"
#include "dxSkinOffice2007Silver.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinOffice2013White.hpp"
#include "dxSkinPumpkin.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"
#include "dxSkinsDefaultPainters.hpp"
#include "dxSkinSeven.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinSharp.hpp"
#include "dxSkinSharpPlus.hpp"
#include "dxSkinSilver.hpp"
#include "dxSkinSpringTime.hpp"
#include "dxSkinStardust.hpp"
#include "dxSkinSummer2008.hpp"
#include "dxSkinTheAsphaltWorld.hpp"
#include "dxSkinValentine.hpp"
#include "dxSkinVS2010.hpp"
#include "dxSkinWhiteprint.hpp"
#include "dxSkinXmas2008Blue.hpp"
#include <Data.DB.hpp>
#include "cxGridChartView.hpp"
#include "cxGridDBChartView.hpp"
#include "cxContainer.hpp"
#include "cxGridCardView.hpp"
#include "cxGridCustomLayoutView.hpp"
#include "cxGridDBCardView.hpp"
#include "cxGroupBox.hpp"
#include "cxPC.hpp"
#include "cxPCdxBarPopupMenu.hpp"
#include "frxClass.hpp"
#include "cxCalendar.hpp"
#include "cxDBEdit.hpp"
#include "cxDropDownEdit.hpp"
#include "cxLabel.hpp"
#include "cxMaskEdit.hpp"
#include "cxTextEdit.hpp"
#include "cxButtons.hpp"
#include <Vcl.Menus.hpp>
#include <Vcl.ComCtrls.hpp>
#include "AdvDateTimePicker.hpp"
#include "cxDBLookupComboBox.hpp"
#include "cxDBLookupEdit.hpp"
#include "cxLookupEdit.hpp"
#include "frxDBSet.hpp"
#include "cxDrawTextUtils.hpp"
#include "dxBkgnd.hpp"
#include "dxPrnDev.hpp"
#include "dxPrnPg.hpp"
#include "dxPSCompsProvider.hpp"
#include "dxPSCore.hpp"
#include "dxPScxCommon.hpp"
#include "dxPScxEditorProducers.hpp"
#include "dxPScxExtEditorProducers.hpp"
#include "dxPScxGridLayoutViewLnk.hpp"
#include "dxPScxGridLnk.hpp"
#include "dxPScxPageControlProducer.hpp"
#include "dxPSEdgePatterns.hpp"
#include "dxPSEngn.hpp"
#include "dxPSFillPatterns.hpp"
#include "dxPSGlbl.hpp"
#include "dxPSPDFExport.hpp"
#include "dxPSPDFExportCore.hpp"
#include "dxPSPrVwAdv.hpp"
#include "dxPSPrVwRibbon.hpp"
#include "dxPSPrVwStd.hpp"
#include "dxPSUtl.hpp"
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TfrxReport *print;
TcxPageControl *cxPageControl1;
TcxTabSheet *cxTabSheet1;
TcxTabSheet *cxTabSheet2;
TcxGrid *cxGrid1;
TcxGridDBChartView *cxGrid1DBChartView1;
TcxGridDBChartDataGroup *cxGrid1DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid1DBChartView1Series1;
TcxGridLevel *cxGrid1Level1;
TcxGroupBox *cxGroupBox1;
TcxGrid *cxGrid5;
TcxGridDBChartView *cxGrid5DBChartView1;
TcxGridDBChartDataGroup *cxGrid5DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid5DBChartView1Series1;
TcxGridLevel *cxGrid5Level1;
TcxGrid *cxGrid4;
TcxGridDBChartView *cxGrid4DBChartView1;
TcxGridDBChartDataGroup *cxGrid4DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid4DBChartView1Series1;
TcxGridLevel *cxGrid4Level1;
TcxGrid *cxGrid3;
TcxGridDBChartView *cxGrid3DBChartView1;
TcxGridDBChartDataGroup *cxGrid3DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid3DBChartView1Series1;
TcxGridLevel *cxGrid3Level1;
TcxGrid *cxGrid2;
TcxGridDBChartView *cxGrid2DBChartView1;
TcxGridDBChartDataGroup *cxGrid2DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid2DBChartView1Series1;
TcxGridLevel *cxGrid2Level1;
TcxGroupBox *cxGroupBox2;
TcxGroupBox *cxGroupBox3;
TcxDBTextEdit *cxDBTextEdit1;
TcxDBTextEdit *cxDBTextEdit2;
TcxLabel *cxLabel1;
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btPrint;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
TAdvDateTimePicker *AdvDateTimePicker2;
TcxLabel *Uredjaj;
TcxDBLookupComboBox *cxDBLookupComboBox1;
TfrxDBDataset *frxDBDPrint;
TfrxDBDataset *frxDBArtikal;
TdxComponentPrinter *dxComponentPrinter1;
TdxGridReportLink *dxComponentPrinter1Link1;
TAdvDateTimePicker *AdvDateTimePicker1;
TcxGroupBox *cxGroupBox5;
TcxGrid *cxGrid6;
TcxGridDBTableView *cxGrid6DBTableView1;
TcxGridDBColumn *cxGrid6DBTableView1idArtikli;
TcxGridDBColumn *cxGrid6DBTableView1Artikal;
TcxGridDBColumn *cxGrid6DBTableView1Kolicina;
TcxGridDBColumn *cxGrid6DBTableView1od;
TcxGridDBColumn *cxGrid6DBTableView1do;
TcxGridLevel *cxGrid6Level1;
TcxGroupBox *cxGroupBox6;
TcxGroupBox *cxGroupBox7;
TcxGrid *cxGrid7;
TcxGridDBTableView *cxGrid7DBTableView1;
TcxGridLevel *cxGrid7Level1;
TcxLabel *cxLabel5;
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall btPrintClick(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
__history/MlekaraMain.h.~7~ deleted 100644 → 0
View file @ e1d1f64c
//---------------------------------------------------------------------------
#ifndef MlekaraMainH
#define MlekaraMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//USER INCLUDE
#include "dbDm.h"
#include "cxClasses.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxNavigator.hpp"
#include "cxStyles.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinBlue.hpp"
#include "dxSkinBlueprint.hpp"
#include "dxSkinCaramel.hpp"
#include "dxSkinCoffee.hpp"
#include "dxSkinDarkRoom.hpp"
#include "dxSkinDarkSide.hpp"
#include "dxSkinDevExpressDarkStyle.hpp"
#include "dxSkinDevExpressStyle.hpp"
#include "dxSkinFoggy.hpp"
#include "dxSkinGlassOceans.hpp"
#include "dxSkinHighContrast.hpp"
#include "dxSkiniMaginary.hpp"
#include "dxSkinLilian.hpp"
#include "dxSkinLiquidSky.hpp"
#include "dxSkinLondonLiquidSky.hpp"
#include "dxSkinMcSkin.hpp"
#include "dxSkinMoneyTwins.hpp"
#include "dxSkinOffice2007Black.hpp"
#include "dxSkinOffice2007Blue.hpp"
#include "dxSkinOffice2007Green.hpp"
#include "dxSkinOffice2007Pink.hpp"
#include "dxSkinOffice2007Silver.hpp"
#include "dxSkinOffice2010Black.hpp"
#include "dxSkinOffice2010Blue.hpp"
#include "dxSkinOffice2010Silver.hpp"
#include "dxSkinOffice2013White.hpp"
#include "dxSkinPumpkin.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"
#include "dxSkinsDefaultPainters.hpp"
#include "dxSkinSeven.hpp"
#include "dxSkinSevenClassic.hpp"
#include "dxSkinSharp.hpp"
#include "dxSkinSharpPlus.hpp"
#include "dxSkinSilver.hpp"
#include "dxSkinSpringTime.hpp"
#include "dxSkinStardust.hpp"
#include "dxSkinSummer2008.hpp"
#include "dxSkinTheAsphaltWorld.hpp"
#include "dxSkinValentine.hpp"
#include "dxSkinVS2010.hpp"
#include "dxSkinWhiteprint.hpp"
#include "dxSkinXmas2008Blue.hpp"
#include <Data.DB.hpp>
#include "cxGridChartView.hpp"
#include "cxGridDBChartView.hpp"
#include "cxContainer.hpp"
#include "cxGridCardView.hpp"
#include "cxGridCustomLayoutView.hpp"
#include "cxGridDBCardView.hpp"
#include "cxGroupBox.hpp"
#include "cxPC.hpp"
#include "cxPCdxBarPopupMenu.hpp"
#include "frxClass.hpp"
#include "cxCalendar.hpp"
#include "cxDBEdit.hpp"
#include "cxDropDownEdit.hpp"
#include "cxLabel.hpp"
#include "cxMaskEdit.hpp"
#include "cxTextEdit.hpp"
#include "cxButtons.hpp"
#include <Vcl.Menus.hpp>
#include <Vcl.ComCtrls.hpp>
#include "AdvDateTimePicker.hpp"
#include "cxDBLookupComboBox.hpp"
#include "cxDBLookupEdit.hpp"
#include "cxLookupEdit.hpp"
#include "frxDBSet.hpp"
#include "cxDrawTextUtils.hpp"
#include "dxBkgnd.hpp"
#include "dxPrnDev.hpp"
#include "dxPrnPg.hpp"
#include "dxPSCompsProvider.hpp"
#include "dxPSCore.hpp"
#include "dxPScxCommon.hpp"
#include "dxPScxEditorProducers.hpp"
#include "dxPScxExtEditorProducers.hpp"
#include "dxPScxGridLayoutViewLnk.hpp"
#include "dxPScxGridLnk.hpp"
#include "dxPScxPageControlProducer.hpp"
#include "dxPSEdgePatterns.hpp"
#include "dxPSEngn.hpp"
#include "dxPSFillPatterns.hpp"
#include "dxPSGlbl.hpp"
#include "dxPSPDFExport.hpp"
#include "dxPSPDFExportCore.hpp"
#include "dxPSPrVwAdv.hpp"
#include "dxPSPrVwRibbon.hpp"
#include "dxPSPrVwStd.hpp"
#include "dxPSUtl.hpp"
#include "dxSkinsdxBarPainter.hpp"
#include "dxSkinsdxRibbonPainter.hpp"
#include "dxWrap.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TfrxReport *print;
TcxPageControl *cxPageControl1;
TcxTabSheet *cxTabSheet1;
TcxTabSheet *cxTabSheet2;
TcxGrid *cxGrid1;
TcxGridDBChartView *cxGrid1DBChartView1;
TcxGridDBChartDataGroup *cxGrid1DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid1DBChartView1Series1;
TcxGridLevel *cxGrid1Level1;
TcxGroupBox *cxGroupBox1;
TcxGrid *cxGrid5;
TcxGridDBChartView *cxGrid5DBChartView1;
TcxGridDBChartDataGroup *cxGrid5DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid5DBChartView1Series1;
TcxGridLevel *cxGrid5Level1;
TcxGrid *cxGrid4;
TcxGridDBChartView *cxGrid4DBChartView1;
TcxGridDBChartDataGroup *cxGrid4DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid4DBChartView1Series1;
TcxGridLevel *cxGrid4Level1;
TcxGrid *cxGrid3;
TcxGridDBChartView *cxGrid3DBChartView1;
TcxGridDBChartDataGroup *cxGrid3DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid3DBChartView1Series1;
TcxGridLevel *cxGrid3Level1;
TcxGrid *cxGrid2;
TcxGridDBChartView *cxGrid2DBChartView1;
TcxGridDBChartDataGroup *cxGrid2DBChartView1DataGroup1;
TcxGridDBChartSeries *cxGrid2DBChartView1Series1;
TcxGridLevel *cxGrid2Level1;
TcxGroupBox *cxGroupBox2;
TcxGroupBox *cxGroupBox3;
TcxDBTextEdit *cxDBTextEdit1;
TcxDBTextEdit *cxDBTextEdit2;
TcxLabel *cxLabel1;
TcxLabel *cxLabel2;
TcxLabel *cxLabel3;
TcxGroupBox *cxGroupBox4;
TcxButton *btPrint;
TcxButton *btSave;
TcxButton *btNew;
TcxLabel *cxLabel4;
TAdvDateTimePicker *AdvDateTimePicker2;
TcxLabel *Uredjaj;
TcxDBLookupComboBox *cxDBLookupComboBox1;
TfrxDBDataset *frxDBDPrint;
TfrxDBDataset *frxDBArtikal;
TdxComponentPrinter *dxComponentPrinter1;
TAdvDateTimePicker *AdvDateTimePicker1;
TcxGroupBox *cxGroupBox5;
TcxGrid *cxGrid6;
TcxGridDBTableView *cxGrid6DBTableView1;
TcxGridDBColumn *cxGrid6DBTableView1idArtikli;
TcxGridDBColumn *cxGrid6DBTableView1Artikal;
TcxGridDBColumn *cxGrid6DBTableView1Kolicina;
TcxGridDBColumn *cxGrid6DBTableView1od;
TcxGridDBColumn *cxGrid6DBTableView1do;
TcxGridLevel *cxGrid6Level1;
TcxGroupBox *cxGroupBox6;
TcxGroupBox *cxGroupBox7;
TcxGrid *cxGrid7;
TcxGridLevel *cxGrid7Level1;
TcxLabel *cxLabel5;
TcxLabel *cxLabel6;
TcxLabel *cxLabel7;
TcxGridDBChartView *cxGrid7DBChartView1;
TcxGridDBChartSeries *cxGrid7DBChartView1Series1;
TcxGridDBChartDataGroup *cxGrid7DBChartView1DataGroup1;
void __fastcall btNewClick(TObject *Sender);
void __fastcall btSaveClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall AdvDateTimePicker1Change(TObject *Sender);
void __fastcall AdvDateTimePicker2Change(TObject *Sender);
void __fastcall btPrintClick(TObject *Sender);
private: // User declarations
Tdb *dbGets;
void __fastcall TMainForm::ArtikliDataChange(TObject *Sender, TField *Field);
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
dbUtility/__history/Connection.dfm.~7~ 0 → 100644
View file @ 99b3f33f
object DataModule1: TDataModule1
OldCreateOrder = False
Height = 114
Width = 179
object mysql: TSQLConnection
ConnectionName = 'MySQLConnection'
DriverName = 'MySQL'
LoginPrompt = False
Params.Strings = (
'DriverUnit=Data.DBXMySQL'
'DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver190.' +
'bpl'
'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
'nd.Data.DbxCommonDriver,Version=19.0.0.0,Culture=neutral,PublicK' +
'eyToken=91d62ebb5b0d1b1b'
'MetaDataPackageLoader=TDBXMySqlMetaDataCommandFactory,DbxMySQLDr' +
'iver190.bpl'
'MetaDataAssemblyLoader=Borland.Data.TDBXMySqlMetaDataCommandFact' +
'ory,Borland.Data.DbxMySQLDriver,Version=19.0.0.0,Culture=neutral' +
',PublicKeyToken=91d62ebb5b0d1b1b'
'GetDriverFunc=getSQLDriverMYSQL'
'LibraryName=dbxmys.dll'
'LibraryNameOsx=libsqlmys.dylib'
'VendorLib=LIBMYSQL.dll'
'VendorLibWin64=libmysql.dll'
'VendorLibOsx=libmysqlclient.dylib'
'MaxBlobSize=-1'
'DriverName=MySQL'
'HostName=46.174.100.13'
'Database=c0mlekaraadmin'
'User_Name=c0mlekaraadmin'
'Password=Ml3K@rA!'
'ServerCharSet='
'BlobSize=-1'
'ErrorResourceFile='
'LocaleCode=0000'
'Compressed=False'
'Encrypted=False'
'ConnectTimeout=60')
Connected = True
Left = 64
Top = 24
end
end
dbUtility/__history/dbDm.dfm.~36~ → dbUtility/__history/dbDm.dfm.~43~
View file @ 99b3f33f
......@@ -288,6 +288,9 @@ object db: Tdb
object sdsArtiklido: TSQLTimeStampField
FieldName = 'do'
end
object sdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja'
end
end
object dspArtikli: TDataSetProvider
DataSet = sdsArtikli
......@@ -319,6 +322,9 @@ object db: Tdb
object cdsArtiklido: TSQLTimeStampField
FieldName = 'do'
end
object cdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja'
end
end
object dsArtikli: TDataSource
DataSet = cdsArtikli
......@@ -358,4 +364,63 @@ object db: Tdb
Left = 784
Top = 152
end
object sdsStampa: TSQLDataSet
CommandText =
'select temperatura as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vreme '#13 +
#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme between ' +
':D1 and :D2'
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>
SQLConnection = DataModule1.mysql
Left = 520
Top = 232
object sdsStampavreme: TStringField
FieldName = 'vreme'
Size = 13
end
object sdsStampat: TIntegerField
FieldName = 't'
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: TIntegerField
FieldName = 't'
end
end
object dsStampa: TDataSource
DataSet = cdsStampa
Left = 784
Top = 232
end
end
dbUtility/__history/dbDm.dfm.~35~ → dbUtility/__history/dbDm.dfm.~44~
View file @ 99b3f33f
......@@ -288,6 +288,12 @@ object db: Tdb
object sdsArtiklido: TSQLTimeStampField
FieldName = 'do'
end
object sdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja'
end
object sdsArtiklizadata_temperatura: TSingleField
FieldName = 'zadata_temperatura'
end
end
object dspArtikli: TDataSetProvider
DataSet = sdsArtikli
......@@ -319,10 +325,108 @@ object db: Tdb
object cdsArtiklido: TSQLTimeStampField
FieldName = 'do'
end
object cdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja'
end
object cdsArtiklizadata_temperatura: TSingleField
FieldName = 'zadata_temperatura'
end
end
object dsArtikli: TDataSource
DataSet = cdsArtikli
Left = 784
Top = 32
end
object sdsUredjaj: TSQLDataSet
CommandText = 'SELECT id FROM c0mlekaraadmin.mlekara group by 1'
MaxBlobSize = -1
Params = <>
SQLConnection = DataModule1.mysql
Left = 520
Top = 152
object sdsUredjajid: TIntegerField
FieldName = 'id'
end
end
object dspUredjaj: TDataSetProvider
DataSet = sdsUredjaj
OnGetTableName = dspArtikliGetTableName
Left = 608
Top = 152
end
object cdsUredjaj: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspUredjaj'
AfterPost = cdsArtikliAfterPost
Left = 696
Top = 152
object cdsUredjajid: TIntegerField
FieldName = 'id'
end
end
object dsUredjaj: TDataSource
DataSet = cdsUredjaj
Left = 784
Top = 152
end
object sdsStampa: TSQLDataSet
CommandText =
'select temperatura as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vreme '#13 +
#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme between ' +
':D1 and :D2'
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>
SQLConnection = DataModule1.mysql
Left = 520
Top = 232
object sdsStampavreme: TStringField
FieldName = 'vreme'
Size = 13
end
object sdsStampat: TIntegerField
FieldName = 't'
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: TIntegerField
FieldName = 't'
end
end
object dsStampa: TDataSource
DataSet = cdsStampa
Left = 784
Top = 232
end
end
dbUtility/__history/dbDm.dfm.~34~ → dbUtility/__history/dbDm.dfm.~45~
View file @ 99b3f33f
......@@ -288,6 +288,12 @@ object db: Tdb
object sdsArtiklido: TSQLTimeStampField
FieldName = 'do'
end
object sdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja'
end
object sdsArtiklizadata_temperatura: TSingleField
FieldName = 'zadata_temperatura'
end
end
object dspArtikli: TDataSetProvider
DataSet = sdsArtikli
......@@ -319,10 +325,135 @@ object db: Tdb
object cdsArtiklido: TSQLTimeStampField
FieldName = 'do'
end
object cdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja'
end
object cdsArtiklizadata_temperatura: TSingleField
FieldName = 'zadata_temperatura'
end
end
object dsArtikli: TDataSource
DataSet = cdsArtikli
Left = 784
Top = 32
end
object sdsUredjaj: TSQLDataSet
CommandText = 'SELECT id FROM c0mlekaraadmin.mlekara group by 1'
MaxBlobSize = -1
Params = <>
SQLConnection = DataModule1.mysql
Left = 520
Top = 152
object sdsUredjajid: TIntegerField
FieldName = 'id'
end
end
object dspUredjaj: TDataSetProvider
DataSet = sdsUredjaj
OnGetTableName = dspArtikliGetTableName
Left = 608
Top = 152
end
object cdsUredjaj: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspUredjaj'
AfterPost = cdsArtikliAfterPost
Left = 696
Top = 152
object cdsUredjajid: TIntegerField
FieldName = 'id'
end
end
object dsUredjaj: TDataSource
DataSet = cdsUredjaj
Left = 784
Top = 152
end
object sdsStampa: TSQLDataSet
CommandText =
'select temperatura as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vreme '#13 +
#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme between ' +
':D1 and :D2'
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>
SQLConnection = DataModule1.mysql
Left = 520
Top = 232
object sdsStampavreme: TStringField
FieldName = 'vreme'
Size = 13
end
object sdsStampat: TIntegerField
FieldName = 't'
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: TIntegerField
FieldName = 't'
end
end
object dsStampa: TDataSource
DataSet = cdsStampa
Left = 784
Top = 232
end
object SQLQuery1: 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) 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
end
end
dbUtility/__history/dbDm.dfm.~33~ → dbUtility/__history/dbDm.dfm.~46~
View file @ 99b3f33f
......@@ -273,6 +273,7 @@ object db: Tdb
Top = 32
object sdsArtikliidArtikli: TIntegerField
FieldName = 'idArtikli'
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
end
object sdsArtikliArtikal: TStringField
FieldName = 'Artikal'
......@@ -287,6 +288,12 @@ object db: Tdb
object sdsArtiklido: TSQLTimeStampField
FieldName = 'do'
end
object sdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja'
end
object sdsArtiklizadata_temperatura: TSingleField
FieldName = 'zadata_temperatura'
end
end
object dspArtikli: TDataSetProvider
DataSet = sdsArtikli
......@@ -303,6 +310,7 @@ object db: Tdb
Top = 32
object cdsArtikliidArtikli: TIntegerField
FieldName = 'idArtikli'
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
end
object cdsArtikliArtikal: TStringField
FieldName = 'Artikal'
......@@ -317,10 +325,138 @@ object db: Tdb
object cdsArtiklido: TSQLTimeStampField
FieldName = 'do'
end
object cdsArtikliid_uredjaja: TIntegerField
FieldName = 'id_uredjaja'
end
object cdsArtiklizadata_temperatura: TSingleField
FieldName = 'zadata_temperatura'
end
end
object dsArtikli: TDataSource
DataSet = cdsArtikli
Left = 784
Top = 32
end
object sdsUredjaj: TSQLDataSet
CommandText = 'SELECT id FROM c0mlekaraadmin.mlekara group by 1'
MaxBlobSize = -1
Params = <>
SQLConnection = DataModule1.mysql
Left = 520
Top = 152
object sdsUredjajid: TIntegerField
FieldName = 'id'
end
end
object dspUredjaj: TDataSetProvider
DataSet = sdsUredjaj
OnGetTableName = dspArtikliGetTableName
Left = 608
Top = 152
end
object cdsUredjaj: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspUredjaj'
AfterPost = cdsArtikliAfterPost
Left = 696
Top = 152
object cdsUredjajid: TIntegerField
FieldName = 'id'
end
end
object dsUredjaj: TDataSource
DataSet = cdsUredjaj
Left = 784
Top = 152
end
object sdsStampa: TSQLDataSet
CommandText =
'select temperatura as t,DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vreme '#13 +
#10'from c0mlekaraadmin.mlekara '#13#10'where id = :ID and vreme between ' +
':D1 and :D2'
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>
SQLConnection = DataModule1.mysql
Left = 520
Top = 232
object sdsStampavreme: TStringField
FieldName = 'vreme'
Size = 13
end
object sdsStampat: TIntegerField
FieldName = 't'
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: TIntegerField
FieldName = 't'
end
end
object dsStampa: TDataSource
DataSet = cdsStampa
Left = 784
Top = 232
end
object SQLQuery1: 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) 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 SQLQuery1max_temp: TIntegerField
FieldName = 'max_temp'
end
end
end
dbUtility/__history/dbDm.h.~20~ → dbUtility/__history/dbDm.h.~27~
View file @ 99b3f33f
......@@ -88,9 +88,27 @@ __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;
TIntegerField *sdsStampat;
TIntegerField *cdsStampat;
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);
......@@ -100,6 +118,7 @@ public: // User declarations
void __fastcall PosaljiPoruku(AnsiString poruka);
int __fastcall SnimiCDS(TClientDataSet* cds, TSQLConnection* sc);
void __fastcall NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele);
void __fastcall openArtikliCds();
};
//---------------------------------------------------------------------------
extern PACKAGE Tdb *db;
......
dbUtility/__history/dbDm.h.~19~ → dbUtility/__history/dbDm.h.~28~
View file @ 99b3f33f
......@@ -88,8 +88,29 @@ __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;
TIntegerField *sdsStampat;
TIntegerField *cdsStampat;
TSingleField *sdsArtiklizadata_temperatura;
TSingleField *cdsArtiklizadata_temperatura;
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);
......@@ -99,6 +120,7 @@ public: // User declarations
void __fastcall PosaljiPoruku(AnsiString poruka);
int __fastcall SnimiCDS(TClientDataSet* cds, TSQLConnection* sc);
void __fastcall NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele);
void __fastcall openArtikliCds();
};
//---------------------------------------------------------------------------
extern PACKAGE Tdb *db;
......
dbUtility/__history/dbDm.h.~18~ → dbUtility/__history/dbDm.h.~29~
View file @ 99b3f33f
......@@ -88,8 +88,30 @@ __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;
TIntegerField *sdsStampat;
TIntegerField *cdsStampat;
TSingleField *sdsArtiklizadata_temperatura;
TSingleField *cdsArtiklizadata_temperatura;
TSQLQuery *SQLQuery1;
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);
......@@ -98,6 +120,8 @@ public: // User declarations
void __fastcall LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku);
void __fastcall PosaljiPoruku(AnsiString poruka);
int __fastcall SnimiCDS(TClientDataSet* cds, TSQLConnection* sc);
void __fastcall NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele);
void __fastcall openArtikliCds();
};
//---------------------------------------------------------------------------
extern PACKAGE Tdb *db;
......
dbUtility/__history/dbDm.h.~17~ → dbUtility/__history/dbDm.h.~30~
View file @ 99b3f33f
......@@ -88,8 +88,31 @@ __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;
TIntegerField *sdsStampat;
TIntegerField *cdsStampat;
TSingleField *sdsArtiklizadata_temperatura;
TSingleField *cdsArtiklizadata_temperatura;
TSQLQuery *SQLQuery1;
TIntegerField *SQLQuery1max_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);
......@@ -97,6 +120,9 @@ public: // User declarations
void __fastcall UpisiULogFile(AnsiString filename, AnsiString text, int pocetak);
void __fastcall LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku);
void __fastcall PosaljiPoruku(AnsiString poruka);
int __fastcall SnimiCDS(TClientDataSet* cds, TSQLConnection* sc);
void __fastcall NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele);
void __fastcall openArtikliCds();
};
//---------------------------------------------------------------------------
extern PACKAGE Tdb *db;
......
dbUtility/dbDm.dfm
View file @ 99b3f33f
......@@ -291,6 +291,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 +328,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
......@@ -423,4 +429,34 @@ object db: Tdb
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) 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: TIntegerField
FieldName = 'max_temp'
end
end
end
dbUtility/dbDm.h
View file @ 99b3f33f
......@@ -104,6 +104,10 @@ __published: // IDE-managed Components
TStringField *cdsStampavreme;
TIntegerField *sdsStampat;
TIntegerField *cdsStampat;
TSingleField *sdsArtiklizadata_temperatura;
TSingleField *cdsArtiklizadata_temperatura;
TSQLQuery *sqlMaxTemp;
TIntegerField *sqlMaxTempmax_temp;
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