Jhonas

Desculpe ... o comando que te passei é para o interbase 6.5 Se não me engano para o interbase 4.2 é o comando abaixo, mas não tenho certeza ALTER TABLE BANCO SET DESCRICAO TYPE VARCHAR (150) CHARACTER SET WIN1252 COLLATE WIN1252 ou procure na NET o manual para a versão que está usando http://www.tecnobyte.com.br/dica9.html#dica208 http://www.geocities.com/wallstreet/Exchan...hi/delphi_7.htm http://www.arsoft.pt/artur/firebird/files/cl_001.pdf http://www.josevalter.com.br/download/banc...s/Interbase.pdf OBS: Para voce não ficar quebrando a cabeça, neste endereço tem o download da versão 6 que aceita os comandos que te passei .... é gratuíto http://superdownloads.uol.com.br/download/...terbase-server/ abraço

marcelinhompj ... prefiro responder as suas dúvidas pelo forum, para poder beneficiar a outros colegas que tambem tenham esse tipo de idéia. abraço

Aqui no forum voce vai encontrar o que esta procurando ... de uma pesquisada http://scriptbrasil.com.br/forum/index.php...;highlite=skins abraço

Não me lembro em qual destes posts esta um link para apostilas de SQL ( como montar instruções em SQL ) e tambem vai encontrar outros que poderão tirar muitas das suas dúvidas Faça uma pesquisa no forum para achar http://scriptbrasil.com.br/forum/index.php...mp;highlite=SQL abraço

tem ... seria tipo isso ALTER TABLE BANCO ALTER COLUMN DESCRICAO TYPE VARCHAR (150) CHARACTER SET WIN1252 COLLATE WIN1252 abraço

idéia é simples .. a codificação nem tanto voce vai precisar: 1 - leitor de código de barras 2 - um componente de código de barras para o delphi faça uma pesquisa o forum http://scriptbrasil.com.br/forum/index.php...odigo+de+barras 3 - montar o aplicativo ... voce pode fazer uma junção destes 3 voce encontra esses 3 neste endereço http://www.apostilar.com.br/apostilas.php?...60&pagina=2 Lógica de funcionamento Voce passa o cartão no leitor e registra o código para cada produto consumido ( tambem com codigo de barras ) pelo cliente voce faz a leitura do codigo de barras, onde este produto já esteja devidamente cadastrado e com preço ( se não quizer colocar codigo de barras no produto voce pode usar tipo cardapio com os codigos ) uma vez que o cliente escolha o produto, voce passa o leitor pelo codigo que ficará registrado para o cartão do cliente o cliente ao sair da o cartão para efetuar o faturamento ( gerar cupom com os produtos e respetivos preços e sua totalização ) Bons estudos ... abraço

Se já existir o campo, voce deleta ( drop field ) ...ai pode usar dessa maneira abraço

Ordenar um campo não é preciso mexer na etrutura da tabela voce faz isso via instrução SQL abraço

Use um componente da paleta Interbase chamado IBSQL Na propriedade SQL deste componente coloque o código para alterar um campo da sua tabela exemplo: suponha que voce tem um campo NOME com um varchar( 40) e voce quer muda-lo para varchar(100) então na propriedade SQL do IBSQL voce coloca o código ALTER TABLE EXAMES ADD NOME VARCHAR(100) CHARACTER SET WIN1252 COLLATE WIN1252 para executa-lo voce pode usar um botão procedure TForm1.Button1Click(Sender: TObject); begin try IBSQL1.Close; IBSQL1.Prepare; IBSQL1.ExecQuery; IBSQL1.Close; finally MessageDlg('CAMPO NOME DA TABELA EXAMES ALTERADA! ', mtInformation, [mbOK], 0); end; end; OBS: Uma alteração de tamanho de campo ou uma alteração de domínio ( ex: Integer para varchar ) implica em ter que mudar tambem no seu aplicativo os campos alterados... ou seja, voce tem que modificar o seu programa para ele não dê erro com a nova alteração de campos de sua tabela. quando mandar o novo executavel para o cliente, ele usará o banco de dados que o cliente tem sem a alteração de tabela, e acabará apresentando erros .... com o botão de alteração do campo da tabela o erro será corrigido, e o cliente não perderá nenhuma das informações do banco de dados. abraço

Este é o seu código if Clipboard.HasFormat(CF_PICTURE) then begin Image1.Picture.Assign(Clipboard); este é o que te passei if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Assign(Clipboard); percebeu o motivo do erro ? abraço

Estava quase certo ... mas vou fazer algumas alterações para voce ver a diferença entre salvar a imagem como bmp e como jpg a imagem como bmp ficaria em torno de 3073 kB a imagem como jpg ficaria em torno de 120 kB a 250 KB uses clipbrd, jpeg; Function BmpToJpg(cImage: String):Boolean; // Converte um arquivo BMP em JPEG var MyJPEG : TJPEGImage; MyBMP : TBitmap; begin Result := False; if fileExists(cImage+'.bmp') then begin MyBMP := TBitmap.Create; with MyBMP do begin try LoadFromFile(cImage+'.bmp'); MyJPEG := TJPEGImage.Create; with MyJPEG do begin Assign(MyBMP); SaveToFile(cImage+'.jpeg'); Free; Result := True; end; finally Free; end; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Assign(Clipboard); Image1.Picture.savetofile('c:\imagem.bmp'); BMPtoJPG('c:\imagem'); end; OBS: Depois que a imagem bmp for convertida voce pode deleta-la ... voce ainda pode dar uma incrementada usando o SavePictureDialog1 para poder salvar em uma pasta escolhida com o nome que quizer. abraço

