⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 password.cpp

📁 企业员工考勤和工资管理系统
💻 CPP
字号:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "PassWord.h"
#include "DM1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormPassWord *FormPassWord;
//---------------------------------------------------------------------------
__fastcall TFormPassWord::TFormPassWord(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormPassWord::FormCreate(TObject *Sender)
{
  pPassWord = GetQuery("Query4");
}
//---------------------------------------------------------------------------
void __fastcall TFormPassWord::FormShow(TObject *Sender)
{
  Edit1->Text = sYhmc;
  pPassWord->Close();
  pPassWord->SQL->Clear();
  pPassWord->SQL->Add("select mima from kq_yonghu where yhmc = '" + sYhmc + "'");
  pPassWord->Open();  
}
//---------------------------------------------------------------------------
void __fastcall TFormPassWord::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pPassWord->Close();
  pPassWord->SQL->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TFormPassWord::BitBtn2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormPassWord::BitBtn1Click(TObject *Sender)
{
  if (Edit2->Text != pPassWord->FieldByName("mima")->AsString)
  {
    ShowMessage("密码错误,请重新输入!");
    Edit2->SetFocus();
    return;
  }
  if (Edit3->Text != Edit4->Text)
  {
    ShowMessage("新密码和确认密码不一致,请重新输入!");
    Edit4->SetFocus();
    return;
  }
  pPassWord->Edit();
  pPassWord->FieldByName("mima")->AsString = Edit3->Text;
  try
  {
    pPassWord->Post();
  }
  catch(Exception &exception )
  {
    ShowMessage("密码修改失败!\n因为:" + exception.Message);
    pPassWord->Cancel();
    return;
  }
  MessageDlg("密码修改成功!",mtInformation,TMsgDlgButtons() << mbOK,0);
  Close();

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -