Erro No Projeto

[fernando_vip]

BOM DIA----d novo ???? rs

SEI QUE ATÉ INCOMODO MAS COMO AQUI É O MEU PORTO SEGURO, RS, BRINCADEIRAS A PARTE, AINDA ESTOU TRABALHANDO NAQUELE PROJETO E ENFIM ESTOU COMEÇANDO A ENTENDER O QUICK, CONTUDO, DEPOIS QUE MANDEI COMPILAR, COM SELEÇÃO DE APENAS UM CAMPO NA TABELA, O PROJETO DÁ OS SEGUINTES ERROS:

[Error] SCVC.dpr(16): Identifier expected but 'BEGIN' found

[Error] SCVC.dpr(17): Undeclared identifier: 'Application'

[Error] SCVC.dpr(17): Missing operator or semicolon

[Error] SCVC.dpr(18): Missing operator or semicolon

[Error] SCVC.dpr(18): Undeclared identifier: 'TFrm_Entrada'

[Error] SCVC.dpr(18): Undeclared identifier: 'Frm_Entrada'

[Error] SCVC.dpr(19): Missing operator or semicolon

[Error] SCVC.dpr(19): Undeclared identifier: 'TFrm_sobre'

[Error] SCVC.dpr(19): Undeclared identifier: 'Frm_sobre'

[Error] SCVC.dpr(20): Missing operator or semicolon

[Error] SCVC.dpr(20): Undeclared identifier: 'TFrm_Visa'

E O CÓDIGO DO PROJETO É ESTE:

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},

{$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.Run;

end.

[Churc]

opa

seu erro está aqui:

Unt_Cadastro in 'Unt_Cadastro.pas' {Frm_Cadastro}, na vírgula...

por ser a última linha do uses então você deveria finalizar

com ponto e vírgula e não apenas com uma vírgula

assim

Unt_Cadastro in 'Unt_Cadastro.pas' {Frm_Cadastro}; <- ponto e vírgula...

um detalhe, pra economizar memória e melhorar o desempenho é

aconselhável que você crie os forms em tempo de execução e não

na inicialização da aplicação...

abraço

[fernando_vip]

opa

seu erro está aqui:

Unt_Cadastro in 'Unt_Cadastro.pas' {Frm_Cadastro}, na vírgula...

por ser a última linha do uses então você deveria finalizar

com ponto e vírgula e não apenas com uma vírgula

assim

Unt_Cadastro in 'Unt_Cadastro.pas' {Frm_Cadastro}; <- ponto e vírgula...

um detalhe, pra economizar memória e melhorar o desempenho é

aconselhável que você crie os forms em tempo de execução e não

na inicialização da aplicação...

abraço

Como posso fazer isso, a criação dos forms em tempo de execução?

[Churc]

opa

tipo, primeiro você vai no menu Project/Options e na

aba Forms, você joga todos os Forms pra Avaliable Forms,

exceto qualquer Datamodule ou o Form Principal...

Ai pra chamar depois os forms, você tem que criá-lo

em tempo de execução e liberá-lo da memória, exemplo

Vamos supor que você tem um botão que vá chamar o Form

de Sobre de seu programa então seria

procedure TNomeForm.Button1Click....;

begin

Application.CreateForm(TFrm_sobre, Frm_sobre); //cria o form

try

Frm_sobre.ShowModal; //mostra ele

finally

Frm_sobre.Release; //libera todas as informações

Frm_sobre := nil; //limpa ele da memória

end;

end;

assim o Form é carregado e mostrado na tela, e depois é

liberado da memória...

entendeu mais ou menos?

abraço

[fernando_vip]

Opa,

Entendi sim, vou testar e qualquer dúvida, vou dá um de de chato d novo beleza???

Obrigado pela força.

Abraços

[fernando_vip]

Olá,

Estou tentando fazer a conexao de um TButton com o meu form de relatório, contudo não consigo, você pode ajudar?

Eis os códigos:

Do meu form de consulta:

unit Unt_consulta;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TFrm_Consulta = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Frm_Consulta: TFrm_Consulta;

implementation

uses Unt_RelCartao;

{$R *.dfm}

procedure TFrm_Consulta.BitBtn2Click(Sender: TObject);

begin

Edit1.Clear;

end;

procedure TFrm_Consulta.BitBtn3Click(Sender: TObject);

begin

Close;

end;

procedure TFrm_Consulta.BitBtn1Click(Sender: TObject);

begin

Frm_RelCartao:= TFrm_RelCartao.Create(Self);

Frm_RelCartao.Query1.Close;

Frm_RelCartao.Query1.AsInteger := StrToInt(Edit1.text);

Frm_RelCartao.Query1.Open;

Frm_RelCartao.Query1.Close;

Frm_RelCartao.Query1.Open;

Frm_RelCartao.Query1.Preview;

end;

end.

Do meu form de relatório:

unit Unt_RelCartao;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;

type

TFrm_RelCartao = class(TForm)

DataSource1: TDataSource;

Query1: TQuery;

QuickRep1: TQuickRep;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Frm_RelCartao: TFrm_RelCartao;

implementation

{$R *.dfm}

end.

Aguardo

[Churc]

opa

bem não entendi... o que você quer fazer?

[fernando_vip]

Bom dia,

Desculpa a demora é meu modem deu pau ontem, mas vamos lá.

O que eu quero é o seguinte, qr que meu edit busque dentro da minha tbl por duas instâncias, ou seja, busca por data e total do mês, contudo não consigo fazer a ligação do tbutton com o form de relatório e tmb acho que meu sql não está lá estas coisa, no sql do tquery eu coloquei assim:

SELECT* FROM CAD_CLIENTES

O que posso fazer para melhorar este relatório?