close.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 127 行

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

#include <vcl.h>
#pragma hdrstop

#include "Close.h"
#include "commfunction.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
#define ParaState "10508" //库存当前状态参数
TfrmCloseMS *frmCloseMS;
//---------------------------------------------------------------------------
__fastcall TfrmCloseMS::TfrmCloseMS(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
       : TStdBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmCloseMS::FormInit()
{
 btnOK->Enabled=false;
 seCurDate->Text=g_sdCurDate;
 seCurUser->Text=g_sdUserCode;
 TComResultSet *pResultSet=new TComResultSet(Handle,g_ClientHandle);
 AnsiString strSQL;
 int iValue;
 strSQL=" select parametercode,parametervalue from sdparameter ";
 strSQL=strSQL+" where parametercode = '"+ParaState+"'";
 pResultSet->Open(strSQL,"");
 pResultSet->MoveFirst();
 if(!pResultSet->Eof)
   iValue=StrToIntDef(pResultSet->FieldByName("parametervalue"),-1);
 else
   iValue=-1;
 pResultSet->Close();
 if(iValue < 0 || iValue > 5)
 {
  throw Exception("当前库存状态无效");
  
 }
 scState->ItemIndex=iValue;
 switch(iValue)
 {
  case 4:
   btnOK->Enabled=true;
   break;
  default:
   btnOK->Enabled=false;
   //throw Exception("当前库存不是结帐状态");
   break;
 }
 switch(iValue)
 {
  case 0:
   lblNotes->Caption="提示：系统正在初始化，不能结帐";
   break;
  case 1:
   lblNotes->Caption="提示：请设置结帐状态";
   break;
  case 2:
   lblNotes->Caption="提示：系统处于盘点状态，不能结帐";
   break;
  case 3:
   lblNotes->Caption="提示：系统正在盘点，不能结帐";
   break;
  case 4:
   lblNotes->Caption="提示：系统处于结帐状态，请单击<库存结帐>";
   break;
  case 5:
   lblNotes->Caption="提示：系统正在结帐";
   break;

  default:
   break;
 }
 delete pResultSet;
}
//---------------------------------------------------------------------------

void __fastcall TfrmCloseMS::btnCancelClick(TObject *Sender)
{
 frmCloseMS->Close();
}
//---------------------------------------------------------------------------


void __fastcall TfrmCloseMS::FormShow(TObject *Sender)
{
 FormInit();
}
//---------------------------------------------------------------------------




void __fastcall TfrmCloseMS::btnOKClick(TObject *Sender)
{
 TComResultSet *pResultSet=new TComResultSet(Handle,g_ClientHandle);
 AnsiString strSQL;
 try
 {
   strSQL="ksMacc_Stock_Close";
   StartWaitForm("正在结帐,请稍候...");
   try
   {
    pResultSet->Execute(strSQL);
   }
   catch(Exception &e)
   {
    throw Exception(e.Message);
   }
   pResultSet->Close();
 }
 __finally
 {
   EndWaitForm();
   delete pResultSet;
 }
 MessageBox(Handle,"库存已结帐!","提示：",MB_OK);
 frmCloseMS->Close();

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