Простая логиница

void selec(String sql) {
    Form1->ADOQuery1->Close();
    Form1->ADOQuery1->SQL->Clear();
    Form1->ADOQuery1->SQL->Add(sql);
    Form1->ADOQuery1->Open();
}
 
void __fastcall TForm1::Button1Click(TObject *Sender) {
 
    if ((Edit1->Text != "") && (Edit2->Text != "")) {
 
        String sql1 = "SELECT [Login] FROM Users WHERE [Login] ='" +
            Form1->Edit1->Text + "'";
        selec(sql1);
        if (ADOQuery1->RecordCount == 0) {
            ShowMessage("Извините,нет такого пользователя!");
            this->Edit1->SetFocus();
            return;
        }
 
        String sql = "SELECT * FROM Users WHERE [Login]='" +
            Form1->Edit1->Text + "' AND StrComp([Password],'" +
            Form1->Edit2->Text + "',0)=0";
        selec(sql);
        if (ADOQuery1->RecordCount == 0) {
            ShowMessage("Вы неверно ввели пароль!");
            this->Edit2->SetFocus();
        }
        else {
            AnsiString checkLogin = this->ADOQuery1->FieldByName("Login")
                ->AsAnsiString;
            if (checkLogin != "admin") {
                this->Hide();
                Form3->Show(); // показываем пользовательский интерфейс
            }
            else {
                this->Hide();
                Form2->Show();  // показываем админский интерфейс
            }
        }
    }
 
    else {
        MessageDlg("Заполните, пожалуйста все данные!", mtWarning,
            TMsgDlgButtons() << mbOK, 0);
 
        if (Edit1->Text == "") {
            Edit1->SetFocus();
            return;
        }
        if (Edit2->Text == "") {
            Edit2->SetFocus();
        }
    }
}