unit13.~cpp

第一次尝试开发数据库方面的系统

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

#include <vcl.h>
#pragma hdrstop

#include "Unit13.h"
#include "Unit11.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_modify *frm_modify;
//---------------------------------------------------------------------------
__fastcall Tfrm_modify::Tfrm_modify(TComponent* Owner)
  : TForm(Owner)
{

    Width= 289;
    Height= 317;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_modify::BitBtn1Click(TObject *Sender)
{
  str="select * from 管理员资料 where 帐号=\"";
  str+=Edit1->Text+"\""+" and 密码=\"";
  str+=Edit2->Text+"\"";
  if(Edit1->Text.IsEmpty()||Edit2->Text.IsEmpty())
  {
    if(Edit1->Text.IsEmpty())
    {
      ShowMessage("请输入帐号！");
      Edit1->SetFocus();
    }
    if(Edit2->Text.IsEmpty())
    {
      ShowMessage("请输入密码！");
      Edit2->SetFocus();
    }
  }
  else
  {
    try
    {
      DM->mQuery->Close();
      DM->mQuery->SQL->Clear();
      DM->mQuery->SQL->Add(str);
      DM->mQuery->ExecSQL();
      DM->mQuery->Active=true;
    }
    catch(Exception &exception)
    {
      ShowMessage("数据库出现错误！");
    }
    if(DM->mQuery->RecordCount)
    {
      if(Edit3->Text.IsEmpty()&&Edit3->Text.IsEmpty())
      {
        ShowMessage("密码不能为空！");
        Edit3->SetFocus();
      }
      else
        if(Edit3->Text!=Edit4->Text)
        {
          ShowMessage("密码不一致！");
          Edit3->Clear();
          Edit4->Clear();
          Edit3->SetFocus();
        }
        else
        {
          DM->mQuery->Edit();
          DM->mQuery->FieldByName("密码")->AsString=Edit3->Text;
          DM->mQuery->Post();
          DM->mQuery->Close();
          ShowMessage("密码修改成功！");
        }

    }
  }
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_modify::BitBtn2Click(TObject *Sender)
{
  Edit1->Clear();
  Edit2->Clear();
  Edit3->Clear();
  Edit4->Clear();
  Edit1->SetFocus(); 
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_modify::Edit1KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
    Edit2->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_modify::Edit2KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
    Edit3->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_modify::Edit3KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
    Edit4->SetFocus();    
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_modify::Edit4KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
    BitBtn1Click(this);  
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_modify::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  Action=caFree;
}
//---------------------------------------------------------------------------