Subversion Repositories DevTools

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

#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;
    }
}
//---------------------------------------------------------------------------