login.cpp

银行账户管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "Login.h"
#include "Manage.h"
#include "Client.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIButton"
#pragma link "SUIComboBox"
#pragma link "SUIEdit"
#pragma link "SUIForm"
#pragma resource "*.dfm"
#pragma Username="" Password=""
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    if(suiComboBox1->Text=="请选择")
    {
        Edit1->Enabled=false;
        Edit2->Enabled=false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::suiComboBox1Change(TObject *Sender)
{
    if(suiComboBox1->Text=="客   户")
    {
        Edit1->Text="";
        Edit2->Text="";
        Edit1->Enabled=false;
        Edit2->Enabled=false;
    }
    else
        if(suiComboBox1->Text=="业务员")
        {
            Edit1->Text="";
            Edit2->Text="";
            Edit1->Enabled=true;
            Edit2->Enabled=true;
        }
        else
        {
            Edit1->Text="";
            Edit2->Text="";
            Edit1->Enabled=false;
            Edit2->Enabled=false;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::suiButton2Click(TObject *Sender)
{
    if(suiComboBox1->Text=="业务员")
        if(Edit1->Text!=""&&Edit2->Text!="")
        {
            ADOQuery1->SQL->Clear();
            ADOQuery1->SQL->Add("select * from admin where adminno='"+Edit1->Text+"'");
            ADOQuery1->Open();
            if(!ADOQuery1->IsEmpty())
                if(Edit2->Text==ADOQuery1->FieldByName("adminpasswd")->Value)
                {
                    ADOQuery1->SQL->Clear();
                    ADOQuery1->SQL->Add("select * from admin where adminno='"+Edit1->Text+"'");
                    ADOQuery1->Open();
                    Form2->suiEdit1->Text=Edit1->Text;
                    Form2->suiStatusBar1->Panels->Items[6]->Text=ADOQuery1->FieldByName("adminname")->Value;
                    String sa=ADOQuery1->FieldByName("superadmin")->Value;
                    if(sa=="1")
                    {
                        Form2->suiButton16->Enabled=true;
                        Form2->suiButton17->Enabled=true;
                        Form2->suiCheckBox1->Enabled=true;
                    }
                    else
                    {
                        Form2->suiButton16->Enabled=false;
                        Form2->suiButton17->Enabled=false;
                        Form2->suiCheckBox1->Enabled=false;
                    }
                    Form2->Show();
                    delete Form1;
                }
                else
                {
                    Edit2->Text="";
                    MessageBox(NULL,"对不起！你的认证密码不正确，无法登录。","错误提示",MB_ICONHAND);
                }
            else
            {
                MessageBox(NULL,"对不起！该管理员不存在。","错误提示",MB_ICONHAND);
                Edit1->Text="";
                Edit2->Text="";
            }
        }
        else
            MessageBox(NULL,"对不起！请输入身份认证信息。","错误提示",MB_ICONHAND);
    if(suiComboBox1->Text=="客   户")
    {
            Form3->Show();
            delete Form1;
    }    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::suiButton1Click(TObject *Sender)
{
    exit(0);
}
//---------------------------------------------------------------------------