datamodule.cpp

某公司资料管理系统

       if(HaveInsertRoute)
       {
          RecordNo=RecordNo;
          InsertRoute=true;
          InsertRouteDetail();
          InsertRoute=false;
          HaveInsertRoute=false;
       }
    }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseAfterDelete(TDataSet *DataSet)
{
 //  try
   {
      RouteDetail->ApplyUpdates();
      MIRoute->ApplyUpdates();
      MIDrill->ApplyUpdates();
      MIBase->ApplyUpdates();
      Database->Commit();
      Database->StartTransaction();
      MIBase->CommitUpdates();
      MIDrill->CommitUpdates();
      MIRoute->CommitUpdates();
      RouteDetail->CommitUpdates();
    }
 /*   catch(...)
    {
      ShowMessage("您的权限不够，不能删除数据...");
      Database->Rollback();
      Database->StartTransaction();
      RouteDetail->CancelUpdates();
      MIRoute->CancelUpdates();
      MIDrill->CancelUpdates();
      MIBase->CancelUpdates();
    }
 */
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseAfterCancel(TDataSet *DataSet)
{
     RouteDetail->CancelUpdates();
     MIRoute->CancelUpdates();
     MIBase->CancelUpdates();
    // MainMenuForm->UpdateMenu();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseBeforeInsert(TDataSet *DataSet)
{
       if(MIBase->State==dsInsert||MIBase->State==dsEdit||MIBase->State==dsSetKey)
       {
          if((MessageBox(NULL,"正在处理基本资料,存盘然后再新增?", "警告", MB_YESNO) == IDYES))
          {
             MIBase->Post();
          }
          else
          {
              Abort();
          }
       }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseAfterOpen(TDataSet *DataSet)
{
    MIRoute->Open();
    MIDrill->Open();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIRouteAfterOpen(TDataSet *DataSet)
{
    RouteDetail->Open();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteAfterCancel(TDataSet *DataSet)
{
     SampleRouteDetail->CancelUpdates();
     SampleRoute->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteAfterDelete(TDataSet *DataSet)
{
  try
  {
     SampleRoute->ApplyUpdates();
     SampleRouteDetail->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     SampleRoute->CommitUpdates();
     SampleRouteDetail->CommitUpdates();
  }
  catch(...)
  {
     ShowMessage("提交记录不成功!您没有删除数据的权限..");
     Database->Rollback();
     Database->StartTransaction();
     SampleRouteDetail->CancelUpdates();
     SampleRoute->CancelUpdates();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteAfterOpen(TDataSet *DataSet)
{
   SampleRouteDetail->Open();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteAfterPost(TDataSet *DataSet)
{
  try
  {
     SampleRoute->ApplyUpdates();
     SampleRouteDetail->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     SampleRoute->CommitUpdates();
     SampleRouteDetail->CommitUpdates();
  }
  catch(...)
  {
     ShowMessage("提交记录不成功!您没有删除数据的权限...");
     Database->Rollback();
     Database->StartTransaction();
     SampleRouteDetail->CancelUpdates();
     SampleRoute->CancelUpdates();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteBeforeDelete(TDataSet *DataSet)
{
    if((MessageBox(NULL,"删除样板流程主单和所有分单?", "警告", MB_YESNO) == IDNO))
     {
        Abort();
     }
     else
     {
        DeleteItems(SampleRouteDetail);
     }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteBeforeInsert(TDataSet *DataSet)
{
       if(SampleRoute->State==dsInsert||SampleRoute->State==dsEdit||SampleRoute->State==dsSetKey)
       {
          if((MessageBox(NULL,"正在处理基本资料,存盘然后再新增?", "警告", MB_YESNO) == IDYES))
          {
             SampleRoute->Post();
          }
          else
          {
              Abort();
          }
       }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIRouteBeforeEdit(TDataSet *DataSet)
{
   MIBase->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::StandardRouteAfterCancel(TDataSet *DataSet)
{
     StandardRouteParam->CancelUpdates();
     StandardRoute->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::StandardRouteAfterPost(TDataSet *DataSet)
{
  try
  {
     StandardRoute->ApplyUpdates();
     StandardRouteParam->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     StandardRouteParam->CommitUpdates();
     StandardRoute->CommitUpdates();
  }
  catch(...)
  {
     ShowMessage("提交记录不成功!您没有修改删除增加数据的权限..");
     Database->Rollback();
     Database->StartTransaction();
     StandardRouteParam->CancelUpdates();
     StandardRoute->CancelUpdates();
    }
     StandardRoute->Refresh();
     StandardRouteParam->Refresh();

}
//---------------------------------------------------------------------------
void __fastcall TMastData::StandardRouteAfterDelete(TDataSet *DataSet)
{
  try
  {
     StandardRoute->ApplyUpdates();
     StandardRouteParam->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     StandardRoute->CommitUpdates();
     StandardRouteParam->CommitUpdates();
  }
  catch(...)
  {
     ShowMessage("提交记录不成功!本次删除数据作废..");
     Database->Rollback();
     Database->StartTransaction();
     StandardRouteParam->CancelUpdates();
     StandardRoute->CancelUpdates();
   }
     StandardRoute->Refresh();
     StandardRouteParam->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::StandardRouteParamBeforeInsert(
      TDataSet *DataSet)
{
    StandardRoute->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::StandardRouteParamBeforeDelete(
      TDataSet *DataSet)
{
     StandardRoute->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteDetailBeforeInsert(TDataSet *DataSet)
{
    SampleRoute->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteDetailBeforeDelete(TDataSet *DataSet)
{
    SampleRoute->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteDetailAfterEdit(TDataSet *DataSet)
{
    SampleRoute->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteBeforeClose(TDataSet *DataSet)
{
    SampleRouteDetail->Close();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::CustomerAfterPost(TDataSet *DataSet)
{
  try
  {
     Customer->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     Customer->CommitUpdates();
     Customer->Refresh();
   }
  catch(...)
  {
     ShowMessage("提交记录不成功!您没有修改删除增加数据的权限...");
     Database->Rollback();
     Database->StartTransaction();
     Customer->CancelUpdates();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::CustomerAfterCancel(TDataSet *DataSet)
{
     Customer->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::BoardAfterCancel(TDataSet *DataSet)
{
    Board->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::BoardAfterPost(TDataSet *DataSet)
{
  try
  {
     Board->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     Board->CommitUpdates();
     Board->Refresh();
   }
  catch(...)
  {
     ShowMessage("提交记录不成功!您没有修改删除增加数据的权限...");
     Database->Rollback();
     Database->StartTransaction();
     Board->CancelUpdates();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::PrepregAfterCancel(TDataSet *DataSet)
{
    Prepreg->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::PrepregAfterPost(TDataSet *DataSet)
{
  try
  {
     Prepreg->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     Prepreg->CommitUpdates();
     Prepreg->Refresh();
   }
  catch(...)
  {
     ShowMessage("提交记录不成功!您没有修改删除增加数据的权限..");
     Database->Rollback();
     Database->StartTransaction();
     Prepreg->CancelUpdates();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::RouteDetailBeforeEdit(TDataSet *DataSet)
{
   MIBase->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::DatabaseAfterConnect(TObject *Sender)
{
    InsertingMIRoute=false;
    InsertingRouteDetail=false;
    DeletingRouteDetail=false;
    DeletingItems=false;
    InsertRoute=false;
    DeleteRoute=false;
    Screen->Cursor = crDefault;
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIRouteLookupAfterOpen(TDataSet *DataSet)
{
    RouteDetailLookup->Open();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseLookupAfterOpen(TDataSet *DataSet)
{
    MIRouteLookup->Open();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIRouteAfterPost(TDataSet *DataSet)
{