Jhonas

substitua o comando Unload Me Se o formulário está ativo: código: DoCmd.Close de outra forma mais segura com: código: DoCmd.Close acForm, Me.Name abraço

Ocorreu um erro ao tentar inicializar o Borland Database Engine (error $ 2108). Instale o BDE e configure o acesso ao banco (com o mesmo alias que você usou no projeto). ou veja http://scriptbrasil.com.br/forum/index.php...st&p=524715 ou pode tentar no evento onshow do form coloque: Table1.DatabaseName:=ExtractFilePath(Application.ExeName) + 'Dados'; Table1.TableName:= ExtractFilePath(Application.ExeName)+ 'Dados/tabela.db'; table1.Open; abraço

''Metafile is not valid MetaArquivo não é válido isso ocorre quando a figura que esta no seu QR é muito grande ... para corrigir o problema voce deve converter a sua imagem BMP em JPG , ou diminuir o tamanho do bmp abraço

veja http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=28 ou http://www.google.com.br/search?q=preview+...p;aqi=&aql= abraço

Amigo, voce precisa ler mais sobre a ciração de componentes em delphi http://www.google.com.br/search?q=cria%C3%...p;aqi=&aql= Dica: a criação de componentes segue quase o mesmo raciocinio: imagine que voce quer que o seu edit aceite somente numeros ... voce vai utilizar o evento OnKeyPress do componente para fazer isso procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin // somente numeros if not (Key in['0'..'9',Chr(8),',']) then Key:= #0; end; a lógica para a criação do componente com esse recurso segue o mesmo principio OBS: Tente fazer ... caso tenha muitas duvidas, veja no link ( tutoriais e apostilas de como criar componentes no delphi) abraço

voce já viu qual é a diferença entre Date e Now no help do delphi ? usando o Date até traz a data, mas como 1999 abraço

acho que voce não entendeu o espirito da coisa... necessariamente não é preciso mostrar qualquer mensagem de erro ... voce pode simplesmente ignorar o erro e continuar o processamento então, leia com atenção, como usar o try except ( use o help do delphi F1 ) que é o que voce vai precisar usar abraço

voce tem que fazer o tratamento ds exceções pesquise no forum http://scriptbrasil.com.br/forum/index.php...lite=try+except ou veja http://www.google.com.br/search?q=try+exce...aqi=g9&aql= abraço

voce vai precisar usar o comando like na select do mysql http://www.google.com.br/search?q=select+l...aqi=g1&aql= abraço

baixe da net a versão Client do seu Sql Server para instalar nas maquinas http://www.google.com.br/search?q=sql+serv...qi=g10&aql= abraço

Amigo, achei que voce tinha entendido a dica .... veja a correção do seu componente unit UDataCompl; interface uses SysUtils, Classes, Controls, StdCtrls, Mask, ToolEdit, Graphics, Messages, DateUtils; type TData = class(TDateEdit) private OnEnterColor: TColor; OnExitColor: TColor; procedure ExportaColor(const Value: TColor); procedure ImportaColor(const Value: TColor); protected procedure ColocaCor(Sender: TObject); procedure RetiraCor(Sender: TObject); procedure ImportaCor(Value: TColor); procedure ExportaCor(Value: TColor); procedure CompletaData(TData: TDateEdit); Function TiraMascara (Valor : String) : String; public constructor Create(Aowner: TComponent); override; procedure CMEnter(var Msg: TMessage); message CM_ENTER; procedure CMExit(var Msg: TMessage); message CM_EXIT; published property CorOnEnter: TColor read OnEnterColor write ImportaColor; property CorOnExit: TColor read OnExitColor write ExportaColor; end; procedure Register; implementation procedure Register; begin RegisterComponents('Innovation', [TData]); end; { TData } procedure TData.CMEnter(var Msg: TMessage); begin ColocaCor(Self); inherited end; procedure TData.CMExit(var Msg: TMessage); begin RetiraCor(Self); CompletaData(Self); inherited end; procedure TData.ColocaCor(Sender: TObject); begin if Sender is TDateEdit then TDateEdit(Sender).Color := OnEnterColor; end; procedure TData.CompletaData(TData: TDateEdit); var Dt, CarcDt : String; // CarcDt : Integer; begin Dt := ''; Dt := Trim(TiraMascara(TData.Text)); CarcDt := IntToStr(Length(Dt)); if CarcDt = '0' then begin Dt:= Dt+ FormatDateTime('dd/mm/yyyy',Now); TData.Text := Dt; end; if CarcDt = '2' then begin Dt:= copy(Dt,1,2) + FormatDateTime('/mm/yyyy',Now); TData.Text := Dt; end; if CarcDt = '4' then begin Dt:= copy(Dt,1,2) + '/' + copy(Dt,3,2) + FormatDateTime('/yyyy',Now); TData.Text := Dt; end; end; constructor TData.Create(Aowner: TComponent); begin inherited; OnEnterColor := clSkyBlue; OnExitColor := clWindow; OnEnter := ColocaCor; OnExit := RetiraCor; end; procedure TData.ExportaColor(const Value: TColor); begin end; procedure TData.ExportaCor(Value: TColor); begin OnExitColor := Value; end; procedure TData.ImportaColor(const Value: TColor); begin end; procedure TData.ImportaCor(Value: TColor); begin OnEnterColor := Value; end; procedure TData.RetiraCor(Sender: TObject); begin if Sender is TDateEdit then TDateEdit(Sender).Color := OnExitColor; end; function TData.TiraMascara(Valor: String): String; Var NovoValor : String; i : Integer; begin NovoValor := ''; For i := 1 To Length (Valor) Do begin If ((Valor [i] = '.') Or (Valor [i] = ',') Or (Valor [i] = '-') Or (Valor [i] = '/') Or (Valor [i] = '(') Or (Valor [i] = ')') ) Then Continue; NovoValor := NovoValor + Valor [i]; end; Result := NovoValor; end; end. abraço

