// U_Logon.cpp // 21. maj 2001 // Datamatiker, Programmering af store systemer // Mikkel Munksgaard og Niels Grove-Rasmussen //--------------------------------------------------------------------- #include #pragma hdrstop #include "U_Logon.h" //--------------------------------------------------------------------- #pragma resource "*.dfm" TDial_Logon *Dial_Logon; //--------------------------------------------------------------------- __fastcall TDial_Logon::TDial_Logon(TComponent* AOwner) : TForm(AOwner) {} //--------------------------------------------------------------------- void __fastcall TDial_Logon::FormActivate(TObject *Sender) { Edit_Brugernavn->Clear(); Edit_Adgangskode->Clear(); Edit_Brugernavn->SetFocus(); } //--------------------------------------------------------------------------- void TDial_Logon::Fejl(const String& metode, const String& meddelelse) { MessageDlg("Fejl i Dial_Logon." + metode + ":\n\n" + meddelelse + ".", mtError, TMsgDlgButtons() << mbAbort, 0); exit(EXIT_FAILURE); } //---------------------------------------------------------------------------