Jhonas

procedure TForm1.Button1Click(Sender: TObject); var s : string; begin ADOQuery2.Active:=False; s := 'Select '; if CheckBox1.Checked = true then s := s + 'COD, '; /// campo da sua tabela if CheckBox2.Checked = true then s := s + 'DATA, '; /// campo da sua tabela if CheckBox3.Checked = true then s := s + 'NOMCLI, '; /// campo da sua tabela s := s + 'FROM Tabela'; if Pos(', FROM', S) > 0 then delete(s,Pos(', FROM', S),1); ADOQuery2.SQL.Clear; ADOQuery2.SQL.Append(s); ADOQuery2.Active:=True; end; abraço

Neste endereço tem varios exemplos http://www.qusoft.com/stanlegacy.html abaço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=482659 abraço

///// EM 2004 Futuro do Delphi é tema de debate Por Computerworld Publicada em 09 de junho de 2004 às 15h05 A Borland, empresa especializada em soluções para acelerar o ciclo de desenvolvimento de aplicativos, realiza até o dia 8 de julho uma seqüência de eventos sobre o futuro do Delphi. Os debates devem passar por várias cidades como Belém, Blumenau, Curitiba, Porto Alegre, Recife, Goiânia, Rio de Janeiro, Campinas e Sorocaba. O evento visa apresentar os diferenciais da ferramenta Borland Delphi e as tendências do mercado para os desenvolvedores de aplicativos e contará com a presença dos técnicos da empresa e de parceiros locais. Entre os destaques, está a apresentação do Delphi 8 para a plataforma .NET, da Microsoft. A inscrição é gratuita e garante 20% de desconto no credenciamento para a Borland Conference Brasil 2004, que acontece em agosto, no Anhembi/SP; 10% de desconto no curso Formação Oficial Borland Delphi 8: Introdução à plataforma .NET + Delphi 8 for . NET Essentials + Delphi 8 for . NET ASP . NET Essentials. A inscrição e a programação completa podem ser acessadas no site http://info.borland.com.br/delphimeeting /// EM 2006 Veja o artigo http://www.linhadecodigo.com.br/Artigo.aspx?id=1067 //// EM 2008 FUTURO É de se esperar que a Borland trabalhe no sentido de fazer uma convergência maior entre os diversos tipos de aplicativos hoje disponíveis no novo Delphi 8. Como se trata de um produto migrando para uma plataforma diferente, sempre existem muitas arestas a aparar. A Borland diz que vai continuar dando suporte ao Delphi no âmbito do desenvolvimento para Win32. Sua estratégia neste sentido, entretanto, ainda não está muito clara e isso pode deixar muitos desenvolvedores inquietos. No intuito de tranqüilizar a comunidade, a empresa promete esclarecer e divulgar seus planos sobre o assunto no início de março deste ano. Por enquanto, a política adotada é a mesma que foi usada com o Delphi 1: o Delphi 7 vem embutido no pacote do Delphi .NET, mas num CD separado e deve ser instalado à parte. CONCLUINDO O Delphi 8 é uma grande ferramenta. Nesta nova versão, muitos conceitos mudaram com a introdução da plataforma .NET, de forma que será necessário que o desenvolvedor procure se inteirar melhor sobre o assunto para poder explorar ao máximo as novas possibilidades de criação de aplicativos. Artigo Completo http://www.delphibr.com.br/artigos/delphi8.php OBS: Sou programador a muitos anos, já trabalhei com varias linguagens... o unico diferencial é que sempre que precisei me adapatei as linguagens que o mercado dispunha. A evolução natural de um programador é acompanhar a evolução natural das linguagens de programação. abraço

Habilite o wireless no seu micro/notebook, deixe habilitado o DHCP.. Para configurar o router, abra seu browser e digite o endereço 192.168.1.1 e use o usuário admin e a senha admin, então abrirá uma página que é o configurador do seu router. Não precisa de manual, é bem simples.... mas se precisar ... Maiores informações: http://www-br.linksys.com/servlet/Satellit...FVisitorWrapper abraço

Existe um aparelho chamado Comutador de Video para esta finalidade http://www.bceletronica.com.br/PaginaBCE/c...tribuidores.htm http://images.google.com.br/imgres?imgurl=...D2%26hl%3Dpt-BR abraço

///////// abraço

Existe sim e é pago....só que não me lembro onde vi ..... procure na net. abraço

Se voce antes conseguia visualizar e agora não, possivelmente arquivos foram corrompidos. ( pode ser bad clusters no hd ou virus ). susgestão: tente instalar os drives de video novamente, caso não funcione, formate o hd e reinstale o windows. abraço

Veja este Post http://scriptbrasil.com.br/forum/index.php...st&p=498578 abraço

abraço

Olhe a diferença: com relação a sql, sugiro voce usar o break point com o debugger do delphi para poder acompanhar no codigo, quais os valores que estão sendo atribuidos as variaveis. se não souber como usar, procure no forum pelas palavras debugger ou break abraço

Crie uma condição usando o comando if ou experimente printer.canvas.Draw(1,1, Bmp); abraço

