Dasturlash fanidan 1-Mustaqil ishi Mavzu: Maktab o’quvchilarini baholash tizimini samarali usullarini yaratuvchi dastur yaratish

Forma2 uchun:
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
if ((Edit1->Text==Form3->Edit1->Text)&&(Edit2->Text==Form3->Edit2->Text))
{
Form1->Show();

}
else

{
ShowMessage("Parol yoki Login xato!") ;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Edit1->Text="" ;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Edit2MouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)
{
Edit2->Text="" ;
}
//---------------------------------------------------------------------------

Forma3 uchun:
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit3.h"

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)

{
String l=Label1->Caption;
String p=Label2->Caption;
Edit1->Text=Label1->Caption;
Edit2->Text=Label2->Caption;
Edit1->Text=Left;
Edit2->Text=Left;
Form3->Close();
}
//---------------------------------------------------------------------------