📄 password.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 + -