customer.cpp

某公司资料管理系统

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

#include "Customer.h"
#include "DataModule.h"
#include "CustomerRep.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCustomerForm *CustomerForm;
//---------------------------------------------------------------------------
__fastcall TCustomerForm::TCustomerForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCustomerForm::DBEditCustNoKeyPress(TObject *Sender,
      char &Key)
{
   if(int(Key)==13)
   {
      Key=char(0);
      Perform(WM_NEXTDLGCTL,0,0);
   }
}
//---------------------------------------------------------------------------
void __fastcall TCustomerForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if(MastData->Customer->State == dsEdit ||
        MastData->Customer->State == dsInsert)
    {
       if(MessageBox(NULL,"客户资料没有存盘,是否保存?", "警告", MB_YESNO) == IDYES)
          MastData->CustomerAfterPost(MastData->Customer);
       else
          MastData->CustomerAfterCancel(MastData->Customer);
    }
    CanClose=true;

}
//---------------------------------------------------------------------------
void __fastcall TCustomerForm::FormShow(TObject *Sender)
{
   try
   {
      MastData->Customer->Open();
   }
   catch(...)
   {
         MessageBox(NULL,"您的权限不够，不能查询客户资料表..","提示",MB_OK);
   }
}
//---------------------------------------------------------------------------
void __fastcall TCustomerForm::BitBtn3Click(TObject *Sender)
{
    CustomerRepForm->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TCustomerForm::BitBtn2Click(TObject *Sender)
{
    CustomerRepForm->QuickRep1->Print();
}
//---------------------------------------------------------------------------