rdb

Unit 1

void __fastcall TForm1::Button1Click(TObject *Sender)
{

Form2->Show();

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

void __fastcall TForm1::Button2Click(TObject *Sender)
{

Form3->Show();

int liczba, ilosc;

float suma, cena;

String s;

s = StrToInt(Edit1->Text);

suma = 0;
liczba = 0;

DataModule6->TowaryTable->First();

while (! DataModule6->TowaryTable->Eof) {

ilosc = DataModule6->TowaryTable->Fields->Fields[2]->AsInteger;

cena = DataModule6->TowaryTable->Fields->Fields[3]->AsFloat;

if (ilosc > s) {

suma = suma + cena;

liczba = liczba + 1;

}

DataModule6->TowaryTable->Next();

}

if (!liczba)liczba = 1;

Form3->Label1->Caption=FloatToStr(suma/liczba);

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

void __fastcall TForm1::Button3Click(TObject *Sender)
{
 int ilosc;
 float cena;

 String s;

 TLocateOptions Opts;

 Opts.Clear();

 Form4->Memo1->Clear();

 DataModule6->TowaryTable->First();

 while (! DataModule6->TowaryTable->Eof){

 if (DataModule6->TowaryTable->Fields->Fields[3]->AsFloat < StrToFloat(Edit2->Text)){

 s = DataModule6->TowaryTable->Fields->Fields[0]->AsString + " " + DataModule6->TowaryTable->Fields->Fields[2]->AsInteger + " ";

 ilosc = DataModule6->TowaryTable->Fields->Fields[2]->AsInteger;
 cena = DataModule6->TowaryTable->Fields->Fields[3]->AsFloat;

 Form4->Memo1->Lines->Add(s + FloatToStr(DataModule6->TowaryTable->Fields->Fields[3]->AsFloat) + " " + (ilosc*cena));

 }

 DataModule6->TowaryTable->Next();

 }

 Form4->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{

DataModule6->TowaryTable->Insert();

Form7->ShowModal();

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

Unit 7

void __fastcall TForm7::Button1Click(TObject *Sender)
{
if (DBEdit1->Field->AsString == ""){

ShowMessage("Pole Nazwa musi byc wypelnione");

DBEdit1->SetFocus();

return;

};

if (DBEdit2->Field->AsString == ""){

ShowMessage("Pole jednostka musi byc wypelnione");

DBEdit2->SetFocus();

return;

};

if ((DBEdit3->Field->AsString == "") || (DBEdit3->Field->AsString < 0)) {

ShowMessage("Pole ilosc musi byc wypelnione");

DBEdit1->SetFocus();

return;

};

if ((DBEdit4->Field->AsString == "") || (DBEdit4->Field->AsString < 0)){

ShowMessage("Pole Cena musi byc wypelnione");

DBEdit1->SetFocus();

return;

};

try
{

DataModule6->TowaryTable->Post();

}
catch (Exception &e){ShowMessage("Niepoprawna wartosc");

DBEdit1->SetFocus();

return;

}

DataModule6->TowaryTable->Refresh();

Close();
}
//---------------------------------------------------------------------------

Komponenty DBGrid należy rozmieścić jeden pod drugim. Pozostałe komponenty są
niewizualne i mogą być rozmieszczone na formatce projektowej dowolnie.
Dla opisu tabel dodać dwie etykiety Label i rozmieścić nad komponentami DBGrid.
Skonfigurowanie właściwości komponentów powinno być następujące:
IBDatabase1:
DatabaseName: nazwa i ścieżka pliku bazy
DefaultTransaction: wybrać IBTransaction1
Connected: True
IBTable1:
DataBase: wybrać IBDatabase1
TableName: wybrać DRUZYNY
Active: True
IBTable2:
DataBase: wybrać IBDatabase1
TableName: wybrać ZAWODNICY
Active: True
DataSource1:
DataSet: wybrać IBTable1
DataSource2:
DataSet: wybrać IBTable2
DBGrid1:
DataSource: wybrać DataSource1
DBGrid2:
DataSource: wybrać DataSource2
Label1:
Caption: ‘Tabela DRUZYNY’
Label2:
Caption: ‘Tabela ZAWODNICY
Wpisywanie wartości właściwości Connected lub Active może powodować wyświetlanie
okienka logowania do bazy danych.

https://www61.zippyshare.com/v/yUWrCaq9/file.html
https://wklejaj.pl/rcb1
https://wklejaj.pl/instrukcje