Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcio da silva dias

auto_increment mysql

Recommended Posts

o sql da tabel esta assim

 

CREATE TABLE sistema.clientes (
id INT(11) NOT NULL AUTO_INCREMENT,
Nome_cliente VARCHAR(35) DEFAULT NULL,
Telefone VARCHAR(15) DEFAULT NULL,
Celular VARCHAR(15) DEFAULT NULL,
PRIMARY KEY (id)
)
ENGINE = INNODB
AUTO_INCREMENT = 6
AVG_ROW_LENGTH = 8192
CHARACTER SET latin1
COLLATE latin1_swedish_ci;

 

e os campos estou usando os componentes TDBedit

 

no campo novo registro coloquei assim

 

procedure TF_CasCliente.spNovoClick(Sender: TObject);
begin

TClientDataSet (DMPrincipal.dtsClientes.DataSet).Open;
TClientDataSet (DMPrincipal.dtsClientes.DataSet).Insert;

 

 

 

procedure TF_CasCliente.spSalvarClick(Sender: TObject);
begin
TClientDataSet(DMPrincipal.dtsClientes.DataSet).Post;
TClientDataSet(DMPrincipal.dtsClientes.DataSet).ApplyUpdates(0);
case DMPrincipal.dtsClientes.State of
dsEdit: Application.MessageBox ('Registro atualizado com sucesso!',' Informação',MB_OK+MB_ICONINFORMATION);
dsInsert:Application.MessageBox ('Registro inserido com sucesso!',' Informação',MB_OK+MB_ICONINFORMATION)
end;
// Limpar os campos
TClientDataSet(DMPrincipal.dtsClientes.DataSet).Open;
Leitura;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.