Ir para conteúdo
Fórum Script Brasil
  • 0

Sistema De Curso De Informática


fernando_vip

Pergunta

Olá!!

Ainda estou com um problema com o sistema de cursinho. Ele simplesmente não compila, vou postar o código e depois o ettp.

O código:

unit fPrincipal;

interface

uses

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

Menus, StdCtrls, ComCtrls, jpeg, ExtCtrls;

type

TFrmPrincipal = class(TForm)

Mnu1: TMainMenu;

Cadastro1: TMenuItem;

Alunos1: TMenuItem;

N1: TMenuItem;

Sair1: TMenuItem;

Consultas1: TMenuItem;

Baixar1: TMenuItem;

N3: TMenuItem;

Relatrios1: TMenuItem;

Alunos2: TMenuItem;

N4: TMenuItem;

Mensalidades1: TMenuItem;

Atrasadas1: TMenuItem;

Todas2: TMenuItem;

Horrio1: TMenuItem;

StbMen: TStatusBar;

Panel1: TPanel;

Panel2: TPanel;

Label2: TLabel;

Panel3: TPanel;

Image1: TImage;

FichadeCadastral1: TMenuItem;

N2: TMenuItem;

Sinttico1: TMenuItem;

Timer1: TTimer;

GerarParclas1: TMenuItem;

Utilitrios1: TMenuItem;

BackupRestaurao1: TMenuItem;

Consultar1: TMenuItem;

Label1: TLabel;

procedure Horrio1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Alunos1Click(Sender: TObject);

procedure FichadeCadastral1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure GerarParclas1Click(Sender: TObject);

procedure BackupRestaurao1Click(Sender: TObject);

procedure Sinttico1Click(Sender: TObject);

procedure Consultar1Click(Sender: TObject);

procedure Sair1Click(Sender: TObject);

private

procedure ShowHint (Sender: TObject);

public

end;

var

FrmPrincipal: TFrmPrincipal;

implementation

Uses fHorario, fCurso, fAluno,fFichaAluno, fMensal, fRel,

fConsulta, UnBackup;

{$R *.DFM}

procedure TFrmPrincipal.ShowHint (Sender: TObject);

begin

StbMen.Panels.Items[1].Text := Application.hint;

end;

procedure TFrmPrincipal.Horrio1Click(Sender: TObject);

begin

frmHorario.ShowModal;

end;

procedure TFrmPrincipal.N1Click(Sender: TObject);

begin

frmCursos.ShowModal;

end;

procedure TFrmPrincipal.Alunos1Click(Sender: TObject);

begin

frmAluno.ShowModal;

end;

procedure TFrmPrincipal.FichadeCadastral1Click(Sender: TObject);

begin

frmFicha.tblRelAluno.open;

frmFicha.tblRelAluno.Filtered := False;

FrmFicha.qrpFicha.Preview;

frmFicha.tblRelAluno.close;

end;

procedure TFrmPrincipal.Timer1Timer(Sender: TObject);

begin

stbMen.Panels.Items[3].Text := DatetoStr(Date) + ' / ' +TimetoStr(Time);

end;

procedure TFrmPrincipal.GerarParclas1Click(Sender: TObject);

begin

FrmMensal.ShowModal

end;

procedure TFrmPrincipal.BackupRestaurao1Click(Sender: TObject);

begin

FrmBackup.ShowModal;

end;

procedure TFrmPrincipal.Sinttico1Click(Sender: TObject);

begin

FrmRel.tblRel.Open;

FrmRel.tblRel.Filtered := False;

FrmRel.QuickRep1.Preview;

end;

procedure TFrmPrincipal.Consultar1Click(Sender: TObject);

begin

FrmConsulta.ShowModal;

end;

procedure TFrmPrincipal.Sair1Click(Sender: TObject);

begin

Close;

end;

end.

O erro:

[Fatal Error] fPrincipal.pas(61): File not found: 'AbBrowse.dcu'

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...