Создание клиентского win-приложения

Код для добавления:

void __fastcall TForm1::Button3Click(TObject *Sender)

{

DataModule2->IBStoredProc1->StoredProcName="ADD_GR";

DataModule2->IBStoredProc1->ParamByName("NAME_GRYPA")->AsString=Edit3->Text;

DataModule2->IBStoredProc1->ParamByName("NUM_ROOM")->AsString=Edit4->Text;

DataModule2->IBStoredProc1->Prepare();

DataModule2->IBStoredProc1->ExecProc();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery1->Open();

DataModule2->IBQuery2->Open();

DataModule2->IBQuery3->Open();

Edit3->Text="";

Edit4->Text="";

}

Код для изменения:

void __fastcall TForm1::Button4Click(TObject *Sender)

{

DataModule2->IBStoredProc1->StoredProcName="UPD_GR";

DataModule2->IBStoredProc1->ParamByName("ID")->AsString=Edit7->Text;

DataModule2->IBStoredProc1->ParamByName("GRYPA")->AsString=Edit5->Text;

DataModule2->IBStoredProc1->ParamByName("NUM_ROOM")->AsString=Edit6->Text;

DataModule2->IBStoredProc1->Prepare();

DataModule2->IBStoredProc1->ExecProc();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery1->Open();

DataModule2->IBQuery2->Open();

DataModule2->IBQuery3->Open();

Edit6->Text="";

Edit5->Text="";

Edit7->Text="";

}

Код для удаления:

void __fastcall TForm1::Button5Click(TObject *Sender)

{

DataModule2->IBStoredProc1->StoredProcName="DEL_GR";

DataModule2->IBStoredProc1->ParamByName("ID")->AsString=Edit8->Text;

DataModule2->IBStoredProc1->Prepare();

DataModule2->IBStoredProc1->ExecProc();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery1->Open();

DataModule2->IBQuery2->Open();

DataModule2->IBQuery3->Open();

Edit8->Text="";

}

Поиск помощью хранимой процедуры:

void __fastcall TForm1::Edit2Change(TObject *Sender)

{

if(RadioButton6->Checked)

{

DataModule2->IBQuery1->Close();

DataModule2->IBQuery1->SQL->Clear();

DataModule2->IBQuery1->SQL->Add("select * from P_GROUP_NAME(:GR)");

DataModule2->IBQuery1->ParamByName("GR")->AsString=Edit2->Text;

DataModule2->IBQuery1->Open();

}

if(RadioButton7->Checked)

{

DataModule2->IBQuery1->Close();

DataModule2->IBQuery1->SQL->Clear();

DataModule2->IBQuery1->SQL->Add("select * from P_GROUP_ROOM(:ROM)");

DataModule2->IBQuery1->ParamByName("ROM")->AsString=Edit2->Text;

DataModule2->IBQuery1->Open();

}}

Фильтрация с помощью хранимой процедуры:

void __fastcall TForm1::Edit1Change(TObject *Sender)

{

if(RadioButton4->Checked)

{

DataModule2->IBQuery1->Close();

DataModule2->IBQuery1->SQL->Clear();

DataModule2->IBQuery1->SQL->Add("select * from F_GROUP_NAME(:GR)");

DataModule2->IBQuery1->ParamByName("GR")->AsString=Edit1->Text;

DataModule2->IBQuery1->Open();

}

if(RadioButton5->Checked)

{

DataModule2->IBQuery1->Close();

DataModule2->IBQuery1->SQL->Clear();

DataModule2->IBQuery1->SQL->Add("select * from F_GROUP_ROOM(:ROM)");

DataModule2->IBQuery1->ParamByName("ROM")->AsString=Edit1->Text;

DataModule2->IBQuery1->Open();

}}

Сортировка с помощью просмотра по номеру дома:

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

DataModule2->IBQuery1->Active=false;

DataModule2->IBQuery1->SQL->Clear();

DataModule2->IBQuery1->SQL->Add("select * from S_GROUP_ID");

DataModule2->IBQuery1->Active=true;

Form1->DBGrid1->DataSource=DataModule2->DataSource2;

}

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

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

DataModule2->IBQuery1->Active=false;

DataModule2->IBQuery1->SQL->Clear();

DataModule2->IBQuery1->SQL->Add("select * from S_GROUP_NAME");

DataModule2->IBQuery1->Active=true;

Form1->DBGrid1->DataSource=DataModule2->DataSource2;

}

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

void __fastcall TForm1::RadioButton3Click(TObject *Sender)

{

DataModule2->IBQuery1->Active=false;

DataModule2->IBQuery1->SQL->Clear();

DataModule2->IBQuery1->SQL->Add("select * from S_GROUP_ROOM");

DataModule2->IBQuery1->Active=true;

Form1->DBGrid1->DataSource=DataModule2->DataSource2;}

ПРИЛОЖЕНИЕ 3