unit ufrmCharge;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.Menus, Vcl.Buttons,
  Vcl.ToolWin, Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids, Vcl.DBCtrls,
  Vcl.StdCtrls, Vcl.Imaging.jpeg, Vcl.XPMan;

type
  TfrmCharge = class(TForm)
    MainMenu: TMainMenu;
    Cadastro1: TMenuItem;
    StatusBar: TStatusBar;
    Movimento1: TMenuItem;
    Relatrios1: TMenuItem;
    Ajuda1: TMenuItem;
    Empresa1: TMenuItem;
    Usuarios1: TMenuItem;
    N1: TMenuItem;
    Sair1: TMenuItem;
    DBImage: TDBImage;
    N2: TMenuItem;
    Grupos1: TMenuItem;
    EstadoseCidades1: TMenuItem;
    SpeedButton1: TSpeedButton;
    ToolBar1: TToolBar;
    SpeedButton2: TSpeedButton;
    tmrLogin: TTimer;
    procedure Sair1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Grupos1Click(Sender: TObject);
    procedure Empresa1Click(Sender: TObject);
    procedure EstadoseCidades1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure tmrLoginTimer(Sender: TObject);
    procedure Usuarios1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCharge: TfrmCharge;

implementation

{$R *.dfm}

uses udtmSystem, ucadGrupos, ucadEmpresa, ucadLocalidades, ufrmlogin,
  ucadUsuarios;

procedure TfrmCharge.Empresa1Click(Sender: TObject);
begin
  TcadEmpresa.Create(Self).ShowModal;
  FormCreate(Self);
end;

procedure TfrmCharge.EstadoseCidades1Click(Sender: TObject);
begin
  TcadLocalidades.Create(Self).ShowModal;
end;

procedure TfrmCharge.FormCreate(Sender: TObject);
begin
  dtmSystem.tblEmpresa.Open;
  Caption := 'Charge - '+dtmSystem.tblEmpresaTX_NOME.AsString;
  StatusBar.Panels[1].Text := 'Dados: '+dtmSystem.ZConnection.Database;
end;

procedure TfrmCharge.FormShow(Sender: TObject);
begin
  tmrLogin.Enabled := True;
end;

procedure TfrmCharge.Grupos1Click(Sender: TObject);
begin
  TcadGrupos.Create(Self).Show;
end;

procedure TfrmCharge.Sair1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmCharge.tmrLoginTimer(Sender: TObject);
begin
  tmrLogin.Enabled := False;

  with TfrmLogin.Create(Self) do
  begin
    ShowModal;
    if ModalResult <> mrOk then Self.Close;
  end;

  StatusBar.Panels[0].Text := 'Usuário: '+dtmSystem.tx_usuario;

end;

procedure TfrmCharge.Usuarios1Click(Sender: TObject);
begin
  TcadUsuarios.Create(Self).ShowModal;
end;

end.