sampleroute.cpp

某公司资料管理系统

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

#include "SampleRoute.h"
#include "DataModule.h"
#include "SampleRouteRep.h"
#include "SampleRouteRep1.h"
#include "SampleRouteRep2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSampleRouteForm *SampleRouteForm;
//---------------------------------------------------------------------------
__fastcall TSampleRouteForm::TSampleRouteForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::FormShow(TObject *Sender)
{
  try
  {
    if (!MastData->Database->InTransaction)
     {
        MastData->Database->StartTransaction();
     }
     MastData->SampleRoute->Open();
     MastData->SampleRouteDetail->Open();
  }
  catch(...)
  {
      MessageBox(NULL,"您的权限不够，不能查询标准流程资料表..","提示",MB_OK);
  }
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::BitBtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
   if(MastData->SampleRoute->State==dsEdit||MastData->SampleRoute->State==dsInsert)
   {
      if(MessageBox(NULL,"样板流程资料没有存盘,是否保存?", "警告", MB_YESNO) == IDYES)
         MastData->SampleRoute->Post();
      else
         MastData->SampleRoute->Cancel();
   }
   CanClose=true;
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    MastData->SampleRoute->CachedUpdates=false;
    MastData->SampleRouteDetail->CachedUpdates=false;
 //   Action=caFree;        
}
//---------------------------------------------------------------------------

void __fastcall TSampleRouteForm::DBGrid1Enter(TObject *Sender)
{
     ActiveSource->DataSet=MastData->SampleRoute;
}
//---------------------------------------------------------------------------

void __fastcall TSampleRouteForm::DBGrid2Enter(TObject *Sender)
{
       ActiveSource->DataSet=MastData->SampleRouteDetail;     
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::PreviewBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu2->Popup(SampleRouteForm->Left+Panel2->Left+PreviewBtn->Left+3,SampleRouteForm->Top+Panel2->Top+PreviewBtn->Top+48);
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::PrintBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
      PopupMenu1->Popup(SampleRouteForm->Left+Panel2->Left+PrintBtn->Left+3,SampleRouteForm->Top+Panel2->Top+PrintBtn->Top+48);
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::N3Click(TObject *Sender)
{
    SampleRouteRepForm->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::N5Click(TObject *Sender)
{
    SampleRouteRepForm->QuickRep1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::N2Click(TObject *Sender)
{
    SampleRouteRep1Form->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::N4Click(TObject *Sender)
{
    SampleRouteRep2Form->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::N1Click(TObject *Sender)
{
    SampleRouteRep1Form->QuickRep1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TSampleRouteForm::N6Click(TObject *Sender)
{
    SampleRouteRep2Form->QuickRep1->Print();
}
//---------------------------------------------------------------------------




void __fastcall TSampleRouteForm::BitBtn1Click(TObject *Sender)
{
/*    MastData->StandardRoute->Open();
    MastData->StandardRoute->First();
    while(!MastData->StandardRoute->Eof)
    {
      MastData->SampleRouteDetail->Insert();
      MastData->SampleRouteDetailItemNo->Value=MastData->StandardRouteRouteNo->Value;
      MastData->SampleRouteDetailRouteCode->Value=MastData->StandardRouteRouteCode->Value;
      MastData->SampleRouteDetail->Post();
      MastData->StandardRoute->Next();
    }
*/
}
//---------------------------------------------------------------------------