unit1.cpp

来自「第一次尝试开发数据库方面的系统」· C++ 代码 · 共 95 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit3.h"
#include "Unit11.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_denglu *frm_denglu;
//---------------------------------------------------------------------------
__fastcall Tfrm_denglu::Tfrm_denglu(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_denglu::Button1Click(TObject *Sender)
{
  if(Edit1->Text.IsEmpty()||Edit2->Text.IsEmpty())
  {
    if(Edit1->Text.IsEmpty())
      ShowMessage("请输入帐号！");
    if(Edit2->Text.IsEmpty())
      ShowMessage("请输入密码！");
  }
  else
  {
    frm_denglu->ShowModal();
  }

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

void __fastcall Tfrm_denglu::BitBtn1Click(TObject *Sender)
{
  AnsiString str;
  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)
    {
      frm_main->ShowModal();
    }
    else
      ShowMessage("帐号或密码错误！");
  }
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_denglu::BitBtn2Click(TObject *Sender)
{
  Edit1->Clear();
  Edit2->Clear();
  Edit1->SetFocus();
}
//---------------------------------------------------------------------------

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