MeConnectForm.pas

unit MeConnectForm;

interface

uses
  System.SysUtils,
  System.Types,
  System.UITypes,
  System.Classes,
  System.Variants,
  System.IniFiles,
  Data.DB,
  FMX.Types,
  FMX.Controls,
  FMX.Forms,
  FMX.Dialogs,
  FMX.Objects,
  FMX.Menus,
  FMX.Grid,
  FMX.ExtCtrls,
  FMX.ListBox,
  FMX.TreeView,
  FMX.Memo,
  FMX.TabControl,
  FMX.Layouts,
  FMX.Edit,
  FMX.Platform,
  FMX.Bind.DBEngExt,
  FMX.Bind.Editors,
  FMX.Bind.DBLinks,
  FMX.Bind.Navigator,
  Data.Bind.EngExt,
  Data.Bind.Components,
  Data.Bind.DBScope,
  Data.Bind.DBLinks,
  Datasnap.DBClient,
  Fmx.Bind.Grid,
  System.Rtti,
  System.Bindings.Outputs,
  Data.Bind.Grid,
  Fmx.StdCtrls,
  FMX.Header,
  FMX.Graphics;

type
  TMeConnectForm = class(TForm)
    btConnect: TButton;
    btCancel: TButton;
    btDetails: TButton;
    gbAdvanced: TGroupBox;
    btClear: TButton;
    gbConnect: TGroupBox;
    edUsername: TEdit;
    lbUsername: TLabel;
    lbPassword: TLabel;
    edPassword: TEdit;
    edServer: TComboBox;
    lbServer: TLabel;
    lbPort: TLabel;
    edPort: TEdit;
    edmDatabase: TComboBox;
    lbmDatabase: TLabel;
    cbSavePassword: TCheckBox;
    Image1: TImage;
    lbCharSet: TLabel;
    edCharSet: TEdit;
    edcDatabase: TComboBox;
    lbcDatabase: TLabel;
    edrDatabase: TComboBox;
    lbrDatabase: TLabel;
    procedure btConnectClick(Sender: TObject);
    procedure edServerDropDown(Sender: TObject);
    procedure GetDataBases(Sender: TObject);
    procedure edExit(Sender: TObject);
    procedure btDetailsClick(Sender: TObject);
    procedure btClearClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edServerChange(Sender: TObject);

  private
    FListGot : boolean;
    procedure SaveSettings;
    procedure LoadSettings;
    procedure SavePassword;
    procedure LoadPassword;
    procedure GetServerList(Items: TStrings);
  protected
    procedure DoInit;
    procedure DoConnect;
  end;

implementation

uses MainUnit, MyDataModule, Functions, Registry;

{$R *.FMX}

procedure TMeConnectForm.DoInit;
begin
  FListGot := false;
   if (edUsername.Text <> '') and (edPassword.Text = '') then
      ActiveControl := edPassword;
  LoadSettings;
  if cbSavePassword.Checked then begin
    LoadPassword;
  end;
end;

procedure TMeConnectForm.DoConnect;
begin
  edExit(nil);
  MainForm.CharDBName := edcDatabase.Text;
  MainForm.RealmDBName := edrDatabase.Text;
  try
    if (MainForm.MyTrinityConnection.Connected=true) then
      MainForm.MyTrinityConnection.Close;
    MainForm.MyTrinityConnection.Open;
    if Trim(edCharSet.Text) <> '' then
    begin
      MainForm.MyTempQuery.SQL.Text := Format('SET NAMES %s',[edCharSet.Text]);
      MainForm.MyTempQuery.ExecSQL;
    end;
    ModalResult := mrOk;
  except
    ModalResult := mrNone;
    raise;
  end;
end;

procedure TMeConnectForm.btConnectClick(Sender: TObject);
begin
  SaveSettings;
  DoConnect;
  if cbSavePassword.Checked then begin
    SavePassword;
  end;
end;

procedure TMeConnectForm.edServerDropDown(Sender: TObject);
var
  OldCursor: TCursor;
begin
  if FListGot then
    Exit;
  FListGot := True;
  OldCursor := Screen.Cursor;
  Screen.Cursor := crSQLWait;
  try
    GetServerList(edServer.Items);
  finally
    Screen.Cursor := OldCursor;
  end;
end;

