fernando_vip Postado Julho 21, 2005 Denunciar Share Postado Julho 21, 2005 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;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Menus, StdCtrls, ComCtrls, jpeg, ExtCtrls;typeTFrmPrincipal = 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);privateprocedure ShowHint (Sender: TObject);publicend;varFrmPrincipal: TFrmPrincipal;implementationUses fHorario, fCurso, fAluno,fFichaAluno, fMensal, fRel,fConsulta, UnBackup;{$R *.DFM}procedure TFrmPrincipal.ShowHint (Sender: TObject);beginStbMen.Panels.Items[1].Text := Application.hint;end;procedure TFrmPrincipal.Horrio1Click(Sender: TObject);beginfrmHorario.ShowModal;end;procedure TFrmPrincipal.N1Click(Sender: TObject);beginfrmCursos.ShowModal;end;procedure TFrmPrincipal.Alunos1Click(Sender: TObject);beginfrmAluno.ShowModal;end;procedure TFrmPrincipal.FichadeCadastral1Click(Sender: TObject);beginfrmFicha.tblRelAluno.open;frmFicha.tblRelAluno.Filtered := False;FrmFicha.qrpFicha.Preview;frmFicha.tblRelAluno.close;end;procedure TFrmPrincipal.Timer1Timer(Sender: TObject);beginstbMen.Panels.Items[3].Text := DatetoStr(Date) + ' / ' +TimetoStr(Time);end;procedure TFrmPrincipal.GerarParclas1Click(Sender: TObject);beginFrmMensal.ShowModalend;procedure TFrmPrincipal.BackupRestaurao1Click(Sender: TObject);beginFrmBackup.ShowModal;end;procedure TFrmPrincipal.Sinttico1Click(Sender: TObject);beginFrmRel.tblRel.Open;FrmRel.tblRel.Filtered := False;FrmRel.QuickRep1.Preview;end;procedure TFrmPrincipal.Consultar1Click(Sender: TObject);beginFrmConsulta.ShowModal; end;procedure TFrmPrincipal.Sair1Click(Sender: TObject);beginClose;end;end.O erro:[Fatal Error] fPrincipal.pas(61): File not found: 'AbBrowse.dcu' Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Julho 21, 2005 Denunciar Share Postado Julho 21, 2005 IMAGINO QUE ESTEJA FALTANDO O SEGUINTE ARQUIVO 'AbBrowse.dcu'... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 DELPHI-Man32 Postado Julho 21, 2005 Denunciar Share Postado Julho 21, 2005 você instalou algum componente! se sim procure o tal arquivo *.dcu na mesmo pasta do componente, isso que deve estar ocorrendo! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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'
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.