Fórum criar stringgrid #414554
25/03/2012
0
ai vai a imagem do mapa: http://img59.imageshack.us/img59/8669/mapab.png
ele tem que ser baseado no mes selecionado em um combobox, ja ate começei a fazer o formulario, mas nao estou conseguindo fazer o esquema dos dias dos meses e dias da semana
imagem do formulario:http://img585.imageshack.us/img585/6269/telaform.png
ate a parte de carregar os dados da consulta no stringgrid eu consegui, repare que acima do string grid tem 31 edits exibindo dias do mes e 31 edits exibindo dias da semana de acordo com o dia do mes, so que preciso que seja exibido dentro do stringgrid, pois queria fazer tudo dentro do stringgrid porque depois disso preciso selecionar os dias que o apartamento esta ocupado como no exemplo do excel.
se alguem puder me ajudar nessa empreitada ficarei grato pois sou novato em delphi ainda ....
Willian Bento
Curtir tópico
+ 0Posts
25/03/2012
Willian Bento
ai vai a imagem do mapa: http://img59.imageshack.us/img59/8669/mapab.png
ele tem que ser baseado no mes selecionado em um combobox, ja ate começei a fazer o formulario, mas nao estou conseguindo fazer o esquema dos dias dos meses e dias da semana
imagem do formulario:http://img585.imageshack.us/img585/6269/telaform.png
ate a parte de carregar os dados da consulta no stringgrid eu consegui, repare que acima do string grid tem 31 edits exibindo dias do mes e 31 edits exibindo dias da semana de acordo com o dia do mes, so que preciso que seja exibido dentro do stringgrid, pois queria fazer tudo dentro do stringgrid porque depois disso preciso selecionar os dias que o apartamento esta ocupado como no exemplo do excel.
se alguem puder me ajudar nessa empreitada ficarei grato pois sou novato em delphi ainda ....
obs: segue o codigo que usei para criar os dados do stringgrid:
with mapa do
begin
Close;
sql.Clear;
sql.Add(select imoveis.nome_condominio,imoveis.num_ap,imoveis.per_bl_ini,imoveis.per_bl_fim,imoveis.nome_cli,imoveis.quant_pessoas from imoveis +
where imoveis.nome_condominio = :condominio);
ParamByName(condominio).Value := RxDBLookupCombo1.Text;
Open;
First;
contador := 1;
with StringGrid1 do
begin
while not Eof do
begin
ColCount := 31;
RowCount := contador + 1;
colwidths[0] := 149;
colwidths[1] := 50;
colwidths[2] := 60;
rowcount := contador + 1;
font.size := 7;
cells[0,0] := CONDOMÍNIO;
cells[1,0] := PAX;
cells[2,0] := APTO;
cells[0,contador] := mapanome_condominio.value;
cells[1,contador] := inttostr(mapaquant_pessoas.value);
cells[2,contador] := mapanum_ap.value;
inc(contador);
next;
end;
end;
Gostei + 0
25/03/2012
Marco Salles
Gostei + 0
25/03/2012
Willian Bento
nao entendi ?????
foi eu mesmo que citei a pergunta, foi so para observacao
se tiver alguma sugestao agradeco !!
Gostei + 0
27/03/2012
Willian Bento
nao entendi ?????
foi eu mesmo que citei a pergunta, foi so para observacao
se tiver alguma sugestao agradeco !!
e ai alguem para me ajudar ??
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)