bastard2003

Salve amigos do forum.. beleza?? galera to com o seguinte problema... vou ter q criar um relatorio que ira receber o texto de um RichEdit no formulario to com o RichEdit e no relatorio to com um QRRichText (QuickReport) so que o problema é o seguinte... não to conseguindo nem visualizar o QuickReport quando dou o Preview... e tentando de outra maneira não consigo ver o texto... minha duvida é a seguinte: Tem como usar QuickReport sem DataSet? Como? Segundo... qual seria a maneira mais adequada de eu passar esse texto que esta no RichEdit do formulario? este esta todo formatado, tipo, tamanho da fonte, localização (centralizado, alinhado a esquerda...)... tem como fazer isso?? se alguém puder me ajudar ficaria MT grato! Atenciosamente Bastard2003

cara tenho uma parecida... so que uso uma função para isso... eu tenho como padrão de nomes de colunas e tabelas no banco criar o nome da tabela e a PK com nome da tabela mais NU. ex.: nome da tabela PAIS nome da PK NUPAIS! ai a função ficaria mais ou menos assim: function TdtmPrincipal.ProximoCodigo(nomeTabela, nomeCampo: string; sqlAd: string = ''): integer; var prox: integer; str, campo: string; begin { Retorna o próximo código para uma tabela nomeTabela = nome da tabela solicitada nomecampo = nome do campo código a pegar o próximo numero (opcional) sqlAd = Restrição. } campo:=nomeCampo; if campo = '' then campo:='NU' + nomeTabela; qryProximo.Close; qryProximo.SQL.Clear; str:='select max(' + campo + ') as Proximo'; str:=str + ' from ' + nomeTabela; qryProximo.SQL.Add(str); if sqlAd <> '' then qryProximo.SQL.Add('where ' + sqlAd); qryProximo.Open; prox:=qryProximo.FieldByName('PROXIMO').AsInteger; qryProximo.Close; Inc(prox); ProximoCodigo:=prox; end; ai ta a função... pra chamar ela fica facil... ProximoCodigo('NOMETABELA','CHAVEPRIMARIA', 'RESTICAO'); {sendo que as duas ultimas não são obrigatorias... como explicado antes uso um padrão pra nomenclatura...} era isso galera... mais um modelo de Autoincremento! PS: qryProximo é uma ADOQRY

Lafey, beleza?? cara eu to usando com o delphi 7 passei algum trabalho pra conseguir configurar mais consegui.. tipo... primeiro você tem q baxar o MySql MySql 4.1 é o mais confiavel... no momento (isso é o que eles mesmo dizem) ... ai intala normal... next, next, next.. heheh... depois tu procura isso aqui MySql OleDb isso ira fazer tua conexão com o banco pelo delphi... você já utilizou UDL?? se não é barbada... da uma olhada no google q tem uns tutoriais MT bom ensinado a usar... o arquivo aquele q tu baxo (MySql OleDb) tu estrai na System32 e executa um arquivo .dat q vai vir junto... ele vai se encarregar de tudo... mas o outro arquivo q tem junto você tb tem q colocar nessa mesma pasta! você tb tera q baixar um ODBC pra MySql isso você consegue no proprio site da Mysql.. pra inicio axo q era isso... a... no delphi ai tu usa os componentes ADO.. tem um componente pra MySql (Zeus ou Zeos) mas não confio MT nele... já li relador em outros foruns q o pessoal disse q ele não é dos melhores! tenta ai velho qualquer coisa... tamo ai!

vou conconrdar com os dois ultimos posts... cara... doq adianta eu me matar trabalhando pra fazer um programa massa... pra depois coloca ele de graça pra galera??? GPL é massa... libero o software de graça e cobro o facada pra dar ajuda! é uma.. mas prefiro disponibilizar umas funções ou um ou outro font pra ajudar neguin q ta começando! era isso! minha opnião! D31v1d1: cara show de mais a tua assinatura... vo copiar as ultimas linhas! espero q você não se importe! hehehe valeu!

beleza? cara tu não tem nenhuma outra tabela q ta referenciando essa coluna??? so pra saber?

cara beleza?? faz um tempinho q eu não trabalho com flash... mas me você poderia fazer o seguinte se eu não me engano é essa a funçao: GoToFrame(10); //se eu não me engano play; e no frame 10 tu coloca: play; se eu não me engano é isso... abraços!

Dai proteggere beleza?? cara tu já ouviu falar em Dhtml??? ele é "mais ou menos" parecido com JS....e tem uns esquemas massa pra se fazer menus desse tipo... na net tm vario modelos... so por curiosidade?? qual o problema de você usar JS com PHP?? nas tags php não pode ter js mas em um arquivo exteno não tem prloblema nenhum!

