Korxona tashkilotlarda konsilariya xizmatlarini avtomatlashtirish dasturiy ta’minoti

Uni2.cpp

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

#include
#pragma hdrstop

#include "Unit2.h"

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

void __fastcall TForm2::Edit1Change(TObject *Sender)

{
String sapa = "SELECT * FROM buyumlar where buyumnomi like '"+Edit1->Text+"%'";
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sapa);
ADOQuery1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit2Change(TObject *Sender)
{
String sapa = "SELECT * FROM dokumentlar where doknomi like '"+Edit2->Text+"%'";
ADOQuery2->Close();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add(sapa);
ADOQuery2->Open();
}
//---------------------------------------------------------------------------

Unit3.cpp
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit3.h"

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

void __fastcall TForm3::SpeedButton1Click(TObject *Sender)

{
String ss,jamoa,oyin,galaba,durang,yutq,tn,och,k;
jamoa=Edit1->Text;
oyin=Edit2->Text;
galaba=Edit3->Text;
durang=Edit4->Text;
yutq=Edit5->Text;
tn=Edit6->Text;
och=Edit7->Text;
if (ComboBoxEx1->Text=="Buyumlar")k="buyumlar";
if (ComboBoxEx1->Text=="Xujjatlar")k="dokumentlar";

ss="INSERT INTO "+k+"(jamoa,oyin,galaba,durang,maglubiyat,tn,ochko) "

"VALUES('"+jamoa+"','"+oyin+"','"+galaba+"','"+durang+"','"+yutq+"','"+
tn+"','"+och+"')";

ADOQuery1->Close();

ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(ss);
ADOQuery1->ExecSQL();

String sss="SELECT * FROM "+k;

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sss);
ADOQuery1->Open();
Close();
}
//---------------------------------------------------------------------------