Pular para o conteúdo principal

Hyperlink com parâmetro no GridView

Em certas ocasiões precisamos “chamar” outra página passando para esta determinados elementos para que ela apresente determinada informação de modo direto, sem intervenção do usuário.
Quando essa necessidade surge a partir de dados de um determinado registro do GridView podemos nos utilizar dos Hyperlink, com ele especificamos uma lista de parâmetros, um endereço a ser chamado no “click” juntamente com os parâmetros a serem passados para a nova página.
Exemplo:
A maneira de se fazer depende de como as colunas de seu GridView são construídas, se em tempo de desenvolvimento ou execução, mas basicamente o que deve ser feito é o seguinte:

  • Adicione o campo do tipo Hyperlink no GridView;

  • Na propriedade DataNavigateUrlFields coloque sua lista de parâmetros (são as colunas do GridView que você deseja passar);

  • Na propriedade DataNavigateUrlFormatString deve ser colocado o endereço da nova página seguida da identificação dos parâmetros e sua posição no array, ex.: novaPagina.aspx?param1={0}&param2={1};

  • Para finalizar falta apenas colocar Request.Params[“param1”] na página destino, seja para apresentação ou uso como parâmetro para uma nova consulta, depende do que você precisar;
Vimos como é simples usar esse bom recurso, então da próxima vez que precisarmos de uma funcionalidade do tipo “detalhes” para os registros de uma consulta já temos ao menos uma solução em mãos, abraços e até a próxima.
Fonte:

Comentários

Mais visitadas

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do ...

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of   0: Control.Canvas.Font.Color:=clBlack;   1: Control.Canvas.Font.Color:=clWindow; ...

Como Verificar se um Objeto Existe (Delphi)

Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...