Cadastro de aluno de autoescola linguagem pascal, programa delphi

Disponível somente no TrabalhosFeitos
  • Páginas : 4 (879 palavras )
  • Download(s) : 0
  • Publicado : 20 de março de 2013
Ler documento completo
Amostra do texto
Dicionário de Tipos:
CAMPO | TIPO | REGISTRO | UTILIDADE |
NOME | String[100] | TCadastro | Nome do Aluno |
INSTRUTOR | String[100] | TCadastro | Instrutor |
PLACA | String[7] | TCadastro |Placa do Carro |
DATA | TDateTime | TCadastro | Data de Início do Processo |
ATEORICAS | Integer | TCadastro | Número de Aulas Teóricas Realizadas |
APRATICAS | Integer | TCadastro | Número deAulas Práticas Realizadas |
PTEORICA | Integer | TCadastro | Situação na Prova Teórica |
PPRATICA | Integer | TCadastro | Situação na Prova Prática |

Dicionário de Variáveis:
NOME | TIPO |LOCAL | UTILIDADE |
REG | TCadastro | Global | Armazena as informações de um aluno |
ARQ | File of TCadastro | Global | Representação do Arquivo Físico na Memória |
I | Integer | Local(Button2Click) | Contador para a leitura de todas as posições do arquivo |
NOME | String | Local (Button3Click) | Nome do Aluno digitado pelo Usuário |
POS | Integer | Local (Button3Click) | Posição doRegistro localizado no arquivo |
NOME | String | Procedimento BuscarAluno (parâmetro) | Representa o nome do aluno que será procurado |
POS | Integer | Procedimento BuscarAluno (parâmetro) | Posição doregistro localizado no arquivo |
ACHOU | Boolean | Procedimento BuscarAluno | Indica se os dados foram encontrados |
NOME | String | Local (Button4Click) | Nome do Aluno cujo cadastro será alterado|
POS | Integer | Local (Button4Click) | Posição do registro localizado no arquivo |
NOME | String | Local (Button5Click) | Nome do aluno cujo cadastro será preenchido |
POS | Integer | Local(Button5Click) | Posição do registro localizado no arquivo |

DELPHI:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, Spin, ComCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Label3: TLabel;
Label4:...
tracking img