// U_TeleFejl.cpp
// 21. maj 2001
// Datamatiker, Programmering af store systemer
// Mikkel Munksgaard og Niels Grove-Rasmussen

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

#include <vcl.h>
#pragma hdrstop

#include "U_TeleFejl.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_TeleFejl *Form_TeleFejl;
//---------------------------------------------------------------------------
__fastcall TForm_TeleFejl::TForm_TeleFejl(TComponent* Owner)
	: TForm(Owner) {}
//---------------------------------------------------------------------------

void __fastcall TForm_TeleFejl::FormCreate(TObject *Sender) {
    TTable *slet = new TTable(this);
    slet->TableName = "T_User";
    slet->Active = true;

    slet->Delete();

    delete slet;
}
//---------------------------------------------------------------------------

void __fastcall TForm_TeleFejl::FormActivate(TObject *Sender) {
	while(!getUserId() && Dial_Logon->ShowModal() == mrOk)
   		if(Dial_Logon->Edit_Brugernavn->Text == ""
       	  || Dial_Logon->Edit_Adgangskode->Text == "")
       		MessageDlg("Både Brugernavn og Adgangskode skal angives.",
                       mtError, TMsgDlgButtons() << mbOK, 0);
        else
            setUserId(Dial_Logon->Edit_Brugernavn->Text);
}
//---------------------------------------------------------------------------

void __fastcall TForm_TeleFejl::Butn_UdstyrClick(TObject *Sender) {
	Form_Udstyr->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm_TeleFejl::Butn_IndrapClick(TObject *Sender) {
	Dial_Indrapportering->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm_TeleFejl::Butn_FejlbehClick(TObject *Sender) {
	Form_Fejlbehandling->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm_TeleFejl::FormClose(TObject *Sender,
      TCloseAction &Action) {
	exit(EXIT_SUCCESS);
}
//---------------------------------------------------------------------------

int TForm_TeleFejl::setUserId(const String& _user) {
    int tempUserId(0);

    // verify userid
    TQuery *medarbejder = new TQuery(Form_TeleFejl);

    medarbejder->SQL->Clear();
    medarbejder->SQL->Add("SELECT Id FROM T_Medarbejder");
    medarbejder->SQL->Add("WHERE Initialer = '" + _user + "'");

    medarbejder->Open();
    if(medarbejder->Eof)
        MessageDlg("Person findes ikke i systemet.", mtError,
                   TMsgDlgButtons() << mbRetry, 0);
    else
        tempUserId = medarbejder->FieldByName("Id")->AsInteger;
    medarbejder->Close();

    delete medarbejder;                               // not nessary but nice

    // store userid
    if(tempUserId) {
        TTable *user = new TTable(Form_TeleFejl);
        user->TableName = "T_User";
        user->Active = true;
        user->Insert();
        user->FieldByName("MedarbejderId")->AsInteger = tempUserId;
        user->Post();

        delete user;

        return 0;   // User found
    }
    else return 1;  // FATfuck... ;-) */
}
//---------------------------------------------------------------------------

int TForm_TeleFejl::getUserId() {
    int tempUserId(0);

    TTable *user = new TTable(this);
    user->TableName = "T_User";
    user->Active = TRUE;
    tempUserId = user->FieldByName("MedarbejderId")->AsInteger;

    delete user;

    return tempUserId;
}
//---------------------------------------------------------------------------

void TForm_TeleFejl::Fejl(const String& metode,
                          const String& meddelelse) {
	MessageDlg("Fejl i Form_Telefejl." + metode + ":\n\n" + meddelelse + ".",
    mtError, TMsgDlgButtons() << mbAbort, 0);
    exit(EXIT_FAILURE);
}
//---------------------------------------------------------------------------