chpassword.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "ChPassWord.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDEdit"
#pragma resource "*.dfm"
#include "Func.h"
#include "sdappserver_tlb.h"
TfrmChPassWord *frmChPassWord;
//---------------------------------------------------------------------------
__fastcall TfrmChPassWord::TfrmChPassWord(TComponent* Owner)
        : TStdBaseForm(Owner)
{
        seUserName->Caption=g_sdUserName;
        seNewPa->Text="";
        seNewPaCh->Text="";
}
//---------------------------------------------------------------------------


void __fastcall TfrmChPassWord::btOkClick(TObject *Sender)
{
      AnsiString Passtemp;
      TComResultSet *UserResultSet=NewResultSet();
      if(seNewPa->Text==seNewPaCh->Text)
      {

          if(Application->MessageBox("密码更改成功，请记住新密码.","操作正确",MB_OKCANCEL)==IDOK)
          {
             Passtemp=EncAndDec(seNewPa->Text);
             UserResultSet->Execute("update sduser set userpassword='"+Passtemp+"' where usercode='"+g_sdUserCode+"'");
             ClearEdit();
             Close();
          }
          else
          {
            seNewPa->SetFocus();
          }
      }
      else
      {
          if(Application->MessageBox("密码更改错误！","操作错误",MB_RETRYCANCEL)==IDRETRY)
              seNewPa->SetFocus();
          else
          {
              ClearEdit();
              Close();
          }
      }
      delete UserResultSet;

}
//---------------------------------------------------------------------------
void __fastcall TfrmChPassWord::btCacelClick(TObject *Sender)
{
       ClearEdit();
       Close();
}
//---------------------------------------------------------------------------
void  TfrmChPassWord::ClearEdit()
{
      seNewPa->Text="";
      seNewPaCh->Text="";
}

void __fastcall TfrmChPassWord::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  this->Visible=false;
  Application->ProcessMessages();
  g_ClientComm->DelMsgForm(this->Name);
  Action=caFree;  
}
//---------------------------------------------------------------------------