F�rum Unit #392299

11/12/2010

Ola
Eu criei duas units uma da aplica��o e a outra � uma classe chamada registro, mas agora
n�o sei se esta certo, e o que mais precisa para fazer esse registro.


unit UAplicacao;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus,UProtocolo,URegistro;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    Cadastrar1: TMenuItem;

    Curso1: TMenuItem;

    Disciplina1: TMenuItem;

    Livro1: TMenuItem;

    CaixadeArquivo1: TMenuItem;

    Registro1: TMenuItem;

    Diploma1: TMenuItem;

    Ajuda1: TMenuItem;

    Ajuda2: TMenuItem;

    Sobre1: TMenuItem;

    Livros1: TMenuItem;

    N1: TMenuItem;

    Sair1: TMenuItem;

    Livro2: TMenuItem;

    Sobre2: TMenuItem;

    EspelhodoProcesso1: TMenuItem;

    procedure Diploma1Click(Sender: TObject);

    procedure Sair1Click(Sender: TObject);

    procedure Livros1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Diploma1Click(Sender: TObject);

begin

     FrmProtocolo.ShowModal;

end;

procedure TForm1.Sair1Click(Sender: TObject);

begin

     close;

end;

procedure TForm1.livros1Click(Sender: TObject);

begin

     FrmRegistro.ShowModal;

end;

end.

______

unit URegistro;

interface

type

  TRegistro = class

  private

      numero: string [70];

      filiacao: string [40];

      nomeCurso : string [10];

      localNascimento: string [30];

      habilitacao:[30];

      dataNascimento:[10];

      dataConclusao:[10];

      dataRegistro :[10];

      numeroProcesso [30];

      codigo: integer;[30]

      nome: string[70];

   public

        procedure registrarDiploma( numero: integer; nome: string[70];

                  filiacao: string [40];  nomeCurso : string [10];

                  localNascimento: string [30]; habilitacao:[30];

                  dataNascimento:[10];  dataConclusao:[10]; numeroProcesso [30];

                  nome: string[70];

   end;

        Taluno = class  (TRegistro)

implementation

var

  numero,nome,filiacao,nomeCurso, LocalNascimento

  Habilitacao: string;

  DataNascimento, dataConclusao

  dataRegistro: boolean

  numeroProcesso: integer;

procedure registrar( numero: integer; nome: string[70]; filiacao: string [40];  nomeCurso : string [10];

                  localNascimento: string [30]; habilitacao:[30];

                  dataNascimento:[10];  dataConclusao:[10]; numeroProcesso [30]);

begin

    showMessage('TAluno - registrar' + intToStr(numero)+'  ' nome+ '  '+ filia��o+ '  '+ nomeCurso+'  '+dataNacimento+'  '+dataConclusao+'  '+numeroProcesso+'  �);

end;

end.

Jakeline Oliveira

Curtir t�pico

+ 0

Responder

Posts

13/12/2010

Leonardo Xavier

Pude perceber algumas coisas na sua unit registro, que com toda certeza podem estar atrapalhando voc� na compila�ao de seu projeto. S�o as seguintes: A unit na maioria das veses trazem informa�oes de todo o formul�rio que � associado, por exemplo na clausula TYPE s�o declarados todos os componentes de seu formul�rio, e se voc� preceber a sua UNIT UREGISTRO n�o tem este parametro o que com toda certeza nao caracteriza a sua unit como um formul�rio para ser chamada da forma como voc� fez " FrmRegistro.ShowModal; " o tipo de unit que voc� postou abaixo do formulario � apenas uma sequencia de fun��es que poderiam ser colocadas em um botao em seu formulario de chamada no caso aplica��o. Para que voc� tenha um fomulario aberto com todas as fun��es que voc� quer como por exemplo os campos declarados "

      numero: string [70];

      filiacao: string [40];

      nomeCurso : string [10];

      localNascimento: string [30];

      habilitacao:[30];

      dataNascimento:[10];

      dataConclusao:[10];

      dataRegistro :[10];

      numeroProcesso [30];

      codigo: integer;[30]

      nome: string[70];

Voc� teria que criar um novo formul�rio e colocar o nome deste formulario como Uregistro, ou outro qualquer, espero ter ajudado voc� e qualquer d�vida que voc� tenha poste ai.

Responder

Gostei + 0

13/12/2010

Jakeline Oliveira

      numero: string [70];


      filiacao: string [40];


      nomeCurso : string [10];


      localNascimento: string [30];


      habilitacao:[30];


      dataNascimento:[10];


      dataConclusao:[10];


      dataRegistro :[10];


      numeroProcesso [30];


      codigo: integer;[30]


      nome: string[70];

Voc� teria que criar um novo formul�rio e colocar o nome deste formulario como Uregistro, ou outro qualquer, espero ter ajudado voc� e qualquer d�vida que voc� tenha poste ai.

Oo professor colocou que a interface n�o est� interagindo com a camada de regras de neg�cio. Existe um c�digo que deve ser colocado para que seja feita essa intera��o

Responder

Gostei + 0

13/12/2010

Leonardo Xavier

Entao vo� quer chamar uma fun�ao apartir de uma classe, e nao visualizar um formul�rio como voc� fez utilizando o comando show.

Fa�a o seguinte no lugar da chamada do formul�rio:

Uregistro.nomedesuafun�aoouprocedure;

Responder

Gostei + 0

13/12/2010

Jakeline Oliveira

Entao vo� quer chamar uma fun�ao apartir de uma classe, e nao visualizar um formul�rio como voc� fez utilizando o comando show.

Fa�a o seguinte no lugar da chamada do formul�rio:

Uregistro.nomedesuafun�aoouprocedure;

Para fazer a intera��o com a camada de regra de neg�cio � � necess�rio criarum DataModule com os bot�es para acesso ao bancoseria isso um bot�o que fa�a a conex�o a tabela registrarque fa�a a conex�o  com a tabela aluno, curso, e protocolo?

Responder

Gostei + 0

14/12/2010

Leonardo Xavier

olha peguei agora sua classe para compilar em um teste aqui, esta com v�rios erros, vou corrigi-los antes de continuar-mos.

Responder

Gostei + 0