Skip to content

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

*main

parent 8717a92a
Expand all Show whitespace changes
Inline Side-by-side
Showing with 4147 additions and 0 deletions
Diagram_sa_artiklom.fr3 0 → 100644
View file @ ece10ebb
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="4.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="44160.4556349421" ReportOptions.Description.Text="" ReportOptions.LastChange="44160.6392802315" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." PropData="044C65667403A00303546F7002780844617461736574730101063020446174615365743D226672784442417274696B616C2220446174615365744E616D653D22667278417274696B616C220001062C20446174615365743D226672784442445072696E742220446174615365744E616D653D2266727844696167220000095661726961626C65730100055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="215.9" PaperHeight="279.4" PaperSize="1" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxChartView Name="Chart1" Left="3.77953" Top="15.11812" Width="714.33117" Height="396.85065" ShowHint="False" PropData="0543686172740A850200005450463006544368617274054368617274044C656674020003546F7002000557696474680390010648656967687403FA00144261636B57616C6C2E50656E2E56697369626C650825426F74746F6D417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E746572244465707468417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E746572274465707468546F70417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E7465720D4672616D652E56697369626C6508234C656674417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E746572245269676874417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E74657222546F70417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E746572165669657733444F7074696F6E732E526F746174696F6E02000D5A6F6F6D2E50656E2E4D6F64650708706D4E6F74586F720A426576656C4F75746572070662764E6F6E6505436F6C6F720707636C57686974650D44656661756C7443616E766173060E54474449506C757343616E76617311436F6C6F7250616C65747465496E646578020D000F54466173744C696E6553657269657307536572696573310D4D61726B732E56697369626C65080D4C696E6550656E2E436F6C6F72044466A3000C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D650601590D5956616C7565732E4F7264657207066C6F4E6F6E650000000E4368617274456C65766174696F6E0359010A5365726965734461746101010C2D0100002044617461547970653D2264744442446174612220446174615365743D226672784442445072696E742220446174615365744E616D653D22667278446961672220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365313D22667278446961672E262333343B74656D7065726174757261262333343B2220536F75726365323D22667278446961672E262333343B74656D7065726174757261262333343B2220536F75726365333D22667278446961672E262333343B7672656D65262333343B222058536F757263653D22667278446961672E262333343B74656D7065726174757261262333343B222059536F757263653D22667278446961672E262333343B74656D7065726174757261262333343B220000"/>
</TfrxReportPage>
</TfrxReport>
Mlekara.h 0 → 100644
View file @ ece10ebb
#include <vcl.h>
#include <tchar.h>
MlekaraCB.cbproj 0 → 100644
View file @ ece10ebb
This diff is collapsed.
MlekaraCB.cbproj.local 0 → 100644
View file @ ece10ebb
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>2020/11/24 11:00:47.000.731,=C:\Users\janko\Documents\RAD Studio\Projects\Unit1.cpp</Transaction>
<Transaction>2020/11/24 11:00:47.000.709,=C:\Users\janko\Documents\RAD Studio\Projects\Project1PCH1.h</Transaction>
<Transaction>2020/11/24 11:01:41.000.150,C:\Users\janko\Desktop\Mlekara\MlekaraMain.h=C:\Users\janko\Documents\RAD Studio\Projects\Unit1.h</Transaction>
<Transaction>2020/11/24 11:01:41.000.150,C:\Users\janko\Desktop\Mlekara\MlekaraMain.cpp=C:\Users\janko\Documents\RAD Studio\Projects\Unit1.cpp</Transaction>
<Transaction>2020/11/24 11:01:41.000.150,C:\Users\janko\Desktop\Mlekara\MlekaraMain.dfm=C:\Users\janko\Documents\RAD Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2020/11/24 11:01:57.000.416,C:\Users\janko\Desktop\Mlekara\Mlekara.h=C:\Users\janko\Documents\RAD Studio\Projects\Project1PCH1.h</Transaction>
<Transaction>2020/11/24 11:02:07.000.405,C:\Users\janko\Desktop\Mlekara\MlekaraCB.cbproj=C:\Users\janko\Documents\RAD Studio\Projects\Project1.cbproj</Transaction>
<Transaction>2020/11/24 11:02:39.000.773,=C:\Users\janko\Desktop\Mlekara\Unit1.cpp</Transaction>
<Transaction>2020/11/24 11:03:18.000.668,C:\Users\janko\Desktop\Mlekara\Unit1.dfm=C:\Users\janko\Desktop\Mlekara\dbUtility\Connection.dfm</Transaction>
<Transaction>2020/11/24 11:03:18.000.668,C:\Users\janko\Desktop\Mlekara\Unit1.h=C:\Users\janko\Desktop\Mlekara\dbUtility\Connection.h</Transaction>
<Transaction>2020/11/24 11:03:18.000.668,C:\Users\janko\Desktop\Mlekara\Unit1.cpp=C:\Users\janko\Desktop\Mlekara\dbUtility\Connection.cpp</Transaction>
<Transaction>2020/11/24 11:06:28.000.911,=C:\Users\janko\Desktop\Mlekara\Unit2.cpp</Transaction>
<Transaction>2020/11/24 11:07:07.000.273,C:\Users\janko\Desktop\Mlekara\Unit2.h=C:\Users\janko\Desktop\Mlekara\dbUtility\dbDm.h</Transaction>
<Transaction>2020/11/24 11:07:07.000.273,C:\Users\janko\Desktop\Mlekara\Unit2.dfm=C:\Users\janko\Desktop\Mlekara\dbUtility\dbDm.dfm</Transaction>
<Transaction>2020/11/24 11:07:07.000.273,C:\Users\janko\Desktop\Mlekara\Unit2.cpp=C:\Users\janko\Desktop\Mlekara\dbUtility\dbDm.cpp</Transaction>
<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>
</Transactions>
</BorlandProject>
MlekaraCB.cpp 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("MlekaraMain.cpp", MainForm);
USEFORM("c_poruka.cpp", frm_poruka);
USEFORM("dbUtility\Connection.cpp", DataModule1); /* TDataModule: File Type */
USEFORM("dbUtility\dbDm.cpp", db); /* TDataModule: File Type */
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
try
{
Application->Initialize();
Application->MainFormOnTaskBar = true;
Application->CreateForm(__classid(TMainForm), &MainForm);
Application->CreateForm(__classid(TDataModule1), &DataModule1);
Application->CreateForm(__classid(Tdb), &db);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
MlekaraCB.res 0 → 100644
View file @ ece10ebb
File added
MlekaraMain.cpp 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#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 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" );
}
//---------------------------------------------------------------------------
MlekaraMain.dfm 0 → 100644
View file @ ece10ebb
This diff is collapsed.
MlekaraMain.h 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#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"
//---------------------------------------------------------------------------
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;
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;
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
Win32/Debug/Diagram_sa_artiklom.fr3 0 → 100644
View file @ ece10ebb
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="4.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="44160.4556349421" ReportOptions.Description.Text="" ReportOptions.LastChange="44160.6799266898" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." PropData="044C65667403A00303546F7002780844617461736574730101063020446174615365743D226672784442417274696B616C2220446174615365744E616D653D22667278417274696B616C220001062C20446174615365743D226672784442445072696E742220446174615365744E616D653D2266727844696167220000095661726961626C65730100055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="215.9" PaperHeight="279.4" PaperSize="1" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxChartView Name="Chart1" Left="3.77953" Top="15.11812" Width="714.33117" Height="396.85065" ShowHint="False" PropData="0543686172740A520500005450463006544368617274054368617274044C656674020003546F7002000557696474680390010648656967687403FA00144261636B57616C6C2E50656E2E56697369626C65080B4178697356697369626C650825426F74746F6D417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E746572244465707468417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E746572274465707468546F70417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E7465720D4672616D652E56697369626C6508234C656674417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E746572245269676874417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E74657222546F70417869732E4C6162656C73466F726D61742E54657874416C69676E6D656E740708746143656E746572175669657733444F7074696F6E732E456C65766174696F6E033B01185669657733444F7074696F6E732E4F7274686F676F6E616C08195669657733444F7074696F6E732E50657273706563746976650200165669657733444F7074696F6E732E526F746174696F6E0368010B56696577334457616C6C73080D5A6F6F6D2E50656E2E4D6F64650708706D4E6F74586F720A426576656C4F75746572070662764E6F6E6505436F6C6F720707636C57686974650D44656661756C7443616E766173060E54474449506C757343616E76617311436F6C6F7250616C65747465496E646578020D000A5450696553657269657307536572696573310D4D61726B732E56697369626C65090D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506035069650D5956616C7565732E4F7264657207066C6F4E6F6E651A4672616D652E496E6E657242727573682E4261636B436F6C6F720705636C526564224672616D652E496E6E657242727573682E4772616469656E742E456E64436F6C6F720706636C47726179224672616D652E496E6E657242727573682E4772616469656E742E4D6964436F6C6F720707636C5768697465244672616D652E496E6E657242727573682E4772616469656E742E5374617274436F6C6F720440404000214672616D652E496E6E657242727573682E4772616469656E742E56697369626C65091B4672616D652E4D6964646C6542727573682E4261636B436F6C6F720708636C59656C6C6F77234672616D652E4D6964646C6542727573682E4772616469656E742E456E64436F6C6F720482828200234672616D652E4D6964646C6542727573682E4772616469656E742E4D6964436F6C6F720707636C5768697465254672616D652E4D6964646C6542727573682E4772616469656E742E5374617274436F6C6F720706636C47726179224672616D652E4D6964646C6542727573682E4772616469656E742E56697369626C65091A4672616D652E4F7574657242727573682E4261636B436F6C6F720707636C477265656E224672616D652E4F7574657242727573682E4772616469656E742E456E64436F6C6F720440404000224672616D652E4F7574657242727573682E4772616469656E742E4D6964436F6C6F720707636C5768697465244672616D652E4F7574657242727573682E4772616469656E742E5374617274436F6C6F720708636C53696C766572214672616D652E4F7574657242727573682E4772616469656E742E56697369626C65090B4672616D652E57696474680204194F74686572536C6963652E4C6567656E642E56697369626C65080000000E4368617274456C65766174696F6E033B010A5365726965734461746101010C270100002044617461547970653D2264744442446174612220446174615365743D226672784442445072696E742220446174615365744E616D653D22667278446961672220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365313D22667278446961672E262333343B74656D7065726174757261262333343B2220536F75726365323D22667278446961672E262333343B7672656D65262333343B2220536F75726365333D22667278446961672E262333343B74656D7065726174757261262333343B222058536F757263653D22667278446961672E262333343B74656D7065726174757261262333343B222059536F757263653D22667278446961672E262333343B7672656D65262333343B220000"/>
</TfrxReportPage>
</TfrxReport>
Win32/Debug/Log/MlekaraCB.log 0 → 100644
View file @ ece10ebb
11/25/2020 2:03:50 PM Radnik: - -pocetak-
11/25/2020 2:03:50 PM Radnik: - Broj gresaka=1 cdsArtikli
11/25/2020 2:03:50 PM Radnik: - 11/25/2020 2:03:50 PM - DataSet: cdsArtikli -Radnik: - Greska:
11/25/2020 2:03:50 PM Radnik: - INSERT INTO cdsArtikli
11/25/2020 2:03:50 PM Radnik: - (idArtikli,Artikal,Kolicina,od,do)
11/25/2020 2:03:50 PM Radnik: - VALUES (1,'Test',12.3000001907349,'11/19/2020 1:46:52 PM',NULL)
11/25/2020 2:03:50 PM Radnik: - -kraj-
11/25/2020 2:04:22 PM Radnik: - -pocetak-
11/25/2020 2:04:22 PM Radnik: - Broj gresaka=1 cdsArtikli
11/25/2020 2:04:22 PM Radnik: - 11/25/2020 2:04:22 PM - DataSet: cdsArtikli -Radnik: - Greska:
11/25/2020 2:04:22 PM Radnik: - INSERT INTO cdsArtikli
11/25/2020 2:04:22 PM Radnik: - (idArtikli,Artikal,Kolicina,od,do)
11/25/2020 2:04:22 PM Radnik: - VALUES (2,'dadaee',123,'11/14/2020',NULL)
11/25/2020 2:04:22 PM Radnik: - -kraj-
11/25/2020 2:30:04 PM Radnik: - -pocetak-
11/25/2020 2:30:04 PM Radnik: - Broj gresaka=1 cdsArtikli
11/25/2020 2:30:04 PM Radnik: - 11/25/2020 2:30:04 PM - DataSet: cdsArtikli -Radnik: - Greska:
11/25/2020 2:30:04 PM Radnik: - INSERT INTO cdsArtikli
11/25/2020 2:30:04 PM Radnik: - (idArtikli,Artikal,Kolicina,od,do)
11/25/2020 2:30:04 PM Radnik: - VALUES (NULL,NULL,NULL,NULL,NULL)
11/25/2020 2:30:04 PM Radnik: - -kraj-
11/25/2020 2:42:24 PM Radnik: - -pocetak-
11/25/2020 2:42:24 PM Radnik: - Broj gresaka=1 cdsArtikli
11/25/2020 2:42:24 PM Radnik: - 11/25/2020 2:42:24 PM - DataSet: cdsArtikli -Radnik: - Greska:
11/25/2020 2:42:24 PM Radnik: - INSERT INTO cdsArtikli
11/25/2020 2:42:24 PM Radnik: - (idArtikli,Artikal,Kolicina,od,do,id_uredjaja)
11/25/2020 2:42:24 PM Radnik: - VALUES (12,'testera',12.3299999237061,'11/12/2020 2:45:22 PM','11/25/2020 2:41:22 PM',1)
11/25/2020 2:42:24 PM Radnik: - -kraj-
11/25/2020 3:25:15 PM Radnik: - -pocetak-
11/25/2020 3:25:15 PM Radnik: - Broj gresaka=1 cdsArtikli
11/25/2020 3:25:15 PM Radnik: - 11/25/2020 3:25:15 PM - DataSet: cdsArtikli -Radnik: - Greska:
11/25/2020 3:25:15 PM Radnik: - INSERT INTO cdsArtikli
11/25/2020 3:25:15 PM Radnik: - (idArtikli,Artikal,Kolicina,od,do,id_uredjaja)
11/25/2020 3:25:15 PM Radnik: - VALUES (1,'Test',12.3000001907349,'11/25/2020 1:46:52 PM','11/25/2020 12:01:00 AM',1)
11/25/2020 3:25:15 PM Radnik: - -kraj-
11/25/2020 4:11:11 PM Radnik: - -pocetak-
11/25/2020 4:11:11 PM Radnik: - Broj gresaka=1 cdsArtikli
11/25/2020 4:11:11 PM Radnik: - 11/25/2020 4:11:11 PM - DataSet: cdsArtikli -Radnik: - Greska:
11/25/2020 4:11:11 PM Radnik: - INSERT INTO cdsArtikli
11/25/2020 4:11:11 PM Radnik: - (idArtikli,Artikal,Kolicina,od,do,id_uredjaja)
11/25/2020 4:11:11 PM Radnik: - VALUES (7,'deerane',12.3000001907349,'11/25/2020 5:53:00 AM','11/25/2020 12:10:00 AM',2)
11/25/2020 4:11:11 PM Radnik: - -kraj-
Win32/Debug/MlekaraCB.map 0 → 100644
View file @ ece10ebb
Start Length Name Class
0001:00401000 0000097BCH _TEXT CODE
0002:0040B000 000003390H _DATA DATA
0003:0040E390 0000001C8H _BSS BSS
0004:00000000 00000009CH _TLS TLS
Win32/Debug/MlekaraCB.pdi 0 → 100644
View file @ ece10ebb
cxPageControldxBarPopupMenuRS19.bpl
dxBarRS19.bpl
dxSkinXmas2008BlueRS19.bpl
dxSkinWhiteprintRS19.bpl
dxSkinVS2010RS19.bpl
dxSkinValentineRS19.bpl
dxSkinTheAsphaltWorldRS19.bpl
dxSkinSummer2008RS19.bpl
dxSkinStardustRS19.bpl
dxSkinSpringTimeRS19.bpl
dxSkinSilverRS19.bpl
dxSkinSharpRS19.bpl
dxSkinSharpPlusRS19.bpl
dxSkinSevenRS19.bpl
dxSkinSevenClassicRS19.bpl
dxSkinPumpkinRS19.bpl
dxSkinOffice2013WhiteRS19.bpl
dxSkinOffice2010SilverRS19.bpl
dxSkinOffice2010BlueRS19.bpl
dxSkinOffice2010BlackRS19.bpl
dxSkinOffice2007SilverRS19.bpl
dxSkinOffice2007PinkRS19.bpl
dxSkinOffice2007GreenRS19.bpl
dxSkinOffice2007BlueRS19.bpl
dxSkinOffice2007BlackRS19.bpl
dxSkinMoneyTwinsRS19.bpl
dxSkinMcSkinRS19.bpl
dxSkinLondonLiquidSkyRS19.bpl
dxSkinLiquidSkyRS19.bpl
dxSkinLilianRS19.bpl
dxSkiniMaginaryRS19.bpl
dxSkinHighContrastRS19.bpl
dxSkinGlassOceansRS19.bpl
dxSkinFoggyRS19.bpl
dxSkinDevExpressStyleRS19.bpl
dxSkinDevExpressDarkStyleRS19.bpl
dxSkinDarkSideRS19.bpl
dxSkinDarkRoomRS19.bpl
dxSkinCoffeeRS19.bpl
dxSkinCaramelRS19.bpl
dxSkinBlueRS19.bpl
dxSkinBlueprintRS19.bpl
dxSkinBlackRS19.bpl
dxSkinscxPCPainterRS19.bpl
cxPageControlRS19.bpl
cxDataRS19.bpl
dxGDIPlusRS19.bpl
dxThemeRS19.bpl
dxCoreRS19.bpl
dsnap190.bpl
DBXMySQLDriver190.bpl
DbxCommonDriver190.bpl
dbexpress190.bpl
dbrtl190.bpl
rtl190.bpl
fqb190.bpl
fsDB19.bpl
frxDB19.bpl
VclSmp190.bpl
vclactnband190.bpl
adortl190.bpl
tmsdXE5.bpl
IndySystem190.bpl
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
vclx190.bpl
cxLibraryRS19.bpl
vcl190.bpl
c_poruka.cpp 0 → 100644
View file @ ece10ebb
// ---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "c_poruka.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxButtons"
#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 "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 resource "*.dfm"
// Tfrm_poruka *frm_poruka;
// ---------------------------------------------------------------------------
__fastcall Tfrm_poruka::Tfrm_poruka(TComponent* Owner)
:TForm(Owner)
{
}
// ---------------------------------------------------------------------------
__fastcall Tfrm_poruka::Tfrm_poruka(AnsiString poruka, TComponent* Owner)
:TForm(Owner)
{
Application->ProcessMessages();
lblPoruka->Caption = poruka;
}
// ---------------------------------------------------------------------------
__fastcall Tfrm_poruka::Tfrm_poruka(AnsiString poruka, TColor boja, TComponent* Owner)
:TForm(Owner)
{
Application->ProcessMessages();
lblPoruka->Caption = poruka;
Color = boja;
}
// ---------------------------------------------------------------------------
void __fastcall Tfrm_poruka::FormClose(TObject* Sender, TCloseAction& Action)
{
Action = caFree;
}
// ---------------------------------------------------------------------------
void __fastcall Tfrm_poruka::Timer1Timer(TObject* Sender)
{
btnOkClick(this);
}
// ---------------------------------------------------------------------------
void __fastcall Tfrm_poruka::FormCreate(TObject* Sender)
{
// frm_poruka->Left = 350;
// frm_poruka->Top = 350;
}
// ---------------------------------------------------------------------------
void __fastcall Tfrm_poruka::btnOkClick(TObject* Sender)
{
Close();
}
// ---------------------------------------------------------------------------
void __fastcall Tfrm_poruka::FormActivate(TObject* Sender)
{
Left = Screen->DesktopWidth - 400;
Top = Screen->DesktopHeight - 300;
}
// ---------------------------------------------------------------------------
c_poruka.dfm 0 → 100644
View file @ ece10ebb
object frm_poruka: Tfrm_poruka
Left = 200
Top = 200
ParentCustomHint = False
AlphaBlend = True
AlphaBlendValue = 200
BiDiMode = bdLeftToRight
BorderStyle = bsNone
Caption = 'Poruka'
ClientHeight = 208
ClientWidth = 400
Color = 8905208
TransparentColorValue = clBtnShadow
DragKind = dkDock
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
ParentBiDiMode = False
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
AlignWithMargins = True
Left = 5
Top = 5
Width = 390
Height = 198
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Margins.Bottom = 5
Align = alClient
BevelOuter = bvNone
Caption = 'Panel1'
Color = 8976369
ParentBackground = False
TabOrder = 2
end
object lblPoruka: TcxLabel
AlignWithMargins = True
Left = 20
Top = 20
Margins.Left = 20
Margins.Top = 20
Margins.Right = 20
Margins.Bottom = 20
Align = alClient
AutoSize = False
Caption = 'Poruka - nebitna '
ParentColor = False
ParentFont = False
Style.Color = 8976369
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -24
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.IsFontAssigned = True
Properties.WordWrap = True
Height = 168
Width = 360
end
object btnOk: TcxButton
Left = 311
Top = 170
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 0
DragMode = dmAutomatic
OnClick = btnOkClick
end
object Timer1: TTimer
Interval = 3000
OnTimer = Timer1Timer
Top = 56
end
end
c_poruka.h 0 → 100644
View file @ ece10ebb
// ---------------------------------------------------------------------------
#ifndef c_porukaH
#define c_porukaH
// ---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "cxContainer.hpp"
#include "cxControls.hpp"
#include "cxEdit.hpp"
#include "cxGraphics.hpp"
#include "cxLabel.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include <ExtCtrls.hpp>
#include "cxButtons.hpp"
#include <Menus.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 "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"
// ---------------------------------------------------------------------------
class Tfrm_poruka:public TForm
{
__published: // IDE-managed Components
TcxLabel* lblPoruka;
TTimer* Timer1;
TcxButton* btnOk;
TPanel* Panel1;
void __fastcall FormClose(TObject* Sender, TCloseAction& Action);
void __fastcall Timer1Timer(TObject* Sender);
void __fastcall FormCreate(TObject* Sender);
void __fastcall btnOkClick(TObject* Sender);
void __fastcall FormActivate(TObject* Sender);
private: // User declarations
public: // User declarations
__fastcall Tfrm_poruka(TComponent* Owner);
__fastcall Tfrm_poruka(AnsiString poruka, TComponent* Owner);
__fastcall Tfrm_poruka(AnsiString poruka, TColor boja, TComponent* Owner);
};
// ---------------------------------------------------------------------------
// extern PACKAGE Tfrm_poruka *frm_poruka;
// ---------------------------------------------------------------------------
#endif
dbUtility/Connection.cpp 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "Connection.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
TDataModule1 *DataModule1;
//---------------------------------------------------------------------------
__fastcall TDataModule1::TDataModule1(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
dbUtility/Connection.dfm 0 → 100644
View file @ ece10ebb
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/Connection.h 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#ifndef ConnectionH
#define ConnectionH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Data.DB.hpp>
#include <Data.SqlExpr.hpp>
#include <Data.DBXMySQL.hpp>
//---------------------------------------------------------------------------
class TDataModule1 : public TDataModule
{
__published: // IDE-managed Components
TSQLConnection *mysql;
private: // User declarations
public: // User declarations
__fastcall TDataModule1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDataModule1 *DataModule1;
//---------------------------------------------------------------------------
#endif
dbUtility/__history/Connection.dfm.~1~ 0 → 100644
View file @ ece10ebb
object DataModule1: TDataModule1
OldCreateOrder = False
Height = 421
Width = 606
object SQLConnection1: TSQLConnection
Left = 112
Top = 32
end
end
dbUtility/__history/Connection.dfm.~2~ 0 → 100644
View file @ ece10ebb
object DataModule1: TDataModule1
OldCreateOrder = False
Height = 186
Width = 303
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')
Left = 64
Top = 24
end
end
dbUtility/__history/Connection.dfm.~3~ 0 → 100644
View file @ ece10ebb
object DataModule1: TDataModule1
OldCreateOrder = False
Height = 186
Width = 303
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')
Left = 64
Top = 24
end
end
dbUtility/__history/Connection.dfm.~4~ 0 → 100644
View file @ ece10ebb
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/Connection.dfm.~5~ 0 → 100644
View file @ ece10ebb
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/Connection.dfm.~6~ 0 → 100644
View file @ ece10ebb
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/Connection.h.~1~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#ifndef ConnectionH
#define ConnectionH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Data.DB.hpp>
#include <Data.SqlExpr.hpp>
//---------------------------------------------------------------------------
class TDataModule1 : public TDataModule
{
__published: // IDE-managed Components
TSQLConnection *SQLConnection1;
private: // User declarations
public: // User declarations
__fastcall TDataModule1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDataModule1 *DataModule1;
//---------------------------------------------------------------------------
#endif
dbUtility/__history/Connection.h.~2~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#ifndef ConnectionH
#define ConnectionH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Data.DB.hpp>
#include <Data.SqlExpr.hpp>
#include <Data.DBXMySQL.hpp>
//---------------------------------------------------------------------------
class TDataModule1 : public TDataModule
{
__published: // IDE-managed Components
TSQLConnection *mysql;
private: // User declarations
public: // User declarations
__fastcall TDataModule1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDataModule1 *DataModule1;
//---------------------------------------------------------------------------
#endif
dbUtility/__history/dbDm.cpp.~36~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
dbUtility/__history/dbDm.cpp.~37~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
dbUtility/__history/dbDm.cpp.~38~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
// CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
dbUtility/__history/dbDm.cpp.~39~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
// CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
void __fastcall Tdb::cdsArtikliAfterPost(TDataSet *DataSet)
{
SnimiCDS(cdsArtikli,DataModule1.mysql);
}
//---------------------------------------------------------------------------
dbUtility/__history/dbDm.cpp.~40~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
// CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
void __fastcall Tdb::cdsArtikliAfterPost(TDataSet *DataSet)
{
SnimiCDS(cdsArtikli,DataModule1->mysql);
}
//---------------------------------------------------------------------------
dbUtility/__history/dbDm.cpp.~41~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
// CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
void __fastcall Tdb::cdsArtikliAfterPost(TDataSet *DataSet)
{
SnimiCDS(cdsArtikli,DataModule1->mysql);
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openArtikliCds(){
cdsArtikli->Active = false;
cdsArtikli->Active = true;
}
dbUtility/__history/dbDm.cpp.~42~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
// CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
void __fastcall Tdb::cdsArtikliAfterPost(TDataSet *DataSet)
{
SnimiCDS(cdsArtikli,DataModule1->mysql);
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openArtikliCds(){
cdsArtikli->Active = false;
cdsArtikli->Active = true;
}
void __fastcall Tdb::dspArtikliGetTableName(TObject *Sender, TDataSet *DataSet,
UnicodeString &TableName)
{
TableName = "Artikli";
}
//---------------------------------------------------------------------------
dbUtility/__history/dbDm.cpp.~43~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
// CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
void __fastcall Tdb::cdsArtikliAfterPost(TDataSet *DataSet)
{
SnimiCDS(cdsArtikli,DataModule1->mysql);
openArtikliCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openArtikliCds(){
cdsArtikli->Active = false;
cdsArtikli->Active = true;
}
void __fastcall Tdb::dspArtikliGetTableName(TObject *Sender, TDataSet *DataSet,
UnicodeString &TableName)
{
TableName = "Artikli";
}
//---------------------------------------------------------------------------
dbUtility/__history/dbDm.cpp.~44~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
// CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
void __fastcall Tdb::cdsArtikliAfterPost(TDataSet *DataSet)
{
SnimiCDS(cdsArtikli,DataModule1->mysql);
cdsArtikli->Refresh()'
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openArtikliCds(){
cdsArtikli->Active = false;
cdsArtikli->Active = true;
}
void __fastcall Tdb::dspArtikliGetTableName(TObject *Sender, TDataSet *DataSet,
UnicodeString &TableName)
{
TableName = "Artikli";
}
//---------------------------------------------------------------------------
dbUtility/__history/dbDm.cpp.~45~ 0 → 100644
View file @ ece10ebb
//---------------------------------------------------------------------------
#pragma hdrstop
#include "dbDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma resource "*.dfm"
#include "c_poruka.h"
#include <IdGlobal.hpp>
#include <System.SysUtils.hpp>
#include <System.hpp>
Tdb *db;
AnsiString LOG_FAJL = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//;// = APP_DIR + "\\Log\\CashIT\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log" ;//Sysutils::ChangeFileExt(Application->ExeName, ".log");
AnsiString LOG_FAJL1 = GetCurrentDir() + "\\Log\\" + Sysutils::ExtractFileName(Sysutils::ChangeFileExt(Application->ExeName, "")) + ".log1" ;
int VELICINA_LOG_FAJLA=900;
//---------------------------------------------------------------------------
__fastcall Tdb::Tdb(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openMlekaraCds(){
cdsMlekara->Active = false;
cdsMlekara->Active = true;
}
void __fastcall Tdb::Timer1Timer(TObject *Sender)
{
openMlekaraCds();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::Timer2Timer(TObject *Sender)
{
ClientDataSet1->Active = false;
ClientDataSet1->Active = true;
ClientDataSet2->Active = false;
ClientDataSet2->Active = true;
ClientDataSet3->Active = false;
ClientDataSet3->Active = true;
ClientDataSet4->Active = false;
ClientDataSet4->Active = true;
}
//---------------------------------------------------------------------------
int __fastcall Tdb::SnimiCDS(TClientDataSet* cds, TSQLConnection* sc)
{
TTransactionDesc TD;
TD.TransactionID = 1;
TD.IsolationLevel = 1;
if (sc->InTransaction)
{
sc->Commit(TD);
}
OleVariant MasterVar, OwnerData;
int ErrCount = 0;
if (cds->OnPostError == NULL ) {
// cds->OnPostError = DM->cdsHostPostError;
}
cds->CheckBrowseMode();
if (cds->ChangeCount > 0)
MasterVar = cds->Delta;
else
MasterVar.ChangeType(VT_NULL);
try
{
if (!sc->InTransaction)
{
sc->StartTransaction(TD);
try
{
if (!MasterVar.IsNull())
{
ErrCount = cds->ApplyUpdates(0);
if (ErrCount > 0)
{
LogError(cds , "Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name, 0) ;
throw Exception("Broj gresaka=" + IntToStr(ErrCount) + " " + cds->Name);
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (sc->InTransaction)
{
if (ErrCount == 0)
{
sc->Commit(TD);
}
else
{
sc->Rollback(TD);
}
}
}
}
catch (Exception& e)
{
if (sc->InTransaction)
sc->Rollback(TD);
PosaljiPoruku("Greska snimanja!! " + e.Message);
}
if (ErrCount > 0) {
cds->Reconcile(MasterVar);
}
return 0;
}
void __fastcall Tdb::PosaljiPoruku(AnsiString poruka)
{
Tfrm_poruka* frm_poruka = new Tfrm_poruka(poruka, Application);
frm_poruka->Show();
Application->ProcessMessages();
}
void __fastcall Tdb::LogError(TCustomClientDataSet* DataSet, AnsiString poruka, int posalji_poruku)
{
// ScreenCaptureJPG("frmMP.jpg");
AnsiString greska;
AnsiString forma = DataSet->Owner->Name;
greska = DateTimeToStr(Now()) + " - DataSet: " + DataSet->Name + " -Radnik: - Greska: ";
UpisiULogFile(LOG_FAJL, "-pocetak-", 2);
UpisiULogFile(LOG_FAJL, poruka, 2);
UpisiULogFile(LOG_FAJL, greska, 2);
NamestiInsert( DataSet, DataSet->Name) ;
UpisiULogFile(LOG_FAJL, "-kraj-", 2);
if (posalji_poruku == 1)
{
PosaljiPoruku("Greska: ");
}
}
void __fastcall Tdb::UpisiULogFile(AnsiString filename, AnsiString text, int pocetak)
{
char szFileName[300];
char cr;
char* pszBuffer;
int velicina_fajla;
int iFileHandle;
int iPom;
// HANDLE iFileHandle;
text = DateTimeToStr(Now()) + " Radnik: - " + text;
int iLength,
iFileLength;
//iBytesRead; /* defined but never used */
AnsiString duzina, pom_fajl;
if (filename == "")
{
filename = FormatDateTime("yymmddhhmm", Now()) + ".txt";
}
if (FileExists(filename))
{
iFileHandle = FileOpen(filename, fmOpenReadWrite);
iFileLength = FileSeek(iFileHandle, 0, 2);
// velicina_fajla = FileSizeByName(filename);
// if (velicina_fajla > VELICINA_LOG_FAJLA * 1000)
// {
// FileClose(iFileHandle);
// pom_fajl = Sysutils::ChangeFileExt(Application->ExeName, ".log1");
// CopyFileTo(filename, pom_fajl);
// DeleteFile(filename);
// iFileHandle = FileOpen(filename, fmOpenReadWrite);
// iFileLength = FileSeek(iFileHandle, 0, 2);
// }
FileSeek(iFileHandle, 0, pocetak);
if (pocetak == 0) // dodajes na pocetak fajla
{
// otvoris pomocni file
iPom = FileCreate("pom" + filename, fmOpenReadWrite);
// upises sta treba da je na pocetku fajla
FileWrite(iPom, text.c_str(), text.Length());
cr = 13;
FileWrite(iPom, & cr, 1);
cr = 10;
FileWrite(iPom, & cr, 1);
pszBuffer = new char[iFileLength + 1]; // kopiras stari sadrzaj na pomocni file
//iBytesRead = /* defined but never used */
FileRead(iFileHandle, pszBuffer, iFileLength);
FileClose(iFileHandle);
FileWrite(iPom, pszBuffer, iFileLength);
FileClose(iPom);
delete[]pszBuffer;
DeleteFile(filename);
// CopyFileTo("pom" + filename, filename);
DeleteFile("pom" + filename);
return;
}
}
else
{
iFileHandle = FileCreate(filename);
}
iLength = text.Length();
duzina = IntToStr(iLength);
duzina += "@";
// FileWrite(iFileHandle, duzina.c_str(), duzina.Length());
FileWrite(iFileHandle, text.c_str(), text.Length());
cr = 13;
FileWrite(iFileHandle, & cr, 1);
cr = 10;
FileWrite(iFileHandle, & cr, 1);
FileClose(iFileHandle);
}
void __fastcall Tdb::NamestiInsert( TCustomClientDataSet *DataSet, AnsiString imeTabele)
{
//
if (DataSet->Active == true)
{
int broj_polja = DataSet->FieldCount;
AnsiString insert1 = "(";
AnsiString insert2 = "VALUES (";
for (int i = 0; i < broj_polja; i++)
{
insert1 = insert1 + DataSet->Fields->Fields[i]->FieldName;
if (i <broj_polja-1) {
insert1 = insert1 + ",";
}
if (i == broj_polja-1) {
insert1 = insert1 + ")";
}
if ( DataSet->Fields->Fields[i]->DataType == ftString ||
DataSet->Fields->Fields[i]->DataType == ftTimeStamp ||
DataSet->Fields->Fields[i]->DataType == ftDate ) {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else
insert2 = insert2 + "'" + DataSet->Fields->Fields[i]->AsString + "'";
}
else {
if (DataSet->Fields->Fields[i]->IsNull) {
insert2 = insert2 + "NULL";
}
else {
insert2 = insert2 + DataSet->Fields->Fields[i]->AsString ;
}
}
if (i <broj_polja-1) {
insert2 = insert2 + ",";
}
if (i == broj_polja-1) {
insert2 = insert2 + ")";
}
}
UpisiULogFile(LOG_FAJL, "INSERT INTO " + imeTabele, 2);
UpisiULogFile(LOG_FAJL, insert1, 2);
UpisiULogFile(LOG_FAJL, insert2, 2);
}
}
void __fastcall Tdb::cdsArtikliAfterPost(TDataSet *DataSet)
{
SnimiCDS(cdsArtikli,DataModule1->mysql);
cdsArtikli->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall Tdb::openArtikliCds(){
cdsArtikli->Active = false;
cdsArtikli->Active = true;
}
void __fastcall Tdb::dspArtikliGetTableName(TObject *Sender, TDataSet *DataSet,
UnicodeString &TableName)
{
TableName = "Artikli";
}
//---------------------------------------------------------------------------
dbUtility/__history/dbDm.dfm.~31~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~32~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~33~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~34~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~35~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~36~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~37~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~38~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~39~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.dfm.~40~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~16~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~17~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~18~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~19~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~20~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~21~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~22~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~23~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~24~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/__history/dbDm.h.~25~ 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/dbDm.cpp 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/dbDm.dfm 0 → 100644
View file @ ece10ebb
This diff is collapsed.
dbUtility/dbDm.h 0 → 100644
View file @ ece10ebb
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