DbGrid ?? Como Listar um Campo da tabela=Boolean ??

Question

Ola Amigos Por Favor:Tenho um Campo na Tabela Sim/Nao  ou seja  o campo � Boolean.Entao, quando listo a tabela no DbGrid os Valores da Coluna, me aparecem TRUE  ou  FALSE,Eu Precisava que, quando o ca...

Mazzi · Answer

1- para mostrar o que vc quer em cada tupla de dados, use campos calculados no seu componente Table ou ClienteDadaset, pode ser campos calculados (CALCULATE) ou agregados (AGREGATE).
Para cria-los basta clicar com o botao direito em cima do compoente tDatset(pode ser Table ou CDS), escolha a opcao CreateField,
e para Calculate, por exemplo, d� o nome do campo e tipo Como STRING

1.1 entre na propriedades do componete (table ou CDS) e procure o evento OnCalcFields e coloque :

if TableCampo.value=true then
campo_criado_como_calculate.asstring := �PAGO�
else
campo_criado_como_calculate.asstring := �NAO PAGO�;

-------------------------------------------------------------------------------

2- Problema em relacao a popular um componente Itens:

use concatencao de Cod+NomObra

exemplo:
DbcNome.Items.Add(�COD:�+Dmd.tbtbCodigo.asstring+� �+ FieldValues[�NomObra�]) ;

Joaoshi · Answer

Com rela��o ao primeiro item voc� tambem poderia utilizar o evento [b:2cbee94fd6]OnGetText[/b:2cbee94fd6] da Field.

Ex.:

procedure SuaTabelaNomeDoCampoGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  if Sender.asBoolean  = true then
     Text := �Sim�
  else
     Text := �--�;
end;

Jotas · Answer

GenteBomdia !!Desculpem pela demoraQuero s� dizer Obrigado Pela Dicas....   Tudo Certinho..   Quanto a do DbGrid, usei a do Joao (OnsetGetText)Valeu Mesmo.    Supimpa !!!Jotas....

Paullsoftware · Answer

[code:1:fc69ecfef4]dm.TbSetores.Open; dm.TbSetores.First; with dm.TbSetores do while not eof do begin DbcNome.Items.Add(FieldValues&#91;�NomObra�&93;) ; DbcNome.Items.Add(FieldValues&91;�NomObra�&93;) ; next; end; [/code:1:fc69ecfef4]aqui basta concatenar os campos, que ficam na mesma linha!!![quote:fc69ecfef4][b:fc69ecfef4]DbcNome.Items.Add(FieldValues[�NomObra�] + � - �+ FieldValues[�NomObra�]) ; [/b:fc69ecfef4][/quote:fc69ecfef4]blz? espero ter ajudado! :wink:...

Marco Salles · Answer

Bom Jotas a Primeira pergunta ja foi respondida e eu acrescento tb
na escolha do[b:685f2f62ea] evento OnGetText [/b:685f2f62ea]... Sem duvida � um evento muito
indicado

Quanto a sua segunda D�vida a concatena��o das Strings ela funciona se for seguida de uma formata��o do Tamanho dos campos , para que todos os campos Tenham o mesmo Tamanho

Por�m segue abaixo uma solu��o mais profissional para esta situa��o

[b:685f2f62ea]1)Altere a Propriedade Style do ComboBox para csOwnerDrawFixed[/b:685f2f62ea]

[b:685f2f62ea]2)No Evento onDrawItem do Seu Combo Escreva o Codigo Abaixo[/b:685f2f62ea]

[u:685f2f62ea]P:S Meu ComboBox Estou Chamando de Cb1[/u:685f2f62ea]

procedure TForm1.cb1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
 var
   strVal,strAll:String;
   pos1,rWidth:integer;
   rc:TRect;
   arrWidth:Array[0..2] of integer;
procedure AcrescentarColuna(i:integer);
begin
  rc.Left:=Rect.Left+ arrWidth[i] +2;
  rc.Right:=Rect.Left + arrWidth[i+1] - 2;
  if i=0 Then
    begin
     rc.Top:=Rect.Top;
     rc.Bottom:=Rect.Bottom;
     pos1:=pos(�;�,strAll)
    end
  else
    begin
      strAll:=copy(strAll,pos1+1,length(strAll)-pos1);
      pos1:=pos(�;�,strAll);
    end;
  Strval:=copy(strAll,1,pos1-1);
  cb1.Canvas.TextRect(rc,rc.Left,rc.Top,strVal);
  cb1.Canvas.MoveTo(rc.Right,rc.Top);
  cb1.Canvas.LineTo(rc.Right,rc.Bottom);
end;
begin

  cb.Canvas.Brush.Style:=bsSolid;
  Cb.Canvas.FillRect(Rect);
  StrAll:=cb.Items[Index];

  rWidth:=cb.Width;

  arrWidth[0]:=0;
  arrWidth[1]:=(rWidth div 2);
  arrWidth[2]:=2*(rWidth div 2);

  AcrescentarColuna(0);
  AcrescentarColuna(1);

end;

Para qua o Codigo Funcione voce deve chamar Assim :

dm.TbSetores.Open; 
dm.TbSetores.First; 
with dm.TbSetores do 
while not eof do 
begin 
cb1.Items.Add(FieldByName(�SeuCampo1�).AsString+�;�+
                     FieldByName  (�SeuOutroCampo�).AsString+�;�); 
next; 
end;

[b:685f2f62ea]� importante ou primordial usar a concatena��o [color=darkblue:685f2f62ea][u:685f2f62ea]�,�[/u:685f2f62ea][/color:685f2f62ea][/b:685f2f62ea]

espero ter sido util

Marco Salles · Answer

Como n�o posso editar so para relatar troque o codigo

cb.Canvas.Brush.Style:=bsSolid; 
Cb.Canvas.FillRect(Rect); 

por

cb1.Canvas.Brush.Style:=bsSolid;
Cb1.Canvas.FillRect(Rect);

e

arrWidth[2]:=2*(rWidth div 2); por arrWidth[2]:=rWidth;

p:s

Veja apesar de �grande� a solu��o apresentada pode ser
facilmente estendida para [b:9fe6a79149]Tres , ou mais colunas [/b:9fe6a79149]no Combobox
sem praticamente nenhuma codifica��o extra..