Jhonas

Veja abaixo diversos links de artigos e códigos de exemplos tratando desse assunto: http://www.codeproject.com/dotnet/msgaddin.asp http://www.dnzone.com/ShowDetail.asp?NewsId=589 http://www.411asp.net/home/webapps/chat?so...e&order=asc (Chats Prontos, não MSN, mas alguns Free e úteis) http://weblogs.asp.net/skillet/archive/200.../04/424388.aspx http://www.codeproject.com/com/msn_messenger.asp http://www.codeproject.com/cs/internet/connectingtomsn.asp http://www.codeproject.com/useritems/CombineMSNChats.asp http://www.codeproject.com/csharp/inf***tnet.asp http://msdn.microsoft.com/live/gettingstar...messengerstart/ http://msdn.microsoft.com/live/msnmessenger/ http://www.activedelphi.com.br/forum/viewt...fa643aa1d0b1543 https://chmod.com.br/vb/showthread.php?t=6876 abraço

um grande problema observado com modelos de Impressora HP LASER 1005, 1020 ...etc é que ela não imprimi assim que ligada, so imprimi apos fazer uma impressão de pagina de teste ou alguma impressão em software office, dai depois imprimi normalmente ate q seja desligada. para solucionar esse problema voce pode: outra possivel solução seria: abraço

Alberto Mota ... isso é muito simples Se esse resumo estiver dentro de um memo, ficaria assim: procedure TForm1.Button1Click(Sender: TObject); var i : integer; linha : string; begin for i := 0 to Memo1.Lines.Count do begin linha := Memo1.Lines.Strings[i]; if pos('T',linha) = 14 then showmessage(linha); end; end; abraço

Começe pelo cadastro de clientes http://www.oficinadanet.com.br/artigo/500/...phi_e_interbase http://www.activedelphi.com.br/print.php?sid=375 Exemplo pronto de um cadastro de clientes http://www.planetadelphi.com.br/downloading/340 abraço

Já tive alguns problemas parecidos ... por algum motivo que eu ainda não descobri, o componente fica com o código bichado, e o simples fato de deletá-lo e colocá-lo novamente resolve o problema abraço e precisando é só escrever ...rs

Neste caso não existe a necessidade de deixar a tabela em modo exclusivo, pois voce estaria travando outro usuario que não teria a mesma senha. o ideal é usar um campo de controle na tabela ( exemplo : 1 ou 0 ) estando em 1 esse usuário estaria logado , entando 0 não ... e se a tabela não possuiu nivel de segurança voce pode optar por encriptar o dado de controle. abraço

A cláusula na select deve seguir o padrão para a base de dados mestre (master), porém a tabela sysdatabases só existe na base master. Sendo assim, ao utilizar a sysdatabases no seu select, faça-o da seguinte forma: exemplo: SELECT name FROM master..sysdatabases então na sua select deveria ficar assim: Para maiores informações veja: http://lab.mediaservice.net/notes_more.php?id=MSSQL abraço

A select da query deve estar assim select * from tabela // Fiz um teste usando query .... segue o código unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Db, DBTables, StdCtrls, DBCtrls; type TForm1 = class(TForm) Button1: TButton; DataSource1: TDataSource; DBGrid1: TDBGrid; DBLookupComboBox1: TDBLookupComboBox; DataSource2: TDataSource; Query1: TQuery; Query2: TQuery; Query1PAPEL: TStringField; Query1COD: TStringField; Query1NUM: TFloatField; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var Nome : string; begin with TStringField.Create(Query2) do begin FieldName := 'MeuCampoLookup'; FieldKind:= fkLookup; DataSet := Query1; Nome := Dataset.Name + FieldName; KeyFields:= 'COD'; //Campo Chave LookUpDataset:= Query2; LookUpKeyFields:= 'COD'; //Campo Chave LookUpResultField:= 'COD'; //Resultado da campo lookup criado DbLookupCombobox1.DataField:= FieldName; DataSource1.DataSet:= Dataset; Query2.FieldDefs.Add(Nome, ftString, 20, false); end; DbLookupCombobox1.DataSource:= Datasource1; Query1.Active:= True; Query2.Active:= True; end; end. abraço