Tenta isso: procedure TfrmPrincipal.AbreEmail(const aAdress: String); var buffer: String; begin buffer := 'mailto:' + aAdress; ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL); end; // onde aAdres é uma string com o email do cara... //ps: isso é uma função pode chamar ela assim : AbreEmail(''+dtmPrincipal.qryInfClienteNMEMAIL.Value+''); qualquer coisa, tamo ai!

Consegui era o barbada!! ehhehe TO_DATE('28/07/2005 08:40:35', 'DD/MM/YYYY HH:MI:SS'); mas mesmo assim valeu!

não tipo... seu programa vai ser pra editar as tabelas q esse cliente já tem?!?! isso.. provavelmente ele já tem o banco instalado... o sql q você ta falando é a linguagem que você vai usar pra fazer acessos ao banco... na real você so vai manda o programa mesmo.. o banco o cara já deve ter!

eu so tem que ter o banco!! tipo tu ta te referindo a SQL Server?? ou o que?? Seria mesmo o banco instalado pra poder usar teu programa!

Fala galera, beleza?? bom novamente venho recorer a vocês para me ajudarem com um baita problema... estou trabalhando num projeto que ira trabalhar com 3 tipos de bases de dados diferentes (Oracle, Sql Server ou Interbase) e tenho uma coluna numa tabela que é do tipo DATE so que eu tenho q gravar nela data e hora... no delphi quando eu vou passar pra gravar eu já tentei fazer de varias maneiras como contatenar data + hora, ou formatar a data e mais essas duas ai! if (frmPrincipal.NomeBancoDados <> 'ORA') then DTHora:=data[4] + data[5] + '/' + data[1] + data[2] + '/' + data[7] + data[8] + data[9] + data[10] + ' ' + data[12] + data[13] + data[14] + data[15] + data[16] + data[17] + data[18] + data[19] else DTHora:=data[1] + data[2] + '/' + data[4] + data[5] + '/' + data[7] + data[8] + data[9] + data[10] + ' ' + data[12] + data[13] + data[14] + data[15] + data[16] + data[17] + data[18] + data[19] // a onde a varial NomeBancoDados me diz qual banco vou usar...sendo isso uma função q eu chamava na hora de inserir o valor outra foi: if (frmPrincipal.NomeBancoDados = 'ORA') then begin ret:=''; qryHoraServidor.Close; qryHoraServidor.Open; ret:=qryHoraServidorDATAHORA.Value; qryHoraServidor.Close; HoraServidor:=ret; end; if (frmPrincipal.NomeBancoDados <> 'ORA') then begin ret:=''; qryHoraServidorSql.Close; qryHoraServidorSql.Open; ret:=DateTimeToStr(qryHoraServidorSqlHORA.Value); qryHoraServidorSql.Close; HoraServidor:=ret; end; // Nessa aqui eu tenho duas qrys... uma pra oracle e outra pra Sql Server/Interbase estas me trazem as dadas e horas certas .... sendo isso uma função q eu chamava na hora de inserir o valor só que o problema é que quando eu vou gravar na tabelas ele da esse erro ai... ORA - 01830: a imagem do formato da data termina antes de converter a string de entrada inteira se eu tirar a hora e colocar so a data funciona... sera que alguém poderia me ajudar ai? valeu galera! IMPORTANTE: to testando ela no Oracle...

ta usando qry ne! faz assim with qryReceita do begin close; sql.clear; sql.add('insert into receitas (datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico)values ('); sql.add(''+qryOUTRAdatavenda.AsString+''); sql.add(''+ qryOUTRAcodigo.asstring +''); sql.add(''+ qryOUTRAvariacao.asstring +''); sql.add(')'); ExecSQL; end; e assim pra cada campo que você quiser inserir... tenta ai!

da uma olhada nos exemplos q o proprio delphi traz... la tem varias coisas boas.... pra todos os niveis... tem varios modelos... tem alguns exemplos ate com arrays...

- Felipee - tem como sim... e fica o massa... eu tenho esse codigo em alguns grids no meu projeto antigo.. essa é um das maneira.... mas tem outra ainda... tipo so antes disso tu coloca um IF ne... pra fazer a restição de qual coluna vai pintar! era isso... abaixo tem dois exemplos... if column.FieldName = 'atraso' then dbgContatos.Canvas.Brush.Color:=$008C8CFF; // aqui eu vo pelo nome da coluna...sendo q a cor pode ser no formato do nome ex.: ClRed ou ainda : bgContMes.Columns.Items[2].Color := $00FAC5B8// aqui pelo indice dela... sendo q a cor pode ser no formato do nome ex.: ClRed era isso.. qualquer coisa tamo ai!

ta mas tu mostra esses valores em algum lugar?? ou tu so qé importar os dados de uma tabela pra outra??? é q cara... não to conseguindo entender direito o que você ta fazendo... se você pude explicar melhor... ficaria mais facil de eu te ajudar... abraços

