Mavzu: Universitetda talabalar davomati elektron jurnali

Unit 2
//---------------------------------------------------------------------------
#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "System.Classes.TPersistent"
#pragma resource "*.dfm"
TDM *DM;
//---------------------------------------------------------------------------
__fastcall TDM::TDM(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------


Unit 3
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit3.h"

#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
if (DBEdit1->Text.Trim()=="") {
ShowMessage("Ismni kiriting!!!");
DBEdit1->SetFocus();
} else if (DBEdit2->Text.Trim()=="") {
ShowMessage("Familyani kiriting!!!");
DBEdit2->SetFocus();
} else if (DBEdit3->Text.Trim()=="") {
ShowMessage("Yonalishni kiriting!!!");
DBEdit3->SetFocus();
} else if (DBEdit4->Text.Trim()=="") {
ShowMessage("Guruhni kiriting!!!");
DBEdit4->SetFocus();
} else {
DM->ADOTable1->Post();
Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn2Click(TObject *Sender)
{
DM->ADOTable1->Cancel();
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)

{
DM->ADOTable1->Cancel();
}
//---------------------------------------------------------------------------


Unit 5
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit5.h"

#include "Unit6.h"
#include "Unit1.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
Form6->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn2Click(TObject *Sender)
{
Form1->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn3Click(TObject *Sender)
{
Form7->ShowModal();
}
//---------------------------------------------------------------------------


Unit 6
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit6.h"

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn1Click(TObject *Sender)
{
DM->ADOTable1->Post();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::DBEdit1Change(TObject *Sender)
{
if (!(DBEdit1->Text==1 || DBEdit1->Text==0)) {
DBEdit1->Text="";
}
}
//---------------------------------------------------------------------------


Unit 7
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit7.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------