Charllys
-
Total de itens
2 -
Registro em
-
Última visita
Posts postados por Charllys
-
-
MEu nome é Charles sou estou começando a programar em Delphi e estou com algumas dificuldades. Se alguém puder me ajudar eu agradeço. Em meu cadastro não consigo salvar nem excluir uma informação, já revisei o código e não encontrei o erro. Estou enviando o código abaixo.
Eu agradeço se você puder me ajudar.
AVISO: seu post foi movido para o forum de Delphi e já foi respondido
https://www.scriptbrasil.com.br/forum/topic/178548-duvida/?p=676956
abraço
-
Olá meu nome é charles estou desenvolvendo um sistema em Delphi e o bd é sql server, estou com dificuldades em programar os botões SALVAR e EXCLUIR de um dos formulários.
O código abaixo é do botão salvar: procedure TF_Secretarias.BtnSalvarSecretariaClick(Sender: TObject);
begin
Try
Begin
label22.Caption:='Numero de Registros: ' + inttostr(f_dados.Q_Secretarias.RecordCount);
//Salvar o registro
F_Dados.Q_Secretarias.Post;
// Mostrar a mensagem
ShowMessage('Registro Gravado com Sucesso');
End;
Except
Begin
ShowMessage('operação não Disponível');
BtnInserirSec.SetFocus
End;
end;
End;
O CÓDIGO NÃO SALVAEsse é do botão EXCLUIR
procedure TF_Secretarias.BtnExcSecretariaClick(Sender: TObject);
begin
Try
Begin
If Application.MessageBox('Confirma a Exclusão?', 'Excluir', MB_Yesno)=IDYes Then
If Application.MessageBox('Tem certeza?', 'Confirma', MB_Yesno)=IDYes Then
begin
F_Dados.Q_Secretarias.Delete;
end;
label13.Caption:='Numero de Registros: ' + inttostr(f_dados.Q_Secretarias.RecordCount);
End;
Except
Begin
ShowMessage('Operação não Disponivel' );
BtnInserirSec.SetFocus;
end;
End;
end;Preciso da ajudade de vocês...
Obg.
Executável Inativo
em Delphi, Kylix
Postado
Olá. Estou com um probleminha aqui. Eu estou usando o Delphi Comunit, quando coloco o sistema em execução a tela do aplicativo fica inativa, ela abre mas não consigo clicar em nenhum canto, nem nos botões e o windows a cada clique que dou ele dá aquele som de notificação de erro. alguém pode me dizer o que houve e como resolver?
Obrigado