passwordmid.cpp

停车场用

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

#include <vcl.h>
#pragma hdrstop

#include "PassWordMid.h"
#include "DataModle.h"
#include "Global.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TwPassWordMid *wPassWordMid;
//---------------------------------------------------------------------------
__fastcall TwPassWordMid::TwPassWordMid(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TwPassWordMid::FormActivate(TObject *Sender)
{
    ME_OldPassWord->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TwPassWordMid::BitB_CloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TwPassWordMid::BitB_OkClick(TObject *Sender)
{
    //密码辨识
    AnsiString cOldPassWord = "";
    AnsiString cNewPassWord = "";
    AnsiString cNewPassWordR = "";
    if (Trim(ME_OldPassWord->Text)==""||ME_OldPassWord->Text==NULL)
    {
        Application->MessageBox("请输入该操作旧密码！", "提示信息", MB_OK);
        ME_OldPassWord->SetFocus();
        return;
    }
    if (Trim(ME_NewPassWord->Text)==""||ME_NewPassWord->Text ==NULL )
    {
        Application->MessageBox("请输入操作员新密码！", "提示信息", MB_OK);
        ME_NewPassWord->SetFocus();
        return;
    }
    if (Trim(ME_NewPassWordR->Text)==""||ME_NewPassWordR->Text ==NULL )
    {
        Application->MessageBox("请重复输入操作员新密码！", "提示信息", MB_OK);
        ME_NewPassWordR->SetFocus();
        return;
    }
    cOldPassWord = Trim(ME_OldPassWord->Text);
    cNewPassWord = Trim(ME_NewPassWord->Text);
    cNewPassWordR = Trim(ME_NewPassWordR->Text);
    if (cNewPassWord == cNewPassWordR)
    {
        Screen->Cursor = crHourGlass ;
        PDataModule->ADOQuery_PassWMid->Close();
        PDataModule->ADOQuery_PassWMid->Prepared;
        PDataModule->ADOQuery_PassWMid->Parameters->ParamByName("tmpName")->Value = gcOperationName;
        PDataModule->ADOQuery_PassWMid->Parameters->ParamByName("tmpPassWord")->Value =cOldPassWord ;
        PDataModule->ADOQuery_PassWMid->Open();
        if (PDataModule->ADOQuery_PassWMid->RecordCount>0)
        {
            //替换旧密码。
            AnsiString ls_sql;
            ls_sql="update PassWord  set PassWord.PassWord = '"+cNewPassWordR+"'";
            ls_sql=ls_sql+"  where PassWord.Name ='"+gcOperationName+"'";
            PDataModule->ADOCommand->CommandText=ls_sql;
            PDataModule->ADOCommand->Execute();
            Application->MessageBox("密码修改成功！", "提示信息", MB_OK);
            ME_OldPassWord->Text="";
            ME_NewPassWord->Text="";
            ME_NewPassWordR->Text="";
            ME_OldPassWord->SetFocus();
            PDataModule->ADOQuery_PassWMid->Close();
            Screen->Cursor = crDefault ;
        }
        else
        {
            Application->MessageBox("你不是合法的操作用户,请与管理员联系！！", "提示信息", MB_OK);
            Screen->Cursor = crDefault ;
            return;
        }
    }
    else
    {
        Application->MessageBox("输入的新密码不一致！", "提示信息", MB_OK);
        Screen->Cursor = crDefault ;
        return;
    }
}
//---------------------------------------------------------------------------