Faça uma busca no Forum http://scriptbrasil.com.br/forum/index.php...ite=Quickreport abraço e Feliz Ano Novo

Feliz Ano Novo

Isso é uma péssima maneira de trabalhar, voce não pode travar um usuário e detrimento de outro Num programa rodando em rede, voce trabalha com uma copia da tabela ( usando query ) .. as mesmas rotinas poderão ser executadas ao mesmo tempo por vários usuarios e somente depois de dar o comando post e applayupdates é que a tabela será atualizada. abraço

Já tentou usar assim ? Visualiza_Relatório.QrPreview.QrPrinter.Orientation := poLandscape; Visualiza_Relatório.QrPreview.QrPrinter.Print; abraço

a resposta está nesses links, voce é que não conseguiu encontrar ... tente se esforçar mais um pouco abraço

Veja se é dessa maneira que esta fazendo um preview personalizado no QuickReport No Evento OnPreview do componente QuickReport, utilize o seguinte codigo: Visualiza_Relatório .QrPreview.QrPrinter := Quickreport.QRPrinter; Visualiza_Relatório .Show; Onde o Visualiza_Relatório será o formulário que deverá ter o componente QrPreview. Caso queira um exemplo pronto http://www.delphibr.com.br/download/delphi/preview.zip abraço

"Erroneous type" só aparace para mim .AsDateTime; Erro de tipo .... verifique ou troque por outro tipo abraço

como voce pode perceber, no código existe um componente DbLookupCombobox que recebe o nome do campo lookup criado .... DbLookupCombobox1.DataField:= FieldName; Voce pode criar o componente em tempo de execução tambem Quanto ao erro, veja que o exemplo que te passei usa table e não query ... entretanto isso não impediria de usar query no lugar do table .... como a query usa um select voce não pode especificar campos, senão o erro query1: Field 'Field1' not found... ( Campo 'Campo1' não encontrado ) irá ocorrer. Tente entender o código para poder aplica-lo ao seu proposito abraço

Isso é um exemplo bem simples, mas já dará a voce uma ideia de como fazer OBS: Joguei os valores em um Memo, mas poderia ser a leitura de um registro em uma tabela unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function DifDias(DataFim:TDate; DataIni:TDate): String; // função para dar a diferença de dias entre duas datas Var Data: TDateTime; dia, mes, ano: Word; begin if DataIni < DataFim then begin Result := 'A data inicial não pode ser menor que a data final'; end else begin Data := DataIni - DataFim; DecodeDate( Data, ano, mes, dia); Result := FloatToStr(Data)+' Dias'; end; end; procedure TForm1.Button1Click(Sender: TObject); var datai, dataf :TDate; i,j: integer; begin j := 1; for i := 0 to Memo1.Lines.Count-1 do begin if i = 0 then begin datai := strtodate(copy(memo1.Lines.Strings[i],10,10)); showmessage('data do parto '+ inttostr(j) + ' ' + datetostr(datai)); end else begin inc(j); dataf := strtodate(copy(memo1.Lines.Strings[i],10,10)); showmessage('data do parto '+ inttostr(j) + ' ' + datetostr(dataf)); showmessage('diferença em dias entre partos ' + DifDias(datai, dataf)); datai := dataf; end; end; end; end. Esse código irá ler os valores das datas e irá mostras a diferença de dias entre o primeiro parto e o segundo .... depois do segundo para o terceiro e assim por diante. Com isso voce pode bolar algo mais ... a idéia preliminar seria essa. OBS: No lugar da função voce poderia usar outro recurso do delphi 7 Var Dia:Integer; Begin Dia:=DaysBetween(StrToDate(MaskEdit1.Text),StrToDate(MaskEdit2.Text)); End; abraço

