Subversion Repositories DevTools

Rev

Rev 2218 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2218 sbetterm 1 
//---------------------------------------------------------------------------
2 
 
3 
#include <vcl.h>
4 
#pragma hdrstop
5 
 
6 
#include "Login.h"
7 
#include "Registry.hpp"
8 
 
9 
//---------------------------------------------------------------------------
10 
#pragma package(smart_init)
11 
#pragma resource "*.dfm"
12 
TLoginForm *LoginForm;
13 
//---------------------------------------------------------------------------
14 
__fastcall TLoginForm::TLoginForm(TComponent* Owner)
15 
	: TForm(Owner)
16 
{
17 
}
18 
//---------------------------------------------------------------------------
19 
void __fastcall TLoginForm::FormShow(TObject *Sender)
20 
{
21 
    TRegistry   *registry = NULL;
22 
 
23 
    try
24 
    {
25 
        registry = new TRegistry();
26 
        registry->RootKey = HKEY_CURRENT_USER;
27 
 
28 
        // True because we want to create it if it doesn't exist
29 
        registry->OpenKey("Software\\ERG\\TxnTestManager", true);
2222 sbetterm 30 
		AnsiString  last_user = registry->ReadString("LastUser");
31 
		AnsiString  database = registry->ReadString("Database");
2218 sbetterm 32 
 
2222 sbetterm 33 
		if (last_user.IsEmpty())
34 
		{
35 
			last_user = "integration";
36 
		}
2218 sbetterm 37 
 
2222 sbetterm 38 
		if (database.IsEmpty())
39 
		{
40 
			database = "REPOS";
41 
		}
42 
 
43 
		UsernameEdit->Text = last_user;
44 
		DatabaseEdit->Text = database;
45 
		PasswordEdit->SetFocus();
46 
	}
2218 sbetterm 47 
    __finally
48 
    {
49 
        delete registry;
50 
    }
51 
}
52 
//---------------------------------------------------------------------------
53 
void __fastcall TLoginForm::LoginOKBtnClick(TObject *Sender)
54 
{
55 
    TRegistry   *registry = NULL;
56 
 
57 
    try
58 
    {
59 
        registry = new TRegistry();
60 
        registry->RootKey = HKEY_CURRENT_USER;
61 
 
62 
        // True because we want to create it if it doesn't exist
2222 sbetterm 63 
		registry->OpenKey("Software\\ERG\\TxnTestManager", true);
64 
		registry->WriteString("LastUser", UsernameEdit->Text);
65 
		registry->WriteString("Database", DatabaseEdit->Text);
66 
	}
67 
	__finally
2218 sbetterm 68 
    {
69 
        delete registry;
70 
    }
71 
}
72 
//---------------------------------------------------------------------------
73