EDBEngine Error

[Limas 0]

Olá pessoal,

 

Estou precisando de uma ajuda, alguem sabe como resolver este erro?

 

Montei um formulário e na hora de rodar o programa o Delphi da o seguinte erro e não abre:

 

Exception EDBEngineError in module XXXXXX.exe at 000AB852. Could not find record.

 

Se alguem puder me ajudar desde já eu agradeço.

[Daniel Sanches 0]

ok !!! faça o seguinte para facilitar: post aki a unit que está dando este erro .... assim fica mais fácil te ajudar !!

 

 

abraços !!

[Limas 0]

Segue a Unit.

 

unit SEncerraOrdemdeServico;

 

interface

 

uses

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

Db, DBTables, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, ExtCtrls, Mask,

ActnList;

 

type

TF_EncerraOrdemServico = class(TForm)

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

BitBtn1: TBitBtn;

Label14: TLabel;

BitBtn2: TBitBtn;

ActionList1: TActionList;

formatar: TAction;

Label15: TLabel;

Label16: TLabel;

Label18: TLabel;

Label19: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Table1: TTable;

DataSource1: TDataSource;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Table1CODSERVICO: TAutoIncField;

Table1CODIGO: TFloatField;

Table1CLIENTE: TStringField;

Table1CHASSI: TStringField;

Table1CODCLI: TStringField;

Table1CGC: TStringField;

Table1CPF: TStringField;

Table1RG: TStringField;

Table1FONE: TStringField;

Table1FAX: TStringField;

Table1CONTATO: TStringField;

Table1MODVEICULO: TStringField;

Table1PROMETIDO: TDateField;

Table1COMB: TStringField;

Table1RECEP: TStringField;

Table1DATA: TDateField;

Table1KM: TStringField;

Table1ADICIONAIS: TStringField;

Table1OBSERVAES: TStringField;

Table1LITRAGEM: TStringField;

Table1FRETE: TCurrencyField;

Table1ATENDIMENTO: TStringField;

Table1SITUACAO: TStringField;

Table1HORAENTRADA: TTimeField;

Table1DATAENTREGA: TDateField;

Table1HORAENTREGA: TTimeField;

Table1OBSERVACAOFINAL: TStringField;

Table1ENDERECO: TStringField;

Table1BAIRRO: TStringField;

Table1ESTADO: TStringField;

Table1CELULAR: TStringField;

Table1CIDADE: TStringField;

DBEdit1: TDBEdit;

Label20: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label28: TLabel;

DBEdit6: TDBEdit;

Label29: TLabel;

DBEdit7: TDBEdit;

Label30: TLabel;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

Label43: TLabel;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

Label47: TLabel;

DBEdit25: TDBEdit;

Label48: TLabel;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit31: TDBEdit;

Label17: TLabel;

Bevel1: TBevel;

Label25: TLabel;

Bevel2: TBevel;

procedure Table1BeforeInsert(DataSet: TDataSet);

procedure BitBtn1Click(Sender: TObject);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit11Enter(Sender: TObject);

procedure formatarExecute(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Table1NewRecord(DataSet: TDataSet);

procedure DBEdit17Enter(Sender: TObject);

 

 

private

{ Private declarations }

public

Max: Integer;

procedure CalcularMax;

{ Public declarations }

end;

 

var

F_EncerraOrdemServico: TF_EncerraOrdemServico;

 

implementation

 

uses SBuscaCli, SCliente, SOrdemInicial, SQrOrdemServico2;

 

{$R *.DFM}

 

procedure TF_EncerraOrdemServico.Table1BeforeInsert(DataSet: TDataSet);

begin

CalcularMax;

end;

 

procedure TF_EncerraOrdemServico.Table1NewRecord(DataSet: TDataSet);

begin

Table1.FieldByName ('codigo').AsInteger := Max + 1;

end;

 

Procedure TF_EncerraOrdemServico.CalCularMax;

var

Marcador: TBookMark;

begin

Marcador := Table1.GetBookmark ;

try

Table1.DisableControls ;

Max := 0;

try

Table1.First;

While not Table1.EOF do

begin

if Table1.FieldByName('Codigo').AsInteger > Max then

Max := Table1.FieldByName('Codigo').AsInteger;

Table1.Next;

end;

Finally

Table1.EnableControls;

end;

Finally

Table1.GotoBookMark (Marcador);

Table1.FreeBookMark (Marcador);

end;

end;

 

procedure TF_EncerraOrdemServico.BitBtn1Click(Sender: TObject);

begin

Case Table1.State of

dsEdit: Table1.Post ;

dsInsert: Table1.Post;

end;

Table1.Active := False;

Table1.Active := True;

Close;

end;

 

procedure TF_EncerraOrdemServico.DBEdit2KeyPress(Sender: TObject;

var Key: Char);

begin

if key = #13 then

begin

SelectNext(ActiveControl,True,True);

key := #0;

end;

end;

procedure TF_EncerraOrdemServico.FormActivate(Sender: TObject);

begin

formatarexecute(self);

end;

 

procedure TF_EncerraOrdemServico.formatarExecute(Sender: TObject);

begin

(Table1.fieldbyname ('codigo') as tfloatfield).displayformat := '000000';

(Table1.fieldbyname ('fone') as tstringfield).editmask := '(99)9999-9999';

(Table1.fieldbyname ('fax') as tstringfield).editmask := '(99)9999-9999';

(Table1.fieldbyname ('contato') as tstringfield).editmask := '(99)9999-9999';

(Table1.fieldbyname ('CHASSI') as tstringfield).editmask := 'AAA-9999';

(Table1.fieldbyname ('cpf') as tstringfield).editmask := '999.999.999-99';

(Table1.fieldbyname ('prometido') as tdatetimefield).editmask := '99/99/9999';

(Table1.fieldbyname ('cgc') as tstringfield).editmask := '99.999.999/999-99';

(Table1.fieldbyname ('RG') as tstringfield).editmask := '9.999.999-9';

(Table1.fieldbyname ('KM') as tstringfield).editmask := '#99.999';

end;

 

 

procedure TF_EncerraOrdemServico.DBEdit11Enter(Sender: TObject);

begin

Table1.Edit;

Table1.FieldByName ('Data').AsString := DateToStr(Now);

end;

 

procedure TF_EncerraOrdemServico.Button1Click(Sender: TObject);

begin

F_BuscaCliente.Show;

end;

 

procedure TF_EncerraOrdemServico.DBEdit17Enter(Sender: TObject);

begin

Table1.FieldByName ('HoraEntrada').AsString := TimeToStr(Now);

end;

 

end.

[Daniel Sanches 0]

ok !! agora me diga uma coisa...

 

essa unit é a principal do seu sistema ?? ou você está abrindo outra unit que chama esta aí ??

 

em que ponto exatamente está dando o erro ??? é na hora de chamar o form, na hora em que o form é exibido ???

[Limas 0]

Ola Daniel,

 

Esta não é a unit principal, eu tenho um Form principal (MainMenu) oor onde eu chamo este form, mas não está abrindo nem Formulário Principal.

 

É um erro do tipo DBEngine.

[Daniel Sanches 0]

ok !!!

 

o erro DBEngine provavelmente está sendo gerado ao tentar conectar ao seu banco de dados ...

 

se o seu form principal não está nem chegando a ser exibido, o problema provavelmente está na sua unit principal ... post ela aki pra gente analisar !!

 

abraços !!