tsfree.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "TsFree.h"
#include "commfunction.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
#define ParaState "10508" //库存当前状态参数
TfrmTsFree *frmTsFree;
//---------------------------------------------------------------------------
__fastcall TfrmTsFree::TfrmTsFree(TComponent* Owner)
        : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmTsFree::FormInit()
{

 seCurDate->Text=g_sdCurDate;
 seCurUser->Text=g_sdUserCode;
 TComResultSet *pResultSet=NewResultSet();
 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 > 3)
 {
  throw Exception("当前库存状态无效");
 }
 scState->ItemIndex=iValue;
 switch(iValue)
 {
  case 2:
   chkTsFree->Checked=false;
   chkTsFree->Enabled=true;
   btnOK->Enabled=false;
   break;
  default:
   chkTsFree->Enabled=false;
   btnOK->Enabled=false;
   break;
 }
 switch(iValue)
 {
  case 0:
   lblNotes->Caption="提示：系统正在初始化，无需解除盘点状态";
   break;
  case 1:
   lblNotes->Caption="提示：系统处于正常状态";
   break;
  case 2:
   lblNotes->Caption="提示：单击并选中盘点状态选择框";
   break;
  case 3:
   lblNotes->Caption="提示：系统正在盘点，不能解除盘点状态";
   break;
  default:
   break;
 }
 delete pResultSet;
}
//---------------------------------------------------------------------------
void __fastcall TfrmTsFree::chkTsFreeClick(TObject *Sender)
{
 btnOK->Enabled=chkTsFree->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TfrmTsFree::btnOKClick(TObject *Sender)
{
 TComResultSet *pResultSet=NewResultSet();
 AnsiString strSQL;
 try
 {
   strSQL=" update sdparameter set parametervalue=1";
   strSQL=strSQL+" where parametercode = '"+ParaState+"'";
   try
   {
    pResultSet->Execute(strSQL);
   }
   catch(Exception &e)
   {
    throw Exception(e.Message);
   }
   pResultSet->Close();
 }
 __finally
 {
   delete pResultSet;
 }
 frmTsFree->Close();
}
//---------------------------------------------------------------------------

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


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