botão de excluir um cliente no banco de dados
Quero fazer um botão de excluir um cliente no banco de dados, mas está dando um erro : " type of expression must be BOOLEAN" esse erro está ocorrendo no segundo MessageBox preciso de ajuda urgente é pra um trabalho
{
procedure TFormulario_Controle.Image_ExcluirClick(Sender: TObject);
begin
if Source_Controle.DataSet = Data_Module.zqrPessoa then
begin
if Source_Controle.DataSet.RecordCount = 0 then
begin
Messagebox(application.Handle, Pchar('Não existe registro para ser excluido!'), Pchar('Falha ao excluir registro') , mb_ok+MB_ICONERROR);
exit;
end;
if MessageBox(application.Handle, Pchar('Deseja excluir este registro?'), Pchar('Confirmar Exclusão'), MB_YESNO+MB_ICONQUESTION = ID_YES)
then
begin
Source_Controle.DataSet.delete;
end;
end;
end;
}
{
procedure TFormulario_Controle.Image_ExcluirClick(Sender: TObject);
begin
if Source_Controle.DataSet = Data_Module.zqrPessoa then
begin
if Source_Controle.DataSet.RecordCount = 0 then
begin
Messagebox(application.Handle, Pchar('Não existe registro para ser excluido!'), Pchar('Falha ao excluir registro') , mb_ok+MB_ICONERROR);
exit;
end;
if MessageBox(application.Handle, Pchar('Deseja excluir este registro?'), Pchar('Confirmar Exclusão'), MB_YESNO+MB_ICONQUESTION = ID_YES)
then
begin
Source_Controle.DataSet.delete;
end;
end;
end;
}
Gabriel Vieira
Curtidas 0
Respostas
Jesus Lima
19/09/2019
Quero fazer um botão de excluir um cliente no banco de dados, mas está dando um erro : " type of expression must be BOOLEAN" esse erro está ocorrendo no segundo MessageBox preciso de ajuda urgente é pra um trabalho
{
procedure TFormulario_Controle.Image_ExcluirClick(Sender: TObject);
begin
if Source_Controle.DataSet = Data_Module.zqrPessoa then
begin
if Source_Controle.DataSet.RecordCount = 0 then
begin
Messagebox(application.Handle, Pchar('Não existe registro para ser excluido!'), Pchar('Falha ao excluir registro') , mb_ok+MB_ICONERROR);
exit;
end;
if MessageBox(application.Handle, Pchar('Deseja excluir este registro?'), Pchar('Confirmar Exclusão'), MB_YESNO+MB_ICONQUESTION = ID_YES)
then
begin
Source_Controle.DataSet.delete;
end;
end;
end;
}
{
procedure TFormulario_Controle.Image_ExcluirClick(Sender: TObject);
begin
if Source_Controle.DataSet = Data_Module.zqrPessoa then
begin
if Source_Controle.DataSet.RecordCount = 0 then
begin
Messagebox(application.Handle, Pchar('Não existe registro para ser excluido!'), Pchar('Falha ao excluir registro') , mb_ok+MB_ICONERROR);
exit;
end;
if MessageBox(application.Handle, Pchar('Deseja excluir este registro?'), Pchar('Confirmar Exclusão'), MB_YESNO+MB_ICONQUESTION = ID_YES)
then
begin
Source_Controle.DataSet.delete;
end;
end;
end;
}
Bom dia Gabriel, tudo bem?
eu recomendaria você utilizar o MessageDlg
Exemplo:
if MessageDlg('Deseja excluir este registro?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
obs. você precisa adicionar na uses Dialogs
1- Caso voce queira usar para uma informação do tipo, seu arquivo foi salvo!:
MessageDlg('Seu arquivo foi salvo com sucesso!',mtInformation,[mbOk],0);
Grande abraço, espero ter te ajudado.
GOSTEI 0