unit2.cpp

控制程序,可以作界面设计,这是质量高而且本站没有的源码。

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
    login = false;
}
//---------------------------------------------------------------------------


void __fastcall TForm2::Button1Click(TObject *Sender)
{
     if(user->Text!="USER" || pswd->Text!="password")
         MessageDlg("用户名或密码错！", mtWarning, TMsgDlgButtons() << mbYes, 0);
     else
     {
        login = true;
        MessageBox(NULL,"欢迎您！","Hello!",MB_OK);
        this->Close();
     }
}
//---------------------------------------------------------------------------
bool TForm2::isLogin()
{
    return login;
}
//---------------------------------------------------------------------------


void __fastcall TForm2::Button2Click(TObject *Sender)
{
    this->Close();
}
//---------------------------------------------------------------------------