No sql server você pode usar a stored procedure sp_who2 e nela tratar as
conexões de seu sistema. Eu uso assim. E sei exatamente quantos usuários estão
no sistema, inclusive qual a maquina que esta logada, qual usuário, etc
Marcelo Hoepfner
_
De:
Bom rodrigo eu uso sql server e eu resolveria desta forma:
Os horários vazios (vagos) deixe o campo como null e os preenchidos ponho a
data e a hora resolveria o problema.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo
Magno
Enviada em:
Voce podia ler todos os arquivos pra um memo, e depois pega o conteúdo do memo
e executar...
Eu uso ado, e no ado tem um adocommand que executa varias instruções sql.
No zeus deve ter algum componente parecido.
Marcelo Hoepfner
_
De: delphi-br@yahoogrupos.com.br
O que voce pode fazer tambem é o seguinte,
Cria uma pasta oculta no servidor e não divulga pra ninguem,
Faz o programa porteiro acessar esta pasta e copiar para a maquina local, ai
você já impede que executem o programa diretamente..
Marcelo Hoepfner
_
De:
Use a passagem de parametros do programa A para o programa X.
Se o programa X for executado diretamente ele não vai ter nenhum parâmetro, ai
vc da uma mensagem dizendo que só pode ser executado pelo programa A ou então
vc fecha o aplicativo e executa o programa A automaticamente.
De uma
procedure Tfrmmultas.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
IF NOT (SENDER IS TMEMO) THEN
BEGIN
key := #0;
perform(WM_NEXTDLGCTL, 0, 0);
END;
end;
end;
TENTA ASSIM
Marcelo Hoepfner
_
De: delphi-br@yahoogrupos.com.br
Eu uso os componentes da jvcl para compactar o arquivo, e mando para o ftp
usando os componentes do indy.
Marcelo Hoepfner
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Renato
Lorandi
Enviada em: quarta-feira, 20 de dezembro de 2006 15:13
Para: Lista
%40msn.com
- Mensagem original
De: Marcelo Hoepfner (SI) [EMAIL PROTECTED] mailto:M.EDUARDO%40BRAFER.COM
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 19 de Dezembro de 2006 13:40:07
Assunto: RES: RES: [delphi-br] Moeda
SELECT
CAST
Voce pode dar um cast pra money na própria query trazendo o valor já em formato
de moeda, pesquise no help do sql server a função CAST
Marcelo Hoepfner
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
BrancoRP2000
Enviada em: terça-feira, 19 de dezembro de
to conseguindo usar.. se tiver
um exemplo, ajuda bastante...
-
BRANCORP2000
http://brancorp2000.blogspot.com http://brancorp2000.blogspot.com
MSN: [EMAIL PROTECTED] mailto:brancorp%40msn.com
- Mensagem original
De: Marcelo Hoepfner (SI) [EMAIL PROTECTED
: [delphi-br] Conecta a um banco de dados onLine
Gostaria de saber sobre o desempenho. É rápido mesmo? E qual o seu tráfego de
informações? O que fazem os seus sistemas?
Só quero ter uma base, para fazer a coisa certa.
- Original Message -
From: Marcelo Hoepfner (SI)
To: delphi-br
No hosting
www.meh.com.br http://www.meh.com.br/
tenho 2 sistemas delphi (desktop) acessando o mysql (web) 100% funcionando.
Qualquer coisa manda um email.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz
Escobar
Enviada em: sábado, 9 de
Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar.
Marcelo Hoepfner
msn: [EMAIL PROTECTED]
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei
Luís
Enviada em: sexta-feira, 8 de dezembro de 2006 13:22
Para:
Voce poderia utilizar um endereço de email,
Neste caso você conectaria ao server e verificaria se existem novos pedidos.
Por exemplo se os pedidos vem de pessoas de fora da empresa e esta indo pra um
email que não é esse vc orienta a todos os usuários que quando quiserem efetuar
pedidos
Tenta retirar o = true
procedure TfrmSkin.BuscaClick(Sender: TObject);
begin
if opDiag.Execute then
edit1.Text := ExtractFilePath(opDiag.FileName);
end;
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edilson
Gonçalves
Enviada em: quarta-feira, 29 de
Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
se eu fizer essa pesquisa:
dmDados.ibqConsultaContasAPagar.SQL.add
(' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+
chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento
CARA EU TENHO UM PROVEDOR E DO SUPORTE A ACCESS TRANQUILO
ENTRE NO MEU SITE E VEJA OS PLANOS www.meh.com.br http://www.meh.com.br/
Mensagens em pvt e MSN: [EMAIL PROTECTED]
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo
Enviada em:
17 matches
Mail list logo