Manage() provides data management functionality for your application and/or process.
Below is the code for Manage():
//---------------------------------------------------------------------------
void TForm1::Manage()
{
Delete_Records();
Add_Records();
Display_Records();
}
//---------------------------------------------------------------------------
void TForm1::Delete_Records()
{
try
{
while (TabCustMast->RecordCount > 0)
{
TabCustMast->First();
TabCustMast->Delete();
}
}
catch (ECtError &E)
{
Application->ShowException(&E);
}
}
//---------------------------------------------------------------------------
void TForm1::Add_Records()
{
int i;
try
{
for (i=0; i < 4; i++)
{
TabCustMast->Insert();
TabCustMast->FieldByName("cm_custnum")->AsString = RecordData[i][0];
TabCustMast->FieldByName("cm_zip")->AsString = RecordData[i][1];
TabCustMast->FieldByName("cm_state")->AsString = RecordData[i][2];
TabCustMast->FieldByName("cm_rating")->AsString = RecordData[i][3];
TabCustMast->FieldByName("cm_name")->AsString = RecordData[i][4];
TabCustMast->FieldByName("cm_address")->AsString = RecordData[i][5];
TabCustMast->FieldByName("cm_city")->AsString = RecordData[i][6];
TabCustMast->Post();
}
}
catch (ECtError &E)
{
Application->ShowException(&E);
}
}
//---------------------------------------------------------------------------
void TForm1::Display_Records()
{
DataSource1->DataSet = TabCustMast;
DBGrid1->DataSource = DataSource1;
}