verifcar se tabelas estão vazias no show do form

MySQL

Delphi

13/04/2016

Boa tarde amigos estou tendo problemas ao verificar se ao verficar se tabelas estão vazias no evento onshow do form.
Com a tabela classe funciona que é uma beleza, mas com a tabela de fornecedores, mesmo com registros está retornando zero no recordcount.

Alguem pode me ajudar nesse codigo ?
um forte abraço

 procedure TfrmCadProduto.FormShow(Sender: TObject);
begin
  inherited;
  WindowState := wsMaximized;

  //abrindo os datasets
  dsClasse.DataSet.Open;

  //se não houver fornecedor cadastrado
  if dsForn.DataSet.RecordCount = 0 then
  begin
   if MessageBox(Application.Handle,Pchar('Não há fornecedores cadastrados.' +#13+ 'Deseja cadastrar agora ?'),Pchar('Cadastro de fornecedores vazio !'),MB_YESNO+MB_ICONEXCLAMATION )= ID_YES then
   begin
      frmCadProduto.Release;
      Application.CreateForm(TfrmCadFornecedor,frmCadFornecedor);
      frmCadFornecedor.Show;
   end
   else
   begin
     dsForn.DataSet.Open;
   end;
  end;

  //se não houver classe cadastrada ainda no sistema
  if dsClasse.DataSet.RecordCount = 0 then
  begin
   if MessageBox(Application.Handle,Pchar('Não há classes cadastradas.' +#13+ 'Deseja cadastrar agora ?'),Pchar('Cadastro de classes vazio !'),MB_YESNO+MB_ICONEXCLAMATION )= ID_YES then
   begin
      frmCadProduto.Release;
      Application.CreateForm(TfrmCadClasse,frmCadClasse);
      frmCadClasse.Show;
   end
   else
   begin
     dsClasse.DataSet.Open;
   end;
  end;

end;
Filipe Bernardes

Filipe Bernardes

Curtidas 0

Respostas

Natanael Ferreira

Natanael Ferreira

13/04/2016

Você abriu apenas a tabela de Classe antes das verificações.
Faltou abrir a tabela de fornecedores.

//abrindo os datasets
  dsClasse.DataSet.Open;
  dsForn.DataSet.Open //Tinha faltado essa tabela
GOSTEI 0
Filipe Bernardes

Filipe Bernardes

13/04/2016

Rapaz, era isso mesmo.
como eu sou lerdo kkkk.
Muito obrigado amigo.
GOSTEI 0
POSTAR