Jhonas

o mysql é muito parecido com o interbase ... é so para voce pegar a ideia de como fazer para colocar um programa em rede, necessariamente voce deve deixar o banco de dados em uma maquina que seria o servidor, e nas maquinas clientes voce instala o seu programa e direciona o caminho do banco de dados para este servidor. os exemplos que te passei são para voce ver como é feito isso. abraço retirado de uma discução em forum ( ve se esclarece um pouco ) http://forum.devmedia.com.br/viewtopic.php...0c8dc4cac928cf6 abraço

olhe no seu codigo unit UApres1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mylabel, jpeg, ExtCtrls, typInfo, RxGIF, Db, DBTables, Animate, GIFCtrl, WinSkinData; type TFApres1 = class(TForm) Panel1: TPanel; olhe na clausula uses tem que estar o Db conseguiu entender ?? abraço

na verdade voce pode deixar sem [] , mas para este erro estar acontecendo, veja se esta definida na sua clausula uses o " DB " abraço

colega a outra solução é : 1 - entre no menu iniciar, na opção executar e digite CMD 2 - na tela preta do MSDOS digite path 3 - verifique o caminho do BDS 4 - se manjar um pouco, mude a path via MSDOS acho que vai resolver seu problema abraço

neste endereço voce vai encontrar varias apostilas de delphi ( do basico ao avançado ) http://www.apostilando.com/sessao.php?cod=13 abraço

exemplo do delphi outros exemplos o seu codigo OBS: Voce trocou as bolas [loCaseInsensitive, loPartialKey]) abraço

tenta esta modificacão if edtcpf.text = 'CPF' then begin if CalculaCnpjCpf(edtcpf.Text) = false then begin ShowMessage(msg+' Incorreto.'); EDTPIS.SetFocus; end; end else begin if CalculaCnpjCpf(edtcpf.Text) = false then begin ShowMessage(msg+' Incorreto.'); EDTCPF.SetFocus; end; end; abraço

Colega, até dá pra fazer isto... veja se entende este codigo : procedure TForm1.Button1Click(Sender: TObject); var rua, nr : string; begin rua := 'AV Pedro Alvares Cabral'; nr := '123'; label1.Caption := trim(rua) + ' ' + nr; end; procedure TForm1.Button2Click(Sender: TObject); var n, m : integer; begin QRLabel1.Caption := 'AV Pedro Alvares Cabral'; QRLabel2.Caption := '123'; QRLabel1.Caption := trim(QRLabel1.Caption); n := length(QRLabel1.Caption) * 7; QRLabel2.Left := QRLabel1.Left + n; end; OBS: os dois QRLabel1 ( poderiam ser QRDBtext ) podem estar um ao lado do outro ou um em cima do outro, tanto faz, mas desde que estejam na mesma linha horizontal. abraço

Na verdade arquivos com extensão .dbb são arquivos de backup ( Database Backup ) eles são utilizados pelos VB e Linux abraço

voce pode utilizar o installshield que vem com o delphi para fazer isto http://www.silicio.com.br/silidelphi/instal.html procure neste post para usar o programa em rede http://scriptbrasil.com.br/forum/index.php...st&p=449710 ou pode fazer de outra maneira http://www.linhadecodigo.com.br/dicas.asp?...=143&sub=14 atualização para o BDE 5 http://www.squadra.com.br/zip/hprot/bde/instala01.exe manual de instalação e configuração do BDE http://www.dinamicasist.com.br/atualizacoe...manualdobde.doc abraço

Da uma olhada neste post ... vai ajudar a ter uma ideia http://scriptbrasil.com.br/forum/index.php...st&p=449710 abraço

da uma olhada num destes dois artigos, pode ajudar sobre a sua questão http://www.criarweb.com/artigos/537.php http://www.joomlaclube.com.br/site/index.p...&Itemid=142 abraço

Colegas, estou usando o windows XP, e os motivos para um QR não aparecer na tela são: 1 - deve ter no QR pelo menos um QRBand 2 - verificar se as tabelas estão ativas 3 - se estiver usando uma sql com parametros para filtrar os dados, ter certeza que o valor do parametro existe 4 - se houver um procedimento interno no QR que esteja em loop infinito 5 - se estiver em rede, ter certeza que existe a conexão e a transmissão de dados não esta muito lenta devido ao trafego de informações na rede 6 - no caso do wireless, verifique o nivel de sinal, se estiver muito baixo, pode ocorrer este tipo de falha na montagem do QR abraço

