tsset.cpp

来自「速达开源ERP系统」· C++ 代码 · 共 122 行

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

#include <vcl.h>
#pragma hdrstop

#include "TsSet.h"
#include "commfunction.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
#define ParaState "10508" //库存当前状态参数
TfrmTsSet *frmTsSet;
//---------------------------------------------------------------------------
__fastcall TfrmTsSet::TfrmTsSet(TComponent* Owner)
        : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmTsSet::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 1:
   chkTsSet->Checked=false;
   chkTsSet->Enabled=true;
   btnOK->Enabled=false;
   break;
  default:
   chkTsSet->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 TfrmTsSet::chkTsSetClick(TObject *Sender)
{
 btnOK->Enabled=chkTsSet->Checked;
}
//---------------------------------------------------------------------------

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

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

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


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