uprincipal.pas

unit uPrincipal;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ComCtrls, ExtCtrls, StdCtrls, uConexao, ZDbcIntfs, cUsuarioLogado, uUtils,
  uAtualizaDB, LCLIntf, ZCompatibility;

type

  { TfrmPrincipal }

  TfrmPrincipal = class(TForm)
    imgMysql: TImage;
    Label1: TLabel;
    N2: TMenuItem;
    mmuConfiguracaoDoSistema: TMenuItem;
    mmuPDV: TMenuItem;
    mmuProcesso: TMenuItem;
    mmuProduto: TMenuItem;
    mmuCliente: TMenuItem;
    N1: TMenuItem;
    mmuCategoria: TMenuItem;
    mmuCadastro: TMenuItem;
    mmuAcoesDeAcesso: TMenuItem;
    mmuPermissaoDeAcoesParaUsuario: TMenuItem;
    mmuUsuario: TMenuItem;
    mmuSeparacao2: TMenuItem;
    mmuFechar: TMenuItem;
    mmuPrincipal: TMainMenu;
    pnlDbImg: TPanel;
    pgcForms: TPageControl;
    Panel1: TPanel;
    StbPrincipal: TStatusBar;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure mmuAcoesDeAcessoClick(Sender: TObject);
    procedure mmuCategoriaClick(Sender: TObject);
    procedure mmuClienteClick(Sender: TObject);
    procedure mmuConfiguracaoDoSistemaClick(Sender: TObject);
    procedure mmuFecharClick(Sender: TObject);
    procedure mmuPDVClick(Sender: TObject);
    procedure mmuPermissaoDeAcoesParaUsuarioClick(Sender: TObject);
    procedure mmuProdutoClick(Sender: TObject);
    procedure mmuUsuarioClick(Sender: TObject);
  private
    procedure AtualizacaoBancoDados(aForm: TfrmAtualizaBancoDados);
    procedure CriarAcoes;

  public

  end;

var
  frmPrincipal: TfrmPrincipal;
  oUsuarioLogado: TUsuarioLogado;

implementation

{$R *.lfm}

uses uCadUsuario, cArquivoIni, cAtualizacaoBancoDeDados, uLogin,
     cAcaoAcesso, uCadAcaoAcesso, cInstanciarForm, uUsuarioVsAcoes, ucadcategoria,
     ucadcliente, ucadproduto, upropdv, ucadconfiguracao;

{ TfrmPrincipal }


procedure TfrmPrincipal.mmuCategoriaClick(Sender: TObject);
begin
  TInstanciarForm.CriarForm(TfrmCadCategoria, oUsuarioLogado, DtmPrincipal.ConDataBase);
end;

procedure TfrmPrincipal.mmuClienteClick(Sender: TObject);
begin
  TInstanciarForm.CriarForm(TfrmCadCliente, oUsuarioLogado, DtmPrincipal.ConDataBase);
end;

procedure TfrmPrincipal.mmuConfiguracaoDoSistemaClick(Sender: TObject);
begin
  TInstanciarForm.CriarForm(TfrmCadConfiguracao, oUsuarioLogado, DtmPrincipal.ConDataBase);
end;

procedure TfrmPrincipal.FormCreate(Sender: TObject);
var bFinalizarAplicacao:Boolean;
begin
  try
    bFinalizarAplicacao:=false;
    frmAtualizaBancoDados:=TfrmAtualizaBancoDados.Create(self);
    frmAtualizaBancoDados.Show;
    frmAtualizaBancoDados.Refresh;

    if not FileExists(TArquivoIni.ArquivoIni) then  begin
      TArquivoIni.AtualizarIni('SERVER', 'TipoDataBase', 'MYSQL');
      TArquivoIni.AtualizarIni('SERVER', 'HostName', 'localhost');
      TArquivoIni.AtualizarIni('SERVER', 'Port', '3306');
      TArquivoIni.AtualizarIni('SERVER', 'User', 'root');
      TArquivoIni.AtualizarIni('SERVER', 'Password', 'mudar@123');
      TArquivoIni.AtualizarIni('SERVER', 'Database', 'dbvenda');
      MessageOK('Arquivo '+ TArquivoIni.ArquivoIni +' Criado com sucesso' +#13+
                 'Configure o arquivo antes de inicializar aplicação',MtInformation);

      bFinalizarAplicacao:=true;
    end
    else begin
      DtmPrincipal:=TDtmPrincipal.Create(self);     //Instancia o DataModule
      with DtmPrincipal.ConDataBase do begin
        Connected:=False;
        SQLHourGlass:=true;                        //Habilita o Cursor em cada transação no banco de dados
        LibraryLocation:=ExtractFilePath(Application.ExeName)+'\dll\libmysql.dll';  //Seta a DLL para conexao do SQL
        Protocol:='mysql';            //Protocolo do banco de dados
        ControlsCodePage:=cCP_UTF8;
        ClientCodepage:='';
        imgMysql.Visible:=true;

        HostName:= TArquivoIni.LerIni('SERVER','HostName'); //Instancia do SQLServer
        Port    := StrToInt(TArquivoIni.LerIni('SERVER','Port'));  //Porta do SQL Server
        User    := TArquivoIni.LerIni('SERVER','User');  //Usuario do Banco de Dados
        Password:= TArquivoIni.LerIni('SERVER','Password');  //Senha do Usuário do banco
        Database:= TArquivoIni.LerIni('SERVER','DataBase');;  //Nome do Banco de Dados
        AutoCommit:= True;
        TransactIsolationLevel:=tiReadCommitted;
        Connected:=True;  //Faz a Conexão do Banco
      end;
      AtualizacaoBancoDados(frmAtualizaBancoDados);
      CriarAcoes;
    end;
  finally
     frmAtualizaBancoDados.Free;
  end;

  if bFinalizarAplicacao then begin
    Application.Terminate;
    Halt;
  end;

