Geum.ru

База данных "Учет автотранспортных средств в ГАИ ГИБДД"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



p>//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"*FSPR;

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

__fastcall TFSPR::TFSPR(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------__fastcall TFSPR::N1Click(TObject *Sender)

{

FSPR->Close();

}

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

Текст программы для формы Form1

#include

#pragma hdrstop

#include "Unit1.h"

#include "UO.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender)

{>QuickRep1->Print();

}

//---------------------------------------------------------------------------__fastcall TForm1::Button2Click(TObject *Sender)

{>QuickRep1->Preview();

}

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

Текст программы для формы Form2

#include

#pragma hdrstop

#include "Unit2.h"

#include "UO2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------__fastcall TForm2::Button1Click(TObject *Sender)

{->QuickRep1->Print();

}

//---------------------------------------------------------------------------__fastcall TForm2::Button2Click(TObject *Sender)

{->QuickRep1->Preview();

}

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