use o zeos
---Mensagem original---
De: HNS Informática
Data: 10/10/05 17:31:14
Para: Lista DelphiBr
Assunto: [delphi-br] Delphi + MySQL
Estou iniciando o uso do Delphi5 com MySQL, gostaria de saber se alguém sabe
onde encontrar um bom componente de acesso ao MySQL para Delphi5 e um
O que a comunidade Delphi esta usando para desenvolver os seus aplicativos
para Linux ?
Não sei esse assunto já foi discutido aqui.
Att.
Fernando Fabril
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as
Olá pessoal,
muitos desenvolvedores tem feito esta pergunta.
1 - VCL existe para Win32 e para .NET através da VCL.NET, se você fizer uma
aplicação VCL.NET terá uma aplicação .NET
2 - WinForms é baseado na FCL, para os desenvolvedores Delphi que estão
acostumados com VCL nem querem passar
Bom dia a todos,
Gostaria de aproveitar a experiência de vocês para tirar uma duvida,
QUAL O MELHOR (mais rápido) COMPONENTE PARA ACESSO AO FIREBIRD/ INTERBASE?
Obrigado
Paulo Dias de Souza
Programador Delphi\ Interbase
_
[EMAIL PROTECTED]
ja fiz muita trigger com alteracao depois e funcionou
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Madsom Silva
Enviada em: segunda-feira, 10 de outubro de 2005 19:15
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Trigger no
Cara, me passa o create da tabela que eu te ajudo!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Celio Ricardo
Enviada em: segunda-feira, 10 de outubro de 2005 18:27
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Trigger no
Bom dia!
Eu uso o MDO e acredito ser muito bom. Tem também o ZeosDBO, porém com esse o
executável fica um pouco maior, mas tem a vantagem de, caso queira usar outro
Banco de Dados, será bem mais fácil, pois ele acessa vários Banco de Dados.
Boa sorte.
Ulisses
- Original Message -
Ex.
CREATE TABLE FUNCIONARIO
(CODIGO INTEGER NOT NULL,
NOMEVARCHAR(100));
CREATE TABLE SETOR
(CODIGO INTEGER NOT NULL,
RESPONSAVEL INTEGER NOT NULL,
GERENTE INTEGER NOT NULL,
SUBGERENTE INTEGER NOT NULL)
( mais ou menos isso neh?...ocultei
Oi pessoal,
algumas pessoas tem me reportado esse erro após instalarem algumas
atualizações do Windows XP.
Postei no meu blogs um artigo de como resolver o problema.
http://blogs.borland.com/andreanolanusse/archive/2005/10/11/21677.aspx
Abraços
Andreano Lanusse
System
Ola bom dia galera...
sei que o assunto nao tem nada a ver com o delphi...e me desculpe por
isso..
mas o que voces tem a dizer sobre o desarmamento...e contra? a favor...?
pq?
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER
Olá, preciso de uma ajuda urgente, se me responderem eu agradeço.
Eu estou fazendo uma inserção no delphi, após inserir, eu quero saber,
através de uma consulta, qual ID foi inserido na tabela:
result:=DMConsulta.QConsulta_id.Fields.Fields[0].asinteger;
A variável result é do tipo integer.
Mas
E ai galera,
Quais permissões um Usuário deve ter para poder criar permissões com ROLE,
altera etc..
Só estou conseguindo criar roles com o SYSDBA, com outros não...
Valeu...
Thiapo
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO
Elazar, Bom dia!
Me desculpa, mas este tipo de assunto que não nada a ver com o
Delphi e nem com desenvolvimento, só tumultua a lista. Acho que isso já
rolou aqui e em outras listas que participo, gerou discussões intermináveis.
Não sou o dono da lista e nem da verdade. Mas na
Não tenho nada a dizer, aqui é uma lista relacionada a delphi...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Elazar
Enviada em: terça-feira, 11 de outubro de 2005 09:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] OFF TOPIC
O que tenho a dizer é que este assunto não é assunto pra ser discutido aqui
na lista.
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem
Bom dia pessoal.
Preciso saber quantos registros foram filtrados por uma query.
O código SQL é bem simples, assim:
Select * from Coletanea
Where ColDono = :CodigoDoDono
Esse parâmetro é passado depois no Delphi.
Isso serve para saber quantas coletaneas um usuário do sistema tem.
Como pegar o
Parece que tem um fields a mais. tente retirar um Fields, assim:
result := DMConsulta.QConsulta_id.Fields[0].asinteger;
Se não funcionar, dê um last na tabela:
DMConsulta.QConsulta_id.Last;
Espero que funcione! Abraço
Rodrigo Tognin
-Mensagem original-
De:
Acho que se você fizer uma rotina usando numeros inteiros randomicos e
colocando o Par para SIM e o impar para NÃO você vai achar a resposta...
Ou parem de colocar esse tipo de coisa aqui POXA, isso aqui é uma lista de
DELPHI e não lista de escolhas pessoais...
Elazar [EMAIL PROTECTED]
Alguém sabe se é possível colocar um edit no popup menu do tray icon?
Grato,
Márcio.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
Nunca pensei nisto.
Menu é menu, tenho quase certeza que não é possível - não é lógico.
O que você deseja fazer? (pq este edit?)
Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br
- Original Message -
From: Marcio Amorim de Araujo [EMAIL PROTECTED]
To: DTDelphi
Query.RecordCount
Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br
- Original Message -
From: Rodrigo Tognin [EMAIL PROTECTED]
To: Delphi-Br delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 11, 2005 10:00 AM
Subject: [delphi-br] Número de registros filtrados
Não funcionou, ele abriu a página numa página ja aberta
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de TObject
Enviada em: segunda-feira, 10 de outubro de 2005 18:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Abrir
Nao opcoes avançadas do I.E., desmarque a opcao Reutilizar janelas para
iniciar os atalhos
att,
Leandro
- Original Message -
From: Eduardo Silva ® [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 11, 2005 11:13 AM
Subject: RES: [delphi-br] Abrir Internet
É q eu queria fazer uma passagem de parâmetros para o programa sem
ter q abrir uma tela nova só para digitar estes parâmetros.
Seria mais fácil clicar lá no popup e já digitar o q preciso.
Sacou? Será q dá?
--- Em delphi-br@yahoogrupos.com.br, Roger [EMAIL PROTECTED]
escreveu
Nunca pensei
Amigo, não sei como, mas é possível colocar controles no popup sim, o Emule
faz isso.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de marcioamorimaraujo
Enviada em: terça-feira, 11 de outubro de 2005 11:42
Para: delphi-br@yahoogrupos.com.br
__ Informação do NOD32 1.1249 (20051011) __
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o
Bom dia galera,
Tenho um form, no qual implementei várias funcionalidades e todos os outros
herdam dele.
Até aí tudo bem.
Porém o Delphi sempre obriga que eu adicione ele no projeto e que o fonte (.pas
e .dfm) esteja disponível.
Senão tiver diz que não foi possível abrir o ancestor.
Existe
Olá pessoal...
tô com um probleminha aqui...
Function TForm1.VerificaImpressoraConectada(Porta:Word):Boolean;
Const Portas :Byte = $02;
Var Res :Byte;
Begin
Asm
mov ah,Portas;
mov dx,Porta;
Int $17; //- aqui dá um
E ai galera,
Quais permissões um Usuário deve ter para poder criar uma ROLE e determinar
as permissoões dela, tenho um usuario sem nenhuma permissão, e conecto o
banco ultilizando uma role.
Só estou conseguindo criar, alterar dar grant, revoke roles com o SYSDBA,
com outros usuarios não...
Eu achei esse texto aqui, ve se ajuda...
Verificar se Impressora esta Conectada
A dica abaixo apresenta o código para implementação de uma função para
verificar se a impressora esta conectada.
Para implementar esta função é necessário que o código gerado manipule algumas
interrupções da
Achei esse outro aqui tbem...
Verificando se a impressora está ativa
Na sua unit, faça a chamada abaixo:
While not PrinterOnline() dobegin MsgBox('Verifique a
Impressora!','ATENÇÃO');end; Function PrinterOnLine : Boolean;Const PrnStInt :
Byte = $17; StRq : Byte = $02; PrnNum : Word = 0; {
/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__ NOD32 1.1249 (20051011) Information __
This message was checked by NOD32 antivirus system
se o SO é Win XP, tente mudar no setup da máquina a porta paralela de ECP
para SPP.
---Mensagem original---
De: sa_souza
Data: 10/11/05 13:50:29
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Testar Porta de Saida...
Olá pessoal...
tô com um probleminha aqui...
Concordo com meus amigos acima, aqui não é lista para se discutir
isso, por que vc não posta uma pergunta sobre Delphi? Te garanto que
vao lhe responder, deixe esse tipo de discursão para outros lugares ou
então crie um grupo novo para tal discursão, mas não vamos sujar a
nossa lista.
Em
Zona Sul???
- Original Message -
From: patty_mrbr [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 11, 2005 2:32 PM
Subject: [delphi-br] Vaga para Analista Programador DELPHI
A WA Informática busca profissionais especialista em Delphi
(desenvolvimento para WEB)
Prezados Amigos,
Tudo bem?
Tenho que desenvolver uma aplicação que receberá vários
bloco de 2kb
através de uma porta específica. Acontece que estes blocos
são da
ordem de milhões/hora e a única forma que imaginei seria, a
cada bloco
que eu receber na porta que estou escutando (uso delphi 4 e com
Pra quem quiser usar este e qualquer outro recurso no popup, segue a solução.
Numa nova aplicação, criem dois forms. Vá ao primeiro form, clique com o botão
direito, escolha view as text e aí cole o código abaixo:
object Form1: TForm1
Left = 272
Top = 287
Width = 409
Height =
/* Exemplo mastigadinho */
CREATE TABLE COLETANEA
(CODIGO INTEGER NOT NULL,
NOME VARCHAR(100),
CONSTRAINT PK_COLETANEA PRIMARY KEY(CODIGO) USING INDEX
IDX_PK_COLETANEA);
INSERT INTO COLETANEA (CODIGO, NOME) VALUES (1, 'Elazar');
INSERT INTO COLETANEA (CODIGO, NOME) VALUES (2,
Não sei se é bem isso que você quer, mas vai aí um
codigo que cria um edit quando clicar com botão
direito do mouse. Quando você teclar Enter no edit ou
clicar no form ele some.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs,
Pessoal,
Tenho 1 Sistema q roda numa boa em SDI.
Tenho uma unit uRotinasGen (rotinas genericas), onde:
Limpo campos dos Forms, Travo Campo, escondo, enfim
passo o nome do form e mando brasa!
Fiz uma mudança para MDI, mas não consigo executar estas rotinas
genéricas.
Mensagem é: Access
Caros amigos,
Preciso contratar com urgência um funcionário para trabalhar com
suporte ao usuário, gerenciamento de backups e de rede local e
manutenção de nossa home page. Lembrando que não usamos nada muito
complexo. Tudo muito simples.
Tudo sem complicações e sem pressão, pois o
Marcus,.
Poste esta mensagem também na lista delphi-empregos
[EMAIL PROTECTED]
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
Na própria tabela, sem dar update de forma explícita ?
Blza então, pois no meu não funcionou.
Inclusive no Oracle da erro na criação da trigger, ele nem deixa criar pois
não faz sentido alterar o conteudo do atributo depois do registro gravado.
Queria ter ajudado.
Madsom.
-Mensagem
Olá Sergio...
Pelo que entendi vc quer uma barra vertical do tipo daquela do outlook. Se
for existem componentes chamados outlook bar que fazem isso. Uma delas é a
VSOutlook Bar. Me parece que vinha no cd do Delphi 5 não tenho certeza. Não
sei também se existe alguma outra versão mais recente.
procedure LimpaEdit(Form: TForm);
var
i : Integer;
begin
if Form = nil then exit;
for i := 0 to Form.ComponentCount - 1 do
begin
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
if Form.Components[i] is TStaticText then
(Form.Components[i] as
vejam o artigo:
http://www.internetnews.com/dev-news/article.php/3554906
a menção ao Highlander (BDS2007) mantém a previsão do postado no blog da borland
sobre o .NET 2.0 - que, claro, só vai estar estável no 2.1 ou 2.2, he, he.
Carlos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
Povo
Tenho um trecho de código que funcionaria da seguinte forma, com um
componente TRichEdit:
RchEdtHmDiagnostico.Lines.Assign(DtMdlRhMedicoServer.QryDiag.FieldbyName('TXT_DIAGNOSTICO'))
O problema é que o valor do banco vem criptografado. A função que
descriptografa
estou tentando inserir uma linha numa query, porém se eu adicionar todos os
campos vai ficar muito grande, como posso fazer pra fazer uma linha para cada
campo da tabela?
ex:
frmacesso.query.Sql.Add ('insert into usuarios
(Login)'+'Values('+editusuario.text+')');
quero fazer uma linha para
Pessoal estou tentando fazer uma consulta usando union, funciona legal se eu
coloco somente where dts = :dts, porem se acrecento a consunta o between, da
erro,
CONVERSION ERROR FROM STING 2005-10-11
Etou utilizando este comando sql e o valor vem de dos maskedits onde o valor
seria 11/10/2005:
gente, perdoe minha ignorancia, mas não estou conseguindo acertar o codigo de
inserção via sql... alguém poderia dar uma olhada?
frmacesso.query.sql.add('insert into usuarios (Login,Senha,Nome)');
frmacesso.query.sql.add(' Values');
frmacesso.query.sql.add(editusuario.text);
Pessoal estou desesperado tenho um sistema em delphi de controle de pedidos
de compras, o problema é o seguinte, ao abrir algumas telas da o erro
OPERATION NOT APLICATE
o SO é XP, mas em algumas máquinas com xp ele funciona, e em outras nao,
estou usando dbexpress com client data set
na
Não sei se é bem isso que você quer, mas vai aí um codigo que cria um edit
quando clicar com botão direito do mouse. Quando você teclar Enter no edit ou
clicar no form ele some.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
Bom dia Rodrigo
Vc pode utilizar a propriedade RecordCount:
Label1.caption := IntToStr(ADOQuery1.RecordCount);
Um Grande Abraço,
Vanderson Sá
--- Rodrigo Tognin [EMAIL PROTECTED] escreveu:
-
Bom dia pessoal.
Preciso saber quantos registros foram filtrados
pessoal, como faço pra receber a data do sistema numa sql?
frmacesso.query.ParamByName ('Datacad').value := date;
[da erro
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas,
Criei minha tela no delphi 2005 desta forma
procedure TPrincipal.Button1_Click(sender: System.Object; e: System.EventArgs);
Var Tela : TModeloBase;
begin
Tela := TModeloBase.Create;
Tela.MdiParent:= self;
Tela.Show;
end;
mas quando eu pressiono novamente o botao o sistema cria mais uma
Alguém sabe que evento devo fazer para quando clicam em um label contendo um
endereço de e-mail abrir o outlook com aquele endereço? a mesma coisa com um
site
att Charles Chiodi
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO
Pessoal, quando eu usava paradox eu usava um timer para atualizar os dados pela
rede... agora eu estou usando mysql e notei que preciso fazer a mesma coisa
para atualizar os dados na tela das outras maquinas, será que é porque estou
usanto table ou com query tem que fazer a mesma coisa, ou
vc pode tentar assim:
frmacesso.query.sql.add('insert into usuarios (Login,Senha,Nome)');
frmacesso.query.sql.add(' Values');
frmacesso.query.sql.add('''+editusuario.text+''');
frmacesso.query.sql.add(',''' +editsenha.text+''');
frmacesso.query.sql.add(','''+editnome.text+''')');
ou assim:
frmacesso.query.Sql.Add ('update usuarios set senha=:senha');
frmacesso.query.paramByName('senha').asstring:=editsenha.txt:
para mais comapos so adiconar no set separados por virgula, nao esqueça da
condição do update ou serja
where condição_de_alteração...
---Mensagem original---
Não sei se estou ajudando em alguma coisa, mas pra que serve a linha
FreeOnTerminate := True; ? Não seria isso?
Bom, se não for, desculpe minha ignorância e por favor me diga a função disso.
Obrigado.
Atenciosamente,
--
Thiago de Oliveira Quinelato.
Aluno do 4º Módulo do Curso Técnico de
60 matches
Mail list logo