Se a idéia é esta, então porque voce montou a sua SQL desta maneira ? O codigo da Query. select * from FUNCIONARIO Where (Func_NOME like :nome) and (FUNC_CIDADE like :cidade) and (FUNC_CARGO like :cargo) and (FUNC_CPF like :cpf) and (FUNC_DATAADM >= :dataadmini and FUNC_DATAADM <= :dataadmfin) and (FUNC_DATADEM >= :datademini and FUNC_DATADEM <= :datademfin) O código que está em seu botão não corresponde com que que está na sua SQL se o funcionario for demitido coloca a data se não for não coloca Neste caso porque não ocorre uma mudanda dentro da sua SQL ? se o funcionario não for demitido, porque o comando para pesquisar data de demissão continua fazendo parte da SQL ? Pense a respeito abraço

O procedimento é o mesmo para o segundo desconto, voce só tem que usar o valor com desconto para tirar os 5 % exemplo: no pimeiro desconto A = 80 - (80 * 0.15) // 68 no segundo desconto B = A - (A * 0.05) // 64,60 No Excel ficaria A1 = 80 B1 = 0,15 C1 =MULT(A1;B1) D1 =A1-C1 A2 = D1 B2 = 0,05 C2 =MULT(A2;B2) D2 =A2-C2 abraço

RichEdit1.Paragraph.FirstIndent -> Paragrafo RichEdit1.Paragraph.LeftIndent -> margem esquerda RichEdit1.Paragraph.RightIndent -> margem direita Como voce pode perceber, nos atributos do richedit voce não encontrará nada que possa usar para fazer isso http://scriptbrasil.com.br/forum/index.php...st&p=341006 O que poderia ser feito é você jogar o conteudo do rich em um quickrep e configurar no quick as margens ou então usar um componente que tenha esses atributos http://pt.trichview.com/ abraço

Veja neste endereço http://dev.mysql.com/doc/refman/5.0/en/ abraço

Voce usa estes códigos quando está criando um campo de registro em uma tabela interbase exemplo: ALTER TABLE EXAMES ADD NOME VARCHAR(100) CHARACTER SET WIN1252 COLLATE WIN1252 abraço

Não entendi ... meu programa em Delphi é instalado no Delphi ou é .... quando executo meu programa em delphi no vista ? Voce deve instalar o seu programa feito em delphi no vista como Administrador abraço

Da a seguinte mensagem de erro: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'Value('2', 'Carlos',",",",",",",",",",",",",",",",",","' / / ',' ate line 2'. Voce tem um erro na sintaxe em sua SQL; cheque o manual correspondente para sua versão MySQL Server ( Mysql 5.0.77 ) para o uso correto da sintaxe ou seja a sintaxe da SQL não pode ser assim, principalmente quando se está passando parametros 'Value('2', 'Carlos',",",",",",",",",",",",",",",",",","' / / ',') abraço

exemplo label1.caption := TimeToStr((StrTotime('08:00:00') - StrToTime('00:15:00'))); // saida 07:45:00 abraço

Caso precise do esquema do monitor http://www.4shared.com/get/37332276/d4499c71/AOC_5E.html http://www.4shared.com/file/53714585/398da...ASSI_D556Q.html OBS: O AOC 5EN é o mesmo modelo já que não manja de eletronica, leve a um técnico e peça para verificar solda fria na placa .. o provavel defeito deve estar no IC 901 abraço

Neste endereço vai encontar ALICE para ter uma idéia de como será este seu projeto http://www.pandorabots.com/pandora/talk?bo...5d922d97e345aa1 Neste Profa Elektra http://penta3.ufrgs.br/~elektra/info/index.htm Um Chatterbot personalizavel http://www.cin.ufpe.br/~hbas/Truebot%20-%2...20-%20Final.ppt E muitos mais http://www.chatbots.org/ OBS: voce vai encontrar muito material a respeito na Net exemplo Isto é uma conversação escrita ... se quizer uma conversação falada, o seu programa tera que ouvir ( microfone ) transformar sons em texto , e como resposta transformar texto em som Bom estudo ... abraço

Paragraph.FirstIndent := 10; In TParaAttributes ( atributos de Paragraph ) Alignment FirstIndent LeftIndent Numbering RightIndent Tab TabCount Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=341006 abraço

Veja no help do delphi < Editor Options page > uses ComCtrls; procedure TForm1.FormCreate(Sender: TObject); begin with TRichEdit.Create(Self) do begin Parent := Self; Align := alClient; Lines.Clear; // set numbering style Paragraph.Numbering := nsBullet; Lines.Add('Introduction'); Lines.Add('New members to our team'); Lines.Add('New Budget discussion'); Lines.Add('Facilities'); Lines.Add('Q & A'); Paragraph.Numbering := nsNone; Paragraph.Alignment := taCenter; Lines.Add(''); Lines.Add('Suggested Topics:'); Lines.Add(''); Paragraph.Alignment := taLeftJustify; Paragraph.FirstIndent := 10; Lines.Add(''); Lines.Add('Parking lot repair'); Lines.Add('Cost overruns'); end; end; abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...p;highlite=Zeos abraço

Se este componente estiver em seu aplicativo, delete e coloque-o novamente abraço