sampleflow.cpp

某公司资料管理系统

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "SampleFlow.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSampleFlowForm *SampleFlowForm;
//---------------------------------------------------------------------------
__fastcall TSampleFlowForm::TSampleFlowForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSampleFlowForm::FormShow(TObject *Sender)
{
    if (!MastData->Database->InTransaction)
     {
        MastData->Database->StartTransaction();
     }
     MastData->Sample->Open();
     MastData->SampleDetail->Open();
}
//---------------------------------------------------------------------------
void __fastcall TSampleFlowForm::BitBtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TSampleFlowForm::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
   if(MastData->Sample->State==dsEdit||MastData->Sample->State==dsInsert)
   {
      if(MessageBox(NULL,"样板流程资料没有存盘,是否保存?", "警告", MB_YESNO) == IDYES)
         MastData->SampleAfterPost(MastData->Sample);
      else
         MastData->SampleAfterCancel(MastData->Sample);
   }
   CanClose=true;
}
//---------------------------------------------------------------------------

void __fastcall TSampleFlowForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action=caFree;        
}
//---------------------------------------------------------------------------