Sistema De Curso De Informática

[fernando_vip]

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'

[Guest Guest]

IMAGINO QUE ESTEJA FALTANDO O SEGUINTE ARQUIVO 'AbBrowse.dcu'...

[DELPHI-Man32]

você instalou algum componente! se sim procure o tal arquivo *.dcu na mesmo pasta do componente, isso que deve estar ocorrendo!