standardroute.cpp

某公司资料管理系统

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

#include "StandardRoute.h"
#include "DataModule.h"
#include "StandardRouteRep.h"
#include "StandardRouteRep1.h"
#include "StandardRouteRep2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TStandardRouteForm *StandardRouteForm;
//---------------------------------------------------------------------------
__fastcall TStandardRouteForm::TStandardRouteForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::FormShow(TObject *Sender)
{
   try
   {
     if (!MastData->Database->InTransaction)
     {
        MastData->Database->StartTransaction();
     }
     MastData->StandardRoute->Open();
     MastData->StandardRouteParam->Open();
     MastData->StandardRoute->CachedUpdates=true;
     MastData->StandardRouteParam->CachedUpdates=true;
     MastData->StandardRoute->Open();
     MastData->StandardRouteParam->Open();
   }
   catch(...)
   {
      MessageBox(NULL,"您的权限不够，不能查询标准工序资料表..","提示",MB_OK);
   }
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::CloseBtnClick(TObject *Sender)
{
/*    MastData->Database->Commit();
    MastData->Database->StartTransaction();
    MastData->StandardFlow->CommitUpdates();
    StandardFlowForm->Close();
  */
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
   if(MastData->StandardRoute->State==dsEdit||MastData->StandardRoute->State==dsInsert)
   {
      if(MessageBox(NULL,"标准流程资料没有存盘,是否保存?", "警告", MB_YESNO) == IDYES)
         MastData->StandardRouteAfterPost(MastData->StandardRoute);
      else
         MastData->StandardRouteAfterCancel(MastData->StandardRoute);
   }
   MastData->StandardRoute->CachedUpdates=false;
   MastData->StandardRouteParam->CachedUpdates=false;
   CanClose=true;
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
//     Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::DBGrid1Enter(TObject *Sender)
{
       ActiveSource->DataSet=MastData->StandardRoute;
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::DBGrid3ColEnter(TObject *Sender)
{
      ActiveSource->DataSet=MastData->StandardRouteParam;
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::N1Click(TObject *Sender)
{
     StandardRouteRep1Form->QuickRep1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::N4Click(TObject *Sender)
{
      StandardRouteRep2Form->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::N2Click(TObject *Sender)
{
     StandardRouteRep1Form->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::N3Click(TObject *Sender)
{
     StandardRouteRepForm->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::N5Click(TObject *Sender)
{
     StandardRouteRepForm->QuickRep1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::N6Click(TObject *Sender)
{
     StandardRouteRep2Form->QuickRep1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::PreviewBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu2->Popup(StandardRouteForm->Left+Panel7->Left+PreviewBtn->Left+3,StandardRouteForm->Top+Panel7->Top+PreviewBtn->Top+48);
}
//---------------------------------------------------------------------------
void __fastcall TStandardRouteForm::PrintBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
      PopupMenu1->Popup(StandardRouteForm->Left+Panel7->Left+PrintBtn->Left+3,StandardRouteForm->Top+Panel7->Top+PrintBtn->Top+48);
}
//---------------------------------------------------------------------------