怎么更改密码

如何更改密码
编写人事管理软件,打开程序时需要输入密码,我是这样实现的:
void   __fastcall   TForm2::Button2Click(TObject   *Sender)
{
if   (Edit2-> Text==Edit3-> Text)
//密码窗体自动关闭,并打开人事管理主窗体
Close();
else
ShowMessage( "密码错误，请重新输入密码 ");              
}
我想实现修改密码,请问如何实现
新建修改密码窗体为Form4  
需要输入原密码(Edit1),新密码(Edit2)再一次输入新密码(Edit3)   然后确认(Button1)或取消(Button2)   请问源代码如何写?

[解决办法]
再加一个按钮关联修改密码的FORM就可以呀。
[解决办法]
// 属性设置
fomrMain-> Visible = false; // main form
formPass-> Visible = true;
//------------------------------

formPass show;
if 输入密码正确 then
显示 主窗体
formMain-> Visible = true;
else
show 密码错误


[解决办法]
想实现修改密码,请问如何实现
新建修改密码窗体为Form4
需要输入原密码(Edit1),新密码(Edit2)再一次输入新密码(Edit3) 然后确认(Button1)或取消(Button2) 请问源代码如何写?
－－－－－－－－－－－－－÷
其实你已经可以做了，关键就是把代码写在button1的事件里
void __fastcall TForm4::Button1Click(TObject *Sender)
{
//从数据表里的秘密与edit1的密码对比，
if ( pass==edit1-> Text)
{
if (Edit2-> Text==Edit3-> Text)
{
showmessage( "密码更改成功 ");
}else ....

}
}