GESTSOLA v0.1
Trabalho realizado por:
Ana Rita Soares
 Jorge Oliveira
 Mafalda Oliveira
 Ricardo Pedrosa
 Sérgio Tavares

GESTSOLA© - v0.1
Formulário Inicial
2
Login
Formulário Login
Query Utilizador
Private Sub Form_Open(Cancel As Integer)
If tipo_de_utilizador = 0 Then
DoCmd.Close
DoCmd.OpenForm "F_entrada0"
DoCmd.Close acForm, "F_Inicial"
ElseIf tipo_de_utilizador = 1 Then
DoCmd.Close
DoCmd.OpenForm "F_entrada1"
DoCmd.Close acForm, "F_Inicial"
ElseIf tipo_de_utilizador = 2 Then
DoCmd.Close
DoCmd.OpenForm "F_entrada2"
DoCmd.Close acForm, "F_Inicial"
Else
DoCmd.Close
MsgBox "Nome de utilizador ou Palavra-Passe Incorrectos!", vbExclamation
End If
End Sub
3
GESTSOLA© - v0.1
Opções para cada tipo de
Utilizador
4
GESTSOLA© - v0.1
Botões da Barra de Ferramentas
Novo
Eliminar
Guardar
Imprimir
Copiar
5
GESTSOLA© - v0.1
Botões da Barra de Ferramentas
Copiar
Private Sub copiar_Click()
On Error GoTo Errcopy
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdCopy
Exit Sub
Errcopy:
Select Case Err
Case 2046
MsgBox "Tem de seleccionar texto pra copiar.", vbInformation, "Informação"
Exit Sub
Case Else
MsgBox Err.Number & ":-" & vbCrLf & Err.Description
Exit Sub
End Select
End Sub
6
GESTSOLA© - v0.1
Botões da Barra de Ferramentas
Novo
Eliminar
Guardar
Imprimir
CopiarColarProcurar Ajuda
7
GESTSOLA© - v0.1
Formulário de Ajuda
Ajuda
Private Sub ajuda_Click()
DoCmd.OpenForm "F_Ajuda", , , "Cod = 1"
End Sub
Nome do Formulário
Ajuda
8
GESTSOLA© - v0.1
Botões da Barra de Ferramentas
Novo
Eliminar
Guardar
Imprimir
CopiarColarProcurar Ajuda
Anterior
Seguinte
9
GESTSOLA© - v0.1
Opções Administrador
Abrir Formulário de Utilizadores
10
GESTSOLA© - v0.1
Formulário de Utilizador
11
GESTSOLA© - v0.1
Opções Administrador
Abrir Formulário de Clientes
12
GESTSOLA© - v0.1
Formulário de Clientes
13
GESTSOLA© - v0.1
Relatório – Lista de Clientes
14
GESTSOLA© - v0.1
Formulário de Clientes
15
GESTSOLA© - v0.1
Formulário Nova Encomenda
de Cliente
16
GESTSOLA© - v0.1
Formulário de Clientes
17
GESTSOLA© - v0.1
Formulário Lista de
Encomendas
18
GESTSOLA© - v0.1
Formulário de Clientes
19
GESTSOLA© - v0.1
Relatório – Ficha de Cliente
20
GESTSOLA© - v0.1
Opções Administrador
Abrir Formulário de Fornecedores
21
GESTSOLA© - v0.1
Formulário de Fornecedores
22
GESTSOLA© - v0.1
Formulário de Matérias-Primas
23
GESTSOLA© - v0.1
Formulário de Fornecedores
24
GESTSOLA© - v0.1
Formulário Encomendas de
Matérias Primas
25
GESTSOLA© - v0.1
Formulário de Fornecedores
26
GESTSOLA© - v0.1
Relatório – Lista de
Fornecedores
27
GESTSOLA© - v0.1
Formulário de Fornecedores
28
GESTSOLA© - v0.1
Relatório – Ficha de Fornecedor
29
GESTSOLA© - v0.1
Opções Administrador
Abrir Formulário de Stock
30
GESTSOLA© - v0.1
Formulário de Stock
31
GESTSOLA© - v0.1
Formulário Encomendas de
Matérias Primas
32
GESTSOLA© - v0.1
Formulário de Stock
33
GESTSOLA© - v0.1
Formulário Lista de Encomendas
34
GESTSOLA© - v0.1
Formulário de Stock
35
GESTSOLA© - v0.1
Formulário de Gastos
36
GESTSOLA© - v0.1
Impressão do Intervalo de
Gastos
37
GESTSOLA© - v0.1
Relatório – Gastos
38
GESTSOLA© - v0.1
Formulário de Stock
39
GESTSOLA© - v0.1
Relatório – Stock
40
GESTSOLA© - v0.1
Opções Administrador
Efectuar Encomendas
41
GESTSOLA© - v0.1
Opções Administrador
Escolha de Encomendas
42
GESTSOLA© - v0.1
Opções Administrador
Encomenda de Clientes
43
GESTSOLA© - v0.1
Opções Administrador
Escolha de Encomendas
44
GESTSOLA© - v0.1
Opções Administrador
Encomenda de Matérias Primas
45