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

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "U_TeknikerNy.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TDial_TeknikerNy *Dial_TeknikerNy;
//---------------------------------------------------------------------
__fastcall TDial_TeknikerNy::TDial_TeknikerNy(TComponent* AOwner)
	: TForm(AOwner) {}
//---------------------------------------------------------------------

void __fastcall TDial_TeknikerNy::FormActivate(TObject *Sender) {
    Edit_Initialer->Clear();
    Edit_Navn->Clear();
    Edit_Navn->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TDial_TeknikerNy::OKBtnClick(TObject *Sender) {
    if(!setTekniker())
        ModalResult = mrOk;
}
//---------------------------------------------------------------------------

int __fastcall TDial_TeknikerNy::setTekniker() {
    TTable *tekniker = new TTable(this);
    tekniker->TableName = "T_Medarbejder";
    tekniker->Active = true;

    tekniker->Insert();
    // Initialer ----------
    if(Edit_Initialer->Text != "")
        tekniker->FieldByName("Initialer")->AsString = Edit_Initialer->Text;
    else {
        MessageDlg("Der er ikke valgt initialer.", mtError,
                   TMsgDlgButtons() << mbRetry, 0);
        delete tekniker;
        Edit_Initialer->SetFocus();
        return 1;
    }
    // Person ----------
    if(Edit_Navn->Text != "") {
        tekniker->FieldByName("PersonId")->AsInteger = setPerson();
    }
    else {
        MessageDlg("Der er ikke valgt navn.", mtError,
                   TMsgDlgButtons() << mbRetry, 0);
        delete tekniker;
        Edit_Navn->SetFocus();
        return 1;
    }
    tekniker->Post();

    delete tekniker;

    return 0;
}
//---------------------------------------------------------------------------

int __fastcall TDial_TeknikerNy::setPerson() {
    TTable *person = new TTable(this);
    person->TableName = "T_Person";
    person->Active = true;

    person->Insert();
    person->FieldByName("Navn")->AsString = Edit_Navn->Text;
    person->Post();

    return person->FieldByName("Id")->AsInteger;
}