Qualquer modificação deve ser executada antes do preview do QR no evento OnBeforePrint Modificações de tamanho na banda de detalhe durante a impressão tambem são possiveis, desde que exista uma condição que seja satisfeita em qualquer campo existente dentro da banda, usando o evento OnPrint deste campo. Supondo que todos os campos já foram definidos na banda de detalhe, não vejo razão para alterar este tamanho, o que implicaria somente em mais espaços em branco na folha. abraço

Este erro acontece em virtude deste codigo Application.CreateForm(TQrSemanal,QrSemanal); /// /// /// QrSemanal.Preview; QrSemanal.Free; Altere o codigo deste maneira try if QrSemanal = Nil then QrSemanal := TQrSemanal.Create(self); except ShowMessage('Erro na criação do relatório!!'); exit; end; QrSemanal.Prepare; QrSemanal.PreviewModal; QrSemanal.Free; QrSemanal := Nil; abraço

exemplos: http://www.devmedia.com.br/articles/viewco...mp=2562&hl= http://www.linhadecodigo.com.br/ArtigoImpressao.aspx?id=822 http://www.rads.com.br/delphi_main.php http://tudosobreinfo.wordpress.com/2008/08...ess-e-firebird/ http://imasters.uol.com.br/artigo/3777/del...sses_do_delphi/ Para quem quer aprender Delphi do basico ao avançado http://www.apostilando.com/sessao.php?cod=13 Olhe os exemplos.... que voce conseguira fazer. abraço

Existe uma unit chamada Txtrafil que acompanha o delphi 4 que permite salvar o QuickReport com outras extensões ou veja este post http://scriptbrasil.com.br/forum/index.php...st&p=467809 outros http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=727 http://www.plugmasters.com.br/sys/materias...do-Quick-Report http://baixaki.ig.com.br/download/PDFCreator.htm abraço

a consulta se refere a uma tabela que não existe (tbl_cor) Realmente não existe uma tabela (tbl_cor) ...mas um nome que faz uma referencia a tabela (FROM tabcorr tbl_cor ) onde o nome da tabela é tabcorr da mesma maneira foi feita uma referencia a tabela tabLocalidade ( LEFT JOIN tabLocalidade tbl_loc ) Por que não se coloca o nome verdadeiro da tabela ? porque isto varia de progamador para programador, alguns gostam de fazer assim outros não. Um exemplo bem simples: SELECT ID.PAPEL, ID.COD, ID.NUM FROM Acoes ID Imaginemos que sua tabela se chama Acoes.DB... e voce resolve referenciar esta tabela com outro nome ( ID ) para que fique mais facil identifica-la neste caso voce perceberá que o ID é nova a referencia para a tabela e seus campos... faça o teste .... se retirar o nome do identificador da tabela ( FROM Acoes ID ) deixando asssim ( FROM Acoes ) e mantendo o ID como referencia nos campos, provocará um erro ( Invalid field name ) ao ativar a select. Mais informações http://www.geocities.com/overond/DELPHI3apost.html abraço

Isto é um erro tipico de rede... verifique as configurações de rede no micro que esta travando. abraço

este codigo lista as janelas abertas, mesmo invisiveis em um listbox function EnumWindowsProc(Wnd: HWnd; Form:TForm1): Boolean; Export; {$ifdef Win32} StdCall; {$endif} var Buffer: Array[0..99] of Char; begin GetWindowText(Wnd, Buffer, 100); if StrLen(Buffer)>0 then Form.ListBox1.Items.Add(StrPas(Buffer)); Result :=true; end; procedure TForm1.Button1Click(Sender: TObject); begin EnumWindows(@EnumWindowsProc, LongInt(Self)); end; abraço

este codigo lista as janelas abertas, mesmo invisiveis em um listbox function EnumWindowsProc(Wnd: HWnd; Form:TForm1): Boolean; Export; {$ifdef Win32} StdCall; {$endif} var Buffer: Array[0..99] of Char; begin GetWindowText(Wnd, Buffer, 100); if StrLen(Buffer)>0 then Form.ListBox1.Items.Add(StrPas(Buffer)); Result :=true; end; procedure TForm1.Button1Click(Sender: TObject); begin EnumWindows(@EnumWindowsProc, LongInt(Self)); end; abraço

Se eu não me engano ... acho que é o componente TCJVLinkLabel http://www.veloso.adm.br/pacotecjv.asp abraço

Pelo proprio excel voce pode salvar como > .CVS e depois usar uma rotina para ler o arquivo http://scriptbrasil.com.br/forum/index.php...st&p=495058 ou pode salvar o arquivo como .txt e usar esta rotina para ler o aquivo procedure TForm1.Button1Click(Sender: TObject); var F: TextFile; S: string; begin if OpenDialog1.Execute then begin AssignFile(F, OpenDialog1.FileName); // c:\arquivo.txt Reset(F); Readln(F, S); Edit1.Text := S; CloseFile(F); end; end; ou ainda pode salvar como arquivo DBF e usar um componente para ler tabelas DBF convertendo para o IB http://osdir.com/ml/db.firebase.portuguese...1/msg00347.html abraço

Veja este componente para impressão em matricial http://www.deltress.com.br/ abraço

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin if item.Caption = 'aaaaa' then ListView1.Items.Item[0].ListView.Canvas.Font.Style := [fsBold]; end; OBS: no evento o OnCustomDrawItem do listview voce procura pelo caption do item e deixa ele em negrito abraço