Jhonas

'50,00' não é um valor inteiro válido para o campo vltotal observe que este valor é uma string .. então faça a conversão exemplo: procedure TForm1.Button1Click(Sender: TObject); var num : real; n : string; begin n := '50,00'; num := strtofloat(n); edit1.text := floattostr(num); end; abraço

Veja na pagina 22 deste manual http://www.commander.com/pdf/CommanderEnte.../DS-WinV2.1.PDF abraço

Não confunda ctQuery com ctTable .. os dois tem maneiras distintas de se conectar ao banco de dados veja este exemplo www.micrologos.com.br/mc_clienteservidor.zip abraço

Veja estes http://www.baixaja.com.br/downloads/Window...t-for_2769.html http://www.baixaja.com.br/downloads/Window...erter_1085.html http://www.dbelephant.com/InterbaseConverter http://www.geocities.com/SiliconValley/Bay...anilhaExcel.zip http://superdownloads.uol.com.br/download/i35359.html http://geocities.yahoo.com.br/all_software/fontes.htm abraço

Veja neste endereço http://www.hardleste.com.br/produtos.php?s...CFQNaFQodhxx83g abraço

Se voce colocar o comando num botão é isso que ele fará exemplo: procedure TForm1.Button1Click(Sender: TObject); begin Query1.Active := false; Query1.SQL.Clear; Query1.SQL.Append('SELECT * FROM PRODUTOS Where COR = ' + '''AZUL'''); Query1.ExecSQL; Query1.Active := true; end; Vai mostrar todos os registros que contem a cor azul, a partir dai é só jogar em um relatório abraço

É sim .... recrie o seu form com o componente que resolve abraço

O erro é simplesmente nome incorreto do banco de dados abraço

A banda Title não se repete nas outras páginas ( somente na primeira ) , voce terá que usar uma Banda PageHeader Mude os seus dbtext para esta banda e eles se repetirão nas proximas páginas abraço

Altere o Pitch da fonte. Se não conseguir, pode ser bug de componente http://www.hsamz.com.br/fr/d2006/d2006_2.24b11.zip abraço

Erros deste tipo ocorre normalmente quando uma antiga versão de uma de Unit está no caminho de pesquisa do Delphi no sistema. A fim de resolver este problema, você tem de pesquisar para encontrar todas as copias da Unit em todo o disco rígido (s) (utilizar a função de pesquisar do Windows Explorer). Posteriormente, execute os seguintes passos: (1) desinstalar o componente problemático (se necessário), (2) eliminar todas as cópias do seu disco rígido, (3) re-instalar o novo componente. Lembre-se que algumas Units estão dependentes em outras Units. Portanto, se você encontrar tal problema, você talvez tenha de processar todas as outras Units dependentes da mesma forma. Outra possível fonte de erro é o caminho da entrada da biblioteca que aponta para as antigas Units. Use o comando "Tools/Environment Options/Library" para verificar e eventualmente corrigir essas entradas. abraço

Todas as matriciais que trabalhem com o padrão Epson ESC/P e/ou ESC/P 2. Algumas impressoras implementam outros comandos como o espaçamento vertical de 7/72" (ESC+'1' ou #49), como a LX-300, EPSON LQ 2090 .... etc exemplo em Delphi CODE{ A impressora Epson LX-300 dispõe de um comando que justifica o texto. Este recurso é interessante, pois com ele podemos continuar a enviar os comandos de formatação de caracteres como condensado, negrito, italico, expandido, etc. Para o exemplo abaixo: - Coloque um botão no form; - Altere o evento OnClick deste botão como abaixo: } procedure TForm1.Button1Click(Sender: TObject); const cJustif = #27#97#51; cEject = #12; { Tamanho da fonte } c10cpi = #18; c12cpi = #27#77; c17cpi = #15; cIExpandido = #14; cFExpandido = #20; { Formatação da fonte } cINegrito = #27#71; cFNegrito = #27#72; cIItalico = #27#52; cFItalico = #27#53; var Texto: string; F: TextFile; begin Texto := c10cpi + 'Este e um teste para impressora Matricial. ' + 'O objetivo e imprimir texto justificado sem deixar ' + 'de usar formatacao, tais como: ' + cINegrito + 'Negrito, ' + cFNegrito + cIItalico + 'Italico, ' + cFItalico + c17cpi + 'Condensado (17cpi), ' + c10cpi + c12cpi + '12 cpi, ' + c10cpi + cIExpandido + 'Expandido.' + cFExpandido + ' Este e apenas um exemplo, mas voce podera adapta-lo ' + 'a sua realidade conforme a necessidade.'; AssignFile(F, 'LPT1'); Rewrite(F); try WriteLn(F, cJustif, Texto); WriteLn(F, cEject); finally CloseFile(F); end; end; Observações Este recurso de justificação da Epson LX-300 pode ser usado em qualquer linguagem de programação. Mais informações: InicioCondensado := #27 + #15 FimCondensado := #18 http://www.delphimais.com/modules/smartsec...m.php?itemid=51 http://www.activedelphi.com.br/forum/viewt...ba89a27744fbf75 http://scriptbrasil.com.br/forum/index.php...st&p=451801 http://scriptbrasil.com.br/forum/index.php...st&p=125454 abraço

