}->Clear();>Operation_Table->First();(!Data->Operation_Table->Eof)
{->Items->Add(Data->Operation_Table->Fields->FieldByName("OPERATION_NAME")->AsString);>Operation_Table->Next();
}
}
//---------------------------------------------------------------------------
__fastcall TInternalReportsForm::ComboBox1Change(TObject *Sender)
{tlo;<<
loPartialKey,loCaseInsensitive;>Int_Reports_Table->Filtered=false;>IBQuery5->Locate
("OPERATION_NAME", ComboBox1->Text, tlo
);n3=Data->IBQuery5->Fields->FieldByName("ID_OPERATION")->AsInteger;>Int_Reports_Table->Filter="OPERETION_DICT_ID
= " + IntToStr(n3) ;>Int_Reports_Table->Filtered=true;
}
//---------------------------------------------------------------------------
__fastcall TInternalReportsForm::Button1Click(TObject *Sender)
{>Int_Reports_Table->Filtered=false;
}
//---------------------------------------------------------------------------
__fastcall TInternalReportsForm::ComboBox2Change(TObject *Sender)
{tlo;<< loPartialKey,loCaseInsensitive;>Int_Reports_Table->Filtered=false;>IBQuery6->Locate ("RESPONSIBLE_NAME", ComboBox2->Text, tlo );n3=Data->IBQuery6->Fields->FieldByName("RESPONSIBLE_ID")->AsInteger;>Int_Reports_Table->Filter="ID_RESPONSIBLE = " + IntToStr(n3) ;>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>
//---------------------------------------------------------------------------TDeadlineDictionaryForm
: public TForm
{
__published: // IDE-managed Components*DictGrid;*DataSource1;*Label1;*DBGrid1;*DeclarationDataSource;*Declaration_table;*Declaration_tableIDDECLARATION;
*Declaration_tableNAMEDECLARATION;*Declaration_tableIDFUND;*Declaration_tableID_DEADLINE;*DeadlinesTable;*DeadlinesTableIDDECLARATION;*DeadlinesTableIDTERM;*DeadlinesTableTERM;*DeadlinesTableQUARTER;*DeadlinesTableREPORTYEAR;*DeadlinesDataSource;*DBNavigator1;*DBNavigator2;: // User declarations: // User declarations
__fastcall TDeadlineDictionaryForm(TComponent* Owner);
};
//---------------------------------------------------------------------------PACKAGE TDeadlineDictionaryForm *DeadlineDictionaryForm;
//---------------------------------------------------------------------------
#endif
Файл Unit4.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "datamodule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*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>
//---------------------------------------------------------------------------TFundsDeclForm : public TForm
{
__published: // IDE-managed Components*Label1;
*DictGrid;*DBGrid1;*DBNavigator1;*DBNavigator2;: // User declarations: // User declarations
__fastcall TFundsDeclForm(TComponent* Owner);
};
//---------------------------------------------------------------------------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"*FundsDeclForm;
//---------------------------------------------------------------------------
__fastcall TFundsDeclForm::TFundsDeclForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------