| claus |
| Отправлено: 09.12.2003, 16:44 |
|
Не зарегистрирован
|
Подскажите как использовать сабж. Небольшой примерчик хотя бы |
|
| ** pasha |
| Отправлено: 10.12.2003, 18:33 |
|
Не зарегистрирован
|
| CODE |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// много похожих свойств в DBSecurity(он есть в Help)
RxLoginDialog1->Active = true;
if(RxLoginDialog1->Login()) ShowMessage("Login");
else ShowMessage("No Login");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RxLoginDialog1CheckUser(TObject *Sender,
const AnsiString UserName, const AnsiString Password,
bool &AllowLogin)
{
if(UserName == "Petrov" &&
Password == "1234567") AllowLogin = true;
else AllowLogin = false;
}
//------------------------------------------------------------
|
|
|
|
