Fórum Como faço inserção/browse? #355221

opsss....

Bom vamos aos passos...
1 - Ter um função boolean que consulte no banco de dados se o código já exista e retorne True ou False...
2 - Conforme o Resultado da função, vc pode definir o que o sistema deverá executar, carregar todos os registros ou iniciar um formulário em branco para inserir...

Quais os componentes que vc está utilizando?
Qual o banco de vc usa?

t+
Edinei

Estou usando o Firebird com os componentes IB, IBTable, IBDatabase etc...

up

Uso o DBExpress com FireBird 2.0
Uso o IsEmpty para verificar se o código já existe. Vai Aí um exemplo de como eu faço

Tente aí e me diga.

Como já foi dito vc tem que criar uma consulta para verificar se o código(campo chave) já existe na sua tabela.
pode ser assim:

function CampoChaveExiste(pIBDtBase: TIBDatabase; pCod: string): Boolean;
var qry: TIBQuery; // declare na 1ª cláusula uses a unit IBQuery;
begin
try
Result:= True;
qry:= TIBQuery.Create(Nil);
qry.Database:= pIBDtBase;
with qry do
begin
qry.close;
qry.SQL.Clear;
qry.SQL.Add(´ SELECT ´);
qry.SQL.Add(´ CODIGO ´);
qry.SQL.Add(´ FROM CLIENTE ´);
qry.SQL.Add(´ WHERE CODIGO = ´+pCod);
qry.Open;
end;
finally
if qry.IsEmpty then
Result:= False;
qry.close;
qry.Free;
end;
end;

Aí vc coloca um Edit (não dbEdit) para o campo chave e no OnExit desse EDIT vc chama a função:

procedure TForm1.EditCodigoExit(Sender: TObject);
begin
if CampoChaveExiste(IBDatabase1, EditCodigo.Text) then
begin
// já existe o código digitado.
// faz uma consulta do codigo digitado no edit.
end
else
begin
// NÃO existe o código digitado.
// coloca a query em estado de Inserção

end;
end;

Espero que ajude..

Então eu tenho que fazer... digamos manualmente...

é que quando no campo chave eu coloco um valor inexistente automaticamente muda o status pra insert... mas ja quando eu coloco um código já existente ele muda pra edit... mas na verdade era pra continuar browser.