Re: [delphi-br] excel com delphi - urgente
só tem um problemas com os links abaixo, eu preciso ter login do site para acessa-los e eu naum tenho 2009/6/19 Rafael de Melo rmfaust...@gmail.com Leonardo da uma olhada nesses links http://www.devmedia.com.br/articles/viewcomp.asp?comp=6006hl=*delphi*%20and%20*excel* http://www.devmedia.com.br/articles/viewcomp.asp?comp=6039hl=*delphi*%20and%20*excel* http://www.devmedia.com.br/articles/viewcomp.asp?comp=6103hl=*delphi*%20and%20*excel* 2009/6/19 Leonardo Baldino portaldoinfe...@gmail.comportaldoinferno%40gmail.com alguem sabe como fazer uma apicação que consiga ler um arquivo do excel e exibi-lo num grid e como fazer para criar um arquivo do excel usando dados de um grid -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- A teoria sempre acaba, mais cedo ou mais tarde, assassinada pela experiência. Albert Einstein Atenciosamente Rafael de Melo Faustino Ituiutaba/MG [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda urgente sobre excel com delphi
naum é esse o tipo de formatação, o que eu preciso é mudar a propiedade do
campo da panilha de geral para numero, e eu preciso saber como fazer para
verificar um campo que eu estou jogando no excel só tem numeros.
2009/6/19 Dimas Bolognani di...@dbsoftinformatica.com.br
Tenta estas formatações de células..
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Size := 10;
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Bold := True;
Excel.WorkBooks[1].Sheets[1].cells[L,1].NumberFormat :=
'dd/mm/aa';
Excel.WorkBooks[1].Sheets[1].cells[L,4].NumberFormat :=
'#.##0,00';
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Leonardo Baldino
Enviada em: sexta-feira, 19 de junho de 2009 17:46
Para: Grupo_Delphi
Assunto: [delphi-br] ajuda urgente sobre excel com delphi
eu to usando este codigo para criar arquivos do excel atraves do delphi, só
que eu queria saber se alguem sabe como eu posso fazer para ver se um valor
que eu to colocando no delphi e numerico, porque se for numerico eu queria
saber se alguem sabe como eu faço para mudar a propriedade da celula do
excel de tipo geral para tipo numero.
esse é uma maneira
procedure TForm2.ExportDBGrid(toExcel: Boolean);
var
bm: TBookmark;
col, row: Integer;
sline: String;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
ADOQuery2.Close;
ADOQuery2.Open;
DBGrid1.DataSource.DataSet.DisableControls;
bm := DBGrid1.DataSource.DataSet.GetBookmark;
DataSource2.DataSet.First;
// create the Excel object
if toExcel then
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Teste';
end;
// First we send the data to a memo
// works faster than doing it directly to Excel
mem := TMemo.Create(nil);
mem.Visible := false;
mem.Parent := Form2;
mem.Clear;
sline := '';
Gauge1.MaxValue := DataSource2.DataSet.RecordCount;
Gauge1.Progress := 1;
// add the info for the column names
for col := 0 to DBGrid.FieldCount - 1 do begin
sline := sline + DBGrid.Fields[col].DisplayLabel + #9;
Gauge1.Progress := Gauge1.Progress + 1;
end;
mem.Lines.Add(sline);
// get the data into the memo
DataSource2.DataSet.First;
for row := 0 to DataSource2.DataSet.RecordCount-1 do
begin
sline := '';
for col := 0 to DataSource2.DataSet.FieldCount-1 do begin
sline := sline + DataSource2.DataSet.Fields[col].AsString + #9;
//ShowMessage(DataSource2.DataSet.Fields[row].AsString);
end;
Gauge1.Progress := Gauge1.Progress + 1;
mem.Lines.Add(sline);
DataSource2.DataSet.Next;
end;
Gauge1.Progress := Gauge1.MaxValue;
// we copy the data to the clipboard
mem.SelectAll;
mem.CopyToClipboard;
// if needed, send it to Excel
// if not, we already have it in the clipboard
if toExcel then
begin
ExcelApp.Workbooks[1].WorkSheets['Teste'].Paste;
ExcelApp.Visible := true;
end;
FreeAndNil(mem);
//FreeAndNil(ExcelApp);
DataSource2.DataSet.GotoBookmark(bm);
DataSource2.DataSet.FreeBookmark(bm);
DataSource2.DataSet.EnableControls;
Screen.Cursor := crDefault;
end;
---
e essa é outra
ExcelApplicationl := TExcelApplication.Create(nil);
ExcelApplicationl.Workbooks.Add(EmptyParam, 0);
ExcelApplicationl.Visible[0] := True;
Planilha := ExcelApplicationl.WorkBooks[1].WorkSheets[1];
ADOQuery2.Open;
for C := l to ADOQuery2.FieldCount do begin
Planilha.Cells[l,C].Select;
Planilha.Cells[l,C].Font.Bold := True;
Planilha.Cells[l,C].Value := ADOQuery2.Fields[C-1].DisplayLabel;
end;
L := 2;
while not ADOQuery2.Eof do begin
for C := 1 to ADOQuery2.FieldCount do begin
//Planilha.Cells[L,C].Select;
Planilha.Cells[L,C].Value := ADOQuery2.Fields [C-1].AsString;
end;
L := L + 1; ADOQuery2.Next;
end;
// ADOQuery2.Close;
ExcelApplicationl.Free;
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.364 / Banco de dados de vírus: 270.12.80/2187 - Data de
Lançamento: 06/19/09 06:53:00
[As partes desta mensagem que não continham texto foram removidas]
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Listar datasets presentes em um form
Já descobri como se faz. É muito fácil, eu estava tentando reinventar a roda. Eu achava que tinha que fazer alguma rotina pra verificar os componentes que existiam no form e listá-los na propriedade. Basta declarar a propriedade: property DataSet : TDataSet; Depois é digitar CTRL + ALT + C e está pronto. Quando o componente for colocado no form já aparece a propriedade Dataset no Object Inspector com todos os datasets que foram colocados no form. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Duvida sobre intraweb
Senhores, Estou pensando em fazer um sistema usando intraweb, devido ao tempo curto, estou querendo usa-lo. Alguém poderia me dizer se seria algo interessante? O sistema será para controles de alunos e contas a pagar e receber. Será que ele fica muito pesado? Como funciona o carregamento, ele baixa tudo ou será por partes? Se puderem me ajudar com mais informações eu agradeceria. Muito obrigado, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: Re:[delphi-br]Ativo Fixo - +/- off topic
Caro Bollasette Parabens pela forma clara e altamente didática de sua msg sobre ativo fixo. Diante dos conhecimentos contábeis que voce demonstrou nela, me encorajo a lhe perguntar se voce teria alguma indicação de onde encontrar material de orientação e leitura sobre folha de pagamento. Estou envolvido no desenvolvimento de uma folha de pagamento e, embora tenha toda a acessoria contábil fornecida pelo cliente, gostaria de me informar mais sobre o assunto. Obrigado Edison Garcia
Re: [delphi-br] ajuda urgente sobre excel com delphi
Leonardo, tudo bom?
Seguinte, se quiser aguardar na lista por uma resposta, creio que isso
se dará até a próxima semana visto que final de semana quase todos não
acessam a internet. Mas, você poderia ir no Google e digitar: Delphi
+excel, vai te trazer um montão de links, se fizer buscas em inglês vai
te trazer zilhões. O inglês não é problema pois você vendo o código vai
saber se te serve, ou, espera a próxima semana.
Espero ter ajudado.
Leonardo Baldino escreveu:
naum é esse o tipo de formatação, o que eu preciso é mudar a propiedade do
campo da panilha de geral para numero, e eu preciso saber como fazer para
verificar um campo que eu estou jogando no excel só tem numeros.
2009/6/19 Dimas Bolognani di...@dbsoftinformatica.com.br
mailto:dimas%40dbsoftinformatica.com.br
Tenta estas formatações de células..
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Size := 10;
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Bold := True;
Excel.WorkBooks[1].Sheets[1].cells[L,1].NumberFormat :=
'dd/mm/aa';
Excel.WorkBooks[1].Sheets[1].cells[L,4].NumberFormat :=
'#.##0,00';
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em
nome de Leonardo Baldino
Enviada em: sexta-feira, 19 de junho de 2009 17:46
Para: Grupo_Delphi
Assunto: [delphi-br] ajuda urgente sobre excel com delphi
eu to usando este codigo para criar arquivos do excel atraves do
delphi, só
que eu queria saber se alguem sabe como eu posso fazer para ver se
um valor
que eu to colocando no delphi e numerico, porque se for numerico eu
queria
saber se alguem sabe como eu faço para mudar a propriedade da celula do
excel de tipo geral para tipo numero.
esse é uma maneira
procedure TForm2.ExportDBGrid(toExcel: Boolean);
var
bm: TBookmark;
col, row: Integer;
sline: String;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
ADOQuery2.Close;
ADOQuery2.Open;
DBGrid1.DataSource.DataSet.DisableControls;
bm := DBGrid1.DataSource.DataSet.GetBookmark;
DataSource2.DataSet.First;
// create the Excel object
if toExcel then
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Teste';
end;
// First we send the data to a memo
// works faster than doing it directly to Excel
mem := TMemo.Create(nil);
mem.Visible := false;
mem.Parent := Form2;
mem.Clear;
sline := '';
Gauge1.MaxValue := DataSource2.DataSet.RecordCount;
Gauge1.Progress := 1;
// add the info for the column names
for col := 0 to DBGrid.FieldCount - 1 do begin
sline := sline + DBGrid.Fields[col].DisplayLabel + #9;
Gauge1.Progress := Gauge1.Progress + 1;
end;
mem.Lines.Add(sline);
// get the data into the memo
DataSource2.DataSet.First;
for row := 0 to DataSource2.DataSet.RecordCount-1 do
begin
sline := '';
for col := 0 to DataSource2.DataSet.FieldCount-1 do begin
sline := sline + DataSource2.DataSet.Fields[col].AsString + #9;
//ShowMessage(DataSource2.DataSet.Fields[row].AsString);
end;
Gauge1.Progress := Gauge1.Progress + 1;
mem.Lines.Add(sline);
DataSource2.DataSet.Next;
end;
Gauge1.Progress := Gauge1.MaxValue;
// we copy the data to the clipboard
mem.SelectAll;
mem.CopyToClipboard;
// if needed, send it to Excel
// if not, we already have it in the clipboard
if toExcel then
begin
ExcelApp.Workbooks[1].WorkSheets['Teste'].Paste;
ExcelApp.Visible := true;
end;
FreeAndNil(mem);
//FreeAndNil(ExcelApp);
DataSource2.DataSet.GotoBookmark(bm);
DataSource2.DataSet.FreeBookmark(bm);
DataSource2.DataSet.EnableControls;
Screen.Cursor := crDefault;
end;
---
e essa é outra
ExcelApplicationl := TExcelApplication.Create(nil);
ExcelApplicationl.Workbooks.Add(EmptyParam, 0);
ExcelApplicationl.Visible[0] := True;
Planilha := ExcelApplicationl.WorkBooks[1].WorkSheets[1];
ADOQuery2.Open;
for C := l to ADOQuery2.FieldCount do begin
Planilha.Cells[l,C].Select;
Planilha.Cells[l,C].Font.Bold := True;
Planilha.Cells[l,C].Value := ADOQuery2.Fields[C-1].DisplayLabel;
end;
L := 2;
while not ADOQuery2.Eof do begin
for C := 1 to ADOQuery2.FieldCount do begin
//Planilha.Cells[L,C].Select;
Planilha.Cells[L,C].Value := ADOQuery2.Fields [C-1].AsString;
end;
L := L + 1; ADOQuery2.Next;
end;
// ADOQuery2.Close;
ExcelApplicationl.Free;
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.364 / Banco de dados de vírus: 270.12.80/2187 - Data de
Lançamento: 06/19/09 06:53:00
.
[delphi-br] Driver DBX para Firebird no Delphi 2009
Alguém pode me dizer onde encontro ? - Driver DBX para Firebird no Delphi 2009 (Free). De preferência com fontes. Iran Lima [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida com o DBComboBox.
Olá...Galera.
Estou com uma dúvida aqui em casa,tenho uma aplicação e ela possui um CheckBox
e um DBComboBox ,gostaria de quando marcado o CheckBox apareçe-se
automaticamente todos os meses do ano no DBComboBox (Isso em RunTime).
Tentei esse Código abaixo.
No evento OnClick do CheckBox
procedure TFormAgendamento.CheckBoxMesClick(Sender: TObject);
begin
DBComboBoxValor.Items.Add('Janeiro');
DBComboBoxValor.Items.Add('Fevereiro');
.
.
.
DBComboBoxValor.Items.Add('Dezembro');
end;
O problema é que Até aparece no DBComboBox os meses,mas quando clico em algum
mês Simplesmente não é selecionado.
Obrigado pela atenção
Jairo.
Re: [delphi-br] Listar datasets presentes em um form
em que lugar declara a property ?? Stainle --- Em sáb, 20/6/09, Alisson Yahoo alss...@yahoo.com.br escreveu: De: Alisson Yahoo alss...@yahoo.com.br Assunto: Re: [delphi-br] Listar datasets presentes em um form Para: delphi-br@yahoogrupos.com.br Data: Sábado, 20 de Junho de 2009, 11:53 Já descobri como se faz. É muito fácil, eu estava tentando reinventar a roda. Eu achava que tinha que fazer alguma rotina pra verificar os componentes que existiam no form e listá-los na propriedade. Basta declarar a propriedade: property DataSet : TDataSet; Depois é digitar CTRL + ALT + C e está pronto. Quando o componente for colocado no form já aparece a propriedade Dataset no Object Inspector com todos os datasets que foram colocados no form. _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Opinião Visual
Boa noite pessoal, Estou querendo uma opinião de vc's para saber qual delphi tem um visual mais bonito em relação aos forms, botões, Eu uso o delphi 7, será que as versões mais atuais teriam essa viasualização, isso sem ser o delphi 2009.
[delphi-br] Web services
Olá pessoal, por acaso alguém da lista conseguiu consumir webservices com o lazarus? estou sofrendo aqui com o WST (Web Service Toolkit”), alguém poderia me dar uma luz? teriam um exemplo simples? obrigado -- José Benedito Software Developer skype:jb.sologix -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Duvida sobre intraweb
Alguém poderia me dizer se seria algo interessante? Sim. O sistema será para controles de alunos e contas a pagar e receber. Será que ele fica muito pesado? Como funciona o carregamento, ele baixa tudo ou será por partes? O que vc quer dizer com baixa tudo? Se vc se refere a carga de dados, depende mais da forma que vc programou. Abrir toda a tabela de clientes de uma vez só para pesquisa pode ser chamado de baixar tudo, mas isso pode (e deve) ser otimizado. Dá uma olhada no sistema que desenvolvi em www.slabweb.com.br Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br
RE: [delphi-br] Duvida sobre intraweb
tem muita coisa boa feita em IW, no link do coderage tem um vídeo meu sobre vcl for web 2.0 (http://cc.embarcadero.com/coderage), este vídeo ira lhe ajudar com os primeiros passos, e no grupo NDDV encontrara mais pessoas que utilizam o IW e podem ajudar http://www.yahoogrupos.com.br/group/nddv . abs BL From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Marcelo Moacir Florindo Sent: sábado, 20 de junho de 2009 19:33 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Duvida sobre intraweb Senhores, Estou pensando em fazer um sistema usando intraweb, devido ao tempo curto, estou querendo usa-lo. Alguém poderia me dizer se seria algo interessante? O sistema será para controles de alunos e contas a pagar e receber. Será que ele fica muito pesado? Como funciona o carregamento, ele baixa tudo ou será por partes? Se puderem me ajudar com mais informações eu agradeceria. Muito obrigado, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Duvida sobre intraweb
Olá pessoal, --- Em delphi-br@yahoogrupos.com.br, Jackson Gomes - ToolsComps jack...@... escreveu Dá uma olhada no sistema que desenvolvi em www.slabweb.com.br Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@... Fone: 27 3389 1138 - 8811 0324 http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br Jackson, parabéns pelo sistema, está show ;-) . Eu queria montar algo assim só que local, substituir os Forms por páginas em HTML, e criar um software que ao invés de abrir Forms chamasse os HTML's (dava até para incrementar com animações em Flash), tipo o FlameRobin, acho que não procurei direito na web, mas acredito que tenha algo desse tipo open source, eu quero usar em sistemas simples, voltados para estudos. --- []'s, Silvio Clécio --- Linux User: #481900 Gmail, GTalk: silviop...@gmail.com E-mail, Y! Messenger: silviop...@yahoo.com.br BlogSite: http://silvioprog.blogspot.com/ BlogSpot: http://silvioclecio.blogspot.com/ VirtualDriver: http://silvioprog.4shared.com/ °oO| Seja livre, use Linux! |Oo°
Re: [delphi-br] Re: Tabelas virtuais
Voce tem um campo data na TB_HORA? Para saber a hora de qual dia voce quer pegar... Ou o proprio campo hora_consulta é um DATETIME que grava a data e hora? Bom, vou supor que o campo hora_consulta é um DateTime... Acho que voce pode fazer assim: (não testei, pois não tenho as tabelas na minha base) SELECT TH.hora_consulta, TA.cod_agenda, TP.nome, FROM TB_HORA AS TH LEFT JOIN TB_AGENDA AS TA ON TA.cod_hora = TH.cod_hora LEFT JOIN TB_PACIENTE AS TP ON TP.cod_paciente = TA.cod_paciente WHERE TH.hora_consulta BETWEEN '2009.07.01 07:00:00' AND '2009.07.01 22:00:00' Como voce já tem todas as horas cadastradas na TB_HORA, esse select lhe retornará todas as horas desse intervalo, mesmo se não houver nenhum paciente registrado para aquele horário, porque voce estará usando o LEFT JOIN. Se voce usar o INNER JOIN, só trará as horas com pacientes cadastrados, do jeito que o seu sistema já está fazendo. Testa aí, e qq coisa avisa. Edelson. 2009/6/20 asandro1501 asandro1...@yahoo.com.br Basicamente são 3 tabelas relacionadas porque criei uma tabela de horas mas não sei se é preciso utilizá-la mas por enquanto estou utilizando. TB_HORA cod_hora hora_consulta Na TB_HORA estão inseridos todos os horários das 07:00 até 22:00 TB_PACIENTE cod_paciente nome TB_AGENDA cod_agenda - autoincremento cod_paciente - faz relacionamento com TB_PACIENTE cod_hora - faz relacionamento com TB_HORA hora O campo hora é um coringa caso elimine o cod_hora daí só trabalharia com as tabelas TB_PACIENTE e TB_AGENDA Digamos que para o dia 01/07/09 eu tenha somente o paciente 1 marcado para as 09:00 da manhã e que o cod_agenda seja 50. Na consulta que tenho ela só retorna uma linha mas preciso que retorne como abaixo: HORACONSULTA COD_AGENDA COD_PACIENTE 07:00 em branco em branco 07:01 em branco em branco 09:00 50 1 09:01 em branco em branco 09:02 em branco em branco 22:00 em branco em branco Não sei se você conseguiu entender mas preciso que apareçam todos os horarios mesmo que não hajam consultas marcadas. Se você quiser posso mandar o código-fonte Abraço Alex Silva --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Edelson Regis de Lima edre...@... escreveu Acho que dá para fazer isso via SQL sim... Passa aí um exemplo de como voce quer que fique esse relatorio, e a estrutura completa das tabelas que voce quer usar (ou pelo menos os campos que voce quer usar de cada tabela). Se precisar criar um ClientDataSet temporário em run time com o resultado também não é difícil não... passa as informações aí e vamos ver se conseguimos te ajudar... Edelson. 2009/6/19 asandro1501 asandro1...@... Olá Pessoal Primeiramente quero agradecer a todos pelas respostas que recebi até hoje. Eu comecei uma agenda médica em firebird mas modifiquei para mysql+zeos, estou satisfeito com os resultados até agora, porem ainda tenho que montar uma visualização numa grid que mostre todos os agendamentos para uma determinada data + os horários vagos. Via sql não consegui fazer essa vizualização. Aqui mesmo no grupo me disseram para estudar orientação a objetos mas não tenho tempo habil pra isso. Outra coisa que me disseram também seria a utilização de um clientdataset mas também nunca utilizei e agora não sei se é possível utilizar este componente juntamente com o zeos. Criei uma tabela com horarios das 07:00 até 22:00 horas e relacionei com a tabela agenda Na tabela de agenda tenho os seguintes campos: cod_agenda - chave primaria cod_paciente - chave estrangeira com tabela de pacientes cod_hora - chave estrangeira com tabela de horas hora_consulta O campo hora consulta é para o caso de não utilizar a tabela de horas, deixei como uma forma de escape até descobrir ao certo o que fazer. Por favor se alguem puder me ajudar mais uma vez eu agradeço, posso até enviar o código fonte se for o caso. Deus abençoe a todos Alex Silva msn: lekinh...@... lekinhors%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Driver DBX para Firebird no Delphi 2009
Tudo a respeito do fire eu tenho o habito de consultar dois lugares. Se não achar lá então... www.firebase.com.br http://www.comunidade-firebird.org/ []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Iran Lima To: delphi-br@yahoogrupos.com.br Sent: Saturday, June 20, 2009 9:52 AM Subject: [delphi-br] Driver DBX para Firebird no Delphi 2009 Alguém pode me dizer onde encontro ? - Driver DBX para Firebird no Delphi 2009 (Free). De preferência com fontes. Iran Lima [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida sobre intraweb
Consigo faze-lo funcionar em linux? Quando falo em baixar tudo, refiro-me se ele enviará apenas as páginas requisitadas ou todo o aplicativo para o browser do cliente. Marcelo 2009/6/20 Jackson Gomes - ToolsComps jack...@toolsandcomps.com Alguém poderia me dizer se seria algo interessante? Sim. O sistema será para controles de alunos e contas a pagar e receber. Será que ele fica muito pesado? Como funciona o carregamento, ele baixa tudo ou será por partes? O que vc quer dizer com baixa tudo? Se vc se refere a carga de dados, depende mais da forma que vc programou. Abrir toda a tabela de clientes de uma vez só para pesquisa pode ser chamado de baixar tudo, mas isso pode (e deve) ser otimizado. Dá uma olhada no sistema que desenvolvi em www.slabweb.com.br Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br devhost%40devhost.com.br -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Tabelas virtuais
Funcionou no gerenciador do mysql, depois vou implementar no delphi. Uma última ajuda. A tabela de horas tem o cadastro de horas de minuto em minuto por isso a visualização das horas num combo fica muito ruim. Você sabe uma instrução sql para que ela apareça de 10 em 10, 20 em 20 ou 30 em 30 minutos, claro que estas opções podem ser divididas num radiogoupbox, por exemplo, e de acordo com a escolha será a visualizão. Por exemplo: Das 07:00 até 07:59 eu tenho 60 itens num combo porque são 60 minutos 07:00 07:01 até 07:59 se eu tiver a possibilidade de escolher por visualizar de 20 em 20 minutos eu terei somente 3 campos no combo 07:00 07:20 07:40 Você pode me dar mais essa ajuda? Depois de todo este sufoco deixo a minha palavra que vou disponibilizar este código fonte para o grupo. Deus abençoe Alex Silva --- Em delphi-br@yahoogrupos.com.br, Edelson Regis de Lima edre...@... escreveu Voce tem um campo data na TB_HORA? Para saber a hora de qual dia voce quer pegar... Ou o proprio campo hora_consulta é um DATETIME que grava a data e hora? Bom, vou supor que o campo hora_consulta é um DateTime... Acho que voce pode fazer assim: (não testei, pois não tenho as tabelas na minha base) SELECT TH.hora_consulta, TA.cod_agenda, TP.nome, FROM TB_HORA AS TH LEFT JOIN TB_AGENDA AS TA ON TA.cod_hora = TH.cod_hora LEFT JOIN TB_PACIENTE AS TP ON TP.cod_paciente = TA.cod_paciente WHERE TH.hora_consulta BETWEEN '2009.07.01 07:00:00' AND '2009.07.01 22:00:00' Como voce já tem todas as horas cadastradas na TB_HORA, esse select lhe retornará todas as horas desse intervalo, mesmo se não houver nenhum paciente registrado para aquele horário, porque voce estará usando o LEFT JOIN. Se voce usar o INNER JOIN, só trará as horas com pacientes cadastrados, do jeito que o seu sistema já está fazendo. Testa aí, e qq coisa avisa. Edelson. 2009/6/20 asandro1501 asandro1...@... Basicamente são 3 tabelas relacionadas porque criei uma tabela de horas mas não sei se é preciso utilizá-la mas por enquanto estou utilizando. TB_HORA cod_hora hora_consulta Na TB_HORA estão inseridos todos os horários das 07:00 até 22:00 TB_PACIENTE cod_paciente nome TB_AGENDA cod_agenda - autoincremento cod_paciente - faz relacionamento com TB_PACIENTE cod_hora - faz relacionamento com TB_HORA hora O campo hora é um coringa caso elimine o cod_hora daí só trabalharia com as tabelas TB_PACIENTE e TB_AGENDA Digamos que para o dia 01/07/09 eu tenha somente o paciente 1 marcado para as 09:00 da manhã e que o cod_agenda seja 50. Na consulta que tenho ela só retorna uma linha mas preciso que retorne como abaixo: HORACONSULTA COD_AGENDA COD_PACIENTE 07:00 em branco em branco 07:01 em branco em branco 09:00 50 1 09:01 em branco em branco 09:02 em branco em branco 22:00 em branco em branco Não sei se você conseguiu entender mas preciso que apareçam todos os horarios mesmo que não hajam consultas marcadas. Se você quiser posso mandar o código-fonte Abraço Alex Silva --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Edelson Regis de Lima edregis@ escreveu Acho que dá para fazer isso via SQL sim... Passa aí um exemplo de como voce quer que fique esse relatorio, e a estrutura completa das tabelas que voce quer usar (ou pelo menos os campos que voce quer usar de cada tabela). Se precisar criar um ClientDataSet temporário em run time com o resultado também não é difícil não... passa as informações aí e vamos ver se conseguimos te ajudar... Edelson. 2009/6/19 asandro1501 asandro1501@ Olá Pessoal Primeiramente quero agradecer a todos pelas respostas que recebi até hoje. Eu comecei uma agenda médica em firebird mas modifiquei para mysql+zeos, estou satisfeito com os resultados até agora, porem ainda tenho que montar uma visualização numa grid que mostre todos os agendamentos para uma determinada data + os horários vagos. Via sql não consegui fazer essa vizualização. Aqui mesmo no grupo me disseram para estudar orientação a objetos mas não tenho tempo habil pra isso. Outra coisa que me disseram também seria a utilização de um clientdataset mas também nunca utilizei e agora não sei se é possível utilizar este componente juntamente com o zeos. Criei uma tabela com horarios das 07:00 até 22:00 horas e relacionei com a tabela agenda Na tabela de agenda tenho os seguintes campos: cod_agenda - chave primaria cod_paciente - chave estrangeira com tabela de pacientes cod_hora - chave estrangeira com tabela de horas hora_consulta O campo hora consulta é para o caso de não utilizar a tabela de horas, deixei como uma forma de escape até descobrir ao certo o que fazer. Por favor se alguem puder me ajudar mais uma vez eu agradeço, posso até enviar o
Re: Re:[delphi-br]Ativo Fixo - +/- off topic
Edison, aqui vai minha modesta colaboração: recomendo a leitura do assunto pertinente nas obras publicadas pela IOB e seus boletins periódicos (faça pesquisa de outras empresas de consultorias), tendo em vista tratar-se de legislação com grau significativo de constantes alterações, como é o caso do novo teto da previdência social, o qual o seu projeto deverá prever uma tabela flexível para novos valores. [ ]s - Original Message - From: EdisonDRP edison...@globo.com To: delphi-br@yahoogrupos.com.br Sent: Saturday, June 20, 2009 7:21 PM Subject: Re: Re:[delphi-br]Ativo Fixo - +/- off topic Caro Bollasette Parabens pela forma clara e altamente didática de sua msg sobre ativo fixo. Diante dos conhecimentos contábeis que voce demonstrou nela, me encorajo a lhe perguntar se voce teria alguma indicação de onde encontrar material de orientação e leitura sobre folha de pagamento. Estou envolvido no desenvolvimento de uma folha de pagamento e, embora tenha toda a acessoria contábil fornecida pelo cliente, gostaria de me informar mais sobre o assunto. Obrigado Edison Garcia -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.338 / Banco de dados de vírus: 270.12.81/2188 - Data de Lançamento: 06/19/09 17:56:00 -- -- Nenhum vírus encontrado nessa mensagem enviada. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.338 / Banco de dados de vírus: 270.12.81/2188 - Data de Lançamento: 06/19/09 17:56:00 [As partes desta mensagem que não continham texto foram removidas]
