baseboard.cpp

某公司资料管理系统

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

#include "BaseBoard.h"
#include "DataModule.h"
#include "BaseBoardRep.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TBaseBoardForm *BaseBoardForm;
//---------------------------------------------------------------------------
__fastcall TBaseBoardForm::TBaseBoardForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TBaseBoardForm::FormShow(TObject *Sender)
{
  if (!MastData->Database->InTransaction)
   {
    MastData->Database->StartTransaction();
    }
    try
    {
       MastData->Board->Open();
    }
    catch(...)
    {
         MessageBox(NULL,"您的权限不够，不能查询板料资料表..","提示",MB_OK);
    }
}
//---------------------------------------------------------------------------
void __fastcall TBaseBoardForm::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
   if(MastData->Board->State==dsEdit||MastData->Board->State==dsInsert)
   {
      if(MessageBox(NULL,"客户资料没有存盘,是否保存?", "警告", MB_YESNO) == IDYES)
         MastData->BoardAfterPost(MastData->Board);
      else
         MastData->BoardAfterCancel(MastData->Board);
   }
   CanClose=true;

}
//---------------------------------------------------------------------------




void __fastcall TBaseBoardForm::BitBtn3Click(TObject *Sender)
{
    BaseBoardRepForm->QuickRep1->Preview();        
}
//---------------------------------------------------------------------------

void __fastcall TBaseBoardForm::BitBtn2Click(TObject *Sender)
{
    BaseBoardRepForm->QuickRep1->Print();                
}
//---------------------------------------------------------------------------