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

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

#include "U_KundeNy.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TDial_KundeNy *Dial_KundeNy;
//---------------------------------------------------------------------
__fastcall TDial_KundeNy::TDial_KundeNy(TComponent* AOwner)
	: TForm(AOwner) {}
//---------------------------------------------------------------------
void __fastcall TDial_KundeNy::FormActivate(TObject *Sender) {
    Edit_Navn->Clear();
    Edit_Adresse->Clear();
    Edit_Telefonnr->Clear();
    Edit_Navn->SetFocus();
}
//---------------------------------------------------------------------------

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

int __fastcall TDial_KundeNy::setKunde() {
    TTable *kunde = new TTable(this);
    kunde->TableName = "T_Kunde";
    kunde->Active = true;

    kunde->Insert();
    // Adresse ----------
    if(Edit_Adresse->Text != "")
        kunde->FieldByName("Adresse")->AsString = Edit_Adresse->Text;
    else {
        MessageDlg("Der er ikke indtastet en adresse.", mtError,
                   TMsgDlgButtons() << mbRetry, 0);
        delete kunde;
        Edit_Adresse->SetFocus();
        return 1;
    }
    // Telefonnr ----------
    if(Edit_Telefonnr->Text != "")
        kunde->FieldByName("Telefonnr")->AsString = Edit_Telefonnr->Text;
    else {
        MessageDlg("Der er ikke valgt telefonnummer.", mtError,
                   TMsgDlgButtons() << mbRetry, 0);
        delete kunde;
        Edit_Telefonnr->SetFocus();
        return 1;
    }
    // Person ----------
    if(Edit_Navn->Text != "") {
        kunde->FieldByName("PersonId")->AsInteger = setPerson();
    }
    else {
        MessageDlg("Der er ikke valgt navn.", mtError,
                   TMsgDlgButtons() << mbRetry, 0);
        delete kunde;
        Edit_Navn->SetFocus();
        return 1;
    }
    kunde->Post();

    delete kunde;

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

int __fastcall TDial_KundeNy::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;
}