procedure TMeConnectForm.GetServerList(Items: TStrings);
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('Software\' + Trim(ProgramName) + '\servers', false) then
      GetKeyNames(Items);
  finally
    Free;
  end;
end;

procedure TMeConnectForm.GetDataBases(Sender: TObject);
var
  OldCursor: TCursor;
  WasConnected: Boolean;
begin
  edmDatabase.Items.Clear;
  edcDatabase.Items.Clear;
  edrDatabase.Items.Clear;
  OldCursor := Screen.Cursor;
  Screen.Cursor := crSQLWait;
  try
    WasConnected := (MainForm.MyTrinityConnection.Connected=True);
    if (WasConnected=False) then    
      MainForm.MyTrinityConnection.Open;
    MainForm.MyTrinityConnection.GetCatalogNames('', edmDatabase.Items);
    edcDatabase.Items.AddStrings(edmDatabase.Items);
    edrDatabase.Items.AddStrings(edmDatabase.Items);
    if (WasConnected=False) then
      MainForm.MyTrinityConnection.Close;
  finally
    Screen.Cursor := OldCursor;
  end;
end;

procedure TMeConnectForm.edExit(Sender: TObject);
begin
  try
  	MainForm.MyTrinityConnection.Params.Clear;
	MainForm.MyTrinityConnection.DriverName:='MySQL';
	MainForm.MyTrinityConnection.Params.AddPair('Server', edServer.Text);
	MainForm.MyTrinityConnection.Params.AddPair('Port', edPort.Text);
	MainForm.MyTrinityConnection.Params.AddPair('Database', edmDatabase.Text);
	MainForm.MyTrinityConnection.Params.AddPair('User_Name', edUsername.Text);
	MainForm.MyTrinityConnection.Params.AddPair('Password', edPassword.Text);
  except
    ActiveControl := Sender as TWinControl;
    raise;
  end;
end;

procedure TMeConnectForm.LoadPassword;
begin
  edPassword.Text:=ReadFromRegistry(CurrentUser, '', 'Password', tpString, '');
end;

procedure TMeConnectForm.SavePassword;
begin
  WriteToRegistry(CurrentUser, '', 'Password', tpString, edPassword.Text);
  WriteToRegistry(CurrentUser, 'servers\' + edServer.Text, 'Password', tpString, edPassword.Text);
end;

procedure TMeConnectForm.LoadSettings;
begin
  cbSavePassword.Checked:=ReadFromRegistry(CurrentUser, '', 'SavePass', tpBool, false);
  edServer.Text:=ReadFromRegistry(CurrentUser, '', 'Server', tpString, '');
  edUsername.Text:=ReadFromRegistry(CurrentUser, '', 'Username', tpString, '');
  edPort.Text:=ReadFromRegistry(CurrentUser, '', 'Port', tpString, '');
  edCharSet.Text:=ReadFromRegistry(CurrentUser, '', 'Charset', tpString, '');
end;

procedure TMeConnectForm.SaveSettings;
begin
  WriteToRegistry(CurrentUser, '', 'SavePass',  tpBool,   cbSavePassword.Checked);
  WriteToRegistry(CurrentUser, '', 'Server',    tpString, edServer.Text);
  WriteToRegistry(CurrentUser, '', 'Username',  tpString, edUsername.Text);
  WriteToRegistry(CurrentUser, '', 'cDatabase', tpString, edcDatabase.Text);
  WriteToRegistry(CurrentUser, '', 'mDatabase', tpString, edmDatabase.Text);
  WriteToRegistry(CurrentUser, '', 'rDatabase', tpString, edrDatabase.Text);
  WriteToRegistry(CurrentUser, '', 'Port',      tpString, edPort.Text);
  WriteToRegistry(CurrentUser, '', 'Charset',   tpString, edCharSet.Text);

  WriteToRegistry(CurrentUser, 'servers\' + edServer.Text, 'SavePass',  tpBool,   cbSavePassword.Checked);
  WriteToRegistry(CurrentUser, 'servers\' + edServer.Text, 'Username',  tpString, edUsername.Text);
  WriteToRegistry(CurrentUser, 'servers\' + edServer.Text, 'mDatabase', tpString, edmDatabase.Text);
  WriteToRegistry(CurrentUser, 'servers\' + edServer.Text, 'cDatabase', tpString, edcDatabase.Text);
  WriteToRegistry(CurrentUser, 'servers\' + edServer.Text, 'rDatabase', tpString, edrDatabase.Text);
  WriteToRegistry(CurrentUser, 'servers\' + edServer.Text, 'Port',      tpString, edPort.Text);
  WriteToRegistry(CurrentUser, 'servers\' + edServer.Text, 'Charset',   tpString, edCharSet.Text);
end;

procedure TMeConnectForm.btDetailsClick(Sender: TObject);
const
  mH = 80;
begin
  if pos('>>', btDetails.Caption)>0 then
  begin
    ClientHeight:=ClientHeight+gbAdvanced.Height+10;
    btDetails.Caption:=dmMain.Text[77]; //'<< Details';
    gbAdvanced.Visible:=true;
  end
  else
  begin
    ClientHeight:=ClientHeight-gbAdvanced.Height-10;
    btDetails.Caption:=dmMain.Text[78]; //'Details >>';
    gbAdvanced.Visible:=false;    
  end;
end;

procedure TMeConnectForm.btClearClick(Sender: TObject);
begin
  edUsername.Clear;
  edPassword.Clear;
  edServer.Clear;
  edPort.Clear;
  edmDatabase.Clear;
  edcDatabase.Clear;
  edrDatabase.Clear;
  edCharSet.Clear;
end;

procedure TMeConnectForm.FormCreate(Sender: TObject);
begin
  ClientHeight:=292;
  DoInit;  
  Caption := Format('Truice %s',[VERSION_EXE]);
  dmMain.Translate.CreateDefaultTranslation(TForm(Self));
end;

procedure TMeConnectForm.FormShow(Sender: TObject);
var
  mDBname, cDBname, rDBname, sDBname: string;
  AC: TWinControl;
begin
  dmMain.Translate.TranslateForm(TForm(Self));
  Caption := Format('Truice %s',[VERSION_EXE]);
  mDBname:=ReadFromRegistry(CurrentUser, '', 'mDatabase',  tpString, '');
  cDBname:=ReadFromRegistry(CurrentUser, '', 'cDatabase',  tpString, '');
  rDBname:=ReadFromRegistry(CurrentUser, '', 'rDatabase',  tpString, '');
  sDBname:=ReadFromRegistry(CurrentUser, '', 'sDatabase',  tpString, '');

  edExit(Sender);

  try
    GetDataBases(Sender);
    if mDBname<>'' then
      edmDatabase.ItemIndex:=edmDatabase.Items.IndexOf(mDBName);
    if cDBname<>'' then
      edcDatabase.ItemIndex:=edcDatabase.Items.IndexOf(cDBName);
    if rDBname<>'' then
      edrDatabase.ItemIndex:=edrDatabase.Items.IndexOf(rDBName);
  except
    if edmDatabase.Text='' then
      edmDatabase.Text:=mDBName;
    if edcDatabase.Text='' then
      edcDatabase.Text:=cDBName;
    if edrDatabase.Text='' then
      edrDatabase.Text:=rDBName;
  end;

  AC := edServer;
  if edServer.Text <> '' then AC := edPort;
  if edPort.Text <> '' then AC := edUsername;
  if edUsername.Text <> '' then AC := edPassword;
  if edPassword.Text <> '' then AC := btConnect;
  FocusControl(AC);
end;

procedure TMeConnectForm.edServerChange(Sender: TObject);
begin
  cbSavePassword.Checked:=ReadFromRegistry(CurrentUser, 'servers\' + edServer.Text, 'SavePass', tpBool, false);

  if cbSavePassword.Checked then
    edPassword.Text:=ReadFromRegistry(CurrentUser, 'servers\' + edServer.Text, 'Password', tpString, '');

  edUsername.Text:=ReadFromRegistry(CurrentUser, 'servers\' + edServer.Text, 'Username',  tpString, '');
  edmDatabase.Text:=ReadFromRegistry(CurrentUser, 'servers\' + edServer.Text, 'mDatabase',  tpString, '');
  edcDatabase.Text:=ReadFromRegistry(CurrentUser, 'servers\' + edServer.Text, 'cDatabase',  tpString, '');
  edrDatabase.Text:=ReadFromRegistry(CurrentUser, 'servers\' + edServer.Text, 'rDatabase',  tpString, '');
  edPort.Text:=ReadFromRegistry(CurrentUser, 'servers\' + edServer.Text, 'Port',      tpString, '');
  edCharSet.Text:=ReadFromRegistry(CurrentUser,'servers\' + edServer.Text, 'Charset', tpString, '');
end;

end.