This repository has been archived by the owner on Aug 24, 2020. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 2
/
atm.lpr
41 lines (36 loc) · 1.52 KB
/
atm.lpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program atm;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, telaInicial, conexaoDB, carregamento, telaLogin, telaAdmin,
telaInseriNotas, funcoesUteis, telaTransferencia, telaSaqueUsuario,
telaUsuarioUser, funcoes, telaSaqueNotas, ContaNotasParaSaque, dadosUsuario,
FuncoesDeSaque, LimparForms, telaStatusOperacao, FuncoesDeTransferencia,
telaStatusTransferencia, telaDeposito, telaStatusDeposito, FuncoesDeDeposito,
telaDepositoFinal;
{$R *.res}
begin
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(Tcarregar, carregar);
Application.CreateForm(TDB, DB);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TfrAdmin, frAdmin);
Application.CreateForm(TfrInserirNotas, frInserirNotas);
//Application.CreateForm(TfrCliente, frCliente);
//Application.CreateForm(TfrSaque, frSaque);
Application.CreateForm(TfrTransferencia, frTransferencia);
Application.CreateForm(TfrSaqueUsuario, frSaqueUsuario);
Application.CreateForm(TFrUsuario, FrUsuario);
Application.CreateForm(TfrSaqueNotas, frSaqueNotas);
Application.CreateForm(TfrStausOperacao, frStausOperacao);
Application.CreateForm(TfrStatusTransferencia, frStatusTransferencia);
Application.CreateForm(TfrDeposito, frDeposito);
Application.CreateForm(TfrStatusDeposito, frStatusDeposito);
Application.CreateForm(TfrDepositoFinal, frDepositoFinal);
Application.Run;
end.