Tbaiano

É eu achei tb aqui, Primeiro perguntei e depois procedurei, valeu Tbaiano

E ai galera, O que preciso é bem simples, Queria que quando o usuario entra-se na pagina http://exemplosdelphi.cjb.net redireciona-se para a pagina http://www.geocities.com/exemplosdelphi/ Seria fazer uma index.html com o comando só para redirecionar. Como faço isso?? Como se vê não entendo nada de html. Valeu. Tbaiano

E ai galera o link não está quebrado, tenta copiar o endereço e colocar direto no browser.. http://www.geocities.com/exemplosdelphi/setup.zip Valeu. Tbaiano

D31v1d1, Concordo com vc, eu sou um dos caras que disponibiliza uns fontes por um valor, mas nunca dexei de ajudar quando sei e tenho tempo, mesmo o pessoal que manda direto pro e-mail umas perguntas. Acho que todo mundo sabe se é melhor apreender sozinho ou com exemplos para auxiliar. Valeu. Tbaiano

OSJunior, Vou dar uma olhada nesses pontos... Espero mais opiniões?? Valeu. Tbaiano

E ai galera, Queria pedir para vocês avaliarem esse meu programa, foi feito em Delphi 7 e FireBird mas não precisa instalar o (firebird) está na propria apliacação. Gostaria que observassem alguns pontos, como o instalador, e a criação do arquvo .ini corretamente, e alguns possiveis erros que podem vir a acontecer dependendo da versão do Windows. E se puderem testar os Ultilitários (email, bloco de notas, calculadora) agradeceria. Fiz meio na correria do dia a dia, mas dei uma boa olhada está simples mas bem eficiente. Aguardo sugestões e criticas o que acharem, a itençao é disponibilizar os fontes para programadores iniciantes em Delphi. Link para donwload: http://www.geocities.com/exemplosdelphi/dados/setup.zip Tbaiano Muito Obrigado.

- Ricardo - , No QuickReport faço assim: rellatorio.QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('c:\Report.doc')); Talves lhe ajude, report builder nunca trabalhei... Mas acho que na Biblioteca QRExport você acha a solução. Não tenho certeza. Valeu. Tbaiano

Você vai ter que ter assim: Table 1 Detail : ligado a tabela que tem : nome,receitas,visitas,objetivo do medico Table2 Subdatail : ligado a outa tabela que tem : nome,produto Assim você faz a pesquisa na Query da Tab1e1 e no Data Source que está ligado a ela no evento DataChange coloque o código para localizar os produtos da Table2 apartir da MEDICO. Assim quando gerar os relatorios você vai lista o médico e os produtos deles irão ser listados logo abaixo exe: João Sabonete Shampo Maria Condicionador Sabonete Não esqueça de ligar o quickrep a Table1 a Principal. Acho que é isso, certo mesmo é testando e tentando até conseguir. valeu. Tbaiano

Cordis, Defina o tamanho da coluna assim: DBGrid1.Columns[NúmerodaColuna].Width := 10; e quanto ao preço, cobre o que achar justo o que você pagaria hora de um programador de delphi varia muito. Qualquer coisa. Thaigo

Tente colocar o endereço assim: Servidor:C:\Pasta\NomedoBanco.FDB Qualquer coisa. Tbaiano

Valeu, galera. Obrigado mesmo. Tbaiano

E ai galera, Sou programador Delphi, queria saber se há um jeito de criar uma aplicação do tipo delphi, digo no sentido de botões, edits, forms, aplicações com cadastro de clientes, relatorios - algum tipo de classes, biblioteca devo estudar... para fazer isso em PHP... Qualquer dica é bem vinda, não sei nada sobre o assunto. Valeu. Tbaiano.

Galera, não consigo fazer funcionar essa merda, ele não roda da um erro louco. procedure Impressao ( Cab : Cabecalho; var Arqleitura : text; var Arqsaida : text); var Linha : integer; c : char; begin {--- impressao ---} writeln(Arqsaida); if Cab = PalavrasChave then writeln(Arqsaida, 'PALAVRAS CHAVE:') else writeln(Arqsaida, 'TEXTO:'); writeln(Arqsaida); reset(Arqleitura); //NÃO SEI SE TA CERTO DA UM RESET E DEPOIS ... Linha := 0; while not eof(Arqleitura) // NESSA LINHA ACONTECE O ERRO Q É IGNORADO do begin Linha := Linha + 1; write(Arqsaida, Linha : 5, ' '); while not eoln(Arqleitura) do begin read(Arqleitura, c); write(Arqsaida, c); end; readln(Arqleitura); writeln(Arqsaida); end; end; {--- impressao ---} Valeu... se puderem responder tbaiano@gmail.com agradeço...

