" dasturlash ii"

Dasturning kod qismi:
1-formaning kod qismi
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->ShowModal();
ADOQuery1->Insert();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
ADOQuery1->Close();
ADOQuery1->SQL->Text=" select * from royhat where FISH like '%"+Edit1->Text.Trim()+"%' ";
ADOQuery1->Open();

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{
}
//---------------------------------------------------------------------------
2-formaning kod qismi
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
Form1->ADOQuery1->Post();
Form2->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormCreate(TObject *Sender)

{
}
//---------------------------------------------------------------------------