quando clico no botao novo, pra adicionar novo registro da a mensagem
de "Não eh um valor inteiro valido"
o codigo do botao eh o seguinte
----------------------------------------
procedure TfrmClientes.XiButton1Click(Sender: TObject);
var
s:String;
begin
//qrBusca.Close;
if (DM.tbClientes.RecordCount=0)
then begin
// pgCliente.activepage:=Dados;
DM.tbClientes.Append;
dbecodigo.text:='00001';
DM.tbClientes.Post;
FmtStr(s, '%.5d', [StrToInt(dbeCodigo.text)]);
dbeCodigo.text := s;
DM.tbClientes.Edit;
DBEnome.setfocus
end else begin
// pgCliente.activepage:=Dados;
DM.tbClientes.Append;
tbAutoInc(DM.tbClientes, 'Codigo');
FmtStr(s, '%.5d', [StrToInt(dbeCodigo.text)]);
dbeCodigo.text := s;
DM.tbClientes.Post;
DM.tbClientes.Edit;
DBEnome.setfocus;
end;
end;
se eu cancelar a linha do FmrStr(***********, ele funciona normal
o campo codigo na tabela esta como Interger.
se alguem poder me dar uma dica ficarei muito agradecido
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
| Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
