RES: [delphi-br] StringGrid
Eu estou usando stringgrid no meu projeto e ta funcionando legal. Mas tudo é feito na unha, nada dessas coisinhas prontas, que pegam tudo do banco de dados. Eu faço query jogos no meus datasets (dbexpress) e faço laços para mostrar nas grids. É um pouco trabalhoso, mas ficam bom :) Se quiser fazer assim posso te ajudar, aprendi a mexer com elas não faz mto mas já da pro gasto :) Atenciosamente, Fernando -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alex - Yahoo Enviada em: quarta-feira, 5 de julho de 2006 14:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] StringGrid Mas para manter os dados na grade tem q estar com a transação aberta. Não quero. Só quero abrir a transação para trazer dados ou alterar os dados. Não estou usando componentes TDATASET Estou usando tudo TEDIT e TStringGrid pois não necessitam ter ligação com o banco. Alex - Original Message - From: Zunga Vei To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 05, 2006 1:58 PM Subject: Re: [delphi-br] StringGrid Se você usará para exibir dados use o DBGrid mesmo. Ele é independente do SGBD. Em 05/07/06, Alex - Yahoo [EMAIL PROTECTED] escreveu: Quero dispensar o uso de TIBGRID e usar alguma outra grade mais flexivel e menos dependente de uma conexão. Estou tentando o STRINGGRID mas senti dificuldade na criação dos Titulos em DESIGN TIME. Não consegui. É possivel ou terei que criar até as colunas em RUNTIME?Alguem conhece algum componente nativo do delphi que seja um poco mais facil de lidar do que o STRINGGRID? Alex [As partes desta mensagem que não continham texto foram removidas] -- Saudações, Zunga. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] StringGrid
Alex,
Trabalho com stringgrid (só o básico, pra mostrar dados mesmo) e tudo o que
faço no componente em design time é definir a fonte, quantas linhas e
colunas vão ter e mexo no options pra saber se vai haver edição nelo ou não.
O resto eu faço na mão:
Cabeçalhos:
grdLista.Cells[0,0] := 'Código';
grdLista.Cells[1,0] := 'Descrição';
grdLista.Cells[2,0] := 'Preço 1';
grdLista.Cells[3,0] := 'Preço 2';
grdLista.Cells[4,0] := 'Preço 3';
grdLista.Cells[5,0] := 'Preço 4';
grdLista.Cells[6,0] := 'Estoque';
grdLista.Cells[7,0] := 'Custo';
grdLista.ColWidths[0]:=60;
grdLista.ColWidths[1]:=200;
grdLista.ColWidths[2]:=60;
grdLista.ColWidths[3]:=60;
grdLista.ColWidths[4]:=60;
grdLista.ColWidths[5]:=60;
grdLista.ColWidths[6]:=60;
grdLista.ColWidths[7]:=60;
Formatação (baseado no exemplo acima)
procedure TformAtualiza.grdListaDrawCell(Sender: TObject; ACol, ARow:
Integer; Rect: TRect; State: TGridDrawState);
var
sCad : String;
i : real;
begin
sCad := (Sender as TStringGrid).Cells[ACol, ARow];
i:= Rect.Left + 2;
if(Length(sCad) 0) then begin
if(ARow = 0) then
i := Rect.Left + (Rect.Right - Rect.Left) / 2 - (Sender as
TStringGrid).Canvas.TextWidth(sCad) / 2;
if(ACol in [2,3,4,5,6,7]) and (ARow 0) then begin
sCad := FormatFloat('#,###,##0.000',StrToFloat(sCad));
i := Rect.Right - (Sender as TStringGrid).Canvas.TextWidth(sCad
+ ' ');
end;
(Sender as TStringGrid).Canvas.FillRect(Rect);
(Sender as TStringGrid).Canvas.TextOut(Round(i), Rect.Top + 2,sCad);
end;
end;
Leitura (base exemplo acima)
for i := 1 to grdLista.RowCount - 1 do begin // (começa do 1 pra pular
o cabeçalho)
// faco um teste pra ver se as celulas estão vazias, senão dá pau
mesmo
if(Length(Trim(grdLista.Cells[2,i])) = 0) then
grdLista.Cells[2,i] := '0';
if(Length(Trim(grdLista.Cells[3,i])) = 0) then
grdLista.Cells[3,i] := '0';
if(Length(Trim(grdLista.Cells[4,i])) = 0) then
grdLista.Cells[4,i] := '0';
if(Length(Trim(grdLista.Cells[5,i])) = 0) then
grdLista.Cells[5,i] := '0';
if(Length(Trim(grdLista.Cells[6,i])) = 0) then
grdLista.Cells[6,i] := '0';
if(Length(Trim(grdLista.Cells[7,i])) = 0) then
grdLista.Cells[7,i] := '0';
with datamodule.qryAuxiliar do begin
Close;
SQL.Clear;
SQL.Add('UPDATE produtos SET ');
SQL.Add('preco1 = ' + Num_TOScript(grdLista.Cells[2,i],2) +
',');
SQL.Add('preco2 = ' + Num_TOScript(grdLista.Cells[3,i],2) +
',');
SQL.Add('preco3 = ' + Num_TOScript(grdLista.Cells[4,i],2) +
',');
SQL.Add('preco4 = ' + Num_TOScript(grdLista.Cells[5,i],2));
SQL.Add('WHERE codigo = ''' + grdLista.Cells[0,i] + );
ExecSQL;
Close;
// Num_TOScript é uma função que substitui a virgula da string
34,05 (por exemplo) para 34.05 pra
// trabalhar com comandos SQL corretamente
end;
end;
Saudações;
---
[]'s
Alexandre
Frase da semana: A temperança e o trabalho são as duas melhores médias de
um homem. (Rousseau)
Frase de la semana: La moderación y el trabajo son los mejores medios de un
hombre. (Rousseau)
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alex - Yahoo
Enviada em: quarta-feira, 5 de julho de 2006 14:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] StringGrid
Mas para manter os dados na grade tem q estar com a transação aberta. Não
quero. Só quero abrir a transação para trazer dados ou alterar os dados.
Não estou usando componentes TDATASET
Estou usando tudo TEDIT e TStringGrid pois não necessitam ter ligação com o
banco.
Alex
- Original Message -
From: Zunga Vei
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 05, 2006 1:58 PM
Subject: Re: [delphi-br] StringGrid
Se você usará para exibir dados use o DBGrid mesmo.
Ele é independente do SGBD.
Em 05/07/06, Alex - Yahoo [EMAIL PROTECTED] escreveu:
Quero dispensar o uso de TIBGRID e usar alguma outra grade mais flexivel
e
menos dependente de uma conexão. Estou tentando o STRINGGRID mas senti
dificuldade na criação dos Titulos em DESIGN TIME. Não consegui. É
possivel
ou terei que criar até as colunas em RUNTIME?Alguem conhece algum
componente
nativo do delphi que seja um poco mais facil de lidar do que o
STRINGGRID?
Alex
[As partes desta mensagem que não continham texto foram removidas]
--
Saudações,
Zunga.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do
RES: [delphi-br] StringGrid
with StringGrid do begin RowCount := 28; // Numero de linhas que a stringgrid tera Cells[0,0] := 'Hora'; Cells[1,0] := 'Confirm.'; Cells[2,0] := 'Nome'; Cells[3,0] := 'Registro'; Cells[4,0] := 'Hora cadastro'; ColWidths[0] := 40; ColWidths[1] := 45; ColWidths[2] := 445; ColWidths[3] := 50; ColWidths[4] := 50; for i := 1 to 28 do begin //blablabla Cells[i,0] := 'texto'; End; End; Ja da para começar com isso ... Atenciosamente, Fernando -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alex - Yahoo Enviada em: quarta-feira, 5 de julho de 2006 15:38 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] StringGrid Comecei a mexer com string grid hj. Realmente é na mão mas é MTO melhor pois vc tem controle. Com TDBGRID vc aperta uma tecla e ele da a volta no universo e vc nem v. Fiz uma função para buscar os dados e para criar os titulos dinamicamente. Mas mesmo assim se tiver algum exemplo para eu analisar a semelhança do meu eu agradeço!! Alex - Original Message - From: Fernando Luiz Bortolanzza To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 05, 2006 3:12 PM Subject: RES: [delphi-br] StringGrid Eu estou usando stringgrid no meu projeto e ta funcionando legal. Mas tudo é feito na unha, nada dessas coisinhas prontas, que pegam tudo do banco de dados. Eu faço query jogos no meus datasets (dbexpress) e faço laços para mostrar nas grids. É um pouco trabalhoso, mas ficam bom :) Se quiser fazer assim posso te ajudar, aprendi a mexer com elas não faz mto mas já da pro gasto :) Atenciosamente, Fernando -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alex - Yahoo Enviada em: quarta-feira, 5 de julho de 2006 14:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] StringGrid Mas para manter os dados na grade tem q estar com a transação aberta. Não quero. Só quero abrir a transação para trazer dados ou alterar os dados. Não estou usando componentes TDATASET Estou usando tudo TEDIT e TStringGrid pois não necessitam ter ligação com o banco. Alex - Original Message - From: Zunga Vei To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 05, 2006 1:58 PM Subject: Re: [delphi-br] StringGrid Se você usará para exibir dados use o DBGrid mesmo. Ele é independente do SGBD. Em 05/07/06, Alex - Yahoo [EMAIL PROTECTED] escreveu: Quero dispensar o uso de TIBGRID e usar alguma outra grade mais flexivel e menos dependente de uma conexão. Estou tentando o STRINGGRID mas senti dificuldade na criação dos Titulos em DESIGN TIME. Não consegui. É possivel ou terei que criar até as colunas em RUNTIME?Alguem conhece algum componente nativo do delphi que seja um poco mais facil de lidar do que o STRINGGRID? Alex [As partes desta mensagem que não continham texto foram removidas] -- Saudações, Zunga. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] StringGrid
var Grids : Array of Tstringgrid; SetLength(Grids, Length(Grids) + 1); Grids[Length(Grids)-1] := TStringGrid.Create(Form ou Componente pai ); Grids[Length(Grids)-1].Parent := Form ou Componente pai ; Grids[Length(Grids)-1].Top := Posicao Desejada ; Grids[Length(Grids)-1].Left := Posicao Desejada ; Mude as demais propriedades que forem necessárias. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
