Projeto Locadora

Curso de Delphi
Projeto de Sistema

SISLFV
Sistema de Locação de Fitas de Vídeo

Jackson Pires de Oliveira Santos Júnior
2002

-1Curso de Delphi – Projeto de Sistema
- 1º Passo (Iniciando o Projeto) 1) Nome do Projeto: SISLFV (Sistema de Locação de Fitas de Vídeo)
2) Crie os diretórios necessários para iniciar o projeto:

3) Crie um ALIAS no BDE (Borland Database Engine) tipo STANDARD: SISLFV
4) Crie um arquivo de nome “ALIAS.TXT” contendo o texto:
•
•
•

“ Projeto SISLFV (Sistema de Locação de Fitas de Vídeo) ”
“ ALIAS (STANDARD) = SISLFV ”
“ Projeto iniciado em: 19/10/2002 ”

Salve-o dentro da pasta “SISLFV/Documentos”.
5) Crie as tabelas (lembre-se de gravá-las na pasta SISLFV/Tabelas) a seguir: (Folha em Anexo)
6) Inicie o Delphi e siga os procedimentos abaixo:
•
•
•
•
•

Salve a Unit como “Principal.pas”;
Salve o Projeto como “SISLFV.dpr”;
Altere a propriedade NAME do Form1 para “FormPrincipal”;
Altere a propriedade CAPTION do FormPrincipal para “SISLFV (Sistema de Locação de Fitas de Vídeo)
- v1.0”;
Insira um (01) componente não visual MainMenu localizado na palheta Standard e crie os seguintes menus:

7) Após Criar os Menus siga os seguintes passos:
•
•
•
•
•
•
•
•
•

Adicione um (01) componente visual StatusBar localizado na palheta Win32;
Altere a propriedade Panel do componente StatusBar1 inserindo dois (02) novos Panels;
Selecione o Panel 0 (Zero) e altere a proriedade Width para 400;
Selecione o FormPrincipal e Altere a propriedade WindowState para wsMaximized;
Insira um (01) componente visual Panel localizado na palheta Standard;
Altere a propriedade Caption apagando o nome Panel1;
Altere a propriedade BevelWidth para 2;
Altere a propriedade BevelOuter para bvLowered;
Altere a propriedade Align para alClient; Altere a propriedade Color para clMedGray

-2Após altera essas opções seu FormPrincipal deve estar parecido com a figura abaixo.

8) Para terminar esse 1º Passo insira o comando abaixo no evento OnClick do menu Sistema/Sair:
procedure