Olá pessoal
Recentemente tive acesso a uma rotina em asp que montava uma string sql
para busca, não sei que é o autor, mas a adaptei para delphi e a transformei em
uma funcão, segue abaixo a mesma para quem quiser usar:
function StrSQLBusca(Campos: array of string;
Bom dia,
Queria saber se algem tem uma função para listar todos os arquivos
de um disco.
Desde já agradeço!
--
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 moderador,
se vc estiver usando comando SQL para fazer a insersão, é necessário que
vc feche, e depois abra novamente a query para que a consulta seja
atualizada e o novo dado seja vizualizado, caso vc esteja usando uma
ADOTable , não precisa.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Olá, amigo...
Coloque um TUpdateSQL, e na TQuery, na propriedade UpdateObject ligue o
UpdateSQL.
Obs.: No TQuery Tem uma outra propriedade, RequestLive, que qdo está
como true, lhe retornará valores autocalculados pelo banco de dados ex.:
o valor de um campo autoincremento. Mas vc só
Use estas funções q desenvolvi
converta para real faça as devidas operações depois converta novamente!!
Function TempoparaReal(Const Tempo:string ):Real;
Var
P_1,P_2,P_3:string;
begin
P_1:=copy(Tempo,0,Pos(':',Tempo)-1);
P_3:= copy(Tempo,Pos(':',Tempo)+1,length(Tempo));
se vc estiver usando DateTimePicker, faça o parametro receber
(DateTimePicker.Date -1) caso seja um dia
--
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 moderador,
Faça assim:
declare o iSoma emprivate { Private declarations } e passe o valor
1 qdo criar o form
procedure TForm1.Timer1Timer(Sender: TObject);
var
sMostra, sTitulo : string;
begin
sTitulo := 'KOBRA SISTEMAS';
if Label1.Caption = '' then Label1.Caption:= sTitulo
Já que oque te interessa é a data de inicio tire a dataa final da
comparação!
SELECT count(*)
FROMTABELA V
WHERE V.usu_chave = '1' AND
V.dt_inicio = TO_DATE('22/11/2004', 'DD/MM/')
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas,
utilize o evento BeforeDelete da Query ou Table e coloque on seguinte código
begin
if Application.MessageBox('Tem certez que deseja
excluir?','Atenção', MB_ICONEXCLAMATION + MB_YESNO)= idno then abort;
end;
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens
tente no lugar de , pois a liguagem interna do accesses é
baseada no inglês
WHERE DatePart(, DataPedido) = 2004
--
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
Use este comando:
Obs.: estou usando Delphi 7, não sei se tem nas ver anteriores!
DateTimeToStr(FileDateToDateTime(FileAge(Application.ExeName
:-)
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
ou usar um TDBEdit com as propriedades Data Source e Field devidamente
configurados :-)
--
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 moderador, envie um e-mail para:
Boa noite amigos,
Alguem poderia me informar onde consigo um prog que leia arquivos
salvos em cristal report e salve-os em outro formato. É apenas para
vizualizar um arq que recebemos aqui na empresa.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens
Dica retirado do DTDelphi2.6
Inclua na seção uses: Registry
Problema:
Criei um editor de textos no Delphi. Agora gostaria que o Windows
Explorer usasse este editor para abrir arquivos com a extensão .dpg e
.dan. Como fazer?
Solução:
Para fazer isto será necessária a criação de algumas
Olá pessoal, gostaria de saber se tem como gravar uma imagem em um
campo de sessão do arq ini.
Desde já agradeço!
--
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
Convertendo para uma Stream, perdoe a minha ignorãncia com referência a
stream, mas seria uma conversão de imagem para string? vc poderia postar
um exemplo bem básico?
Só mais uma coisa poderia me informar o tamanha máximo que poderia ter
um arq ini?
Muito obrigado pela atenção Walter.
16 matches
Mail list logo