delphi - The Club
Contents
1. lt param gt public void Assign double x double y _N1 x N2 y lt summary gt Add the numbers lt summary gt lt returns gt lt returns gt public double Add return Ni N2 lt summary gt Multiply the numbers lt summary gt lt returns gt lt returns gt public double Multiply return _N1 N2 lt summary gt Get the first number lt summary gt SANT ANNA public double N1 get return _N1 lt summary gt Get the second number lt summary gt public double N2 get return _N2 Queremos que usu rios da classe tenham acesso documenta o on line digitada no fonte acima Para isto clique com o bot o direito sobre o projeto no Solution Explorer e digite o nome do arquivo XML no campo XML Documentation File Este arquivo deve ter o mesmo nome que a DLL com a extens o trocada de DLL para xml Rink Pinjpear o Proa Ce ApratT Gral od IB D erre aee erga T Fre padt dr Ca hra oy H tar T ATENT i mdi a aaah s Lt Y Cedros dera eaha Cura Arue ta ETA CRT PT a s TAIE p er Ie alw Tres Lamin Y Ss Trd Tm h 14 Td A rea T Snp knl Lepa car Whdbp ag ied Fm Pa A a DOE a na SH Documer ator Te cofe s mre Tosco CE ch auno a ala ti ah An RR CS RR RR TT E m 851 2 F Compile o programa acima Observe que s o criados dois arquivos principais2. E E E A beires al da Lur U PART rs INTS E E aeda ONEEN CYC AE eba duro a dipa NR a R allerti Joad e Faka rd o amei Pri Fiada 133m Ferk ma 4 ai Paa i Serio oO iape Teq ailli Tue caianHale zJ Shroz aa SR E covas peercrado o alem o pm Da doa ho Ja REL a Code a JF Con FERA Do Note que sendo um SELECT voc n o precisa selecionar obrigat riamente todos os campos da tabela No caso do exemplo que acessa a tabela CLIENTES constante do projeto exemplo do curso podemos tanto selecionar todos os campos como selecionar apenas alguns campos Para selecionar todos os campos da tabela CLIENTES utilizamos o SELECT da seguinte forma SELECT FROM CLIENTES ORDER BY NOME J se quisermos apenas os campos CHAVE NOME e CCG devemos utilizar o SELECT desta outra forma neste caso somente poder o ser acessados entretanto os campos inclu dos no SELECT SELECT CHAVE NOME CGC FROM CLIENTES ORDER BY NOME Durante a opera o v o surgir necessidades de segmentar consultas por Cliente por CGC por Cidade e por muitas outras condi es Como fazer para tornar o SELECT vers til e com pouco c digo Simples Defina 3 vari veis para manipular o SELECT conforme a necessidade do usu rio que poder ter op es para mudar a sele o o ordenamento etc Assim no caso do exemplo ter amos as vari veis clientesBase clientesFiltro e clientesOrdem declaradas como string na Unit principal da a
3. estar oferecendo tributa o imediatamente o valor do repique em sua respectiva al quota 2 3 A outra e n o muito agrad vel possibilidade voc cancelar o cupom emitido com a fun o Bematech FI CancelaCupom void e reimprimir o cupom fiscal incluindo a gorjeta que agora n o mais repique pois voc est reemitindo o cupom fiscal para adicion lo como gorjeta podendo colocar o valor da gorjeta como acr scimo ou em sua respectiva al quota na venda do item MeGAZINE 27 propaganda da mas Pergunta Como fazer para verificar o tamanho de um campo num rico em um arquivo DBF e poder modificar o tamanho do mesmo Resposta Isso poss vel de ser feito atrav s de APIs do if StrIComp FieldDescs Itr Dsc szName PChar Field FieldName 0 then begin Len FieldDescs trDsc iUnitsl Dec FieldDescs Itr Dsc iUnits2 BDE veja abaixo um exemplo para retornar as informa es de Break um campo end finally uses BDE FreeMem FieldDescs FieldDescCount SizeOf FLDDesc pegar o valor de uma campo num rico com decimais no end DBase end procedure GetFieldAttrib Field TField var Len Dec Integer Verifica var var CursorProps CurProps Len Dec Integer FieldDescs PFieldDescList begin FieldDescCount ItrDsc Integer pega begin GetFieldAttrib tabTeste FieldByName Valor Len Dec Len 0 mostra no Caption Dec 0 Caption Tamanho IntToStr Len
4. Criando uma i paira de ferramentas 7 no estilo Outlook Criando e usando DLLs na Plataforma NET Dicas de instru es Oracle Como obter uma ROM a partir de seu Palm Page Sio 0 Mist rio Controtando a Preview do QuickReport am Aar Ting Tratamento do Repique e gosta ap s aantas da enies o do Cupom Fiscal MeGAZINE Q 1 THE CLUB Revista The Club Megazine 05 2002 A utiliza o reprodu o apropria o armazenamento em banco de dados sob qualquer forma ou meio de textos fotos e outras cria es intelectuais em cada publica o da revista The Club s o terminantemente proibidos sem autoriza o escrita dos titulares dos direitos autorais Copyrighto The Clube 2002 THE CLUB Rua Acre 950 Avar SP CEP 18 700 260 Informa es 0xx14 3732 3689 Suporte 0xx14 3733 1588 Fax 0xx14 3732 0987 Internet http www theclub com br Cadastro cadastroOtheclub com br Suporte suporteOtheclub com br Informa es infoQtheclub com br D vidas Correspond ncia ou fax com d vidas devem ser enviados ao THE CLUB indicando Suporte e my Opini o Se voc quer dar a sua opini o sobre o clube em geral mande a sua correspond ncia para a se o Tire sua d vida Reprodu o A utiliza o reprodu o apropria o armazenamento em banco de dados sob qualquer forma ou meio de textos fotos e outras cria es intelectuais em cada publica o da Revista
5. Neste formul rio existe um componente TQuery que pode estar conectado a qualquer banco ou tabela Desktop Como eu posso fazer para identificar em tempo de execu o qual o banco que este objeto esta conectado Resposta Uma forma para isso obter o DRIVER ao qual o Alias esta amarrado veja abaixo um simples exemplo procedure TForml ButtonlClick Sender TObject begin Caption Session GetAliasDriverName Tablel DataBaseName end no caso de Paradox ir retornar STANDARD D vida enviada por Mauro M ncio da Silva S o Paulo SP 30 Q MeGAZINE
6. The Club s o terminantemente proibidos sem autoriza o escrita dos titulares dos direitos autorais Copyright The Club 2001 Im press o e acabamento Impressos Gril Gril Gr fica e Repr Ind Ltda Tel 0xx14 3762 1345 Fax 0xx14 3762 1259 Rua S o Paulo 447 Cep 18 740 000 Taquarituba SP Tiragem 5 000 exemplares Diretor Presidente Celso Jefferson M Paganelli Diretor T cnico Mauro Sant Anna Colaboradores M rio Camilo Bohm Editora Relativa EDITORIAL 4 Editorial Ol amigos Primeiramente eu gostaria de agradecer a todos pelos e mails com sugest es e palavras de incentivo que temos recebido Neste m s estamos trazendo mat rias muito interessantes a respeito de um novo componente que veio junto com o Delphi 6 o ActionBar Outra mat ria muito interessante e que auxiliar muitos s cios a mat ria sobre impressora fiscal e tamb m as dicas e truques Caso voc queira ver alguma mat ria publicada em nossa revista envie um e mail para infoWtheclub com br At a pr xima Celso Jefferson Paganelli Presidente The Club ERON o PRA NAR E ERR E 03 NENG ancorada bin EEA EE 04 Criando e usando DLLs na Plataforma NET im 08 Dicas de instru es Oracle asssssssisisisisrnruninisisisrnreninisinrnrnens 13 Criando uma barra de ferramentas no estilo Outlook 16 Como obter uma ROM a partir de seu Palm sassen 20 Page Size O Mist rio eternas 22 Controlando o Pr
7. toda e emp resa uma ne a m m e Hj j l frt dao pm m MeGAZINE 7 SANT ANNA Criando e usando DLLs na plataforma NET Por Mauro Sant Anna santanna mas com br Mauro um MSDN Regional Director consultor e instrutor da MAS Inform tica www mas com br tendo ministrado treinamentos na arquitetura NET desde outubro de 2000 Em um artigo anterior intitulado Criando DLLs no Microsoft NET abordei o tema da cria o de DLLs na nova plataforma Este artigo continua de onde o anterior parou e discute como criar documenta o on line e tamb m como a Microsoft eliminou o problema do DLL Hel Em v rias situa es interessante quebrar os aplicativos em diferentes arquivos execut veis Desta forma parte da l gica fica em arquivos EXE DLL separados ou assemblies para usar a nomenclatura do NET Framework Tipicamente a l gica de neg cios dos aplicativos separada da interface com o usu rio Por exemplo em um sistema de folha de pagamento cria se uma DLL parte capaz de incluir e alterar o cadastro de um funcion rio que chamada por um ou mais aplicativos que cont m a interface com o usu rio Este esquema tem basicamente as seguintes vantagens As DLLs de neg cio podem ser usadas por v rios programas independentemente de sua interface com o usu rio Windows ou Web por exemplo s DLLs podem ser colocadas em computadores diferentes permi
8. uma DLL e um XML o arquivo PDB cont m informa es de depura o e pode ser apagado tut M Ho fu MeGAZINE Gi 9 SANT ANNA Usando a DLL Para usar a DLL crie um projeto do tipo execut vel por exemplo um aplicativo Windows Add Hew linjal E ia lge mada Trenpal a md Ot Pod TJ S ramos SE for 520 are Dado e t Pros aI kador DO Ve kris E cp a TOIT a ad ro tm rir prann Tarei leey esse w a Oot Lb srr SOL erge soe car if s dags ke ga Eno Eip y pr li Dy aa ALL nan T ual A AL D C LAS Hostoa e te ao pm ba Store Aa oca A ati estro sa om Selecione Project Add Reference e selecione a DLL criada anteriormente Add Reference si OCH as Carpon i ah en rr jo cl E DL ME QI to ET mk sli HR n Li p no el Li H T E pi Des penas oa Dose utero r Eggan dearna AA e EE Dena vayn Aarna F Ded Ia rair hrial ia pudar e SEE MEENE E ygan larn I Desta utero end se Tyga dearna Teka E dvema T Ya i Teana F ruaje faradi T ea penden nmt L yar sec oaIS Legan ieran F m Frikh 1 ytan earrann T me sd iCorpoecs i ma d l mem aa E cora Adap adia E pelo Podemos agora usar o componente normalmente No nosso caso adicionamos um Button e um ListBox ao formul rio O c digo do evento Click do Button o seguinte Observe que a documenta o XML colocada no fonte do componente estar dispon vel como dica Ze en
9. O Big Water segundo ela contar com a tecnologia PCI Peripheral Component Interconnect Express uma especifica o capaz de agilizar a transfer ncia de dados entre os componentes de um PC Essa 4 Q MeGAZINE tecnologia oferece um canal de comunica o de at 200 Mbps velocidade quase duas vezes maior que o sistema PCI existente Para a Intel esse aumento indispens vel para que os futuros computadores acompanhem o avan o dos processadores e das redes e suportem uma quantidade maior de capacidades gr ficas Uma outra caracter stica do Big Water ser a flexibilidade A Intel em sua apresenta o demonstrou como um PC baseado na sua nova tecnologia vai incluir m dulos adicionais de forma que os usu rios podeer o atualizar de forma simples v rios componentes do PC como drives de disco r gido O design do Big Water tamb m ser bem menor que os PCs dispon veis atualmente no mercado Como conseq ncia a Intel quer que seu novo computador seja projetado para ocupar lugares onde os consumidores raramente pensariam em colocar suas m quinas como na parede por exemplo Fonte IDGNOW Imation lan a player MP3 com mini CD R Conhecida pela sua linha de m dias de armazenamento a Imation ampliou sua fam lia de solu es com o RipGo um curioso player MP3 que tamb m funciona como gravador de CD R O conceito lembra vagamente o HipZip da Iomega por m em vez de utilizar uma m dia propriet ria o RipG
10. consultor e instrutor da MAS Inform tica www mas com br tendo ministrado treinamentos na arquitetura NET desde outubro de 2000 para diversas empresas dentre as quais a pr pria Microsoft E mail mas mauroVhotmail com 12 4 MeGAZINE icas de Instru es e DELPHI Comandos Oracle ORACLE M rio Camilo Bohm Bohm Interal Fone 011 4221 6151 marioVbohminteral com br Neste m s vamos discutir algumas dicas bastante teis para ambientes Oracle Divirtam se PROBLEMAS COM INSTALA O DE CLIENTS EM ESTA ES PENTIUM IV Algumas vers es de clients Oracle principalmente as vers es 8 1 6 e 8 1 7 tem problemas para funcionarem adequadamente em equipamentos com processador Pentium IV O problema est na estrutura do instalador que simplesmente n o roda nesses equipamentos e pode ser resolvido facilmente Uma das solu es a seguinte Crie na m quina ou em um diret rio de rede um diret rio NNSTALL ORACLE por exemplo e copie o conte do do CD para dentro dele No diret rio criado renomeie o arquivo symgjit dll para symgjit old e em seguida execute o arquivo setup exe Pronto O COMANDO DESCRIBE EM OBJETOS DO TIPO STORE PROCEDURE O comando DESCRIBE utilizado para descrevermos assim como o pr prio nome do comando o conte do de tabelas Com ele podemos visualizar a estrutura de uma tabela EJA He Edo sih mye XE La DCSCE AOLLOCHAL Hane HuLLY upe E
11. o nico homologado pela Anatel para operar no Brasil A Microsoft Brasil anunciou o lan amento do Wireless IntelliMouse Explorer o mouse sem fio mais avan ado da linha de hardware da empresa O produto que opera por r dio e possui homologa o da Anatel para ser usado no Brasil chega s lojas no final de maio com pre o sugerido de R 265 A homologa o importante porque o sinal de r dio de equipamentos sem fio pode interferir em outras transmiss es como toda a comunica o de tr fego a reo por exemplo Al m disso a garantia de que o usu rio est comprando um produto seguro testado segundo normas internacionais explica Maria Carolina Braga Vianna gerente de marketing de consumo da empresa nt ileve Mast Puweriul Opkival Technology in the Worldi Hin Aana Aail MoMo a kogus Com alcance de at 1 8 metros Whiri Farik Mo Ricca tert de dist ncia do sensor o novo mouse da Microsoft possui dois canais separados de transmiss o que permitem ao usu rio escolher a freq ncia que utilizar O equipamento funciona a pilha modelo AA e vem com um sofisticado sensor que indica a vida til da bateria e quando ela deve ser trocada por meio do software Intellipoint Haster Piltes Sling Fir ProgramimaDio Bumina Tamwa Denam Deign Leads Edge Sp Microsoft m Outra vantagem do produto a tecnologia IntelliEye que foi reformulada e est em uma nova vers o A plataforma substitui a tradicio
12. o recebimento em seu caixa incluindo as gorjetas e os repiques que n o s o os mais f ceis de contabilizar e no final do m s seu neg cio estar perdendo uma quantia consider vel de arrecada o Outra vantagem que seu totalizador dinheiro n o sofreu altera o uma vez que teve a sa da de R 3 00 no cupom como DELPHI TROCO que foi impresso e a entrada desses R 3 00 por meio do totalizador Dinheiro refletindo assim um espelho ou a realidade do fluxo de sua gaveta ou caixa 2 Caso voc j tenha fechado o cupom conforme vimos anteriormente e o cliente tenha deixado R 3 00 como gorjeta que para n s repique e voc necessita oferecer isso tributa o ent o a coisa complicou Mas dentro desta situa o existem outras duas maneiras de se trabalhar na verdade tr s maneiras S o elas 2 1 Voc efetua este mesmo procedimento e por sua vez no final do dia efetua uma sangria de caixa para dar a sa da de dinheiro e emite um cupom fiscal com o total do valor sangrado Vamos imaginar que em todo o dia voc teve de repique o valor de R 35 00 Lembrando sempre que o repique apenas quando o cupom j foi fechado e o cliente est deixando a gorjeta ent o voc sangra a impressora fiscal e emite um cupom oferecendo este valor tributa o respectiva assim 2 2 A segunda possibilidade ap s a emiss o do cupom fiscal voc emitir um outro cupom com o valor do repique com isso voc
13. o repique e a gorjeta que a gorjeta informada antes de fechar o cupom fiscal o repique informado ap s o fechamento do cupom fiscal Vamos considerar os dois casos Caso 1 Valor da Compra de R 47 00 O Cliente pagou R 50 00 e indicou que o troco ser a gorjeta O que deve fazer o software Deve fazer o seguinte No c digo apresentado estamos efetuando a venda de um item cujo total de R 3 00 3 refei es de R 15 00 mais 2 cervejas de 1 00 R 47 00 Em nosso exemplo o cliente esta deixando R 3 00 de gorjeta e informou isso antes da emiss o do t rmino do cupom fiscal Indicamos que estes R 3 00 foram contabilizados na Op o Acr scimo do Cupom Fiscal e por sua vez estes R 3 00 ser o tributados em forma de Rateio nas al quotas utilizadas no cupom em nosso caso R 18 00 Se tiv ssemos utilizado mais de uma al quota no cupom fiscal este valor seria rateado entre estas duas al quotas parte em 18 00 e parte na outra al quota utilizada Caso 2 Este segundo caso se aplica se em seu Estado for obrigada a tributa o da gorjeta em al quota de servi o ou em alguma outra al quota definida pela Secretaria Estadual da Fazenda de seu estado Neste caso vendemos o item Servi o com o valor da gorjeta permitindo assim uma tributa o exclusiva neste item e possibilitando uma contabilidade mais transparente do tributo que est sendo oferecido ao governo Como a gorjeta foi ofertada pa
14. www theclub com br revista actionbar0502 zi MeGAZINE Gu 19 DELPHI Como obter uma ROM a partir de seu Palm incluindo via USB por Ricardo Gruber Bernstein Colabora o Cl udio Akerman Para montar um bom ambiente de programa o depura o Palm 05 Emulator na plataforma PalmOS o desenvolvedor normalmente precisar das seguintes ferramentas de apoio 1 O Emulador atualizado obter em http www palmos com dev tools emulator vers o atual em 02 05 2002 a 3 5 Figura 1 2 As Skins capas do Emulador atualizadas obter tamb m em http www palmos com dev tools emulator A vers o atual em 02 05 2002 a 1 8 As Skins facilitam a visualiza o de um Palm real a medida que determinam para o emulador o modelo de moldura desejada pelo desenvolvedor 3 As ROMs do PalmOS O Emulador consegue simular os diversos modelos de Palm dispon veis no mercado e cada um desses modelos tem sua ROM Assim o Emulador s funciona ap s a escolha de uma ROM pertencente ao modelo que se deseja emular Figura 1 Tela do emulador Palm 20 J MeGAZINE O grande problema que a Palm n o disponibiliza as ROMs em seu site e tradicionalmente h todo um processo extremamente burocr tico realizado atrav s de assinatura de contratos e envios pelo correio de se obter as ROMs Recentemente o ClubePalm www clubepalm com br obteve autoriza o da Palm para disponibili
15. B 600 KB por segundo ou 4X o RipGo gravou um mini CD com aproximadamente 18minl4s de m sica em aproximadamente min 2s Repetimos a experi ncia com um volume de dados de formatos diversos totalizando 185 MB em 3 480 arquivos em 109 pastas O tempo gasto para gravar a m dia foi de 7min7s Como player o RipGo mostrou ser f bastante resistente a saltos na m sica causados por trepida es O som de boa qualidade apesar de poder n o ser do agrado de apreciadores de volume alto Ap s algum tempo de uso notamos um aquecimento demasiado na sua base durante a reprodu o de m sicas fato tamb m observado durante o processo de grava o de discos Al m de um simples reprodutor de m sicas o RipGo pode ser uma solu o muito interessante para armazenar e distribuir dados principalmente entre aqueles que acham um desperd cio de m dia gravar poucos dados em um CD R convencional Entretanto o equipamento perdeu a oportunidade de ser uma solu o perfeita de armazenamento remov vel por ainda n o ser compat vel com o padr o CD RW Imation 11 8901 7026 http www imation com br Vers til utiliza m dia de baixo custo Esquenta muito ap s algum tempo de uso n o grava CD RW Player MP3 capaz de gravar mini Onde comprar http www imation com br MeGAZINE 6 5 Microsoft lan a mouse sem fio operado por r dio homologado pela Anatel Controlado por r dio o Wireless IntelliMouse Explorer
16. DbiGetCursorProps Field DataSet as TTable Handle CursorProps FieldDescCount CursorProps iFields FieldDescs AllocMem Decimais IntToStr Dec end Para modificar as defini es de um campo voce pode FieldDescCount SizeOfFLDDesc consultar nossa revista de Janeiro 1999 e Agosto 1999 na sess o try Dicas amp Truques onde publicamos rotinas para manuten o em Check DbiGetFieldDescs Field DataSet as TTable tabelas dBase e Paradox Handle PFidDesc FieldDescs for ItrDsc 0 to FieldDescCount 1 do D vida enviada por Assinfor Inf Ltda Tr s Coroas RS MeGAZINE Gi 29 E PERGUNTAS amp RESPOSTAS Pergunta Gostaria de tirar uma d vida em rela o ao componente SqlStoredProc Quando tento gravar no Interbase um valor Decimal ou Numeric e est apresentando o erro Stack OverFlow gostaria de saber se tenho que usar outro componente ou outro tipo de dado Resposta Esse erro ocorre na seguinte situa o Quando criamos um par metro na StoredProcedure do tipo Numeric 18 2 e depois selecionamos essa StoredProcedure no componente SQLStoredProc o tipo desse par metro para o Delphi fica como BCD no momento em que passamos o valor para o par metro utilizando o AsFloat ele gera o erro veja abaixo procedure TForml ButtonlClick Sender TObject begin SQLStoredProcl ParamByName NVALOR AsFloat CurrencyEdit1 Value SQLStoredProcl ExecProc end Neste caso a solu o para o pro
17. File e arraste o para o componente ActionToolBar que est no pnlItem1 que est no lado esquerdo do seu form 10 Agora arraste cada item para cada ActionToolBar que est no lado esquerdo do seu form 11 V at o Object Treeview e selecione o item ActionManager1 Ligado a este item voc poder ver o ActionBars e ligado ao ActionBars voc poder ver o item 0 ActionBar gt ActionMainMenuBarl Selecione este item e v at o Object Inspector e altere a propriedade AutoSize para True 12 Volte ao Object Treeview e selecione o item 1 ActionBar gt ActionToolBar1 e v at o Object Inspector e altere a propriedade AutoSize para True 13 Volte ao Object Treeview e selecione o item 2 ActionBar gt ActionToolBar2 e v at o Object Inspector e altere a propriedade AutoSize para False 14 Repita esta ltima opera o para os itens 3 4 5 Feito isto voc ter uma tela semelhante a tela a seguir T DELPHI THE CLUB O maior clube de programadores do Brasil Files Edit Setting Tools F Esit Burn PFrnlSetrp E Saves ka Open Exemplo de utiliza o do AciionBar RichE dit ImaceListl Actonkianager Agora n s vamos trabalhar com a programa o 1 Defina uma vari vel global com o nome TamanhoLista do tipo TObjectList 2 Declare a unit Contnrs pas na clausula uses 4 V at o Object Treeview e selecione os itens pnlItemlTitle 3 Inclua o c digo abaixo no evento OnCre
18. I CHAN HOT HULL HUMDCIR LAHIFE FRAL IL W HULL HUNGER CHOUF Ai ALS mE I AII HIE HIII HIIHEFE SrL Cu PUT HULL HUNHFER DISP MIUCL HOT HULL HUMDCIR FESERPALI MUDE HULL KUNNGER aLi HE Podemos utiliz lo tamb m para descrever objetos do tipo PROCEDURE e iremos visualizar todos os seus par metros de INPUT e de OUTPUT nx Pa Cm Cosa rH rn dia SJL ESSR ESTOQUE HOM E FADGEDIFE ESTOQUE HCH Argent Fare Tupa m ut befalt WEHE PRODUTO HJIBE I li WEHE MLFDANA CE DE HUHBEI LM WETCJHENTO UNRCH IRES LM MDA HUM DIE LH WH L II UU UMELH IR LH UANI JONE HUHHEI LH 11 LAAJ TAHLHIHY LH FHE HELJU NUIHEI LH MUTLUH EUINL HUINHEI LH LUI WME UMELH RE LH LM HLL PALGI HEZ Lii MENAUL LLILHIL HINULI LH MEUMSLOLEAE ELLLHIL UALEN DES LH suL gt Al Observe na figura acima que a coluna IN OUT identifica se o par metro listado de OUTPUT ou de INPUT ou ambos quando for o caso MeGAZINE 13 G DELPHI MONTAGEM DIN MICA DE SELECTS E CRIT RIOS DE SELE O NO DELPHI Ao contr rio do que acontece num componente TTable em que voc seleciona uma tabela espec fica na propriedade TableName no componente Tquery voc ir montar a tabela atrav s de um SELECT dentro da propriedade SQL do componente Vamos ent o mostrar algumas t cnicas que ir o facilitar sua vida LULAS LEA zj s ls sgg ia CI aim les ma da ki Eis al Hrrr ihl A Pepe Eurr mirng e en
19. as mude o sistema n o ir carreg la isto confere uma prote o tanto anti falsifica o como anti virus Nosso programa usar sempre a vers o para qual foi desenvolvido todos programas que usam a DLL incluem o public key token um hash de 64 bits da chave p blica que indica o autor da DLL O administrador pode indicar uma vers o diferente do originalmente desejado no arquivo config associado ao aplicativo no elemento bindingRedirect Podemos carregar a DLL de outros diret rios arbitr rios inclusive via http Web Podemos registrar a DLL em um local comum chamado GAC Global Assembly Cache para uso por v rios programas com o comando gacutil i BizObj dll caso deseje que ele seja usado por v rios programas Se voc alterar um bit sequer na DLL do programa por exemplo com o Binary Editor do Visual Studio NET a seguinte mensagem aparecer quando a DLL for carregada Forni Dr u her dad mvg oi has uca i yaa ap kralu Iu iet x Lena ha applica wi groa he eor ahd alempi o cork ra Ii o eleh Qui Jie as bati wil ve vll daw iae ada Suu nane weiden labd i syvende ELJ L a Jelik Dark ruc 220 Ho cho od hs missao hop dlaki o kn hirere do lidh grag near as dearg hrs E aG Fa Aii Thxl i 3 5 l C Lua E es ti Sh y rams weldalan ade Iu ass h Biz erane EEZL a Tets npet Foml 3 tonto O ee Jbecl sente Evern g e a Sqet m e doe Femi Ce
20. as vertical 1 No componente pniMenu que est no lado esquerdo do form arraste os seguintes componentes 1 1 Panel Altere a propriedade Name pnlIteml BevelOutter bvLowered Width 100 Height 100 1 2 Panel Arraste este componente para dentro do componente pnlItem1 Altere a propriedade Name pnlltemiTitle Align alTop Caption Iteml Height 18 1 3 ActionToolBar Arraste este componente para dentro do componente pnlItem1 Altere a propriedade Align alClient Orientation boTopToBottom Color clGray 2 V at o Object Treeview e selecione o componente pnllteml Clique com o bot o direito do mouse sobre este componente No popmenu clique em Edit gt Copy 3 Agora selecione o componente pnlMenu Clique com o bot o direito do mouse sobre este componente No popmenu clique em 16 MeGAZINE Edit gt Past Altere a propriedade Name para pnlItem2 Dentro deste componente voc tem outro componente Panel Altere a propriedade para pnlItem2Title 4 Repita as opera es 2 e 3 mais tr s vezes N o esque a de alterar o nome dos componentes conforme mencionado no item 3 O pr ximo componente panel ter o nome de pnlItem3 e o componente panel que est dentro deste outro panel ter o nome de pnlItem3Title e assim por diante Agora n s vamos criar e adicionar as a es ao componente ActionBar 1 D um duplo clique sobre o componente ActionManager 2 Na aba Action clique na seta ao lado do bot
21. ate do form pnlItem2Title pnlItemSTitle pnlItem4Title V at o Object Inspector e d um duplo clique sobre o evento OnClick Fazendo isto voc ter acesso ao editor de c digo Ent o inclua o c digo abaixo neste evento 5 Volte ao Object Treeview e selecione o Forml V at o Object Inspector e inclua o c digo abaixo no evento OnDestroy Agora voc j pode compilar o seu projeto e ver o resultado como mostrado na figura a seguir 18 MeGAZINE THE CLUB O maior clube de programadores do Brasil ile Cdt Setting Took Fl Esit Run Frnt Setup E Caves E Open DELPHI T Exemplo de utiliza o do ActionBar Rick dit Exemplo da tela do projeto Com a aplica o rodando clique em Tools Customize Isto lhe mostrar a tela de customiza o Para adicionar um novo item no menu ou um bot o barra de ferramentas basta voc selecionar um item nesta tela e arrast lo at ao menu ou a barra de ferramentas Quando voc fechar o projeto o sistema automaticamente gravar as configura es e quando voc chamar o projeto novamente ele estar da mesma forma que voc o configurou Conclus o Este um exemplo simples da utiliza o do ActionBars dispon vel no Delphi 6 Como voc p de ver ele muito f cil e pr tico permitindo a voc criar aplica es com um visual muito bonito com poucas linhas de programa o Voc pode fazer o download deste arquivo no endere o
22. bar tBar Visible False Cancela o For pois a barra toda foi desabilitada Break end Percorre os componentes da barra e verifica o checkbox correspondente para habilitar desabilitar os bot es for k 0 to TToolbar tBar ControlCount 1 do begin tBut TToolBar tBar Controls k if tBut is TToolbutton then if FindComponent TToolButton tBut Name lt gt nil then if FindComponent TToolButton tBut Name is TCheckBox then TToolButton tBut Enabled TCheckBox FindComponent TToolButton tBut Name Checked 24 MeGAZINE end end end Bot o Close do Preview tBar PrevFrm FindComponent ExitButton if tBar lt gt nil then if FindComponent TSpeedButton tBar Name is TCheckBox then TSpeedButton tBar Enabled TCheckBox FindComponent TSpeedButton tBar Name Checked end C digo do Bot o Preview procedure TfmPersonal ButtoniClick Sender TObject begin try Habilita Timer para configura o da barra QuickTimer Enabled TRUE Chama o Preview fmQuickRep QuickRepl PreviewModal finally Desliga o Timer QuickTimer Enabled FALSE end end A primeira vista o c digo acima pode parecer um pouco complicado mas na realidade bem simples Quando percorremos os componentes atrav s de um Looping conseguimos obter o nome do mesmo e apenas fazemos uma verifica o se existe algum CheckBox correspondente ao componente atual no Looping e se
23. blema e coloc lo como AsBCD conforme exemplo abaixo procedure TForml ButtonlClick Sender TObject begin SQLStoredProcl ParamByName NVALOR AsBCD CurrencyEdit1 Value SQLStoredProcl ExecProc end Dica The Club Se utilizar o par metro como Double Precision dentro da StoredProcedure o Delphi ir reconhecer o tipo do par metro no componente SQLStoredProc como Float neste caso poder utilizar o ParamByName com AsFloat sem gerar problemas D vida enviada por Alessandro Martins Silva S o Paulo SP Perg unta Tenho um Set de imagens em um TImageList Tenho como acessar uma determinada imagem desse TImageList e jogar para um Bitmap de um bot o por exemplo Resposta O TImageList possui um m todo chamado GetBitmap veja abaixo procedure TForml BitBtnlClick Sender TObject begin ImageList GetBitmap 0 seu botao 1 Glyph ImageList GetBitmap 1l seu botao 2 Glyph end D vida enviada por App Sistemas Ltda S o Jos do Rio Preto SP Pergunta Como eu fa o para gerar um TGuid no Delphi Existe alguma fun o ou API que me retorne este n mero Resposta Sim veja abaixo um simples exemplo Veja abaixo simples exemplo implementation uses ActiveX SR DFM procedure TForml Button2Click Sender TObject var G TGuid begin CoCreateGuid G end D vida enviada por Marcus Paulo Carneiro Ara jo Bras lia DF Pergunta Possuo um formul rio de uso gen rico
24. de criatividade partir deste modelo podemos fazer qualquer mudan a no SELECT com muita simplicidade e pouco c digo O grande ganho que todas as atualiza es do SELECT ser o resolvidas no servidor DICA N o utilize para montar SELECTS os par metros definidos na propriedade Params do componente TQuery Essa t cnica torna as consultas extremamente lentas e pesadas com enorme perda de performance pelo menos em aplica es que acesses bases Oracle 14 4 MeGAZINE neem O E o 4 Bo dk a Es E A Eerhar RDprint 3 0 Componente de Impress o para Matriciais e Jato de Tinta Preview real com zonm Configura o da Impress o Setup para Ulsu no Hina Imgress 50 R pida em Matricicis Eoee Mo vagem dir m ca de P gina HP DeskJet 370C Series em LFTI E Fontes Expandida Morral TRT Ju arll la raU HFE Linha Esso 9 e 44 agulhasidatoiLases s ara HNegrizo lt licc e sublinhado Huar tdace de apleg Imprime evr e 3 LFZ rteredo ce P ginas fi l A j e z Sele o da Pagina p impress o Tudo sala o da Numero da do as aginas de fi a 2549 ut Mistiadrar Impra s3 0 Loca e em REDE Hedel Ja mpusssa Novos Recursos da Vers o 30 Impr o 5 o bralica Mo Forade Imprassoara Ferscraliza ca pc e n www deltress com br Improcs o de C d gos ASCII Componentes e Ferramentas para Impr 55 0 alinhada de valores programadores Delphi Cmpalreel e creed rece ATZ Mai
25. echarmos o Preview o c digo acima perde a raz o de existir O que fazer Felizmente temos um componente para salvar nosso c digo e conseguir execut lo durante a execu o do Preview do QuickReport Para quem n o conhece este componente o TTimer que fica na palheta System de seu Delphi em resumo todo o c digo dever ficar no evento onTimer do componente TTimer Como descobrir os componentes no Form de Preview Isso ser bem f cil bastar fazer um Looping varrendo os componentes existentes em nosso Form e verificar qual nos interessa a partir disso alterar suas propriedades Primeiramente vamos relacionar o nome dos componentes existentes em um Preview padr o do QuickReport Nome do Objeto Classe Descri o Barra de TToolBar ferramentas no PTEVIEW Bot o Zoom To Zoom To Fit ToolBari Bot o Zoom Zoom 100 Bot o Zoom To Width Bot o p gina inicial Continua MeGAZINE Q 23 G DELPHI Classe Descri o Bot o p gina anterior Bot o pr xima p gina Bot o p gina final Bot o Setup de impress o Bot o Salvar relat rio Bot o Ler relat rio Bot o Fechar TSpeedButton Preview Agora que temos os nomes de todos os objetos que nos interessam no Preview do QuickReport vamos por a m o na massa e criar os controles veja o c digo abaixo onde podemos desabilitar a Barra totalmente e com isso todos os componentes que est o sobre a mesma
26. en NL um contrato de licenciamento para no m nimo cinco licen as de software da Microsoft v lido exclusivamente para empresas com CNPJ Com essa oferta que vai at 28 de junho o cliente Microsoft pode obter descontos de at 43 A iniciativa faz parte da estrat gia de atender as pequenas empresas que necessitam de mais infra estrutura de tecnologia e de um maior n mero de PCs para agilizar seus neg cios Os pacotes de Office XP podem ainda ser negociados em dez vezes sem juros uma forma de oferecer o produto por um pre o atrativo visando atender s necessidades de aumento de produtividade nas pequenas empresas A oferta tamb m ajudar as companhias no processo de legaliza o do pacote de escrit rio da Microsoft que pode ser adquirido por uma oferta dentro da realidade do pequeno empres rio afirma Carlos Arantes gerente de marketing pequenas empresas da Microsoft Para divulgar o Office promocional a Microsoft iniciou uma grande campanha publicit ria de alto impacto na m dia impressa em emissoras de TV e no cinema Com o conceito Uma empresa n o precisa ser grande para parecer grande a campanha tem o objetivo de informar os pequenos empres rios em uma linguagem simples e clara como o pacote de aplicativos pode garantir melhor controle de seus neg cios atendimento personalizado e aperfei oamento do gerenciamento das vendas Descontos para Windows XP Al m do pacote Office XP a
27. enas o tamanho de p gina correto far com que nossos sistemas voem Na edi o de Dezembro 2001 da The Clube Megazine foi publicado um artigo sobre Performance ndice e Estat stica que tamb m lhe ajudar a saber como deixar os seus sistemas mais r pidos Sucesso a todos e at a pr xima 22 MeGAZINE DELPHI GD Controlando o Preview do QuickReport em Run Time Por Alessandro Ferreira Suporte T cnico The Club suporteQtheclub com br Neste pequeno artigo iremos mostrar como controlar o Preview do QuickReport via programa o e em tempo de execu o Esta vem sendo uma solicita o que h muito tempo os programadores Delphi que utilizam o QuickReport como sua principal ferramenta de desenvolvimento de relat rios t m nos solicitado O Preview nada mais que um Form Isso mesmo o Preview do QuickReport nada mais que um Form igualzinho aos demais Forms de sua aplica o e como os demais tamb m pode ser controlado por voc por m com um pouquinho mais de trabalho A id ia bem simples primeiro temos que conseguir o Handle do Form de Preview e atribu lo a uma vari vel TForm e a partir da mesma come ar os controles Veja o c digo abaixo Bem a partir daqui temos um objeto TForm com a refer ncia do Form do Preview do QuickReport Um detalhe importante que o Preview do QuickReport Modal e com isso n o temos acesso para executar o c digo acima antes de fech lo por m se f
28. eview do QuickReport em Run Time 23 Tratamento do Repique e gorjeta ap s e antes da emiss o do Cupom Fiscal seems 26 Perguntas amp RESPOSTAS ispisna 29 MeGAZINE 3 Delphi 6 Guia do Desenvolvedor Steve Teixeira Xavier Pacheco Lan ado em 04 2002 740 p g ISBN 85 352 0955 7 Escrito por desenvolvedores para desenvolvedores Delphi 6 continua a oferecer a refer ncia completa e o guia definitivo para a vers o mais recente do Delphi Inclui CD Rom Onde comprar http www campus com br Ligue Gr tis 0800 265340 Rio de Janeiro 0xx21 3970 9300 S o Paulo 0xx11 3259 9944 IBExpert Personal Edition vers o Freeware A linha de produto IBExpert da HK Software Alemanha tem um novo membro IBExpert Personal Edition O IBExpert um ambiente de desenvolvimento integrado para trabalhar com o Borland Interbase tm Firebird Database Server Depois da vers o comercial e a vers o free para prop sitos educacionais esta nova vers o uma ferramenta de lan amento para o Interbase e o Firebird Esta vers o dedicada para pessoas que trabalham com o Interbase ou Firebird e n o est o satisfeitos com o IBConsole O IBExpert Personal Edition cobre todas as fun es do IBConsole e adiciona mais algumas caracter sticas de scripts SQL administra o do banco de dados e programa o Voc pode fazer o download do IBExpert no endere o http www hksoftware net download A ve
29. existe habilitamos ou desabilitamos de acordo com o estado do CheckBox Por m caso voc necessite desabilitar apenas um dois ou tr s determinados componentes podemos simplificar o c digo indo diretamente aos componentes que nos interessam veja o c digo abaixo var tBar TComponent PrevFrm TForm begin Pega o Form do Preview Ativo PrevFrm nil for i 0 to Screen FormCount 1 do with Screen Forms 1 do if ClassName TORStandardPreview then PrevFrm Screen Forms i DELPHI 4 Se n o encontrou o Form abandona if PrevFrm nil then Exit Bot o Close do Preview tBar PrevFrm FindComponent ExitButton if tBar lt gt nil then TSpeedButton tBar Enabled False Bot o Print do Preview tBar PrevFrm FindComponent Print if tBar lt gt nil then TToolButton tBar Enabled False Bot o PrintSetup do Preview tBar PrevFrm FindComponent PrintSetup if tBar lt gt nil then TToolButton tBar Enabled False end Lembrando sempre que essas instru es dever o ser codificadas no evento onTimer de um componente TTimer para funcionarem caso contr rio n o ter o nenhum efeito sobre o Preview Essa a nica forma de controlar o Preview N o Esta a nica forma de controlar o Preview nativo do QuickReport por m junto ao QR poder encontrar um componente chamado QRPreview que lhe permitir criar um Preview totalmente per
30. hi 6 e crie um novo projeto Agora para criarmos a nossa barra de ferramentas siga os passos a seguir Arraste os seguintes componentes ImageList ActionManager Altere as propriedades Images para ImageList1l e a propriedade FileName para Config ControlBar Altere a propriedade Align para alTop e propriedade AutoSize para True ActionMainMenuBar Arraste este componente para dentro do componente ControlBar ActionToolBar Arraste este componente para dentro do componente ControlBar Panel Arraste este componente para o form e altere as propriedades Align alLeft Name pnlMenu BevelOuter bvNone Splitter Arraste este componente para o form e altere as propriedades Width 5 Beveled True Panel Arraste este componente para o form e altere as propriedades Align alClient Name pnlBase BevelOuter bvNone Panel Arraste este componente dentro do pnlBase e altere as propriedades Align alTop Name pnlTitle BevelOuter bvNone Color clGray Fonte Size 14 Font Color clWhite Alignment taLeftJustify Caption Exemplo de utiliza o do ActionBar TreeView Arraste este componente dentro do pnlBase e altere a propriedade Align alLeft Splitter Arraste este componente para dentro do pnlBase e altere as propriedades Width 5 Beveled True RichEdit Arraste este componente para dentro do pnlBase e altere as propriedades Align alClient Agora n s vamos criar a barra de ferrament
31. href http localhost x BizObj dll gt lt dependentAssembly gt lt assemblyBinding gt lt runtime gt lt configuration gt No caso de especificar um arquivo da Web a DLL ir ser baixada para um um cache no diret rio WINDIR assembly download 1 SE Es mo mk ye bLd Tz l LENI Tato E z Erim i mi Ha Podemos apagar entradas neste cache de download com o comando gacutil cd r Cuman Pran pL Dan uL Lybe HAmu Laagal dl el Mdi wcecaft nE HLT Ulakal Azcenklo Creole Utilits Utere dam Lo MAs n Cu pordghl 0 HisrvsvFL surgural iun 1796 7081 mil righi reuvvurd a Municad LAGE da lere CiGGALETu LIY CE TRPEquINSLHHHTA TSM Note nos exemplos acima que precisamos do valor do public key token para indicar precisamente a DLL no arquivo config Voc pode obter este valor com a op o T mai sculo do utilit rio sn por exemplo sn T BizObj dlP v Lnmimrna Frtrapik cinacgo hunnit TT Gearanmnek Fsenrg kama ilkiliky o Masrian 1 R I0Pr R HicrnenDt nt atari IYYH SAD AII Tighes PRAPTA FP lHadhd All Himani e CTY Enpprlglhe coa Pobi hay Lube u wli adT alAia dy Land por Lo e 7 Conclus o Criar e usar DLL n o s f cil como tamb m existem v rios recursos para permitir um bom controle de vers o e impedir altera es ou atualiza es indesejadas Mauro Sant Anna Mauro um MSDN Regional Director
32. layer s o os mesmos dispon veis em outros modelos como volume avan o retrocesso programa o e repeti o de trilhas reprodu o aleat ria equaliza o etc Uma chave seletora que permite que a sa da do fone de ouvido seja usada como uma conex o do tipo line out para equipamentos de som Acompanham o RipGo uma bateria recarreg vel de on l tio com autonomia estimada de 5 horas de uso cont nuo fone de ouvido carregador cabo de comunica o USB um mini CD de instala o e dois mini CD R A Imation oferece essa m dia compacta na sua linha Neon Colors ao pre o sugerido de R 2 30 cada cerca de R 0 012 por megabyte gravado CD R de bolso O RipGo se comunica com qualquer PC e at Mac por meio NEWS da porta USB Depois de devidamente instalado o que inclui o uso de conversor de rede el trica e reconhecido pelo sistema operacional o equipamento se comporta como uma unidade de CD n o havendo praticamente diferen as no seu modo de ler e gravar dados Acompanham o produto o Nero Burning ROM vers o 5 Media Jukebox al m de drivers e vers es atualizadas do Windows Media Player documenta o em PDF e amostras de m sicas em MP3 Nos testes realizados o RipGo teve um desempenho modesto em parte causado pelo uso da interface USB alcan ando taxas de transfer ncia de at 583 KB s no modo buffered e tempo de acesso de 735 ms Com sua velocidade de grava o limitada pelo barramento US
33. m kaset Misses MCT den amail De 3a ze Ear Galo qua Doo Z he Ler wgl rA orodl Pan rh TETE DO E aad TR PR her s s p mm ad au ET PRE IL db Aal o ab aa Li n an li pomada warml ral rdl el m l il wm rro Men iw EKL N mpe nren n m pay TO l U ro O T S A cs Irip li da inap Teca e l Cato Cc Jg ua Pana E Batina E ale saaal zT r e u fi lG a dia Ed Drs rayi Ip o oO Observe o seguinte N O foi necess rio registrar o componente como ter amos que fazer no COM Quando voc adicionou a refer ncia a DLL foi copiada para o diret rio de sa da do execut vel Este comportamento a princ pio necess rio A DLL n o precisa estar presente no momento da carga do programa como no Windows Ela necess ria apenas quando for usado algum tipo de dentro dela Experimente apagar o arquivo DLL e observar que o programa ainda carregado No momento em que voc clicar no bot o para criar o objeto Contas que a DLL ser carregada Caso ela n o exista ser gerada uma exception Furmi An dhre ersin a rrr ai n I E ralan JE gata rhos Cu me Ihe applar sal gy une Iar era ale p cat Uriz IE pm hd Qui he apple ol he sh t d an mnene y Fl a awa iby ris ne Biel we iis depe oe ie ney i Frin A See lhe end Ae vi evaga lu delsi w rrakr psd Elo zz6ggm aa of dis dE Dia Excoplten Tou Hiter HiL hAl aand RT cha Up Ta seh y Su Uh lelh a
34. nal bolinha por sensores infra vermelhos com precis o de movimento 140 superior aos mouses pticos existentes no mercado O mouse conta ainda com cinco bot es program veis que podem ser usados para gravar comandos nos aplicativos mais utilizados pelo usu rio O Wireless IntelliMouse Explorer traduz os esfor os da Microsoft em desenvolver equipamentos que agreguem valor vida dos usu rios seja por meio de novas tecnologias preocupa o com a sa de ou seja pelo design ergon mico destaca Maria Carolina Microsoft Hardware A linha de hardware da Microsoft voltada para usu rios de computador e f s de games de PC Al m de dez tipos de mouses e DIN AR wireless IntelliMouse expl oOrer foto ilustrativa teclados com funcionalidades espec ficas para cada pessoa a empresa possui ainda uma ampla fam lia de joysticks volantes e gamepads ergon micos que potencializam a experi ncia de jogos Todos os produtos s o desenvolvidos com base em extensas pesquisas com usu rios Perfil Microsoft A Microsoft Corporation ocupa a primeira posi o no ranking mundial das empresas de software Historicamente a empresa tem investido US 5 4 bilh es em pesquisa e desenvolvimento um dos maiores or amentos do mundo subsidi ria brasileira foi inaugurada em setembro de 1989 e nestes 12 anos conseguiu atingir a marca de 45 mil pessoas que de alguma forma desenvolvem software prestam servi os treinam e ca
35. o funciona com pequenos CDs de 8 cm chamados CD singles A nica diferen a em rela o aos CDs convencionais de 12 cm a menor capacidade de armazenamento 185 MB algo como 125 disquetes de 3 14 polegadas seis horas de m sica no formato WMA ou tr s horas em MP3 Uma das grandes vantagens dessa solu o que esses pequenos discos podem ser lidos em praticamente qualquer PC equipado com unidade de CD ROM Na cor cinza met lico o RipGo lembra um pequeno CD player port til que apesar de leve 230 gramas e relativamente compacto 9 8 cm por 12 6 cm por 2 4 cm LxAxP n o entra facilmente em qualquer bolso de camisa O compartimento do CD fica embaixo do painel de controle que tamb m faz o papel de tampa Essa solu o apresenta uma pequena desvantagem j que ao pressionarmos os bot es sentimos a tampa ceder um pouco Apesar de ser normal essa sensa o pode passar uma id ia de fragilidade do equipamento Como player o RipGo possui controles relativamente simples e diretos por m sem dispensar a leitura do manual do usu rio Depois de inserir o CD e apertarmos a tecla Play o RipGo entra em a o varrendo todo o disco processo que leva algum tempo procura de m sicas no formato de udio MP3 ou WMF Windows Media File O nome e o autor das m sicas podem ser identificados por meio de seus r tulos padr o id3 formando listas que s o apresentados no visor LCD do player Os recursos do p
36. o New Action Clique sobre o item New Standard Action 3 Clique sobre todas as a es do item File como mostrado na figura 1 e clique em OK E Standard Action Classes E x vyallable cton Classes s TWindowCascade t PWindow eHonzontal TwindoyTileVertical E Twindowbk inimizeAll T indombsrange Search TSearchFind fe Tae archFinah est o Te arch eplare o io T amp earchFindFirst Tab TPreviousT ab OF Lance Help Figura 1 Selecionando a es MeGAZINE 1 Repita os passos 2 e 3 para os itens Edit e Tools 2 Clique no item No Category e clique no bot o New Action tr s vezes 3 Pressione o bot o CTRL e clique sobre os tr s itens para que eles fiquem selecionados 4 V at o Object Inspector e altere a propriedade Category para Setting 5 Clique sobre o item File e arraste o para o componente ActionMainMenuBar que est no topo do seu form 6 Repita esta ltima opera o para os outros itens 7 Agora n s vamos adicionar os itens para os cinco componentes ActionToolBar Voc ver uma tela semelhante a mostrada na figura 2 e dany um leatr y TT a a dum o nar at oe E Car y 4 Galp x JB l E Das gain Foo amados s Bra PAR suan UN a Eas Figura 2 Criando tens 8 Clique sobre o item File e arraste o para o componente ActionToolBar que est no topo do seu form logo abaixo do componente ActionMainMenuBar 9 Clique sobre o item
37. os v rios subdiret rios Nomes fortes Para evitar usar uma vers o diferente do planejado poss vel dar DLL um nome forte composto de Nome da DLL Vers o Assinatura criptogr fica Cultura opcional que identifica o idioma Para criar um assembly com nome forte necess rio fazer o seguinte 1 Criar uma chave criptogr fica com o comando sn k MyKeyFile snk O arquivo contendo a chave criada DEVE SER ARMAZENADO COM CUIDADO E NUNCA DESCARTADO Esta chave criptogr fica pode ser til para melhorar a seguran a do seu site Al m disto absolutamente necess ria para a cria o de uma vers o mais nova da DLL SANT ANNA 2 Colocar uma diretiva no fonte AssemblyInfo cs para referenciar o arquivo com a chave assembly AssemblyKeyFile MyKeyFile snk 3 Definir um n mero de vers o espec fico no fonte AssemblyInfo cs de forma a desligar o mecanismo de numera o autom tica do Visual Studio com a chave assembly AssemblyVersion 1 0 0 0 4 Compilar o projeto Ao compilar o programa a DLL gerada inclui a sua chave p blica e um hash criptograficamente seguro do arquivo Al m disto ele assinado com a chave privada Por estas raz es uma DLL com nome forte tem as seguintes vantagens N o pode ser falsificada apenas o possuidor da chave privada pode assinar a DLL com aquela assinatura N o pode ser alterada caso um bit apen
38. ou ainda escolher qual componente iremos desabilitar E Personalizar Provin Contgura o do Preview Mostar berra de lerrame ntas mo De ep y ql Mesta bot o Imarimr 4 Morta bot o Zoom Mraka hatn rami MTA lt xl Meska bot o com T owidtk x xl Meska bot o FirstFoge 4 Mezl a lao PrevisasF age Mesra Bot o MextFace fe Busta bulas Lal Fayz ql Hosta Bot o Printi etup EEE Mota bot o E savef gocrh nl a A al Nesta bot o Loadaeport OUER irei LA Mosta bol o Esthepor Um detalhe importante para o exemplo abaixo funcionar que nomeamos cada CheckBox com o nome de seu objeto correspondente por exemplo o CheckBox Mostrar bot o FirstPage possui o nome FirstPage veja o c digo completo do evento onTimer do componente QuickTimer procedure TfmPersonal QuickTimerTimer Sender TObject var tBar tBut tPrev TComponent j k i integer PrevFrm TForm begin Pega o Form do Preview Ativo PrevFrm nil for i 0 to Screen FormCount 1 do with Screen Forms 1 do if ClassName TORStandardPreview then PrevFrm Screen Forms i Se n o encontrou o Form abandona 1f PrevFrm nil then Exit Desabilita componentes for j 0 to PrevFrm ControlCount l do begin tBar PrevFrm Controls J if tBar is TToolbar then begin desabilita a barra inteira if not Check Barra Checked then begin TTool
39. pacitam profissionais na plataforma Este contingente est espalhado por 10 mil empresas brasileiras gerando transfer ncia de tecnologia e capacita o profissional para a popula o Somente nos ltimos tr s anos a Microsoft Brasil investiu US 15 milh es em projetos sociais no pa s para levar a tecnologia a comunidades carentes em parceria com organiza es como CDI Comit para Democratiza o da Inform tica Instituto Ayrton Senna e Projeto Aprendiz Atendimento ao cliente Microsoft 11 3444 6844 Para mais informa es imprensa contate S2 Comunica o Integrada S C Ltda www s2 com br Jos Luiz Schiavoni MTb 14 119 joseluizOs2 com br Priscila Rocha MTb 19 977 prirochaQs2 com br Tel 11 3457 0200 Fax 11 3457 0222 reas de atendimento Varejo e Games Ana Carolina Fullen acarolos2 com br 11 3457 0204 Corporativo Saulo Filho saulofos2 com br 11 3457 0202 Roberta M Pregnaca robertamQs2 com br 11 3457 0223 E MeGAZINE Microsoft oferece descontos para pequenas empresas Pacote de aplicativos Office XP ter descontos de at 43 negociados em dez vezes sem juros Sistema operacional Windows XP entra na promo o 10 mais barato A Microsoft Brasil acaba de lan ar mais uma promo o para o mercado de pequenas empresas Na compra de quatro ou mais licen as da vers o completa do Office XP Standard Open NL a empresa ganha tr s pacotes adicionais do programa Op
40. plica o porque assim podemos enxerg las de qualquer outro Form Se quisermos que todos os clientes sejam selecionados quando o usu rio abrir o Cadastro de Clientes por exemplo iremos trabalhar com as vari veis da seguinte forma SqlClientes close ClientesBase SELECT FROM CLIENTES ClientesFiltro 4 ClientesOrdem ORDER BY NOME sqlClientes sql text clientesBase clientesFiltro clientesOrdem sqlClientes open J se o usu rio quiser selecionar as informa es de um determinado cliente apenas a utiliza o das var aveis nos dar flexibilidade para faz lo alterando apenas o conte do da vari vel clientesFiltro SqlClientes close ClientesFiltro WHERE CHAVE 3415 sqlClientes sql text clientesBase clientesFiltro clientesOrdem sqlClientes open Da mesma forma poderemos proceder com o conte do da vari vel clientesOrdem sempre que quisermos ordenar a consulta por qualquer outro campo sem precisar ficar redefinindo o SELECT inteiro SqlClientes close ClientesOrdem ORDER BY CGC sqlClientes sql text clientesBase clientesFiltro clientesOrdem sqlClientes open O que fizemos foi apenas separar o SELECT em 3 partes a parte b sica que o c digo obrigat rio para definirmos no SELECT que tabela e que campos queremos selecionar a parte relativa aos crit rios de sele o dos registros e a parte relativa ordena o Com um pouco
41. promo o oferece 10 de desconto para a compra de cinco TT E ande empresa n o gr an de p ara cer F grande i A El 1 er n le Col mo licen as no m nimo da vers o completa do sistema operacional Windows XP Professional Open NL que tamb m ser vendido em dez vezes sem juros at o final de junho Mais informa es e um exemplo fict cio ilustrativo podem ser encontrados no site www microsoft com brasil office pequenaempresa Nesse endere o o empres rio encontra modelos de folhetos convites cat logos de produtos e boletins informativos prontos para serem adaptados e utilizados Mais informa es sobre as promo es podem ser encontradas no site www microsoft com brasil Atendimento ao cliente Microsoft 11 3444 6844 Para mais informa es imprensa contate S2 Comunica o Integrada S C Ltda www s2 com br Jos Luiz Schiavoni MTb 14 119 joseluizOs2 com br Priscila Rocha MTb 19 977 prirochaQ0s2 com br Tel 11 3457 0200 Fax 11 3457 0222 reas de atendimento Varejo e Games Ana Carolina Fullen acarolos2 com br 11 3457 0204 Corporativo Saulo Filho saulofos2 com br 11 3457 0202 Roberta M Pregnaca robertamQs2 com br 11 3457 0223 Windows e Office Silvia Angerami MTb 16 182 sangeramiQs2 com br 11 3457 0225 Ana Paula Aido MTb 30 184 palmeidaWs2 com br 11 3457 0204 Compre Agora Ate de desconto em sem juros Office
42. r nis i raden Lile nar hel IF a T r pes Fom 2A CIRO ee veda E veriga e a Setor indo cmi Corto O ac bek E senlongs 2 5 ele eios aem Bto E rc E ri al DS sho eaa Da Eao Cri gap O E hA gF n Arl 4 MeGAZINE O seu programa pode interceptar a excepion acima se quiser Isto d uma grande flexibilidade na distribui o de novas vers es ou funcionalidade adicional Observe que a nica informa o presente no nosso programa que identifica a DLL seu nome Caso voc ou algu m crie uma DLL com o mesmo nome o seu programa ir carreg la e caso os tipos dentro dela tenham sido definidos com os mesmos nomes e assinaturas ir us los Ou seja poss vel usar uma vers o diferente do planejado ou mesmo uma DLL falsificada desde que ela tenha o nome esperado e esteja no mesmo diret rio do programa Por quest es de seguran a no NET n o podemos carregar DLLs a partir de locais arbitr rios do disco Esta a raz o de termos que copiar a DLL para o mesmo diret rio do programa de testes ou ainda em um sub diret rio deste mas n o em um local arbitr rio do disco Caso voc deseje colocar a DLL em um subdiret rio voc deve criar um arquivo de configura o para o aplicativo com a entrada probing privatePath Este arquivo no formato XML tem o mesmo nome do execut vel mais a extens o config por exemplo TestSimples exe config Veja um exemplo que indica para serem procurad
43. ra tributa o na venda do item n o mais necess ria a 26 4 MeGAZINE inclus o do acr scimo no cupom fiscal Caso 3 Neste caso se aplica o Repique O cliente n o informa que ser o deixados os R 3 00 de troco e por sua vez o cupom fiscal j foi encerrado Como proceder Bem vamos s linhas de c digo do cupom fiscal Neste caso a impressora vai indicar no cupom fiscal TOTAL R 47 00 e o fechamento das formas de pagamento antes da mensagem promocional TROCO R 3 00 Fechar o cupom normalmente e esse troco j foi debitado do Totalizador Dinheiro de sua impressora Existem duas maneiras de proceder neste caso 1 Criar um Totalizador N o Fiscal chamado Repique Vimos isso nos cap tulos anteriores mas s ap s a redu o Z ou no come o do dia chamar a fun o Bematech FI NomeiaTotalizadorNaoSujeitolems ndice Nome Exemplo Bematech FI NomeiaTotalizadorNao Sujeitolcms 09 Repique Uma vez criado esse totalizador voc deve utiliz lo ap s o fechamento do cupom como recebimento do valor de R 3 00 deixado pelo cliente pois ele j n o pode ser colocado como acr scimo do cupom fiscal uma vez que o cupom j foi fechado Nosso c digo continuaria ent o da seguinte maneira As vantagens de tratar assim o repique s o v rias Uma delas a transpar ncia na contabilidade pois voc ter um totalizador exclusivo para este tipo de recebimento conseguindo controlar todo
44. red AnCl ck EHAE al a Fylla r e Pun Buna Orn hE serra a a Sarm H doas Fome Eedor Ono pouso p ra mez si S MeGAZINE 11 E SANT ANNA A princ pio a DLL com nome forte est sujeita s mesmas regras dos assemblies private quanto sua localiza o ou seja no mesmo diret rio do programa ou um subdiret rio deste Adicionalmente um assembly com strong name pode ser carregado a partir de um diret rio arbitr rio Este comportamento especificado no elemento codebase do arquivo config como no exemplo a seguir lt xml version 1 0 9 gt lt configuration gt lt runtime gt lt gcConcurrent enabled true gt lt assemblyBinding xmins urn schemas microsoft com asm vl gt lt dependentAssembly gt lt assemblyIdentity name BizO0bjJ publickeyToken AD61E477AD3C16AC gt lt codeBase version 1 0 0 0 href ile c temp BizObj dll gt lt dependentAssembly gt lt assemblyBinding gt lt runtime gt lt configuration gt A entrada href acima pode indicar um documento baixado via da Web com http como no exemplo abaixo lt xml version 1 0 9 gt lt configuration gt lt runtime gt lt gcConcurrent enabled true gt lt assemblyBinding xmins urn schemas microsoft com asm vl gt lt dependentAssembly gt lt assemblyIdentity name BizO0bjJ publickeyToken AD61E477AD3C16AC gt lt codeBase version 1 0 0 0
45. registros em Banco de Dados Para bancos de dados SGBD devemos usar a palavra Linha A procura das linhas no Banco de Dados feita atrav s de c lculos matem ticos lgebra relacional e desempenha um papel fundamental nessa procura as Chaves Prim rias PK Chaves Estrangeiras FK e os ndices Tamanho Correto O que me levou escrever este artigo foi exatamente este t pico a d vida de qual o tamanho correto a usar Se existisse uma regra para o tamanho da p gina com certeza a mesma seria fixa e n o o caso O tamanho de page size normalmente s o m ltiplos de 1024 Mas a regra a seguinte para a cria o correta do tamanho da p gina Para uma boa performance em consultas deve se usar o maior tamanho poss vel Mas com isso temos um problema O Mist rio quanto maior o Tamanho da P gina menor performance de atualiza o teremos por que estamos acumulando muitos registros numa mesma p gina Ent o qual seria o tamanho correto Analise o seu sistema e veja qual a prefer ncia que voc deseja dar ao mesmo Se for SELECT p ginas maiores se for UPDATE p ginas menores temos um problema E se o SELECT e o UPDATE se equivalem para o meu sistema d prefer ncia ao SELECT ou ent o utilize o mesmo tamanho de p gina que seu File System FAT32 NTFS usa Conclus o A escolha correta de Page Size ajuda e muito na performance do seu sistema mas n o podemos levar em conta que ap
46. rs o comercial tem mais caracter sticas como diagramas com engenharia reversa debugger de stored procedures e trigger ferramenta de performance gerenciamento de permiss es e muito mais Voc pode fazer o download desta vers o no endere o http www ibexpert com Voc tamb m pode encontrar mais informa es como pegar a vers o educacional O IBExpert suporta o Interbase tm Open Edition 6 X Interbase tm Desktop e Server Edition 6 X e o Firebird 1 X Para maiores informa es sobre as ferramentas SQL Database Systems for Windows Linux Solaris e outro sistema operacional voc pode encontrar nos endere os http www borland com interbase and http www firebirdsql org Intel revela detalhes do seu computador do futuro Durante os pr ximos dois anos os consumidores e a ind stria de PCs testemunhar o mudan as significativas na forma pela qual os PCs s o projetados revelaram os executivos da Intel no evento Intel Developer Forum IDF organizado pela pr pria fabricante de chips No cora o dessa mudan a est a iniciativa Big Water da companhia criada para determinar como os futuros PCs podem ser projetados para incorporar os avan os recentes e futuros da tecnologia As especifica es t cnicas do Big Water ainda est o guardadas nas mangas da Intel A empresa no entanto resolveu revelar alguns detalhes sobre o projeto que ser finalizado em 2003 e dever chegar ao mercado somente em 2004
47. s do que desenvolver sistemas criamos Solu es Fone Fax 14 427 5322 Ra a CERTIFIED hHtp www theclub com br AUTHORISED TESTING CENTRE Rua Acre 950 Cep 18 700 260 T l 0xx14 3732 3689 Fax jDexid 3732 0987 As certifica es Microsoft valorizam o profissional e com certeza facilitam a entrada no mercado de trabalho A maboria das empresas hoje pedem que o profisslonal possua alguma certifica o principalmente MCSA para administradores de rede Por lisso mesmo n o perca tempo Pe a malores informa es agora e venha fazer o seu exame Entre para o seleto grupo de profisslonals certificados que s o reconhecidos mundialmente Se voc est fazendo curso este o momento ideal para fazer os seus exames de certifica o Seja um profissional certificado e enrique a o seu curr culo Criando uma barra de ferramentas no estilo do Outlook O ActionBand um conjunto de componentes que veio para simplificar o processo de desenvolvimento da interface com o usu rio Voc pode organizar a es e imagens e adicion los a menus e barra de ferramentas no estilo do Microsoft Office Estes componentes podem ser acessados na palheta de componentes Additional Nesta palheta voc ir encontrar os seguintes TActionManger TActionMainMenubar TActionToolbar e TCustomizeDlg Para voc ter uma id ia do poder destes componentes vamos criar uma barra de ferramentas no estilo do Outlook Chame o Delp
48. sma velocidade no menu ROM Transfer 9 Desabilite o HotSync ou qualquer aplica o que utilize a porta Serial ou USB escolhida 10 Clique no bot o Begin Transfer da aplica o ROM Transfer de seu dispositivo Palm 11 Pressione o bot o Begin na caixa de di logo O emulador aguardar a resposta do dispositivo Palm 12 A transfer ncia durar alguns minutos aguarde Se ocorrer algum erro durante a transfer ncia a aplica o n o mais responder ou parecer travada espere alguns minutos para dar aplica o uma chance de time out 13 Depois de transferida a ROM para o desktop grave o arquivo com o nome desejado por exemplo Palm m130 rom Agora basta criar uma nova sess o do emulador utilizando essa ROM Ricardo Gruber Bernstein ClubePalm A Refer ncia do Desenvolvedor PalmOS Page Size Introdu o Neste artigo mostrarei o que e para que serve a op o Page Size presente em todos os SGBD Sistema Gerenciadores de Banco de Dados do mercado Page Size Um SGBD formado por v rias p ginas de dados isto quando um SGBD procura por registros ele n o sai a procura de registros e sim a procura de qual p gina de dados se encontra uma determinada linha Isto serve para qualquer manipula o no Banco isto um SELECT e ou comandos DML Data Manipulation Language os famosos UPDATE DELETE Nota errado usarmos o conceito de
49. sonalizado contendo apenas os componentes que voc determinar e com o formato que voc desejar por m todos os controles dever o ser implementados pelo programador e consegue se um timo resultado com o mesmo deixando o bem com a cara de sua aplica o N o vamos nos estender no assunto pois n o exatamente o foco deste artigo mas caso queira se aventurar neste componente bastar nos solicitar um projeto de exemplo O projeto de exemplo referente a este artigo est dispon vel para download em www theclub com br revista QRPersonaliza Zip Conclus o Mais uma vez utilizamos a RTTI Run Time Type Information para nos auxiliar em tarefas que a princ pio poderiam parecem bem dif ceis de serem executadas mas felizmente o Delphi nos oferece in meros recursos explorar e facilitar o nosso dia a dia At a pr xima MeGAZINE Q 25 G DELPHI Tratamento do Repique e gorjeta ap s e antes da emiss o do Cupom Fiscal Por Claudenir C Andrade Este assunto pol mico em muitos estados pois o repique ou a devolu o dos valores ap s o fechamento do cupom considerado valor de compra para alguns estados e por isso deve ser tributado O repique aplicado na seguinte situa o Vamos imaginar que a compra de um cliente foi o total de R 47 00 e muito generosamente ele indica para o caixa que os R 3 00 de troco podem ficar de gorjeta Isso ainda n o o repique A diferen a entre
50. tindo um grande poder total de processamento As DLLs podem ser colocadas em um local centralizado trazendo maior seguran a e facilidade de gerenciamento e troca de vers es Este esquema de criar DLLs de neg cio tamb m chamado de 3 camadas ou N camadas No mundo Windows estas DLLs de neg cio s o objetos COM No mundo NET s o apenas DLLs Vejamos como cri las us las e instal las Criando a DLL Criaremos uma DLL de neg cio bastante simples que faz apenas algumas contas Voc deve inicialmente criar um projeto do tipo Class Library Pure Peru qeri lnt tad Jesko E Ty ad I pal via rts G E rap ard Opkuis A piniin H ete Frije E De gt 9 g B ad Padet ALPOUT eE AFET meo me owe Ep SOS ET Ps Lbs y pja atrelado ha gidim are j oa EO QNELTO 42 CF r a t qosiLb dh ER Popii Decrease Co gras Cimo Ce cao Egg oca DL Dobre d Less Cane Isp os So quer fame a azto drato fe 5ta 8 4 MeGAZINE Digite o c digo da classe mostrado a seguir namespace BizObj lt summary gt Do simple arithimetic lt summary gt public class Contas double _N1 double N2 lt summary gt Default constructor lt summary gt public Contas _N1 0 _N2 0 lt summary gt Assign two values lt summary gt lt param name x gt 0One value lt param gt lt param name y gt Another value
51. zar em seu site as ROMs do PalmOS Mesmo assim eventualmente o programador pode desejar obter a ROM espec fica de seu dispositivo Palm real por exemplo uma ROM n o dispon vel ainda para download No trecho abaixo explicaremos como obter a ROM de seu dispositivo Palm e mais um macete para obter a ROM via porta USB para os modelos mais novos Como obter a ROM de seu Palm via serial e USB Seguindo as instru es contidas no pr prio emulador 1 Primeiramente voc precisa do software Palm Desktop instalado em seu computador Este programa vem junto com seu Palm e tamb m pode ser baixado em www palm com 2 Instale o programa Rom Transfer prc vem junto com o download do emulador em seu dispositivo Palm atrav s do Palm Install Tool e ap s o HotSync certifique se que foi corretamente instalado 3 Se o seu Palm tiver conex o USB copie o arquivo USBPort dll que est no diret rio C Palm para o diret rio em que est o execut vel do emulador 4 Execute o emulador 5 Clique com o bot o direito do mouse no Emulador e escolha a op o Transfer ROM MeGAZINE DELPHI 4 6 Escolha a porta serial apropriada e a velocidade de transmiss o no menu abaixo As velocidades altas nem sempre funcionam ou seja se tiver problemas escolha a velocidade mais baixa poss vel 7 Posicione o dispositivo Palm no craddle e execute a aplica o ROM Transfer no Palm 8 Selecione a me
Download Pdf Manuals
Related Search