Bom dia,
Estou fazendo um programinha para cadastro de vendas com cartões de crédito e iniciei o relatório, contudo qd dou F9 ele dá um erro e me diz que não consegue achar o arqui .dcu do mesmo, alguém pode me ajudar, eis o código:
Do form relatório:
unit Unt_Rel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, DB, DBTables, ExtCtrls;
type
TFrm_Rel = class(TForm)
QuickRep1: TQuickRep;
Table1: TTable;
QRLabel1: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Rel: TFrm_Rel;
implementation
{$R *.dfm}
end.
Do projeto:
program SCVC;
uses
Forms,
Unt_Entrada in 'Unt_Entrada.pas' {Frm_Entrada},
Unt_Sobre in 'Unt_Sobre.pas' {Frm_sobre},
Unt_Visa in 'Unt_Visa.pas' {Frm_Visa},
Unt_Master in 'Unt_Master.pas' {Frm_Master},
Unt_American in 'Unt_American.pas' {Frm_American},
Unt_Cadastro in 'Unt_Cadastro.pas' {Frm_Cadastro},
Unt_Relatorio in 'Unt_Relatorio.pas' {QR_Cadastro},
Unit1 in '..\Arquivos de programas\Borland\Delphi6\Projects\Unit1.pas' {Frame1: TFrame},
Unt_Rel in 'Unt_Rel.pas' {Frm_Rel};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TFrm_Entrada, Frm_Entrada);
Application.CreateForm(TFrm_sobre, Frm_sobre);
Application.CreateForm(TFrm_Visa, Frm_Visa);
Application.CreateForm(TFrm_Master, Frm_Master);
Application.CreateForm(TFrm_American, Frm_American);
Application.CreateForm(TFrm_Cadastro, Frm_Cadastro);
Application.CreateForm(TQR_Cadastro, QR_Cadastro);
Application.CreateForm(TFrm_Rel, Frm_Rel);
Application.Run;
end.