login.cpp

一个简单的企业进销存管理系统,对于新手学习c++builder很有帮助的,用的是BC++6.0,数据库是sql server 2000

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

#include <vcl.h>
#pragma hdrstop

#include "login.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmLogin *fmLogin;
//---------------------------------------------------------------------------
__fastcall TfmLogin::TfmLogin(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmLogin::edUserCodeExit(TObject *Sender)
{
    if(edUserCode->Text.IsEmpty())
        return;
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    AnsiString sql;
    sql = "select 姓名,密码 from 用户清单 where 用户编号 = '" + edUserCode->Text + "'";
    pQuery->SQL->Add(sql);
    pQuery->Open();
    TField* pField = pQuery->FieldByName("姓名");
    if(pField->IsNull)
    // 不存在该用户
    {
        edUserCode->Text = "";
        edUserName->Text = "";
        edPassword->Text = "";
        edUserCode->SetFocus();
    }
    else   // 显示用户名
    {
        edUserName->Text = pField->AsString;
        m_szUserCode = edUserCode->Text;
        m_szUserName = pField->AsString;
        m_szPassword = pQuery->FieldByName("密码")->AsString;
    }
    // 释放空间
    delete pQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfmLogin::edUserCodeKeyPress(TObject *Sender, char &Key)
{
    if(Key == 13)
        edPassword->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfmLogin::btLoginClick(TObject *Sender)
{
    if(!m_szUserName.IsEmpty() && m_szPassword == edPassword->Text)
    // 密码正确
    {
        this->Close();
    }
    else   // 密码错误
    {
        edPassword->Text = "";
        edPassword->SetFocus();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfmLogin::btExitClick(TObject *Sender)
{
        m_szUserCode = "";
        m_szUserName = "";
        m_szPassword = "";
        this->Close();
}
//---------------------------------------------------------------------------

void __fastcall TfmLogin::edPasswordKeyPress(TObject *Sender, char &Key)
{
    if(Key == 13)
        btLoginClick(NULL);
}
//---------------------------------------------------------------------------