Poxa meu amigo.. Se isso naum te ajudou desisto, te dei a funçao pronta, é so baixar e usar... L
Abs BL De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vander Enviada em: quarta-feira, 4 de abril de 2007 16:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] AutoIncremento *********************** Sua mensagem foi verificada pelo InterScan MSS. ***********-*********** Alguém pode me ajudar ? Atenciosamente, Vanderlei Help Desk / RS 08007013062 (51) 2102-2008 [EMAIL PROTECTED] <mailto:vanderleif%40dimper.com.br> ----- Original Message ----- From: Bruno Lichot To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Sent: Wednesday, April 04, 2007 3:54 PM Subject: RES: [delphi-br] AutoIncremento *********************** Sua mensagem foi verificada pelo InterScan MSS. ***********-*********** A funcao q sera multibanco e te proporcionara totral independência e total segurança na criação dos códigos para chave primaria está no meu exemplo do bor com 2006 no meu link de downloads(abaixo da minha assinatura) gratuitamente. Pega no Server a função retornaID veja sua implementação e em qq cadastro da aplicação cliente veja seu consumo através de uma função do mesmo nome. Atenciosamente, Bruno Lichot CodeGegar Product Evangelist http://www.codegear.com http://cc.codegear.com/Author/795118 De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Vander Enviada em: quarta-feira, 4 de abril de 2007 15:48 Para: Lista Delphi Assunto: [delphi-br] AutoIncremento *********************** Sua mensagem foi verificada pelo InterScan MSS. ***********-*********** galera uso esta rotina no botão GRAVAR e funciona perfeitamente. mas o que estou precisando fazer é colocar o código que gera o AUTOINCREMENTO para o campo (CDS_Cad_FuncionarioFUNC_ID) em outro botão chamado NOVO com a rotina abaixo como fasso para qd entrar no form de cadastro de Funcionario o kra precisa clicar no botão NOVO ae vai gerar o CAMPO AUTOINCREMENTO (FUNC_ID) e para o botão gravar eu estou usando outra rotina . . . . será que alguem pode me ajudar ? Estou usando o Delphi 6 Banco de Dados InterBase6 os componentes de acesso ao Banco eu estou usando da paleta dbExpress SQLConnection + SQLClientDataSet + SQLStoredProc procedure TFRM_Cad_Func.SpeedButton2Click(Sender: TObject); var td:TTransactionDesc; begin // incluir na USES dbxpress if not DM_AC.DB_AC.InTransaction then begin TD.TransactionID:=1; TD.IsolationLevel:=xilREADCOMMITTED; DM_AC.DB_AC.StartTransaction(TD); end; if DM_AC.CDS_Cad_Funcionario.State in[dsinsert]then begin DM_AC.SP_Cad_Funcionario.ExecProc; DM_AC.CDS_Cad_FuncionarioFUNC_ID.Value:=DM_AC.SP_Cad_Funcionario.Params[0].v alue; end; DM_AC.CDS_Cad_Funcionario.Post; Try if (DM_AC.CDS_Cad_Funcionario.ChangeCount>0)then DM_AC.CDS_Cad_Funcionario.ApplyUpdates(-1); DM_AC.DB_AC.Commit(td); except DM_AC.DB_AC.Rollback(td); end; DM_AC.CDS_Cad_Gn.Append; DBEdit2.SetFocus; end; Desde já agradeço pela atenção de todos. Atenciosamente, Vanderlei Help Desk / RS 08007013062 (51) 2102-2008 [EMAIL PROTECTED] <mailto:vanderleif%40dimper.com.br> <mailto:vanderleif%40dimper.com.br> [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 IMON 2168 (20070404) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 IMON 2168 (20070404) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]