Oi Eder ... eu tava usando o comando num botão: Application.Minimize; OBS: não é necessario usar este comando .. quando voce clicar no minimize do form principal, automaticamente o RxTrayIcon1 deixa o icone na barra de ferramentas. Ou como o Churc já passou para voce o componente ApplicationEvents1 da paleta Additional tambem faz o que voce esta querendo .... ( na paleta do delphi 5 ele esta ao lado do componente Chart ) abraço

esqueci duas linhas de comando: program Meu Sistema; uses Forms, U_Principal in 'U_Principal.pas' {Frm_Principal}, U_Splash in 'U_Splash.pas' {Splash}; {$R *.res} var Caminho : TextFile; // incluir as variaveis Line : string; begin Application.Initialize; Splash := TSplash.Create(Application); Splash.Show; Splash.Update; Application.Title := 'Meu Sistema'; Application.CreateForm(TMeusforms, Meusforms); Splash.Hide; Splash.Free; AssignFile(Caminho, 'C:\Meu Sistema\Net.Txt'); Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); FdtmTeste.DtmTeste.DbaTeste.DatabaseName := Line; // o componente que vai receber a patch do banco de dados end; CloseFile(Caminho); Application.Run; end. abraço

Pergunta... voce quer saber como calcular ou como jogar isto em uma stringgrid ?

Se os computadores estiverem na mesma rede não é necessario usar numero de ip program Meu Sistema; uses Forms, U_Principal in 'U_Principal.pas' {Frm_Principal}, U_Splash in 'U_Splash.pas' {Splash}; {$R *.res} begin Application.Initialize; Splash := TSplash.Create(Application); Splash.Show; Splash.Update; Application.Title := 'Meu Sistema'; Application.CreateForm(TMeusforms, Meusforms); Splash.Hide; Splash.Free; AssignFile(Caminho, 'C:\Meu Sistema\Net.Txt'); Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); FdtmTeste.DtmTeste.DbaTeste.DatabaseName := Line; // o componente que vai receber a patch do banco de dados end; CloseFile(Caminho); Application.Run; end. no form principal voce ativa a conexão procedure TFrmPrincipal.FormActivate(Sender: TObject); var i : integer; num : real; begin if DtmTeste.DbaTeste.Connected = false then DtmTeste.DbaTeste.Connected := true; if not DtmTeste.TrcTeste.Active then DtmTeste.TrcTeste.Active := true; end; No arquivo Net.Txt voce coloca o caminho do banco no servidor (exemplo neste post) http://scriptbrasil.com.br/forum/index.php...mp;#entry448605 OBS: estou sem o MYSQL para poder exemplificar melhor para voce, mas acho que da pra voce captar a ideia abraço

a solução mais rapida é desinstalar o BDS2006 e instalar novamente ... se eu não me engano existe a opção para voce instalar na pasta que voce deseja. abraço

endereço do exemplo: http://www.codigofonte.net/dicas/delphi/19...o-MSN-no-delphi Oi andre .. vi este emplo na net tambem , mas ele ta com um errinho apenas unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var I: Integer; fAlertaMsn: TForm; BarraIniciar: HWND; {Barra Iniciar} tmAltura: Integer; tmRect: TRect; xTop : Integer; xIniTop : Integer; begin //localiza o Handle da janela iniciar BarraIniciar := FindWindow('Shell_TrayWnd', nil); //Pega o "retângulo" que envolve a barra e sua altura GetWindowRect(BarraIniciar, tmRect); tmAltura := tmRect.Bottom - tmRect.Top; fAlertaMsn := TForm1.Create(Self); with fAlertaMsn do begin Left := Screen.Width - ClientWidth; if tmRect.Top = -2 then tmAltura := 30; //Pega o top final xTop := Screen.Height - ClientHeight - tmAltura; //Pega o top inicial xIniTop := Screen.Height + ClientHeight + tmAltura; Top := xIniTop; for I := xIniTop downto xTop do begin Top := Top - 1; Show; Update; Application.ProcessMessages; Sleep(10); end; Sleep(3000); Close; FreeAndNil(fAlertaMsn); end; end; end. OBS : Corrigir esta linha por esta abraço

