passwd.cpp

售后服务系统优质的售后服务是企业生存和市场竞争的保障

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "Passwd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dxfQuickTyp"
#pragma resource "*.dfm"
TPassForm *PassForm;
//---------------------------------------------------------------------------
__fastcall TPassForm::TPassForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TPassForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TPassForm::BitBtn2Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------
void __fastcall TPassForm::FormClose(TObject *Sender, TCloseAction &Action)
{
        MainForm->ADOConnection1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TPassForm::BitBtn1Click(TObject *Sender)
{
        if( Edit1->Text.Trim()=="") {
                Edit1->SetFocus();
                Application->MessageBox("请输入新密码","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if( Edit2->Text.Trim()=="") {
                Edit2->SetFocus();
                Application->MessageBox("请再次输入新密码","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(Edit1->Text != Edit2->Text) {
                Edit1->SetFocus();
                Application->MessageBox("两次输入的新密码不相同","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuery1->Close();
        ADOQuery1->Parameters->ParamByName("P_rybh")->Value = MainForm->MyLoginBh;
        ADOQuery1->Open();
        ADOQuery1->Edit();
        ADOQuery1->FieldByName("passwd")->AsString = Edit1->Text;
        ADOQuery1->Post();
        Application->MessageBox("密码修改成功","恭喜",MB_OK);
        Close();
}
//---------------------------------------------------------------------------