[Resolvido] Não consigo fazer uma consulta de cadastros!

[carolprogramadora 0]

Olá Galera, estou com um grande problema, preciso desenvolver um projeto em Delphi no meu serviço e o que eu aprendi sobre "Consulta" só está me dando erro! estou a dois dias tentando solucionar

 

 

eu preciso descobrir porq o programa insiste em colocar a mesma unit no uses, assim q ele tá fazendo:

 

 

 

unit Unit14;

 

 

 

interface

 

 

 

uses

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

Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, XPMan;

 

 

 

type

TForm14 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

DBGrid1: TDBGrid;

StatusBar1: TStatusBar;

XPManifest1: TXPManifest;

procedure Edit1Change(Sender: TObject);

 

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

 

 

var

Form14: TForm14;

 

implementation

 

 

 

uses Unit2, Unit14; <<<< (essa unit que insiste em aparecer na hora de compilar, por mais que eu apague ela, na compilação o programa faz ela voltar e daí não roda)

 

{$R *.dfm}

 

 

 

procedure TForm14.Edit1Change(Sender: TObject);

 

 

begin

datamodule2.Form14.indexfieldnames:='';

If datamodule2.Form14.locate('',edit1.text,[lopartialKey]

Then

Dbgrid1.visible:=true else

Dbgrid1.visible:=false;

 

end;

 

end.

 

 

O que eu preciso é uma solução para essa codificação ou que alguém me passe o passo a passo de como faz uma consulta porque tô "apanhando" :(

[wllf 2]

Qual seria a Unit do Data Module?

 

A Unit2 corresponde a outro form?

 

A conexão com a tabela está no Data Module ou no Form14?

 

Com essas resposta acho q dá para entender o q está acontecendo.

[MajorPayneRS 0]

Oi Carol!

 

Verifica na tua pasta de fontes, ao que parece tuh deve ter salvo um formulario com esse no me jah ke aparece o TForm14 não seria ele o Unit14?

[carolprogramadora 0]

Obrigada pelas respostas gente, mas acabei por voltar no vb mesmo, estava dando muito erro! :(

 

OBrigada mesmo!! ^_^