locadora delphi

Curso 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

Apó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 TFormPrincipal.Sair1Click(Sender: TObject);
begin