O delphi minimiza os forms dessa maneira mesmo .... então a jogada é colocar o form do Menu na frente dos outros que ficarão minimizados e não ficarão aparecendo. Ai voce pergunta ... como ter acesso aos forms minimizados para faze-los voltar ao normal ? No evento OnMouseDown voce coloca este código .... coloque o nome das janelas que ficarão minimizadas Ao clicar com o mouse na tela do Menu, os forms minimizados aparecerão na tela do Menu onde voce escolhe qual dos forms voltará ao normal procedure TFMenu.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SetWindowPos(FMovimento.handle, HWND_NOTOPMOST, FMovimento.Left, FMovimento.Top,FMovimento.Width, FMovimento.Height, 0); // HWND_NOTOPMOST normal SetWindowPos(FCadmov.handle, HWND_NOTOPMOST, FCadmov.Left, FCadmov.Top,FCadmov.Width, FCadmov.Height, 0); // HWND_NOTOPMOST normal end; OBs: Caso voce queira que um form minimizado fique na barra de tarefas, então voce terá que instalar um componente chamado Minimizer http://www.zecos.com/delphi/components.html abraço

no Project voce coloca os forms na ordem em que devem abrir ( ou serem chamados ) abraço

Unit DBClient foi compilada por uma versão diferente de DB.EDatabaseError Se voce instalou um pacote de componentes ( ou um componente ) diferente da versão do delphi que está usando, voce terá este tipo de erro abraço

Se eu entender que a situação ficou resolvida, sou eu quem edito se o proprio usuário não o fizer. Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=544206 abraço

Livio .... Porque voce não lê os seus posts ???? esta pergunta já foi respondida http://scriptbrasil.com.br/forum/index.php...st&p=546223 abraço

Mude seu campo para Integer e veja o que acontece abraço

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

exemplo unit Unit1; interface uses Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var text, line : string; begin // Sublinhar o texto com o caracter '-' text := ' 1. Uma introdução para vida como nós sabemos'; line := StringOfChar('-', Length(text)); ShowMessage(text); // mostra o texto ShowMessage(line); // mostra o sublinhado end; end. abraço

veja a propriedade Font do componente ou veja estes tópicos http://scriptbrasil.com.br/forum/index.php...ghlite=richedit abraço

Veja estes http://forum.imasters.uol.com.br/index.php...p;mode=threaded http://wiki.freepascal.org/Zeos_tutorial/pt http://imasters.uol.com.br/artigo/3405/mys...i_zeus_e_mysql/ http://imasters.uol.com.br/artigo/3377/del...ados_no_delphi/ http://www.mail-archive.com/delphi-br@yaho...r/msg67373.html http://superdownloads.uol.com.br/download/...postila-delphi/ abraço

FOREIGN KEY é usado para fazer referênca a 2 tabelas, o campo de uma tabela tambem deve existir na outra http://en.wikipedia.org/wiki/Foreign_key este comando já está fazendo isso dsCarregamento.Dataset.Bookmark := grdImpressos.SelectedRows[cont]; OBS: A select dentro de um FOR vai monstrar o resultado somente quando chegar ao fim dos registros selecionados abraço

Em uma primeira análise, isto não tem nada haver com delphi .... use qualquer editor de Textos (Bloco de Notas, Word ..etc ) va em Formatar > Fonte .... selecione a fonte e o tamanho e salve quando imprimir sairá com a fonte escolhida Se for um texto gerado em delphi, veja a propriedade Font do componente abraço

Veja estes http://www.planetadelphi.com.br/download/8...%20de%20estoque http://www.planetadelphi.com.br/downloading/818 http://www.guiadodelphi.com.br/demos/cpuestoque.zip http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=751 abraço