problema com aplicação em delphi
Bom tenho um programa de cadastro de veiculos e usuario para controlar os veiculos de um empresa e seus respectivos usuario.
estou usando o delphi xe5, aplicação client/servidor com o banco de dados interbase. tenho um chave primeira na saida dele tenho esse teste:
procedure TfrmMov.enCGV_PK_COD_MOVExit(Sender: TObject);
begin
if not(btnCancelar.Focused or btnSair.Focused or btnDeletar.Focused) then
begin
if enCGV_PK_COD_MOV.Value < 0 then
begin
ShowMessage('CODIGO DO VEÍCULO, NÃO FOI PREENCHIDO');
enCGV_PK_COD_MOV.SetFocus;
EXIT
end;
cds_Padrao.CLOSE;
cds_Padrao.CommandText := '';
cds_Padrao.CommandText := 'SELECT * FROM CGVTBMOV WHERE GCV_PK_COD_MOV = ' + enCGV_PK_COD_MOV.text;
cds_Padrao.Open;
if cds_Padrao.IsEmpty then
begin
cds_Padrao.Insert;
btnIcluir.Enabled := true
end
else
begin
cds_Padrao.Edit;
btnIcluir.Enabled := false;
btnAlterar.Enabled := true;
btnDeletar.Enabled := true;
end;
end;
end;
Testei o comando que está no commandtext do ClienteDataSet padrão e executa no banco.
estou usando o delphi xe5, aplicação client/servidor com o banco de dados interbase. tenho um chave primeira na saida dele tenho esse teste:
procedure TfrmMov.enCGV_PK_COD_MOVExit(Sender: TObject);
begin
if not(btnCancelar.Focused or btnSair.Focused or btnDeletar.Focused) then
begin
if enCGV_PK_COD_MOV.Value < 0 then
begin
ShowMessage('CODIGO DO VEÍCULO, NÃO FOI PREENCHIDO');
enCGV_PK_COD_MOV.SetFocus;
EXIT
end;
cds_Padrao.CLOSE;
cds_Padrao.CommandText := '';
cds_Padrao.CommandText := 'SELECT * FROM CGVTBMOV WHERE GCV_PK_COD_MOV = ' + enCGV_PK_COD_MOV.text;
cds_Padrao.Open;
if cds_Padrao.IsEmpty then
begin
cds_Padrao.Insert;
btnIcluir.Enabled := true
end
else
begin
cds_Padrao.Edit;
btnIcluir.Enabled := false;
btnAlterar.Enabled := true;
btnDeletar.Enabled := true;
end;
end;
end;
Testei o comando que está no commandtext do ClienteDataSet padrão e executa no banco.
Djalmo Jr
Curtidas 0
Respostas
Mauricio Rodrigues
06/06/2014
Explica melhor tá confuso a explanação do problema.
GOSTEI 0
Djalmo Jr
06/06/2014
eu conseguir concertar. Mas na compilação do código não aparecia os botões só quando tirava o form do lugar. E quando sairia do código executava esse código mas era erro de sql, pois o curso ficava preso no banco. Obrigado amigo
GOSTEI 0