Автоматизированная система учета расчетов с покупателями и поставщиками на предприятии на основе данных ООО "Дагестан-Парус"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
--------------__fastcall TForm10::Button3Click(TObject *Sender)
{->Filter = "Nom="+Edit10->Text+"";->Filtered=true;->QuickRep1->Preview();->Filtered=false;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit11.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form11;
//---------------------------------------------------------------------------
__fastcall TForm11::TForm11(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm11::Table1AfterScroll(TDataSet *DataSet)
{->Active=true;->Active=true;->Filter="Nom="+DBText4->Caption+"";->Filtered=true;
}
//---------------------------------------------------------------------------__fastcall TForm11::FormShow(TObject *Sender)
{->Active=true;->Active=true;->Filter="Nom="+DBText4->Caption+"";->Filtered=true;
}
//---------------------------------------------------------------------------__fastcall TForm11::Table2CalcFields(TDataSet *DataSet)
{->Active= true;Sum->AsFloat = Table2Kol->AsInteger*Table2Cena->AsFloat;Snds->AsFloat = (Table2Kol->AsInteger*Table2Cena->AsFloat
*Table2Nds->AsInteger)/100;Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;
}
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit12.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form12;
//---------------------------------------------------------------------------
__fastcall TForm12::TForm12(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm12::FormShow(TObject *Sender)
{->Active=true;->Active=true;->Filter="Nom="+DBText1->Caption+"";->Filtered=true;
}
//---------------------------------------------------------------------------__fastcall TForm12::Table1AfterScroll(TDataSet *DataSet)
{->Active=true;->Active=true;->Filter="Nom="+DBText1->Caption+"";->Filtered=true;
}
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit13.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form13;
//---------------------------------------------------------------------------
__fastcall TForm13::TForm13(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm13::QRSubDetail1AfterPrint(TQRCustomBand *Sender,BandPrinted)
{->Filter="Nom="+Table1Nom->AsString+"";->Filtered=true;
}
//---------------------------------------------------------------------------__fastcall TForm13::Table2CalcFields(TDataSet *DataSet)
{Sum->AsFloat = Table2Kol->AsInteger*Table2Cena->AsFloat;Snds->AsFloat = (Table2Kol->AsInteger*Table2Cena->AsFloat
*Table2Nds->AsInteger)/100;Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;
}
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit16.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form16;s1=0,s2=0;
//---------------------------------------------------------------------------
__fastcall TForm16::TForm16(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm16::QuickRep1BeforePrint(TCustomQuickRep *Sender,&PrintReport)
{s1=0,s2=0;
}
//---------------------------------------------------------------------------__fastcall TForm16::QRSubDetail1AfterPrint(TQRCustomBand *Sender,BandPrinted)
{=s1+Table1Sum->AsFloat;=s2+Table1Snal->AsFloat;
}
//---------------------------------------------------------------------------__fastcall TForm16::GroupFooterBand1BeforePrint(TQRCustomBand *Sender,&PrintBand)
{->Caption=FloatToStr(s1);->Caption=FloatToStr(s2);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit17.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form27;
//---------------------------------------------------------------------------
__fastcall TForm27::TForm27(TComponent* Owner)
: TForm(Owner)
{
}
//----
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit18.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form18;i=0;
//---------------------------------------------------------------------------
__fastcall TForm18::TForm18(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm18::QRSubDetail2BeforePrint(TQRCustomBand *Sender,&PrintBand)
{++;->Caption=IntToStr(i);
}
//---------------------------------------------------------------------------__fastcall TForm18::QuickRep1AfterPrint(TObject *Sender)
{=0;
}