edcontracts.cpp

用VC++编写关于仓库销售管理系统的程序,很有用的哟

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "edcontracts.h"
//#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEdContractForm *EdContractForm;
TMastData *MastData;
//---------------------------------------------------------------------------
__fastcall TEdContractForm::TEdContractForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void _fastcall TEdContractForm::Enter()
{
 MastData->ContractsSource->OnStateChange=ContractsSourceStateChange;
 try
 {
  //打开数据表Contracts，并设置为插入模式
  MastData->Contracts->Open();
  MastData->Contracts->Insert();
  //打开Customer表
  MastData->CustByCon->Open();
  //打开数据表Contracts
  MastData->Contracts->Open();
  //以模态方式显示窗体
  ShowModal();
 }
 catch(...)
 {
  MastData->ContractsSource->OnStateChange=NULL;
  return;
 }
 MastData->ContractsSource->OnStateChange=NULL;
}
//---------------------------------------------------------------------------
void _fastcall TEdContractForm::Edit(double ContractsNo)//ContractsNo)
{
 MastData->ContractsSource->OnStateChange=ContractsSourceStateChange;
 try
 {
  TLocateOptions flags;
  MastData->Contracts->Open();
  MastData->Contracts->Locate("ContractsNo",ContractsNo,flags);
  ShowModal();
 }
 catch(...)
 {
  MastData->ContractsSource->OnStateChange=NULL;
  return;
 }
 MastData->ContractsSource->OnStateChange=NULL;
}
//---------------------------------------------------------------------------
void _fastcall TEdContractForm::ContractsSourceStateChange(TObject * Sender)
{
 //该方法主要用于根据contracts表状态的变化控制三个按钮是否可选择
 SaveBtn->Enabled=((MastData->Contracts->State==dsEdit)||
                  (MastData->Contracts->State==dsInsert)||
                  (MastData->Contracts->State==dsSetKey));
 CancelBtn->Enabled=SaveBtn->Enabled;
 CloseBtn->Enabled=(MastData->Contracts->State==dsBrowse);
}