passwd.cpp

一个用VC写的超市管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "passwd.h"
#include "data.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfm_passwd *fm_passwd;
//---------------------------------------------------------------------------
__fastcall Tfm_passwd::Tfm_passwd(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfm_passwd::FormShow(TObject *Sender)
{
    Left=200;
    Top=200;
    dm_data->ds_passwd->Close();
    dm_data->ds_passwd->Open();
    pass1->Text="";
    pass2->Text="";

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

void __fastcall Tfm_passwd::pass1Exit(TObject *Sender)
{
    pass2->Text="";
}
//---------------------------------------------------------------------------

void __fastcall Tfm_passwd::pass2Exit(TObject *Sender)
{
    if(pass1->Text!=pass2->Text)
    {
        Application->MessageBoxA("两次输入的密码不一致,请重新输入","提示",MB_OK);
        pass1->Text="";
        pass2->Text="";
        pass1->SetFocus();
    }
}
//---------------------------------------------------------------------------

void __fastcall Tfm_passwd::Button1Click(TObject *Sender)
{
    if(pass1->Text=="" || pass2->Text=="")
    {
        Application->MessageBoxA("密码不能为空,请重新输入","提示",MB_OK);
        pass1->Text="";
        pass2->Text="";
        pass1->SetFocus();
        return;
    }
    dm_data->ds_passwd->Edit();
    dm_data->ds_passwd->FieldByName("code")->AsString=pass1->Text;
    dm_data->ds_passwd->Post();
    dm_data->ds_passwd->Close();
    Close();
}
//---------------------------------------------------------------------------

void __fastcall Tfm_passwd::Button2Click(TObject *Sender)
{
    dm_data->ds_passwd->Close();
    Close();

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

void __fastcall Tfm_passwd::Button3Click(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------


void __fastcall Tfm_passwd::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    dm_data->ds_passwd->Close();    
}
//---------------------------------------------------------------------------