vou colocar algo simples mas que funciona unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) Button1: TButton; FileListBox1: TFileListBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin if not DirectoryExists('c:\TESTE') then begin showmessage('diretorio não existe!!'); end else begin if FileListBox1.Items.Count <> 0 then showmessage('existe arquivos !!') else showmessage('não existe arquivos!!'); end; end; end. OBS: voce pode deixar o filelistbox invisivel abraço

José, supondo que voce esteja usando uma tabela Paradox, isto funciona unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, Grids, DBGrids, DBTables, Db, DBClient, Provider; type TForm1 = class(TForm) Button1: TButton; DS_Cadastro: TDataSource; DSP_Cadastro: TDataSetProvider; CDS_Cadastro: TClientDataSet; Cadastro_IB: TQuery; DBGrid1: TDBGrid; CheckListBox1: TCheckListBox; CDS_CadastroITEM: TStringField; CDS_CadastroCOD: TStringField; CDS_CadastroNUM: TFloatField; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i := 0 to CheckListBox1.Items.Count-1 do begin if CheckListBox1.Checked[i] = true then begin CDS_Cadastro.Last; CDS_Cadastro.Append; CDS_Cadastro.Edit; CDS_CadastroITEM.Value := CheckListBox1.Items.Strings[i]; CDS_Cadastro.post; CDS_Cadastro.ApplyUpdates(-1); CDS_Cadastro.Next; end; end; end; end. Modificação no seu codigo se estiver usando Table var i : integer; begin for i := 0 to CheckListBox1.Items.Count-1 do begin if CheckListBox1.Checked[i] = true then begin dm.tb_agendamento.Last; dm.tb_agendamento.Append; dm.tb_agendamento.Edit; dm.tb_agendamentoExames.Value := CheckListBox1.Items.Strings[i]; dm.tb_agendamento.post; dm.tb_agendamento.Next; end; end; end; abraço

