verificar se qry está no modo de edicao

Delphi

03/06/2003

Estou querendo colocar uma procedure para avisar o usuario de que a tabela nao está no modo de edicao ou insercao. tipo: abro um form e para o usuario adicionar um registro, ele tem que clicar no botao Inserir.

só que se o usuario clicar em um campo qualquer do form, aparece uma mensagem que para inserir ele tem que clicar no botao inserir, ou Editar para editar o registro

tipo:
if qryFicha is not in insert mode then
ShowMessage (´Para Adicionar um animal no cadastro, clique no botão ´Inserir´´+#13+´Para editar o registro deste animal, clique no botão ´Editar´.´);

só que esse if é que nao sei como coloco

alguem tem uma luz?


Garciabh2

Garciabh2

Curtidas 0

Respostas

Fabiana

Fabiana

03/06/2003

if qryFicha.State = dsEdit then
showmessage(´aahahah, que graça, huhuhuhu´)


testa assim e testa no DataSource também se esse não der o DataSource dá. mas a sintaxe é assim mesma


GOSTEI 0
Rômulo Barros

Rômulo Barros

03/06/2003

If Datasource.DataSet.State = dsEdit then
messagedlg(´Buá..... buá.......´);


GOSTEI 0
POSTAR