agora q eu me liguei velho.. tu ta fazendo um inser com os proprios dados da tabela?!?! esses valores ali vem da onde?? se for de campos nem é preciso criar as variaveis... vai direto com o valor dos campos. Ex.: with QRYDADOSRECEITA do begin Close; SQL.Clear; SQL.Add('insert into receitas(datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico) Velues('); SQL.Add(''+Edit1.Text+','); SQL.Add(''+Edit2.Text+','); SQL.Add(''+Edit3.Text+','); SQL.Add(''+Edit4.Text+','); SQL.Add(''+Edit5.Text+','); SQL.Add(''+Edit6.Text+''); ExecSQL; end;

é interbase?? se for... tenho quase certeza de que o problema é no insert com um select como você ta fazendo... eu uma vez fui fazer isso so q buscando o ultimo codigo (select max(codigo)+1) e não de... naquela vez eu resolvi criando variaveis pra receber esses valores tipo.. tu faz esse teu select separado e cria as variaveis ai depois do open tu passa os valores pra ela via FieldByName dtvenda:=qry.FieldByName('datavenda').AsString // ou Value mesmo! ai na hora de fazer o insert tu passa: 'insert into receitas(datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico)values (''+dtvenda+''' // e todos os outros valores! tenta isso... se não der ou se não fui bem claro posta ai de novo! abraços!

ta um poco confunso... mas o que deu pra notar de cara é o seguinte.... srtsql é uma variavel ne?? se for tu não pode fazer o comando assim... porque quando tu passa a segunda linha pra ela ... ela mata a primeira então faz assim... strsql:='insert into receitas(datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico)values'; strsql:= strsql + '(select datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico from ":Copacabana:produtocx2.DB") where produtocx2.datavenda between :per1 and :per2 and produtocx2.codigo<>:nada'; tenta isso ai... se der pau... cola o erro aqui ... com o erro fica mais facil de saber doq olhando o codigo. PS:se tu tiver passando esse codigo via uma qry pra fazer esse insert faz o seguinte antes de dar o Open ou ExecSql da um SaveToFile... e ve como fico esse teu sql... qualquer coisa tamo ai!

Oi Aninha pelo q eu pude entender na tua descrição do problema você tem duas qrys e um grid com dois selects diferentes dependendo da opção q a pessoa escolher no radio né??? se for isso faz o seguinte... coloca dois DataSource um pra cada qry.. ai tu faz o seguite no clic do botão da consulta: if rbFUNCIONARIO.Checked then dbGrid1.DataSource := dtsFUNCIONARIO else dbGrid1.DataSource := dtsINTERNO; esse codigo ai deve resolver teu problema... se algo não funciona... posta ai!

Vivendo&Aprendendo: cara não entendi MT bem qualquer você ta querendo fazer.. porque tipo.. se for fazer um SQL normal nem vai '' (aspas) tipo manda de reto o sql. with qry do begin Close; SQL.Clear; SQL.Add('SELECT * FROM TABELA WHERE CODIGO =' + 3); Open end;

cara como o textos dos dbtext são o registro da tua tabela, basta tu da um insert (se for usar tabela) ou um comando sql (se for usar qry) e depois da um del nesses... registros por exemplo (usando query): PS: digamos q você tenha 3 campos nessa tabela! qry.close; qry.sql.clear; qry.sql.add('insert into tabbaixa (CODIGO, NOME, COMPLENTENTO) values ('); qry.sql.add(''+tabequipamentosCODIGO.AsString+''); qry.sql.add(''''+tabequipamentosNOME.AsString+''''); qry.sql.add(''''+tabequipamentosCOMPLEMENTO.AsString+''''); qry.sql.add(')'); qry.ExecSQL e como vcta usando uma table pra mostra os valores nos dbtext basta você da um tbl.delete isso deve te ajudar... se der algum erro posta ai de novo!

Quais componentes você ta usado ai?? ADOTable...

[Error] fInc_Curso.pas(62): Undeclared identifier: 'VarArrayOf' >>> qual delphi você ta usando??? porque essa função esta presente no 5 (eu já tentei usar no 6 e no 7 e tb não deu, não encontrei essa lib). [Error] fInc_Curso.pas(62): Ordinal type required >>> ta pedindo um tipo inteiro!! [Error] fInc_Curso.pas(62): Incompatible types: 'Integer' and 'String' >> IntToStr ou StrToInt devem resolver! [Fatal Error] fAluno.pas(117): Could not compile used unit 'fInc_Curso.pas' >> esse é por causa dos outro erros...

So pra você entender melhor o que porque desse erro... quando você cria um novo form nas Uses dele (bem no começo tem USES) deveria tar declarado essa use aqui: SysUtils se não tiver é por isso.... dai basta declarar q ela funciona normal! era isso!