Fórum dbGrid 2 valores #281704
15/05/2005
0
Estou desenvolvendo um sistema pra hotel.
Preciso fazer uma agenda, tipo um dbGrid assim:
quarto 1 : quarto 2 : quarto 3 : etc...
data
01/01/05
02/01/05
03/01/05
04/01/05
05/01/05
etc...
Aí, quando o quarto estiver ocupado, ou em reserva, eu trabalharei com cores...
A questão é: Existe um componente tipo o Dbgrid, que trabalhe com os valores de data, daquele jeito ???
Aguardo respostas...
Obrigado pela Paciencia !!
Buck
Curtir tópico
+ 0Posts
16/05/2005
Adielrr
se nao for isso explica teu erro direito
Gostei + 0
16/05/2005
Buck
A questão, é que eu preciso, é como se fosse uma agenda de compromisso, ou melhor, uma planilha....
no lado direito vai ter as data,
................Quarto 1 : Quarto 2
21/01/05
22/01/05
23/01/05
etc
e em cima. como campos do dbGrid, vão os quartos.
Quando o quarto 1 estiver ocupado,dia 21 e 22, eu pintarei o Grid na posição correspondente.
Gostei + 0
16/05/2005
Buck
Gostei + 0
16/05/2005
Edilcimar
Gostei + 0
17/05/2005
Silviogs
tenho um sistema que muda a cor de uma célula quando a data é preenchida.
a rotina:
procedure TFmProcessos.DBGridTramitacaoDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Check : TBitmap;
begin
inherited;
TDBSuperGrid(Sender).Canvas.Brush.Color := clGray;
if (Column.Index = 0) and (not (gdFixed in State)) then begin
with DM do
if QryTramitacaoDTTRAMITAcao.Value <> 0 then begin
try
Check := TBitMap.Create;
Check.LoadFromResourceName(HInstance, ´IMG_GRID_CHECK´);
TDBSuperGrid(Sender).Canvas.Draw((Rect.Right - Rect.Left - Check.Width) div 2 + Rect.Left , Rect.Top, Check);
finally
Check.Free;
end;
end
else begin
try
Check := TBitMap.Create;
Check.LoadFromResourceName(HInstance, ´IMG_GRID_UNCHECK´);
TDBSuperGrid(Sender).Canvas.Draw((Rect.Right - Rect.Left - Check.Width) div 2 + Rect.Left , Rect.Top, Check);
finally
Check.Free;
end;
end; // if - else...
end;
// esta é a parte da rotina para mudar a cor da célula
if (Column.Index = 2) and (not (gdFixed in State)) then begin
if DM.QryTramitacaoDTTRAMITAcao.Value <> 0 then begin
TDBSuperGrid(Sender).Canvas.Brush.Color:= clBackGround;
TDBSuperGrid(Sender).Canvas.Font.Color:= clWindowText;
TDBSuperGrid(Sender).Canvas.FillRect(Rect);
TDBSuperGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Atenciosamente
Silvio Guedes
Gostei + 0
17/05/2005
Buck
As cores do DbGrid sim, valeu...
Mas eu preciso exibir TODOS OS QUARTOS, e um ´CALENDÁRIO´ ao lado
....................Quarto 1 : Quarto 2 : Quarto 3 :etc
mais
21/01/05
22/05/05
23/05/05
24/05/05
25/05/05
26/05/05
27/05/05
28/05/05
mais
Valeu pelas dicas pessoal !!!
Mas a duvida é esta..
Gostei + 0
17/05/2005
Marco Salles
Como esta a construção da sua tabela :?: :?: :?:
Gostei + 0
17/05/2005
Buck
Gostei + 0
17/05/2005
Turbo Drive
Gostei + 0
17/05/2005
Marco Salles
Não entendi??? :cry: :cry: :cry:
Gostei + 0
18/05/2005
Buck
[img]C:\Documents and Settings\Administrador\Desktop\buck\imagem.jpeg[/img]
Gostei + 0
19/05/2005
Buck
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)