Реферат: Автоматизированная информационная система Малое авторемонтное предприятие

Form1->Close();

}

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

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

Label1->Caption=DateToStr(Date()) + " " +TimeToStr(Time());

}

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

Unit2

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

# include "Unit1.h"

# include "Unit3.h"

# include "Unit4.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

int summa,x;

BOOLEAN bol;

String a,b,f,f1,i;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::BitBtn1Click(TObject *Sender)