Health Organizer Code

{

    Health Organizer (http://sourceforge.net/projects/hor/,
                      http://hor.sourceforge.net/)
    Copyright (C) 2014  Andrea Urbani ( matfanjol@users.sf.net,
	                                matfanjol@mail.com )

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.

}
unit hor_main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, pqconnection, sqldb, FileUtil, Forms, Controls, Graphics,
  Dialogs, defaulttranslator, ComCtrls, Menus, ActnList;

type

  { TfrmMain }

  TfrmMain = class(TForm)
    actDbConnect: TAction;
    actHeAbout: TAction;
    actQuit: TAction;
    MainActionList: TActionList;
    MainMenu: TMainMenu;
    MenuItem1: TMenuItem;
    miHeAbout: TMenuItem;
    miHelp: TMenuItem;
    miLaItaliano: TMenuItem;
    miLaEnglish: TMenuItem;
    miLanguage: TMenuItem;
    miDbQuit: TMenuItem;
    miDbOpen: TMenuItem;
    miDatabase: TMenuItem;
    pgConnection: TPQConnection;
    pgQuery: TSQLQuery;
    pgTransaction: TSQLTransaction;
    pgScript: TSQLScript;
    StatusBar: TStatusBar;
    procedure actDbConnectExecute(Sender: TObject);
    procedure actHeAboutExecute(Sender: TObject);
    procedure actQuitExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure miLaEnglishClick(Sender: TObject);
  protected
    procedure SelectLanguage( MenuItem : TMenuItem );
    procedure BuildTitle;
  private
    { private declarations }
  public
    function DB_Connect( const Server, Port, UserName, Password, Database :
          string):
      boolean;
  end;

var
  frmMain: TfrmMain;
  Traduzioni: string;

implementation

{$R *.lfm}

{ TfrmMain }

Uses hor_dbopen, hor_about, hor_messages;

procedure TfrmMain.actQuitExecute(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  BuildTitle;
end;

procedure TfrmMain.actDbConnectExecute(Sender: TObject);
begin
  Application.CreateForm(TfrmDbConnect,frmDbConnect);
  if ( frmDbConnect.ShowModal = mrOK ) then
//    DatabaseChanged
  frmDbConnect.Release;
end;

procedure TfrmMain.actHeAboutExecute(Sender: TObject);
begin
  Application.CreateForm(TfrmAbout, frmAbout);
  frmAbout.ShowModal;
  frmAbout.Release;
end;

procedure TfrmMain.miLaEnglishClick(Sender: TObject);
begin
  if ( Sender is TMenuItem ) then
    SelectLanguage( Sender as TMenuItem );
end;

procedure TfrmMain.SelectLanguage(MenuItem: TMenuItem);
var
  I : integer;
begin
  I := miLanguage.Count-1;
  while ( I >= 0 ) do
  begin
    if ( miLanguage.Items[I] = MenuItem ) then
    begin
      miLanguage.Items[I].Checked:=true;
      if ( miLanguage.Items[I] = miLaItaliano ) then
        SetDefaultLang('it')
      else
        // The default in the case of not already handled language
        SetDefaultLang('en');
      BuildTitle;
    end
    else
      miLanguage.Items[I].Checked:=false;
    Dec(I);
  end;
end;

procedure TfrmMain.BuildTitle;
begin
  Caption := rsAboutTitle + ' - ' + rsAboutBrief;
end;

function TfrmMain.DB_Connect(const Server, Port, UserName, Password, Database:
    string): boolean;
begin
  result := false;
  if pgConnection.Connected then
    pgConnection.Connected := false;
  pgConnection.HostName:=Server;
  pgConnection.Params.Clear;
  pgConnection.Params.Add('port=' + Port);
  pgConnection.UserName:=UserName;
  pgConnection.Password:=Password;
  pgConnection.DatabaseName:=Database;
  try
    Screen.Cursor:=crSQLWait;
    try
      pgConnection.Connected:=true;
      result := true;
      StatusBar.Panels[0].Text:=Format(rsMsgConnectionDetails, [Server, Port,
        Database, UserName] );
    finally
      Screen.Cursor:=crDefault;
    end;
  except
    on E: Exception do
    begin
      MessageDlg( rsMsgError, E.Message, mtError, [ MbOK ], 0 );
      StatusBar.Panels[0].Text:='';
      result := false;
    end;
  end;
end;

end.