Jhonas

Faça uma pesquisa no forum sobre o assunto http://scriptbrasil.com.br/forum/index.php...ite=quickreport abraço

Tiraram do ar .... mas lá voce encontraria um artigo sobre charset em banco de dados Veja este outro http://imasters.uol.com.br/artigo/262 abraço

Veja como ficaria Query1.Active := false; Query1.SQL.Clear; Query1.SQL.Append('SELECT DISTINCT NOME FROM HISTORICO Where DISCIPLINA = ' + '''PORTUGUÊS'''); Query1.ExecSQL; Query1.Active := true; outro exemplo http://www.forumweb.com.br/foruns/index.ph...st&p=311948 Uma apostila .. procure no capitulo 12 http://br.geocities.com/profwagnerberto/delphibd.htm abraço

Se voce estiver usando BETWEEN repare no formato da data SELECT CODCLI, DATA, COD_ATV FROM Moviment WHERE DATA BETWEEN '09/01/2008' AND '09/10/2008' a data seria 01/09/2008 a 10/09/2008 ... mas veja que na select voce deve mudar abraço

Aprenda a usar instruções SQL... veja nesta apostila http://br.geocities.com/profwagnerberto/delphibd.htm ou procure no forum pela palavra < instruções SQL > abraço

Veja este manual http://manuals.sybase.com/onlinebooks/grou...iew/6985;pt=675 abraço

Leia este artigo http://www.cpusoft.com.br/profmarcos/LPIII...ress_slides.pdf abraço

data1:=DateToStr(calDI.date); // onde converto o valor Data em string pra ser aceito na variável sql_txt data2:=DateToStr(calDF.date); //####################MEU PROBLEMA COMEÇA AQUI ########################## if data1 <> ' / / ' then begin if flag_aux=true then sql_txt := sql_txt + 'and data >= "' + data1 + '" '; end; if data2 <> ' / / ' then begin if flag_aux=true then sql_txt := sql_txt + 'and data <= "' + data2 + '" '; end; //####################MEU PROBLEMA TERMINA AQUI ############################ Obseve que se voce já pegou os valores de calDI.date e calDF.date e os converteu em strings, basta comparar a string abraço

ParaTratamento de Imagens, já existem programas que fazem isso exemplo Photoshop, Fireworks, Dreamweaver, Ilustrator, Corel Draw, etc Caso voce queira montar algo parecido em delphi, veja este endereço http://translate.google.com.br/translate_s...k&resnum=11 abraço

Veja estes componentes http://nmea-sentences.qarchive.org/ abraço

O link já foi fechado, mas tente este http://www.cpusoft.com.br/profmarcos/LPIII...ress_slides.pdf abraço

Livio... isto é apenas um exemplo, voce é que deve adptar as suas necessidades ( você está bem fraquinho em programação ) procure ler mais sobre o delphi, no forum voce encontrá apostilas de delphi abraço

Livio ... é só usar um pouco de criatividade que voce consegue procedure TForm1.Button1Click(Sender: TObject); var n: integer; s : string; begin n := 1; FmtStr(s, '%.3d', [n]); ComboBox1.Items.Append(s + ' - cartão'); end; abraço

O StringOfChar é usado para replicar um caracter, já te passei como inserir zeros a esqueda de um numero procedure TForm1.Button1Click(Sender: TObject); var n: integer; s : string; begin n := 1; FmtStr(s, '%.3d', [n]); Label1.Caption := s; end; abraço

Homologação só se faz com os códigos fontes .... cuidado !!!

Métodos de Lock http://dev.mysql.com/doc/refman/4.1/pt/locking-methods.html http://dev.mysql.com/doc/refman/4.1/pt/inn...ey-locking.html http://translate.google.com.br/translate_s...k&resnum=11 abraço

Veja este artigo http://www.delphibr.com.br/artigos/pdxvsib.php abraço

Veja isto http://www.mcdbabrasil.com.br/modules.php?...icle&sid=67 Talvez voce tenha que instalar um driver do dbexpress especifico para a versão do seu SQL Sever http://www.ziggi.com.br/downloads/driver-d...para-sql-server http://74.125.95.132/search?q=cache:jB2Ass...=clnk&gl=br abraço

Dê um exemplo mais claro do que voce está querendo abraço

Se for a planilha do excel tem sim inclusive o ( Super A3 / B 329 X 483 mm ) Vá em Arquivo > Configurar Pagina > Tamanho de papel > A3 297 X 420 mm abraço

exemplos WinExec(PChar('command.com /c format a: /v ' +Edit1.Text),SW_SHOWNORMAL); WinExec('COMMAND.COM /C DIR C:\*.*', SW_SHOW); OBS: voce digita no edit DIR C:\*.* WinExec(Pchar('COMMAND.COM /C ' +Edit1.Text), SW_SHOW); Observações Para que a janela do DOS não seja exibida, use SW_HIDE no lugar de SW_SHOW. var Form1: TForm1; hora : string; ligar : boolean; implementation {$R *.DFM} procedure TForm1.FormActivate(Sender: TObject); begin Button1.Caption := 'Iniciar'; ligar := false; end; procedure TForm1.Timer1Timer(Sender: TObject); begin hora := timetostr(strtotime(hora) + strtotime('00:00:01')); Label1.Caption := FormatDateTime('hh:mm:ss', strtotime(hora)); end; procedure TForm1.Button1Click(Sender: TObject); begin if ligar = false then begin ligar := true; hora := edit2.Text; Timer1.Enabled := true; Button1.Caption := 'Parar'; end else begin ligar := false; Timer1.Enabled := false; Button1.Caption := 'Iniciar'; end; end; OBS: Digite no edit2 a hora neste formato HH:MM:SS 10:20:00 voce poderá iniciar o timer com o seu horario e para-lo quando quizer abraço

Colega... isto não é erro, se voce não fechar um database e abrir outro, o que ocorre é a visualização das tabelas de ambos os databases. abraço

Tente esta mudança DataModule2.ClientDataSet1.Close; DataModule2.ADODataSet1.CommandText:='select * from "Acessos"'; DataModule2.ClientDataSet1.Open; DataModule2.ClientDataSet1.Last; DataModule2.ClientDataSet1.Append; DataModule2.ClientDataSet1.Edit; DataModule2.ClientDataSet1.FieldByName('Num_Acesso').AsInteger:=Num_acesso; DataModule2.ClientDataSet1.FieldByName('Nome').AsString:=EditNome.Text; DataModule2.ClientDataSet1.FieldByName('Data').AsString:=MaskEditData.Text; DataModule2.ClientDataSet1.FieldByName('Curso').AsString:=ListItem.Caption; DataModule2.ClientDataSet1.FieldByName('Hora_inicio').AsString:=MaskEditHoraInicio.Text; DataModule2.ClientDataSet1.FieldByName('Laboratorio').AsString:=EditLaboratorio.Text; DataModule2.ClientDataSet1.FieldByName('Computador').AsString:=EditComputador.Text; DataModule2.ClientDataSet1.FieldByName('Hora_fim').AsString:=MaskEditHoraFinal.Text; DataModule2.ClientDataSet1.Post; DataModule2.ClientDataSet1.ApplyUpdates(-1); ShowMessage('Acesso Cadastrado com sucesso pelo sistema!'); abraço