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

#include <vcl.h>
#pragma hdrstop

#include "Login.h"
#include "Registry.hpp"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TLoginForm *LoginForm;
//---------------------------------------------------------------------------
__fastcall TLoginForm::TLoginForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TLoginForm::FormShow(TObject *Sender)
{
    TRegistry   *registry = NULL;

    try
    {
        registry = new TRegistry();
        registry->RootKey = HKEY_CURRENT_USER;

        // True because we want to create it if it doesn't exist
        registry->OpenKey("Software\\ERG\\TxnTestManager", true);
		AnsiString  last_user = registry->ReadString("LastUser");
		AnsiString  database = registry->ReadString("Database");

		if (last_user.IsEmpty())
		{
			last_user = "integration";
		}

		if (database.IsEmpty())
		{
			database = "REPOS";
		}

		UsernameEdit->Text = last_user;
		DatabaseEdit->Text = database;
		PasswordEdit->SetFocus();
	}
    __finally
    {
        delete registry;
    }
}
//---------------------------------------------------------------------------
void __fastcall TLoginForm::LoginOKBtnClick(TObject *Sender)
{
    TRegistry   *registry = NULL;

    try
    {
        registry = new TRegistry();
        registry->RootKey = HKEY_CURRENT_USER;

        // True because we want to create it if it doesn't exist
		registry->OpenKey("Software\\ERG\\TxnTestManager", true);
		registry->WriteString("LastUser", UsernameEdit->Text);
		registry->WriteString("Database", DatabaseEdit->Text);
	}
	__finally
    {
        delete registry;
    }
}
//---------------------------------------------------------------------------