writekeyunit.cpp

16人格测试 16人格测试 16人格测试 16人格测试

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

#include <vcl.h>
#pragma hdrstop

#include "WriteKeyUnit.h"
#include "LoginUnit.h"
#include "DMUnit.h"
#include "global.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_WriteKey *frm_WriteKey;

//---------------------------------------------------------------------------
__fastcall Tfrm_WriteKey::Tfrm_WriteKey(TComponent* Owner)
		: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_WriteKey::bsSkinButtonLabel2Click(TObject *Sender)
{
        this->Close();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_WriteKey::bsSkinButtonLabel1Click(TObject *Sender)
{
	AnsiString SQL_TEXT,WRTKEY;
	SQL_TEXT = "";
    WRTKEY = "";

   //设定口令不能为空
   if(RzMaskEdit1->Text.IsEmpty())
    {
		MessageBox(0, "口令不能为空，请再重新输入一次。",Application->Title.c_str(), MB_OK + MB_ICONSTOP);
		RzMaskEdit1->SetFocus();
		return;
	}
	else
	{
		if(RzMaskEdit1->Text != RzMaskEdit2->Text )
		{
		 MessageBox(0, "输入口令不一致，请再试一次。",Application->Title.c_str(), MB_OK + MB_ICONSTOP);
		 return;
		}
		else
		{

		   TADOQuery *Wrt_Key = new TADOQuery(this);
		   //设定口令可为空
		   if(RzMaskEdit1->Text.IsEmpty())
		   {
				WRTKEY = "";
		   }
		   else
		   {

				WRTKEY = RzMaskEdit2->Text;
		   }

		   //SQL_TEXT = "update Operator set Operator.Password = \"" + WRTKEY + "\" where LoginId = \""+ LoginForm->Com_Name->Text.Trim() + "\"";
		   SQL_TEXT = "update Operator set Operator.Password = \"" + WRTKEY + "\" where LoginId = \""+ AUser + "\"";

		   Wrt_Key->Close();
		   Wrt_Key->Connection = DM->conn;

		   //  ShowMessage(SQL_TEXT);

		   Wrt_Key->SQL->Clear();
		   Wrt_Key->SQL->Add(SQL_TEXT);
		   Wrt_Key->ExecSQL();

           delete Wrt_Key;

           this->ModalResult = mbOK;
		}
  
	}
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_WriteKey::RzMaskEdit1KeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
        if(Key == 13)
                RzMaskEdit2->SetFocus();        
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_WriteKey::RzMaskEdit2KeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
        if(Key == 13)
               bsSkinButtonLabel1Click(this);
}
//---------------------------------------------------------------------------