You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
107 lines
2.5 KiB
107 lines
2.5 KiB
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.
|