Aliandro, O problema é mesmo que não encontra o banco... Veja se não está esquecendo nenhum detalhe no endereço do banco, um jeito flexivel de pegar o endereço do BD é através de um arquivo .Ini, Se você estiver testando quando a conexão do componente IBDatabase do Srvidor realmente não daria erro nenhum, mas quando estiver em outra maquina... Uma dica que acho que é muito boa é colocar o programa para ler o endereço do banco de um Arquivo Ini.. E tenta colocar o Nome da maquina em vez do IP: sempre fiz assim, e tem aquela historia de IP fixo, e etc... Acho uma Complicação.. O nome assim: Servidor:C:\Pasta\BancoDados.GDB Posta ai se tiver algum progresso.. Tbaiano.

fernando_vip, Por acaso não renomeo-u, nehuma Unit... Esse erro pode ocorrer quando renomeamos Unit pelo Windows, e o Delphi não consegue mudar o Nome em todos as outras declarações, tem que fazer manualmente... Qualquer coisa. Tbaiano.

E ai galera, Tenho uma calculadora e ultilizei o StaticText1 da paleta Additional, ele é bem dinamico, da para alinhar, esq, dir, centro... e sombra disso sombra daquilo, tem bordas e o caramba.... É melhor do que usar o label normal... É só... valeu... Tbaiano

Tranquilo... A Forum é para isso mesmo... Tbaiano

É mas olha só acho que é isso: /A primeira vez com o Sub... Form_relat.QRSubDetail8.Enabled := True; qrPreview1.Print; //A segunda vez sem o Sub... Form_relat.QRSubDetail8.Enabled := False; qrPreview1.Print; Tira a palavra qrPrinter ... No meu teste deu certo mas eu estou fazendo isso de outro Formulário, você deve tambem fazer assim... Form_relat.QRSubDetail8.Enabled := True; Form_relat.QuickRep.Print; Qualquer erro posta ai... valeu. Tbaiano

Olha só não é incomodo... Assim funciona olha : //A primeira vez com o Sub... Form_relat.QRSubDetail8.Enabled := True; qrPreview1.qrPrinter.Print; //A segunda vez sem o Sub... Form_relat.QRSubDetail8.Enabled := False; qrPreview1.qrPrinter.Print; Sempre é bom dizer True até mesmo na primeira vez porque se imprimir 2 vezes sem fechar o Form já da erro... Assim pelo o que acho dá certinho. Valeu. Qualquer coisa. Tbaino

- Andreia -, Olha só linda, a propriedade equivalente ao Visible é Enabled... Faça assim... Form_relat.QRSubDetail1.Enabled := false; qrPreview1.qrPrinter.Print; Que vai funcionar... Qualquer coisa. Tbaiano

E ai galera, Olha só tenho um relatório e um QrExpr1 e na Expression dele tenho o seguinte código SUM(frmContas_a_Pagar.QContasCREDITO.value) A query está em outro formulario, mas que eu sei isso não influencia no relatório... Ultilizei esse item uma ez e se não me engano foi assim que fiz mas agora não está dando certo... alguém poderia me ajudar porque assim ele não esta somando nada e aparece em branco o Qrexpr1... valeu pela Atenção... Tbaiano

Valeu, mas nesse meio tempo encontrei uma solução... Ai Vai: procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin if (PageControl1.TabIndex = 2) then if campodeValidacao = False then AllowChange := False; end; Isso aqui se encaixa perfeitamente no que procuro, ele desabilita todos os outras Tag da Page Control. Vou dar um olhada mais detalhada para ver se essa é a melhor forma mas por enquanto acho que sim... Obrigado... Tbaiano

E ai galera... Como faço para não passar para um TabSheet(Tag do Page Control) sem ter uma condição... Digo queria que o Usuario não saisse da Tag sem antes validar um campo certo... o que pensei, em onHide do PageControl coloco esse Código: if CampoValidacao <> True then PageControl1.ActivePage := TabSheet3; //Quero manter visualiada a tabsheet3 mas esse código não funciona ele passa igual, então pensei em caNone na Action, mas não funciona pois esse comando é TActionclose ... alguma coisa, dá um erro... Se alguém puder me judar, agradeço. Valeu. Tbaiano

Obrigado mesmo, Sou do Rio Grande do Sul e o meu tem 10, vou dar uma pesquisada mas então em São Paulo deve ser mesmo 9... Mais uma vez. Obrigado. Tbaiano

E ai Galera, Queria saber se em São Paulo, o RG - Carteira de identidade Tambem é 10 digitos, estou vendo um código de autenticação mas tenho um exemplo que informa um RG de 9... alguém de São Paulo saberia me informar se o RG é 10 ou 9 digitos... Valeu... Aguardo, estou precisando meio urgente... Tbaiano