|
|
bet | 3/3 | Sana | 20.04.2022 | Hajmi | 2,05 Mb. | | #565244 |
| Bog'liq Dasturlash fanidan 1 (2)
Forma4 uchun:
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit4.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn1Click(TObject *Sender)
{
float b=StrToFloat(Edit1->Text);
float a=StrToFloat(DBEdit2->Text);
if(aForm1->ADOTable1->Post();
Form4->Close();
}
else
{
ShowMessage("Ball 5 dan oshmasligi kerak");
DBEdit2->SetFocus();
}
}
//---------------------------------------------------------------------------
Do'stlaringiz bilan baham: |
|
|