Разработка автоматизированной системы оптимизации отслеживания отчетности предприятий

Dictionaries->Show();

}

//---------------------------------------------------------------------------

void __fastcall TMainForm::N11Click(TObject *Sender)

{

FundsDeclForm->Show();

}

//---------------------------------------------------------------------------

void __fastcall TMainForm::DBGrid3DrawColumnCell(TObject *Sender,

const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

TDateTime CurrentDate;

CurrentDate=Now();

if (IBQuery1->FieldByName("TERM")->AsDateTime <= (CurrentDate+10))

{

DBGrid3->Canvas->Brush->Color= clRed;

DBGrid3->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

}

//---------------------------------------------------------------------------

Файл Unit2.h

//---------------------------------------------------------------------------

#ifndef Unit2H

#define Unit2H

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <IBCustomDataSet.hpp>

#include <IBTable.hpp>

//---------------------------------------------------------------------------

class TDictionaries : public TForm

{

__published: // IDE-managed Components

TIBTable *IBTable1;

TDataSource *DataSource1;

TIntegerField *IBTable1IDCLIENT;

TIBStringField *IBTable1NAMECLIENT;

TIBStringField *IBTable1INN;

TIBStringField *IBTable1ADDRESS;

TIntegerField *IBTable1IDTAXATIONSYSTEM;

TDBNavigator *DBNavigator1;

TDataSource *DictionariesDataSource;

TLabel *Label1;

TDBGrid *DictGrid;

private: // User declarations

public: // User declarations

__fastcall TDictionaries(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TDictionaries *Dictionaries;

//---------------------------------------------------------------------------

#endif

Файл Unit2.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "datamodule.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TDictionaries *Dictionaries;

//---------------------------------------------------------------------------

__fastcall TDictionaries::TDictionaries(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

Файл Unit3.h

//---------------------------------------------------------------------------

#ifndef Unit3H

#define Unit3H

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <IBCustomDataSet.hpp>

#include <IBTable.hpp>

#include <IBQuery.hpp>

#include <DBCtrls.hpp>

#include <ExtCtrls.hpp>

#include "sLabel.hpp"

//---------------------------------------------------------------------------

class TInternalReportsForm : public TForm

{

__published: // IDE-managed Components

TDBGrid *InternalOperationGrid;

TDBNavigator *DBNavigator1;

TDBCheckBox *DBCheckBox1;

TComboBox *ComboBox1;

TComboBox *ComboBox2;

TComboBox *ComboBox3;

TsLabel *sLabel1;

TsLabel *sLabel2;

TsLabel *sLabel3;

TButton *Button1;

void __fastcall InternalOperationGridDrawColumnCell(

TObject *Sender, const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State);

void __fastcall ComboBox3Change(TObject *Sender);

void __fastcall FormCreate(TObject *Sender);

void __fastcall ComboBox1Change(TObject *Sender);

void __fastcall Button1Click(TObject *Sender);

void __fastcall ComboBox2Change(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TInternalReportsForm(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TInternalReportsForm *InternalReportsForm;

//---------------------------------------------------------------------------

#endif

Файл Unit3.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "datamodule.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "sLabel"

#pragma resource "*.dfm"

TInternalReportsForm *InternalReportsForm;

//---------------------------------------------------------------------------

__fastcall TInternalReportsForm::TInternalReportsForm(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TInternalReportsForm::InternalOperationGridDrawColumnCell(

TObject *Sender, const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

if ( Data->Int_Reports_Table->FieldByName("DONE")->AsString == "1" )

{

InternalReportsForm->InternalOperationGrid->Canvas->Brush->Color = clMoneyGreen ;

InternalReportsForm->InternalOperationGrid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

}

//---------------------------------------------------------------------------

void __fastcall TInternalReportsForm::ComboBox3Change(TObject *Sender)

{

TLocateOptions tlo;

tlo << loPartialKey,loCaseInsensitive;

Data->Int_Reports_Table->Filtered=false;

Data->IBQuery1->Locate ("NAMECLIENT", ComboBox3->Text, tlo );

int n3=Data->IBQuery1->Fields->FieldByName("IDCLIENT")->AsInteger;

Data->Int_Reports_Table->Filter="CLIENT_NAME = " + IntToStr(n3) ;

Data->Int_Reports_Table->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TInternalReportsForm::FormCreate(TObject *Sender)

{

ComboBox3->Clear();

Data->ClientTable->First();

while(!Data->ClientTable->Eof)

{

ComboBox3->Items->Add(Data->ClientTable->Fields->FieldByName("NAMECLIENT")->AsString);

Data->ClientTable->Next();

}

ComboBox2->Clear();

Data->Responsible_Table->First();

while(!Data->Responsible_Table->Eof)

{

ComboBox2->Items->Add(Data->Responsible_Table->Fields->FieldByName("Responsible_NAME")->AsString);

Data->Responsible_Table->Next();

}

ComboBox1->Clear();

Data->Operation_Table->First();

while(!Data->Operation_Table->Eof)

{

ComboBox1->Items->Add(Data->Operation_Table->Fields->FieldByName("OPERATION_NAME")->AsString);

Data->Operation_Table->Next();

}

}

//---------------------------------------------------------------------------

void __fastcall TInternalReportsForm::ComboBox1Change(TObject *Sender)

{

TLocateOptions tlo;

tlo << loPartialKey,loCaseInsensitive;

Data->Int_Reports_Table->Filtered=false;

Data->IBQuery5->Locate ("OPERATION_NAME", ComboBox1->Text, tlo );

int n3=Data->IBQuery5->Fields->FieldByName("ID_OPERATION")->AsInteger;

Data->Int_Reports_Table->Filter="OPERETION_DICT_ID = " + IntToStr(n3) ;

Data->Int_Reports_Table->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TInternalReportsForm::Button1Click(TObject *Sender)

{

Data->Int_Reports_Table->Filtered=false;

}

//---------------------------------------------------------------------------

void __fastcall TInternalReportsForm::ComboBox2Change(TObject *Sender)

{

TLocateOptions tlo;

tlo << loPartialKey,loCaseInsensitive;

Data->Int_Reports_Table->Filtered=false;

Data->IBQuery6->Locate ("RESPONSIBLE_NAME", ComboBox2->Text, tlo );

int n3=Data->IBQuery6->Fields->FieldByName("RESPONSIBLE_ID")->AsInteger;

Data->Int_Reports_Table->Filter="ID_RESPONSIBLE = " + IntToStr(n3) ;

Data->Int_Reports_Table->Filtered=true;

}

//---------------------------------------------------------------------------

Файл Unit4.h

//---------------------------------------------------------------------------

#ifndef Unit4H

#define Unit4H

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <IBCustomDataSet.hpp>

#include <IBTable.hpp>

#include <DBCtrls.hpp>

#include <ExtCtrls.hpp>

//---------------------------------------------------------------------------

class TDeadlineDictionaryForm : public TForm

{

__published: // IDE-managed Components

TDBGrid *DictGrid;

TDataSource *DataSource1;

TLabel *Label1;

TDBGrid *DBGrid1;

TDataSource *DeclarationDataSource;

TIBTable *Declaration_table;

TIntegerField *Declaration_tableIDDECLARATION;

TIBStringField *Declaration_tableNAMEDECLARATION;

TIntegerField *Declaration_tableIDFUND;

TIntegerField *Declaration_tableID_DEADLINE;

TIBTable *DeadlinesTable;

TIntegerField *DeadlinesTableIDDECLARATION;

TIntegerField *DeadlinesTableIDTERM;

TIBStringField *DeadlinesTableTERM;

TIntegerField *DeadlinesTableQUARTER;

TIntegerField *DeadlinesTableREPORTYEAR;

TDataSource *DeadlinesDataSource;

TDBNavigator *DBNavigator1;

TDBNavigator *DBNavigator2;

private: // User declarations

public: // User declarations

__fastcall TDeadlineDictionaryForm(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TDeadlineDictionaryForm *DeadlineDictionaryForm;

//---------------------------------------------------------------------------

#endif

Файл Unit4.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "datamodule.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TDeadlineDictionaryForm *DeadlineDictionaryForm;

//---------------------------------------------------------------------------

__fastcall TDeadlineDictionaryForm::TDeadlineDictionaryForm(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

Файл Unit5.h

//---------------------------------------------------------------------------

#ifndef Unit5H

#define Unit5H

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

//---------------------------------------------------------------------------

class TFundsDeclForm : public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TDBGrid *DictGrid;

TDBGrid *DBGrid1;

TDBNavigator *DBNavigator1;

TDBNavigator *DBNavigator2;

private: // User declarations

public: // User declarations

__fastcall TFundsDeclForm(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TFundsDeclForm *FundsDeclForm;

//---------------------------------------------------------------------------

#endif

Файл Unit5.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit5.h"

#include "datamodule.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TFundsDeclForm *FundsDeclForm;

//---------------------------------------------------------------------------

__fastcall TFundsDeclForm::TFundsDeclForm(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

Размещено на Allbest.ru