Mavzuning dolzarbligi, Inson tafakkuri rivojining manbai ma‘lumotlar

 
ILOVA 
#include  
#pragma hdrstop 
#include "UTaxrir.h" 
#include "UAsosiy.h" 
#include "UDM.h" 
#include "UShaxs.h" 
#include "UXisobot.h" 
#include "fMulklar.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma link "sBitBtn" 
#pragma link "sPanel" 
#pragma resource "*.dfm" 
TfTaxrir *fTaxrir; 
//--------------------------------------------------------------------------- 
__fastcall TfTaxrir::TfTaxrir(TComponent* Owner) 
: TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn8Click(TObject *Sender) 
{ 
DM->tMulk->Insert(); 
fMulk->Caption="Yangi ma'lumotlarni kiritish."; 
fMulk->ShowModal(); 
} 
//--------------------------------------------------------------------------- 

---

94 
void __fastcall TfTaxrir::sBitBtn19Click(TObject *Sender) 
{ 
sPanel4->Visible=false; 
sPanel3->Visible=false; 
sPanel8->Visible=false; 
DM->tMashina->Post(); 
ShowMessage("Saqlandi....!!!"); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn18Click(TObject *Sender) 
{ 
sPanel4->Visible=false; 
sPanel3->Visible=false; 
sPanel8->Visible=false; 
DM->tMashina->Cancel(); 
ShowMessage("Saqlanmadi....!!!"); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn9Click(TObject *Sender) 
{ 
switch(MessageDlg("Rostdan 
o'chirasizmi?",mtInformation,mbYesNoCancel,1)) 
{ 
case mrYes: 
DM->tMulk->Delete(); 
break; 

---

95 
} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn4Click(TObject *Sender) 
{ 
sPanel4->Visible=false; 
sPanel3->Visible=true; 
sPanel8->Visible=false; 
DM->tChorva->Insert(); 
Label5->Caption="Chorva qo'shish."; 
DBEdit9->Text=DBText3->Caption; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn16Click(TObject *Sender) 
{ 
sPanel4->Visible=false; 
sPanel3->Visible=false; 
sPanel8->Visible=false; 
DM->tChorva->Post(); 
ShowMessage("Saqlandi....!!!"); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn17Click(TObject *Sender) 
{ 
sPanel4->Visible=false; 
sPanel3->Visible=false; 

---

96 
sPanel8->Visible=false; 
DM->tChorva->Cancel(); 
ShowMessage("Saqlanmadi....!!!"); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn5Click(TObject *Sender) 
{ 
sPanel4->Visible=false; 
sPanel3->Visible=true; 
sPanel8->Visible=false; 
DM->tChorva->Edit(); 
Label4->Caption="Ma'lumotlarini o'zgartirish."; 
//DBEdit8->Text=DBText3->Caption; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn6Click(TObject *Sender) 
{ 
switch(MessageDlg("Rostdan 
o'chirasizmi?",mtInformation,mbYesNoCancel,1)) 
{ 
case mrYes: 
DM->tChorva->Delete(); 
break; 
} 
} 
//--------------------------------------------------------------------------- 

---

97 
void __fastcall TfTaxrir::sBitBtn7Click(TObject *Sender) 
{ 
sPanel4->Visible=true; 
sPanel3->Visible=false; 
sPanel8->Visible=false; 
DM->tYer->Insert(); 
Label1->Caption="Yangi uchastka qo'shish."; 
DBEdit10->Text=DBText3->Caption; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn14Click(TObject *Sender) 
{ 
sPanel4->Visible=false; 
sPanel3->Visible=false; 
sPanel8->Visible=false; 
DM->tYer->Post(); 
ShowMessage("Saqlandi....!!!"); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn15Click(TObject *Sender) 
{ 
sPanel4->Visible=false; 
sPanel3->Visible=false; 
sPanel8->Visible=false; 
DM->tChorva->Cancel(); 
} 
//--------------------------------------------------------------------------- 

---

98 
void __fastcall TfTaxrir::sBitBtn11Click(TObject *Sender) 
{ 
sPanel4->Visible=true; 
sPanel3->Visible=false; 
sPanel8->Visible=false; 
DM->tYer->Edit(); 
Label1->Caption="Uchastkani ma'lumotlarini o'zgartirish."; 
//DBEdit10->Text=DBText3->Caption; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn12Click(TObject *Sender) 
{ 
switch(MessageDlg("Rostdan 
o'chirasizmi?",mtInformation,mbYesNoCancel,1)) 
{ 
case mrYes: 
DM->tYer->Delete(); 
ShowMessage("O'chirildi...!!!"); 
break; 
} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::PageControl1Change(TObject *Sender) 
{ 
AnsiString id; 
id=DBText3->Caption; 
DM->tMashina->Filtered=false; 

---

99 
DM->tMashina->Filter="A_id='"+id+"'"; 
DM->tMashina->Filtered=true; 
// 
DM->tChorva->Filtered=false; 
DM->tChorva->Filter="A_id='"+id+"'"; 
DM->tChorva->Filtered=true; 
DM->tYer->Filtered=false; 
DM->tYer->Filter="A_id='"+id+"'"; 
DM->tYer->Filtered=true; 
DM->tOilaroy->Filtered=false; 
DM->tOilaroy->Filter="A_id='"+id+"'"; 
DM->tOilaroy->Filtered=true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::FormActivate(TObject *Sender) 
{ 
AnsiString id; 
id=DBText3->Caption; 
DM->tMashina->Filtered=false; 
DM->tMashina->Filter="A_id='"+id+"'"; 
DM->tMashina->Filtered=true; 
// 
DM->tChorva->Filtered=false; 
DM->tChorva->Filter="A_id='"+id+"'"; 
DM->tChorva->Filtered=true; 
DM->tYer->Filtered=false; 

---

100 
DM->tYer->Filter="A_id='"+id+"'"; 
DM->tYer->Filtered=true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn1Click(TObject *Sender) 
{ 
DM->tOilaroy->Insert(); 
fShaxs->ShowModal(); 
fShaxs->Caption="Yangi oila a'zosini qo'shish"; 
// fShaxs->Label1->Caption="Yangi oila a'zosini qo'shish"; 
fShaxs->DBEdit6->Text=fShaxs->DBText1->Caption; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn2Click(TObject *Sender) 
{ 
switch(MessageDlg("Oila 
a'zosini 
o'zgartirmoqchimisiz?",mtInformation,mbYesNoCancel,1)) 
{ 
case mrYes: 
DM->tOilaroy->Delete(); 
break; 
} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn3Click(TObject *Sender) 
{ 

---

101 
DM->tOilaroy->Edit(); 
fShaxs->ShowModal(); 
fShaxs->Caption="Oila a'zosini ma'lumotlarini o'zgartirish"; 
// fShaxs->Label1->Caption="Oila a'zosini ma'lumotlarini o'zgartirish"; 
fShaxs->DBEdit6->Text=fShaxs->DBText1->Caption; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn21Click(TObject *Sender) 
{ 
Close(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::PageControl2Change(TObject *Sender) 
{ 
AnsiString id; 
id=DBText3->Caption; 
DM->tMashina->Filtered=false; 
DM->tMashina->Filter="A_id='"+id+"'"; 
DM->tMashina->Filtered=true; 
// 
DM->tChorva->Filtered=false; 
DM->tChorva->Filter="A_id='"+id+"'"; 
DM->tChorva->Filtered=true; 
DM->tYer->Filtered=false; 
DM->tYer->Filter="A_id='"+id+"'"; 

---

102 
DM->tYer->Filtered=true; 
DM->tOilaroy->Filtered=false; 
DM->tOilaroy->Filter="A_id='"+id+"'"; 
DM->tOilaroy->Filtered=true; 
DM->tMulk->Filtered=false; 
DM->tMulk->Filter="A_id='"+id+"'"; 
DM->tMulk->Filtered=true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn26Click(TObject *Sender) 
{ 
DM->tMulk->Edit(); 
fMulk->Caption="Ma'lumotlarni o'zgartirish."; 
fMulk->ShowModal(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfTaxrir::sBitBtn20Click(TObject *Sender) 
{ 
DM->tMulk->Filtered=false; 
DM->tMulk->Filter="A_id='"+DBText3->Caption+"'"; 
DM->tMulk->Filtered=true; 
//fXisobot->QRLabel4="Xisobot"; 
fXisobot->QuickRep1->Preview(); 
}