datamodule.cpp

某公司资料管理系统

    if(InsertRoute&&MIRouteRouteNo->Value==RecordNo&&RecordNo!=0)
    {
       InsertRouteDetail();
       InsertRoute=false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::StandardRouteParamBeforeEdit(TDataSet *DataSet)
{
    StandardRoute->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::CustomerAfterDelete(TDataSet *DataSet)
{
  try
  {
     Customer->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     Customer->CommitUpdates();
     Customer->Refresh();
   }
  catch(...)
  {
     ShowMessage("提交记录不成功!本次您没有删除数据的权限...");
     Database->Rollback();
     Database->StartTransaction();
     Customer->CancelUpdates();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleAfterOpen(TDataSet *DataSet)
{
//    StandardRouteLookup->Open();
    ProductSampleDetail->Open();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleAfterPost(TDataSet *DataSet)
{
   try
     {
         ProductSample->ApplyUpdates();
         ProductSampleDetail->ApplyUpdates();
         Database->Commit();
         Database->StartTransaction();
         ProductSampleDetail->CommitUpdates();
         ProductSample->CommitUpdates();
     }
     catch(...)
     {
         Application->MessageBox("提交记录不成功!您没有增加删除修改数据的权限...", "警告", MB_OK);
         Database->Rollback();
         Database->StartTransaction();
         ProductSampleDetail->CancelUpdates();
         ProductSample->CancelUpdates();
      }
      ProductSample->Refresh();
      ProductSampleDetail->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::BoardAfterDelete(TDataSet *DataSet)
{
  try
  {
     Board->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     Board->CommitUpdates();
     Board->Refresh();
   }
  catch(...)
  {
     ShowMessage("提交记录不成功!您没有删除数据的权限...");
     Database->Rollback();
     Database->StartTransaction();
     Board->CancelUpdates();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleBeforeEdit(TDataSet *DataSet)
{
// ShowMessage("如果已完成不能修改");
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleBeforeDelete(TDataSet *DataSet)
{
    if((MessageBox(NULL,"删除样板资料主单和所有分单?", "警告", MB_YESNO) == IDNO))
     {
        Abort();
     }
     else
     {
        DeleteItems(ProductSampleDetail);
     }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleAfterCancel(TDataSet *DataSet)
{
         ProductSample->CancelUpdates();
         ProductSampleDetail->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleAfterDelete(TDataSet *DataSet)
{
   try
     {
         ProductSampleDetail->ApplyUpdates();
         ProductSample->ApplyUpdates();
         Database->Commit();
         Database->StartTransaction();
         ProductSampleDetail->CommitUpdates();
         ProductSample->CommitUpdates();
     }
     catch(...)
     {
         Application->MessageBox("提交记录不成功!您没有删除数据的权限...", "警告", MB_OK);
         Database->Rollback();
         Database->StartTransaction();
         ProductSampleDetail->CancelUpdates();
         ProductSample->CancelUpdates();
      }
      ProductSample->Refresh();
      ProductSampleDetail->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleDetailBeforeInsert(
      TDataSet *DataSet)
{
     ProductSample->Edit();
//     ProductSampleDetailIsFinish->Value="N";
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleDetailBeforeEdit(TDataSet *DataSet)
{
     ProductSample->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleDetailBeforeDelete(
      TDataSet *DataSet)
{
     ProductSample->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::ProductSampleAfterInsert(TDataSet *DataSet)
{
  //    ProductSampleIsFinish->Value="N";
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteLookupAfterOpen(TDataSet *DataSet)
{
    SampleRouteDLookup->Open();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseBeforePost(TDataSet *DataSet)
{
   if(MIBasePartNo->Value=="")
   {
      ShowMessage("产品编号为空,请重新输入!");
      return;
   }
   if(MIBaseUnitPerPanel1->Value>0&&MIBaseUnitPerPanel2->Value>0&&MIBaseUnitPerSet>0)
   {
      MIBaseAreaPerUnit->Value=MIBaseCutX1->Value*MIBaseCutY1->Value/144/MIBaseUnitPerPanel1->Value;
      MIBaseAreaPerSet->Value=MIBaseUnitPerSet->Value*MIBaseAreaPerUnit->Value;
   }
   else
   {
       ShowMessage("输入数据Unit/Panel=0或其它错误,请查询!");
       Abort();
   }
   if(MIBaseSizePerSetX->Value<MIBaseSizePerUnitX->Value||MIBaseSizePerSetY->Value<MIBaseSizePerUnitY->Value)
   {
        if(MessageBox(NULL,"Set尺寸<UNIT尺寸,是否取消存盘？..","提示",MB_YESNO))
        {
            Abort();
        }
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::CustomerNewRecord(TDataSet *DataSet)
{
      CustomerValid->Value="Y";
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseNewRecord(TDataSet *DataSet)
{
    MIBaseCutX1->Value=0;
    MIBaseCutY1->Value=0;
    MIBaseUnitPerPanel1->Value=1;
    MIBaseCutX2->Value=0;
    MIBaseCutY2->Value=0;
    MIBaseUnitPerPanel2->Value=1;
    MIBasePPE->Value="";
    MIBasePPEAPP->Value="";
    MIBaseQAAPP->Value="";
    MIBaseQACheck->Value="";
}
//---------------------------------------------------------------------------
void __fastcall TMastData::SampleRouteDetailBeforeEdit(TDataSet *DataSet)
{
    SampleRoute->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMastData::DatabaseBeforeConnect(TObject *Sender)
{
      Screen->Cursor = crHourGlass;
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIRouteAfterDelete(TDataSet *DataSet)
{
   if(!DeletingItems)
   {
    // MIRoute->DisableControls();
     InitRD();
     MIRoute->First();
     while(!MIRoute->Eof)
     {
        if(MIRouteRouteNo->Value>RecordNo)
        {
            j=MIRouteRouteNo->Value-1;
            i=0;
            RouteDetail->First();
            while(!RouteDetail->Eof)
            {
               TmpRouteDetail[j][i].ItemNo=RouteDetailItemNo->Value;
               TmpRouteDetail[j][i].Parameter1=RouteDetailName->Value;
               TmpRouteDetail[j][i].Parameter2=RouteDetailParameter->Value;
               TmpRouteDetail[j][i].Parameter3=RouteDetailMemo->Value;
                RouteDetail->Next();
               i++;
            }

            DeleteRouteDetail(RouteDetail);

            RouteDetail->ApplyUpdates();
            Database->Commit();
            Database->StartTransaction();
            RouteDetail->CommitUpdates();

            MIRoute->Edit();
            MIRouteRouteNo->Value=MIRouteRouteNo->Value-1;

        }
        MIRoute->Next();
     }
    // MIRoute->EnableControls();
   }
 }
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseBeforeDelete(TDataSet *DataSet)
{
    if((MessageBox(NULL,"删除基本资料主单和所有分单?", "警告", MB_YESNO) == IDNO))
     {
        Abort();
     }
     else
     {
        DeleteItems(MIRoute);
     }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseCalcFields(TDataSet *DataSet)
{
     MIBaseCutX11->Value=MIBaseCutX1->Value*25.4;
     MIBaseCutX21->Value=MIBaseCutX2->Value*25.4;
     MIBaseCutY11->Value=MIBaseCutY1->Value*25.4;
     MIBaseCutY21->Value=MIBaseCutY2->Value*25.4;
     MIBaseSizePerUnitX1->Value=MIBaseSizePerUnitX->Value*25.4;
     MIBaseSizePerUnitY1->Value=MIBaseSizePerUnitY->Value*25.4;
     MIBaseSizePerSetX1->Value=MIBaseSizePerSetX->Value*25.4;
     MIBaseSizePerSetY1->Value=MIBaseSizePerSetY->Value*25.4;
}
//---------------------------------------------------------------------------
void __fastcall TMastData::PrepregAfterDelete(TDataSet *DataSet)
{
  try
  {
     Prepreg->ApplyUpdates();
     Database->Commit();
     Database->StartTransaction();
     Prepreg->CommitUpdates();
     Prepreg->Refresh();
   }
  catch(...)
  {
     ShowMessage("提交记录不成功!您没有删除数据的权限...");
     Database->Rollback();
     Database->StartTransaction();
     Prepreg->CancelUpdates();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIRouteBeforeClose(TDataSet *DataSet)
{
   RouteDetail->Close();        
}
//---------------------------------------------------------------------------
void __fastcall TMastData::MIBaseBeforeClose(TDataSet *DataSet)
{
    MIRoute->Close();        
}
//---------------------------------------------------------------------------

void __fastcall TMastData::MIDrillNewRecord(TDataSet *DataSet)
{
    if(MastData->MIRouteRouteCode->Value=="FDRL")
    {
        //一次钻
        MIDrillDrillType->Value="FDRL";
        //
    }
    else
    {
       if(MastData->MIRouteRouteCode->Value=="SDRL")
       {
         //二次钻
         MIDrillDrillType->Value="SDRL";  
       }
    }
    MIDrillUnit->Value="U";
}
//---------------------------------------------------------------------------

void __fastcall TMastData::MIDrillBeforeEdit(TDataSet *DataSet)
{
     MIBase->Edit();      
}
//---------------------------------------------------------------------------

void __fastcall TMastData::MIDrillBeforeDelete(TDataSet *DataSet)
{
//   MIBase->Edit();        
}
//---------------------------------------------------------------------------

void __fastcall TMastData::MIDrillBeforeInsert(TDataSet *DataSet)
{
    MIBase->Edit();
}
//---------------------------------------------------------------------------