end;

procedure TfrmPrincipal.CriarAcoes;
begin
  try
    TAcaoAcesso.CriarAcoes(TfrmCadUsuario,  DtmPrincipal.ConDataBase);
    TAcaoAcesso.CriarAcoes(TfrmCadAcaoAcesso,DtmPrincipal.ConDataBase);
    TAcaoAcesso.CriarAcoes(TfrmUsuarioVsAcoes,DtmPrincipal.ConDataBase);
    TAcaoAcesso.CriarAcoes(TfrmCadCategoria,DtmPrincipal.ConDataBase);
    TAcaoAcesso.CriarAcoes(TfrmCadCliente,DtmPrincipal.ConDataBase);
    TAcaoAcesso.CriarAcoes(TfrmCadProduto,DtmPrincipal.ConDataBase);
    TAcaoAcesso.CriarAcoes(TfrmCadConfiguracao,DtmPrincipal.ConDataBase);
  finally
    TAcaoAcesso.PreencherUsuariosVsAcoes(DtmPrincipal.ConDataBase);
  end;
end;

procedure TfrmPrincipal.AtualizacaoBancoDados(aForm:TfrmAtualizaBancoDados);
var oAtualizarDB:TAtualizaBancoDados;
begin
  try
    oAtualizarDB:=TAtualizaBancoDados.Create(DtmPrincipal.ConDataBase);
    oAtualizarDB.AtualizarBancoDeDados;
  finally
    if Assigned(oAtualizarDB) then
       FreeAndNil(oAtualizarDB);
  end;
end;

procedure TfrmPrincipal.FormShow(Sender: TObject);
begin
  try
    oUsuarioLogado := TUsuarioLogado.Create;

    frmLogin:=TfrmLogin.Create(Self);
    frmLogin.ShowModal;

  finally
    frmLogin.Release;
    StbPrincipal.Panels[0].Text:='USUÁRIO: '+oUsuarioLogado.nome;
  end;

  //{$ifdef PDV}
  //  mmuUsuario.Enabled:=false;
  //  mmuAcoesDeAcesso.Enabled:=false;
  //  mmuPermissaoDeAcoesParaUsuario.Enabled:=false;
  //  mmuCategoria.Enabled:=false;
  //  mmuCliente.Enabled:=false;
  //  mmuProduto.Enabled:=false;
  //  mmuPDV.Enabled:=true;
  //  Caption:='PDV - Sistema de Vendas';
  //  WindowState:=wsMaximized;
  //{$else}
  //  mmuUsuario.Enabled:=true;
  //  mmuAcoesDeAcesso.Enabled:=true;
  //  mmuPermissaoDeAcoesParaUsuario.Enabled:=true;
  //  mmuCategoria.Enabled:=true;
  //  mmuCliente.Enabled:=true;
  //  mmuProduto.Enabled:=true;
  //  mmuPDV.Enabled:=false;
  //  Caption:='RETAGUARDA - Sistema de Vendas';
  //  WindowState:=wsMaximized;
  //{$endif}

end;

procedure TfrmPrincipal.Label1Click(Sender: TObject);
begin
  OpenURL('https://www.udemy.com/desenvolver-sistema-com-delphi-e-sql-server-na-pratica/');
end;

procedure TfrmPrincipal.mmuAcoesDeAcessoClick(Sender: TObject);
begin
  TInstanciarForm.CriarForm(TfrmCadAcaoAcesso, oUsuarioLogado, DtmPrincipal.ConDataBase);
end;

procedure TfrmPrincipal.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  if Assigned(oUsuarioLogado) then
     FreeAndNil(oUsuarioLogado);

  if Assigned(DtmPrincipal) then
     FreeAndNil(DtmPrincipal);
end;

procedure TfrmPrincipal.mmuFecharClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmPrincipal.mmuPDVClick(Sender: TObject);
begin
  try
    frmpropdv:=Tfrmpropdv.Create(self);
    frmpropdv.ShowModal;
  finally
    frmpropdv.Release;
  end;
end;

procedure TfrmPrincipal.mmuPermissaoDeAcoesParaUsuarioClick(Sender: TObject);
begin
  TInstanciarForm.CriarForm(TfrmUsuarioVsAcoes, oUsuarioLogado, DtmPrincipal.ConDataBase);
end;

procedure TfrmPrincipal.mmuProdutoClick(Sender: TObject);
begin
  TInstanciarForm.CriarForm(TfrmCadProduto, oUsuarioLogado, DtmPrincipal.ConDataBase);
end;

procedure TfrmPrincipal.mmuUsuarioClick(Sender: TObject);
begin
  TInstanciarForm.CriarForm(TfrmCadUsuario, oUsuarioLogado, DtmPrincipal.ConDataBase);
end;

end.