verifique na sua maquina se o sql server roda como um serviço ( Ctrl + Alt + Del ) gerenciador de tarefas do windows

Quero aproveitar no mesmo tópico para pedir se tem uma forma de eu executar esse relatório em computadores que não tenham o SQL Server instalado? voce deve procurar todas as dlls que ele necessita para executar isso ocorre quando não consegue ler a data ou ela está vazia ( default ) veja http://www.google.com.br/search?q=Exportar...p;aqi=&aql= abraço

use o Mep Kebra Byte http://www.google.com.br/search?hl=pt-BR&a...1j0j1l2l0.llsin. OBS: reduz o tamanho do executavel em até 70 % abraço

No Date está vindo 0, ai acaba jogando a data assim : 11/12/1899 o que poder ser ? OBS: a data de 1899 ocorre quando nenhuma data foi atribuida a variavel veja esse exemplo com o seu codigo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; function TiraMascara(Valor: String): String; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TForm1.TiraMascara(Valor: String): String; Var NovoValor : String; i : Integer; begin NovoValor := ''; For i := 1 To Length (Valor) Do begin If ((Valor [i] = '.') Or (Valor [i] = ',') Or (Valor [i] = '-') Or (Valor [i] = '/') Or (Valor [i] = '(') Or (Valor [i] = ')') ) Then Continue; NovoValor := NovoValor + Valor [i]; end; Result := NovoValor; end; procedure TForm1.Button1Click(Sender: TObject); var Dt, CarcDt : String; begin Dt := ''; if Edit1.Text <> ' / / ' then begin Dt := Trim(TiraMascara(Edit1.Text)); CarcDt := IntToStr(Length(Dt)); if CarcDt = '2' then begin Dt:= Dt+ FormatDateTime('/mm/yyyy',Date); //pega o mes e ano da data atual Edit1.Text := Dt; end else if CarcDt = '4' then begin Dt:= copy(Dt,1,2) + '/' + copy(Dt,3,2) + FormatDateTime('/yyyy',Date);//pega o ano da data atual Edit1.Text := Dt; end; end; end; end. OBS: veja que a data é complementada por estar usando um Edit no caso de um campo data, acho que voce deve fazer o tratamento para data e não para string if TData.Text <> ' / / ' then abraço

exemplo http://ifpascal.blogspot.com.br/2011/06/le...i-aprovado.html abraço

tem sim... veja o ultimo codigo desse link http://www.activedelphi.com.br/forum/viewt...638f95f4222ef2d faça uma analogia e aplique ao seu codigo abraço

veja o resultado no final desse link http://www.nldelphi.com/forum/showthread.p...=JvDBGridFooter OBS: Não tente advinhar como funciona ... tente entender a lógica do negocio abraço

o comando clrscr é somente para limpar a tela pesquise no link que te passei, vai encontrar a resposta para a sua duvida abraço

quanto a questão se segurança, veja: http://scriptbrasil.com.br/forum/index.php...st&p=437016 abraço

# 1248 - Cada tabela derivada deve ter seu próprio alias o alias é o nome que voce dá a sua tabela abraço

ok... nesse caso veja http://www.google.com.br/search?q=gimp+cvs...p;aqi=&aql= abraço

procure na net o MYSQL-Front ... esse é um programa usado para criar e editar as suas tabelas em MYSQL e tambem é possivel testar instruções SQL abraço

Se o ingles for problema, use o tradutor do google para entender http://www.mathworks.com/help/toolbox/imag...ixelregion.html abraço

veja http://pt.scribd.com/hanani_santos/d/70949...licas-no-MATLAB http://www.mathworks.com/help/techdoc/ref/mrdivide.html veja tambem http://www.ime.unicamp.br/~marcio/tut2005/...046655Thais.pdf http://www.mathworks.com/help/toolbox/symbolic/diff.html abraço