Concordo com ele ... esse erro já deu nos nervos ....rs abraço

Exatamente. Um exemplo bem simples Voce cria o quickreport direto.... File > New > Report unit Unit2; interface uses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls; type TQuickReport1 = class(TQuickRep) QRBand1: TQRBand; QRBand2: TQRBand; QRLabel1: TQRLabel; private public end; var QuickReport1: TQuickReport1; implementation {$R *.DFM} end. abraço

então verifique a definição do campo da sua tabela .. se voce definiu como TimeStamp então terá que usar .AsDateTime; nesse caso ficaria assim: loSp.ParamByName('PINICIOCONTRATO' ).AsDateTime := Cds_CondominioINICIOCONTRATO.AsDateTime; loSp.ParamByName('PFIMCONTRATO' ).AsDateTime := Cds_CondominioFIMCONTRATO.AsDateTime; abraço

Criando um campo lookup em tempo de execução Uses Forms, Classes, Controls, StdCtrls, Db, DBTables, DBCtrls; type TForm1 = class(TForm) Table1: TTable; Table2: TTable; Button1: TButton; DBLookupComboBox1: TDBLookupComboBox; DataSource1: TDataSource; Table2Codigo: TFloatField; // Objeto campo chave código usado pelo lookup procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var Nome : string; begin with TStringField.Create(Table2) do begin FieldName := 'MeuCampoLookup'; FieldKind:= fkLookup; DataSet := Table2; Nome := Dataset.Name + FieldName; KeyFields:= 'Codigo'; //Campo Chave LookUpDataset:= Table1; LookUpKeyFields:= 'Codigo'; //Campo Chave LookUpResultField:= 'Nome'; //Resultado da campo lookup criado DbLookupCombobox1.DataField:= FieldName; DataSource1.DataSet:= Dataset; Table2.FieldDefs.Add(Nome, ftString, 20, false); end; DbLookupCombobox1.DataSource:= Datasource1; Table1.Active:= True; Table2.Active:= True; end; end. abraço

Douglas ... pegue o exemplo que te passei ... todo o código e não apenas parte dele execute ele em uma nova aplicação .... depois voce vai adaptando a esse código o seu e verá que funciona abraço

Veja esse exemplo: //****************************************************************************** // Name: IndexExists // Descriptions: Checa se um indice especifico existe na tabela // // Datum: 22.04.1999 // Programmer: Pascal Berger // Parameter: // Input: TableName: Name of the table in which you would search // DatabaseName: Name of the database in which the table is // Index: Name of the index which you would search // Output: TRUE if index exists // // History: // //****************************************************************************** function IndexExists(TableName, DatabaseName, Index:PChar):LongBool; var List:TStrings; j:integer; Table:TTable; begin List:=TStringList.Create; Table:=TTable.Create(nil); try Table.TableName:=TableName; Table.DatabaseName:=DatabaseName; Table.Open; Table.GetIndexNames(List); IndexExists:=false; for j:=0 to List.Count-1 do if UpperCase(List[j])=UpperCase(Index) then begin IndexExists:=true; Exit; end; finally List.Free; Table.Free; end; end; abraço

Sempre faça uma pesquisa no forum para ver se já existem dúvidas como a sua ... voce pode usar palavras chaves para fazer a pesquisa exemplo: voce pode digitar TClientSocket ou TServerSocket e ver os posts que contem essas palavras Neste caso voce pode ver esses exemplos http://scriptbrasil.com.br/forum/index.php?showtopic=115597 http://delphi.about.com/od/networking/l/aa112602a.htm http://www.delphi3000.com/articles/article_2313.asp?SK= http://www.invasao.com.br/2009/01/29/tutor...at-no-delphi-7/ abraços

Exemplo : Progresso da transferencia de arquivos com idftp http://www.planetadelphi.com.br/dica/5776/...uivos-com-idftp OBS: Faça as modificações necessárias para o seu uso abraço