Fórum inherited #291333
10/08/2005
0
inherited;
:shock:
Demetrius
Curtir tópico
+ 0Posts
10/08/2005
Demetrius
Recebi a Clube delphi desse mês e existe a seguinte codificação no botão de consultar:
procedure TFrmCadCliFor.btnConsultarClick(Sender: TObject);
begin
[b:3f0e24ab65][color=red:3f0e24ab65] inherited;[/color:3f0e24ab65][/b:3f0e24ab65]
with cdsConsultar do
begin
Close;
CommandText := ´select CF_CODIGO, CF_TIPO, CF_JURIDICA, CF_NOME, CF_CONTATO, CF_CPFCNPJ, ´ +
´CF_RGINSCEST, CF_ENDERECO, CF_BAIRRO, CF_COMPLEMENTO, CF_CEP, CID_CODIGO, ´ +
´CF_FONE, CF_FAX, CF_EMAIL, CF_SITE, CF_ATIVO from GER_CLIFOR´;
case rgConsultar.ItemIndex of
0: CommandText := CommandText + ´ where CF_CODIGO = ´ + edtConsultar.Text;
1: CommandText := CommandText + ´ where UPPER(CF_NOME) like ´ + QuotedStr(AnsiUpperCase(edtConsultar.Text) + ´¬´);
end;
CommandText := CommandText + ´ and CF_APAGADO <> ´ + QuotedStr(´S´) + ´ order by CF_NOME´;
Open;
if IsEmpty then
begin
MessageDlg(´Nenhum registro encontrado!´ + #13 + ´Refaça a pesquisa´, mtInformation, [mbOk], 0);
if edtConsultar.CanFocus then
edtConsultar.SetFocus;
end;
end;
end;
Aguém sabe para que serve o comando em vermelho.
Gostei + 0
10/08/2005
Elter.teodoro
Gostei + 0
10/08/2005
Demetrius
Valeu!!!
Gostei + 0
10/08/2005
Kotho
Este botão deve ter um código pré-definido no form padrão... (se não for assim, vamos supor que fosse, para facilitar o entendimento)
o Inherited informa o momento em que será passada a execução para o form padrão... então você pode colocar código para ser executado antes, e depois disso...
Gostei + 0
10/08/2005
Raserafim
o inherited é um comando que vai executar o código do procedimento do objeto pai.
neste caso aconteceu o seguinte. este form que tem estes códigos é herdado de algum outro form que tem um procedimento com este mesmo nome. então o que o inherited vai fazer é executar o código do form pai, e depois continua executando o código restante.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)