Skip to content

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

no message

parent ece10ebb
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 2061 additions and 45 deletions
MlekaraCB.cbproj
View file @ e1d1f64c
......@@ -38,7 +38,7 @@
<Multithreaded>true</Multithreaded>
<Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<AllPackageLibs>rtl.lib;vcl.lib;dbrtl.lib;dbexpress.lib;DbxCommonDriver.lib;DBXMySQLDriver.lib;dsnap.lib;cxLibraryRS19.lib;dxGDIPlusRS19.lib;dxCoreRS19.lib;dxThemeRS19.lib;vclx.lib;cxEditorsRS19.lib;cxDataRS19.lib;vclimg.lib;vcldb.lib;cxGridRS19.lib;dxLayoutControlRS19.lib;cxPageControlRS19.lib;dxComnRS19.lib;cxExportRS19.lib;xmlrtl.lib;dxServerModeRS19.lib;dxSkinsCoreRS19.lib;dxSkinscxPCPainterRS19.lib;dxSkinBlackRS19.lib;dxSkinBlueprintRS19.lib;dxSkinBlueRS19.lib;dxSkinCaramelRS19.lib;dxSkinCoffeeRS19.lib;dxSkinDarkRoomRS19.lib;dxSkinDarkSideRS19.lib;dxSkinDevExpressDarkStyleRS19.lib;dxSkinDevExpressStyleRS19.lib;dxSkinFoggyRS19.lib;dxSkinGlassOceansRS19.lib;dxSkinHighContrastRS19.lib;dxSkiniMaginaryRS19.lib;dxSkinLilianRS19.lib;dxSkinLiquidSkyRS19.lib;dxSkinLondonLiquidSkyRS19.lib;dxSkinMcSkinRS19.lib;dxSkinMoneyTwinsRS19.lib;dxSkinOffice2007BlackRS19.lib;dxSkinOffice2007BlueRS19.lib;dxSkinOffice2007GreenRS19.lib;dxSkinOffice2007PinkRS19.lib;dxSkinOffice2007SilverRS19.lib;dxSkinOffice2010BlackRS19.lib;dxSkinOffice2010BlueRS19.lib;dxSkinOffice2010SilverRS19.lib;dxSkinOffice2013WhiteRS19.lib;dxSkinPumpkinRS19.lib;dxSkinSevenClassicRS19.lib;dxSkinSevenRS19.lib;dxSkinSharpPlusRS19.lib;dxSkinSharpRS19.lib;dxSkinSilverRS19.lib;dxSkinSpringTimeRS19.lib;dxSkinStardustRS19.lib;dxSkinSummer2008RS19.lib;dxSkinTheAsphaltWorldRS19.lib;dxSkinValentineRS19.lib;dxSkinVS2010RS19.lib;dxSkinWhiteprintRS19.lib;dxSkinXmas2008BlueRS19.lib;cxPageControldxBarPopupMenuRS19.lib;dxBarRS19.lib;frx19.lib;fs19.lib;fqb190.lib;bdertl.lib;IndySystem.lib;tmsdXE5.lib;adortl.lib;vclactnband.lib;VclSmp.lib;frxDB19.lib;fsDB19.lib</AllPackageLibs>
<AllPackageLibs>rtl.lib;vcl.lib;dbrtl.lib;dbexpress.lib;DbxCommonDriver.lib;DBXMySQLDriver.lib;dsnap.lib;cxLibraryRS19.lib;dxGDIPlusRS19.lib;dxCoreRS19.lib;dxThemeRS19.lib;vclx.lib;cxEditorsRS19.lib;cxDataRS19.lib;vclimg.lib;vcldb.lib;cxGridRS19.lib;dxLayoutControlRS19.lib;cxPageControlRS19.lib;dxComnRS19.lib;cxExportRS19.lib;xmlrtl.lib;dxServerModeRS19.lib;dxSkinsCoreRS19.lib;dxSkinscxPCPainterRS19.lib;dxSkinBlackRS19.lib;dxSkinBlueprintRS19.lib;dxSkinBlueRS19.lib;dxSkinCaramelRS19.lib;dxSkinCoffeeRS19.lib;dxSkinDarkRoomRS19.lib;dxSkinDarkSideRS19.lib;dxSkinDevExpressDarkStyleRS19.lib;dxSkinDevExpressStyleRS19.lib;dxSkinFoggyRS19.lib;dxSkinGlassOceansRS19.lib;dxSkinHighContrastRS19.lib;dxSkiniMaginaryRS19.lib;dxSkinLilianRS19.lib;dxSkinLiquidSkyRS19.lib;dxSkinLondonLiquidSkyRS19.lib;dxSkinMcSkinRS19.lib;dxSkinMoneyTwinsRS19.lib;dxSkinOffice2007BlackRS19.lib;dxSkinOffice2007BlueRS19.lib;dxSkinOffice2007GreenRS19.lib;dxSkinOffice2007PinkRS19.lib;dxSkinOffice2007SilverRS19.lib;dxSkinOffice2010BlackRS19.lib;dxSkinOffice2010BlueRS19.lib;dxSkinOffice2010SilverRS19.lib;dxSkinOffice2013WhiteRS19.lib;dxSkinPumpkinRS19.lib;dxSkinSevenClassicRS19.lib;dxSkinSevenRS19.lib;dxSkinSharpPlusRS19.lib;dxSkinSharpRS19.lib;dxSkinSilverRS19.lib;dxSkinSpringTimeRS19.lib;dxSkinStardustRS19.lib;dxSkinSummer2008RS19.lib;dxSkinTheAsphaltWorldRS19.lib;dxSkinValentineRS19.lib;dxSkinVS2010RS19.lib;dxSkinWhiteprintRS19.lib;dxSkinXmas2008BlueRS19.lib;cxPageControldxBarPopupMenuRS19.lib;dxBarRS19.lib;frx19.lib;fs19.lib;fqb190.lib;bdertl.lib;IndySystem.lib;tmsdXE5.lib;adortl.lib;vclactnband.lib;VclSmp.lib;frxDB19.lib;fsDB19.lib;dxPSCoreRS19.lib;dxPScxCommonRS19.lib;dxPSLnksRS19.lib;dxPScxExtCommonRS19.lib;dxPScxGridLnkRS19.lib;dxPSdxLCLnkRS19.lib;dxPsPrVwAdvRS19.lib;dxBarExtItemsRS19.lib;dxPSPrVwRibbonRS19.lib;dxRibbonRS19.lib;dxSkinsdxBarPainterRS19.lib;dxSkinsdxRibbonPainterRS19.lib;dxPScxPCProdRS19.lib</AllPackageLibs>
<_TCHARMapping>wchar_t</_TCHARMapping>
<ILINK_LibraryPath>C:\Program Files (x86)\Components\FastReport 4\LibD19\;C:\projects\Embracadero\Cashit\;dbUtility\;..\..\..\Desktop\Mlekara\;$(ILINK_LibraryPath)</ILINK_LibraryPath>
<ProjectType>CppVCLApplication</ProjectType>
......@@ -86,7 +86,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<LinkPackageStatics>fqb190.lib</LinkPackageStatics>
<LinkPackageImports>rtl.bpi;vcl.bpi;dbrtl.bpi;dbexpress.bpi;DbxCommonDriver.bpi;DBXMySQLDriver.bpi;dsnap.bpi;cxLibraryRS19.bpi;dxGDIPlusRS19.bpi;dxCoreRS19.bpi;dxThemeRS19.bpi;vclx.bpi;cxEditorsRS19.bpi;cxDataRS19.bpi;vclimg.bpi;vcldb.bpi;cxGridRS19.bpi;dxLayoutControlRS19.bpi;cxPageControlRS19.bpi;dxComnRS19.bpi;cxExportRS19.bpi;xmlrtl.bpi;dxServerModeRS19.bpi;dxSkinsCoreRS19.bpi;dxSkinscxPCPainterRS19.bpi;dxSkinBlackRS19.bpi;dxSkinBlueprintRS19.bpi;dxSkinBlueRS19.bpi;dxSkinCaramelRS19.bpi;dxSkinCoffeeRS19.bpi;dxSkinDarkRoomRS19.bpi;dxSkinDarkSideRS19.bpi;dxSkinDevExpressDarkStyleRS19.bpi;dxSkinDevExpressStyleRS19.bpi;dxSkinFoggyRS19.bpi;dxSkinGlassOceansRS19.bpi;dxSkinHighContrastRS19.bpi;dxSkiniMaginaryRS19.bpi;dxSkinLilianRS19.bpi;dxSkinLiquidSkyRS19.bpi;dxSkinLondonLiquidSkyRS19.bpi;dxSkinMcSkinRS19.bpi;dxSkinMoneyTwinsRS19.bpi;dxSkinOffice2007BlackRS19.bpi;dxSkinOffice2007BlueRS19.bpi;dxSkinOffice2007GreenRS19.bpi;dxSkinOffice2007PinkRS19.bpi;dxSkinOffice2007SilverRS19.bpi;dxSkinOffice2010BlackRS19.bpi;dxSkinOffice2010BlueRS19.bpi;dxSkinOffice2010SilverRS19.bpi;dxSkinOffice2013WhiteRS19.bpi;dxSkinPumpkinRS19.bpi;dxSkinSevenClassicRS19.bpi;dxSkinSevenRS19.bpi;dxSkinSharpPlusRS19.bpi;dxSkinSharpRS19.bpi;dxSkinSilverRS19.bpi;dxSkinSpringTimeRS19.bpi;dxSkinStardustRS19.bpi;dxSkinSummer2008RS19.bpi;dxSkinTheAsphaltWorldRS19.bpi;dxSkinValentineRS19.bpi;dxSkinVS2010RS19.bpi;dxSkinWhiteprintRS19.bpi;dxSkinXmas2008BlueRS19.bpi;cxPageControldxBarPopupMenuRS19.bpi;dxBarRS19.bpi;frx19.bpi;fs19.bpi;bdertl.bpi;IndySystem.bpi;tmsdXE5.bpi;adortl.bpi;vclactnband.bpi;VclSmp.bpi;frxDB19.bpi;fsDB19.bpi</LinkPackageImports>
<LinkPackageImports>rtl.bpi;vcl.bpi;dbrtl.bpi;dbexpress.bpi;DbxCommonDriver.bpi;DBXMySQLDriver.bpi;dsnap.bpi;cxLibraryRS19.bpi;dxGDIPlusRS19.bpi;dxCoreRS19.bpi;dxThemeRS19.bpi;vclx.bpi;cxEditorsRS19.bpi;cxDataRS19.bpi;vclimg.bpi;vcldb.bpi;cxGridRS19.bpi;dxLayoutControlRS19.bpi;cxPageControlRS19.bpi;dxComnRS19.bpi;cxExportRS19.bpi;xmlrtl.bpi;dxServerModeRS19.bpi;dxSkinsCoreRS19.bpi;dxSkinscxPCPainterRS19.bpi;dxSkinBlackRS19.bpi;dxSkinBlueprintRS19.bpi;dxSkinBlueRS19.bpi;dxSkinCaramelRS19.bpi;dxSkinCoffeeRS19.bpi;dxSkinDarkRoomRS19.bpi;dxSkinDarkSideRS19.bpi;dxSkinDevExpressDarkStyleRS19.bpi;dxSkinDevExpressStyleRS19.bpi;dxSkinFoggyRS19.bpi;dxSkinGlassOceansRS19.bpi;dxSkinHighContrastRS19.bpi;dxSkiniMaginaryRS19.bpi;dxSkinLilianRS19.bpi;dxSkinLiquidSkyRS19.bpi;dxSkinLondonLiquidSkyRS19.bpi;dxSkinMcSkinRS19.bpi;dxSkinMoneyTwinsRS19.bpi;dxSkinOffice2007BlackRS19.bpi;dxSkinOffice2007BlueRS19.bpi;dxSkinOffice2007GreenRS19.bpi;dxSkinOffice2007PinkRS19.bpi;dxSkinOffice2007SilverRS19.bpi;dxSkinOffice2010BlackRS19.bpi;dxSkinOffice2010BlueRS19.bpi;dxSkinOffice2010SilverRS19.bpi;dxSkinOffice2013WhiteRS19.bpi;dxSkinPumpkinRS19.bpi;dxSkinSevenClassicRS19.bpi;dxSkinSevenRS19.bpi;dxSkinSharpPlusRS19.bpi;dxSkinSharpRS19.bpi;dxSkinSilverRS19.bpi;dxSkinSpringTimeRS19.bpi;dxSkinStardustRS19.bpi;dxSkinSummer2008RS19.bpi;dxSkinTheAsphaltWorldRS19.bpi;dxSkinValentineRS19.bpi;dxSkinVS2010RS19.bpi;dxSkinWhiteprintRS19.bpi;dxSkinXmas2008BlueRS19.bpi;cxPageControldxBarPopupMenuRS19.bpi;dxBarRS19.bpi;frx19.bpi;fs19.bpi;bdertl.bpi;IndySystem.bpi;tmsdXE5.bpi;adortl.bpi;vclactnband.bpi;VclSmp.bpi;frxDB19.bpi;fsDB19.bpi;dxPSCoreRS19.bpi;dxPScxCommonRS19.bpi;dxPSLnksRS19.bpi;dxPScxExtCommonRS19.bpi;dxPScxGridLnkRS19.bpi;dxPSdxLCLnkRS19.bpi;dxPsPrVwAdvRS19.bpi;dxBarExtItemsRS19.bpi;dxPSPrVwRibbonRS19.bpi;dxRibbonRS19.bpi;dxSkinsdxBarPainterRS19.bpi;dxSkinsdxRibbonPainterRS19.bpi;dxPScxPCProdRS19.bpi</LinkPackageImports>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<Defines>NDEBUG;$(Defines)</Defines>
......
MlekaraCB.cbproj.local
View file @ e1d1f64c
......@@ -19,17 +19,17 @@
<Transaction>2020/11/25 13:20:18.000.104,=C:\projects\Embracadero\Cashit\c_poruka.cpp</Transaction>
<Transaction>2020/11/25 13:21:12.000.593,C:\projects\Embracadero\Cashit\c_poruka.cpp=</Transaction>
<Transaction>2020/11/25 13:21:45.000.385,=C:\Users\janko\Desktop\Mlekara\c_poruka.cpp</Transaction>
<Transaction>2020/11/25 16:33:42.125,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee6.cpp</Transaction>
<Transaction>2020/11/25 16:33:42.129,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee5.cpp</Transaction>
<Transaction>2020/11/25 16:33:42.132,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee4.cpp</Transaction>
<Transaction>2020/11/25 16:35:46.224,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee4.cpp=</Transaction>
<Transaction>2020/11/25 16:35:49.461,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee5.cpp=</Transaction>
<Transaction>2020/11/25 16:35:55.091,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee6.cpp=</Transaction>
<Transaction>2020/11/25 16:36:14.254,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee6.cpp</Transaction>
<Transaction>2020/11/25 16:36:14.256,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee5.cpp</Transaction>
<Transaction>2020/11/25 16:36:14.257,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee4.cpp</Transaction>
<Transaction>2020/11/25 19:04:16.476,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee4.cpp=</Transaction>
<Transaction>2020/11/25 19:04:19.066,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee5.cpp=</Transaction>
<Transaction>2020/11/25 19:04:22.071,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee6.cpp=</Transaction>
<Transaction>2020/11/25 16:33:42.000.125,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee6.cpp</Transaction>
<Transaction>2020/11/25 16:33:42.000.132,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee4.cpp</Transaction>
<Transaction>2020/11/25 16:33:42.000.129,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee5.cpp</Transaction>
<Transaction>2020/11/25 16:35:46.000.224,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee4.cpp=</Transaction>
<Transaction>2020/11/25 16:35:49.000.461,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee5.cpp=</Transaction>
<Transaction>2020/11/25 16:35:55.000.091,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee6.cpp=</Transaction>
<Transaction>2020/11/25 16:36:14.000.257,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee4.cpp</Transaction>
<Transaction>2020/11/25 16:36:14.000.256,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee5.cpp</Transaction>
<Transaction>2020/11/25 16:36:14.000.254,=C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee6.cpp</Transaction>
<Transaction>2020/11/25 19:04:16.000.476,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee4.cpp=</Transaction>
<Transaction>2020/11/25 19:04:19.000.066,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee5.cpp=</Transaction>
<Transaction>2020/11/25 19:04:22.000.071,C:\Program Files (x86)\Components\FastReport 4\LibD19\frxTee6.cpp=</Transaction>
</Transactions>
</BorlandProject>
MlekaraMain.cpp
View file @ e1d1f64c
......@@ -91,6 +91,32 @@
#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;
//---------------------------------------------------------------------------
......@@ -122,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;
}
......@@ -129,9 +157,23 @@ void __fastcall TMainForm::FormShow(TObject *Sender)
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);
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;
}
}
void __fastcall TMainForm::AdvDateTimePicker1Change(TObject *Sender)
......@@ -146,21 +188,12 @@ void __fastcall TMainForm::AdvDateTimePicker2Change(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btPrintClick(TObject *Sender)
void __fastcall TMainForm::cxButton1Click(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" );
cxGroupBox8->Visible = false;
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
cxGroupBox8->Visible = true;
}
//---------------------------------------------------------------------------
MlekaraMain.dfm
View file @ e1d1f64c
This diff is collapsed.
MlekaraMain.h
View file @ e1d1f64c
......@@ -98,6 +98,32 @@
#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
......@@ -141,30 +167,53 @@ __published: // IDE-managed Components
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;
TcxGridLevel *cxGrid6Level1;
TcxGridDBColumn *cxGrid6DBTableView1idArtikli;
TcxGridDBColumn *cxGrid6DBTableView1Artikal;
TcxGridDBColumn *cxGrid6DBTableView1Kolicina;
TcxGridDBColumn *cxGrid6DBTableView1od;
TcxGridDBColumn *cxGrid6DBTableView1do;
TcxLabel *cxLabel4;
TAdvDateTimePicker *AdvDateTimePicker1;
TAdvDateTimePicker *AdvDateTimePicker2;
TcxLabel *Uredjaj;
TcxDBLookupComboBox *cxDBLookupComboBox1;
TfrxDBDataset *frxDBDPrint;
TfrxDBDataset *frxDBArtikal;
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;
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);
......
Win32/Debug/MlekaraCB.map
View file @ e1d1f64c
Start Length Name Class
0001:00401000 0000097BCH _TEXT CODE
0002:0040B000 000003390H _DATA DATA
0003:0040E390 0000001C8H _BSS BSS
0001:00401000 00000A99CH _TEXT CODE
0002:0040C000 000003600H _DATA DATA
0003:0040F600 0000001C0H _BSS BSS
0004:00000000 00000009CH _TLS TLS
Win32/Debug/MlekaraCB.pdi
View file @ e1d1f64c
dxPScxPCProdRS19.bpl
dxSkinsdxRibbonPainterRS19.bpl
dxPSPrVwRibbonRS19.bpl
dxPsPrVwAdvRS19.bpl
dxBarExtItemsRS19.bpl
dxPSdxLCLnkRS19.bpl
dxPScxGridLnkRS19.bpl
dxPScxExtCommonRS19.bpl
dxPSLnksRS19.bpl
dxPSCoreRS19.bpl
cxPageControldxBarPopupMenuRS19.bpl
dxBarRS19.bpl
dxSkinXmas2008BlueRS19.bpl
......@@ -42,7 +52,10 @@ dxSkinBlueRS19.bpl
dxSkinBlueprintRS19.bpl
dxSkinBlackRS19.bpl
dxSkinscxPCPainterRS19.bpl
dxServerModeRS19.bpl
dxLayoutControlRS19.bpl
cxPageControlRS19.bpl
cxGridRS19.bpl
cxDataRS19.bpl
dxGDIPlusRS19.bpl
dxThemeRS19.bpl
......@@ -54,6 +67,9 @@ dbexpress190.bpl
dbrtl190.bpl
rtl190.bpl
fqb190.bpl
dxSkinsdxBarPainterRS19.bpl
dxRibbonRS19.bpl
dxPScxCommonRS19.bpl
fsDB19.bpl
frxDB19.bpl
VclSmp190.bpl
......@@ -65,12 +81,9 @@ bdertl190.bpl
fs19.bpl
frx19.bpl
dxSkinsCoreRS19.bpl
dxServerModeRS19.bpl
xmlrtl190.bpl
cxExportRS19.bpl
dxComnRS19.bpl
dxLayoutControlRS19.bpl
cxGridRS19.bpl
vcldb190.bpl
vclimg190.bpl
cxEditorsRS19.bpl
......
Win32/Debug/dbDm.obj
View file @ e1d1f64c
No preview for this file type
__history/MlekaraMain.cpp.~10~ 0 → 100644
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) {
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;
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;
}
}
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.cpp.~11~ 0 → 100644
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 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->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 = false;
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;
}
}
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)
{
dxComponentPrinter1->RebuildReport();
dxComponentPrinter1->Print(false,NULL,NULL);
}
//---------------------------------------------------------------------------
__history/MlekaraMain.cpp.~12~ 0 → 100644
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 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->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 = false;
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;
}
}
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.~13~ 0 → 100644
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 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->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 = false;
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;
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;
}
}
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.~14~ 0 → 100644
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 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->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 = false;
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;
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;
}
}
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.~5~ 0 → 100644
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~ 0 → 100644
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~ 0 → 100644
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~ 0 → 100644
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~ 0 → 100644
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~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~21~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~22~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~23~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~24~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~25~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~26~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~27~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~28~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.dfm.~29~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~10~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~11~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~12~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~13~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~4~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~5~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~6~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~7~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~8~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
__history/MlekaraMain.h.~9~ 0 → 100644
View file @ e1d1f64c
This diff is collapsed.
dbUtility/dbDm.dfm
View file @ e1d1f64c
This diff is collapsed.
dbUtility/dbDm.h
View file @ e1d1f64c
This diff is collapsed.
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