o help do delphi já tem um pequeno exemplo Procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year); DecodeTime(Present, Hour, Min, Sec, MSec); Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour ' + IntToStr(Hour); end; vou te passar algumas funções, pode ser que seja util para voce Function SomaMes (dData : TDateTime; xMeses : Integer; lCorrido : boolean) : TDateTime; var Ano, Mes, Dia : word; DataAux : TDateTime; begin DecodeDate(dData, Ano, Mes, Dia); Mes := Mes + xMeses; Ano := Ano + (Mes DIV 12); Mes := Mes mod 12; DataAux := MenorDataValida (Ano, Mes, Dia); if not lCorrido Then DataAux := DataAux - 1; SomaMes := DataAux; end; unit FaCDate; {** Criada em 24/07/1999 - Baseada em necessidades genericas de tratamento de datas ** Autor : Fabio Camara} interface uses Forms, Dialogs, Messages, WinProcs, SysUtils, Classes, Graphics, ExtCtrls, Controls; Type {Tipos criados} TSemestre = record Mes, Ano : Word; end; Semestre = array[0..5] of TSemestre; function ReturnSixMonth(Actual:TDateTime):Semestre; function NameMonth(Mes:Word;Abrev:Boolean):string; function DataExtenso(Data:TDateTime): string; function DataValida(StrD: string): boolean; function PrimeiroDiaUtil(Data:TDateTime):TDateTime; function IsWeekEnd(dData : TDateTime) : boolean; implementation function ReturnSixMonth(Actual:TDateTime):Semestre; {Retorna 6 meses atrás da data enviada, de mes em mes} var d,m,y : word; i : byte; Data : TDateTime; begin for i := 6 downto 1 do begin Data := Actual - (30 * i); DecodeDate(Data,y,m,d); Result[i].Mes := m; Result[i].Ano := y; end; end; function NameMonth(Mes:Word;Abrev:Boolean):String; {Retorna o nome de um mês abreviado ou não} const NameL : array [1..12] of String[9] = ('JANEIRO','FEVEREIRO','MARÇO','ABRIL', 'MAIO','JUNHO','JULHO','AGOSTO', 'SETEMBRO','OUTUBRO','NOVEMBRO', 'DEZEMBRO'); begin if (Mes in [1..12]) then if Abrev then Result := Copy(NameL[Mes],1,3) else Result := NameL[Mes]; end; function DataExtenso(Data:TDateTime): String; {Retorna uma data por extenso} var NoDia : Integer; DiaDaSemana : array [1..7] of String; Meses : array [1..12] of String; Dia, Mes, Ano : Word; begin { Dias da Semana } DiaDasemana [1]:= 'Domingo'; DiaDasemana [2]:= 'Segunda-feira'; DiaDasemana [3]:= 'Terçafeira'; DiaDasemana [4]:= 'Quarta-feira'; DiaDasemana [5]:= 'Quinta-feira'; DiaDasemana [6]:= 'Sexta-feira'; DiaDasemana [7]:= 'Sábado'; { Meses do ano } Meses [1] := 'Janeiro'; Meses [2] := 'Fevereiro'; Meses [3] := 'Março'; Meses [4] := 'Abril'; Meses [5] := 'Maio'; Meses [6] := 'Junho'; Meses [7] := 'Julho'; Meses [8] := 'Agosto'; Meses [9] := 'Setembro'; Meses [10]:= 'Outubro'; Meses [11]:= 'Novembro'; Meses [12]:= 'Dezembro'; DecodeDate (Data, Ano, Mes, Dia); NoDia := DayOfWeek (Data); Result := DiaDaSemana[NoDia] + ', ' + IntToStr(Dia) + ' de ' + Meses[Mes]+ ' de ' + IntToStr(Ano); end; function DataValida(StrD: string): Boolean; {Testa se uma data é valida} begin Result := true; try StrToDate(StrD); except on EConvertError do Result:=False; end; end; function PrimeiroDiaUtil(Data:TDateTime):TDateTime; {Retorna data do primeiro dia Util do mes, de uma data informada} var Ano, Mes, Dia : word; DiaDaSemana : Integer; begin DecodeDate (Data, Ano, Mes, Dia); Dia := 1; DiaDaSemana := DayOfWeek(Data); if DiaDaSemana in [1,7] then Dia := 2; Result := EncodeDate(Ano, Mes, Dia); end; function IsWeekEnd(dData : TDateTime) : boolean; {Verifica se uma data informada cai em um final de semana} begin if DayOfWeek(dData) in [1,7] then result := true else result := false; end; end. [code] Função que devolve tempo decorrido em uma string Function NumDiasExtenso(NumDias:integer):string; var Anos, Meses, Dias : integer; sAnos, sMeses, sDias : string; begin { --- Calcula o número de anos --- } Anos := 0; while NumDias >= 365 do begin Anos := Anos + 1; NumDias := NumDias - 365; end; if Anos > 1 then sAnos := ' anos,' else sAnos := ' ano,'; { --- Calcula o número de meses --- } Meses := 0; while NumDias >= 30 do begin Meses := Meses + 1; NumDias := NumDias - 30; end; if Meses > 1 then sMeses := ' meses e ' else sAnos := ' mês e '; { --- O Número de dias é a sobra --- } Dias := NumDias; if sDias > 1 then sDias := 'dias' else sDias := 'dia'; Return := Inttostr(Anos)+sAnos+inttostr(Meses)+sMeses+inttostr(Dias)+sDias; end; abraço

acho que este post pode ajudar um pouco http://scriptbrasil.com.br/forum/index.php...st&p=449710 abraço

falha ao conectar : não pode carregar LibMysql.dll ou seja não conseguiu fazer a conexão porque não pode carregar a biblioteca ( LibMysql.dll ) do Mysql neste caso ache esta dll e a coloque na pasta LIB do delphi ou de uma olhada neste post http://scriptbrasil.com.br/forum/index.php...st&p=449710 abraço

Oi Eder ... voce pode fazer desta maneira, salvando o QR em outros formatos Na clausula uses, acrescente a unit QRExport QuickReport.ExportToFilter(TQRHTMLDocumentFilter.Create('c:\teste.html')); // Exportando para HTML QuickReport.ExportToFilter(TQRAsciiExportFilter.Create('c:\teste.doc')); //Exportando para DOC ou TXT QuickReport.ExportToFilter(TQRXLSFilter.Create('c:\teste.xls')); //Exportando para XLS ou pode salvar o QR nativo Coloque um SaveDialog no seu form (Palheta Dialogs) if SaveDialog.execute then begin QuickRep1.prepare; QuickRep1.printer.save(SaveDialog.filename); end; abraço