***********************
Sua mensagem foi verificada pelo InterScan MSS.
***********-***********
Alguém pode me ajudar ?
Atenciosamente,
Vanderlei
Help Desk / RS
08007013062
(51) 2102-2008
[EMAIL PROTECTED]
----- Original Message -----
From: Bruno Lichot
To: delphi-br@yahoogrupos.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:[EMAIL PROTECTED] 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>
[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]
