Vivendo&Aprendendo

Como faço para renomear um arquivo para que o nome dele seja a data e a hora? falou

Olá Junior para fazer as minhas consultas entre datas eu utilizo a seguinte rotina: DmDados.Alunos.Close; DmDados.Alunos.SQL.Clear; DmDados.Alunos.SQL.Add('Select * From Alunos'); DmDados.Alunos.SQL.Add('Where DataNasc between :Inicial and :Final'); DmDados.Alunos.Parameters.ParamByName('Inicial').Value := StrToDate(EdtInicial.Text); DmDados.Alunos.Parameters.ParamByName('Final').Value := StrToDate(EdtFinal.text); DmDados.Alunos.SQL.Add('Order By Codigo'); DmDados.Alunos.Open; Lembrando que DmDados é o local onde se encontra a minha query, Alunos é a minha tabela no banco de dados, DataNasc é o campo onde estou efetuando a consulta e INICIAl e FINAL são parametros que recebem os valores para as pesquisas. A rotina que o Progr'amador passou tb funciona Alexandre Aki funciona beleza.

cara acho que podemos pegar esta rotina que te passei e modifica-la porque se não estou enganado ela verifica qual é a resolução atual e ai é só atribuir para as suas variáveis... na rotina que te passei tem duas propriedades que tb foram citadas pelo amigo s3c que são: Screen.Width e Screen.Height Acredito que você pode usar essa rotina e a sua juntas e atribuir esses valores destas propriedades para as suas variáveis... OBS Não testei. falou

Amigo não sei fazer o que você realmente deseja mas tenho uma rotina que indica e muda a resolução do vídeo, segue ela abaixo se te ajudar em algo: - Coloque um ListBox no form - Modifique o OnCreate do form assim: procedure TForm1.FormCreate(Sender: TObject); var i : Integer; DevMode : TDevMode; begin i := 0; while EnumDisplaySettings(nil,i,Devmode) do begin with Devmode do ListBox1.Items.Add(Format('%dx%d %d Colors', [dmPelsWidth,dmPelsHeight, 1 shl dmBitsperPel])); Inc(i); end; end; - Coloque um botão no form - Altere o evento OnClick do botão conforme abaixo: procedure TForm1.Button1Click(Sender: TObject); var DevMode : TDevMode; begin EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode); ChangeDisplaySettings(DevMode,0); end; falou

cara como responderam os amigos acima você deverá criar o seu relatório assim como esplicou o amigo Micheus e a consulta você poderá colocar um DbLoockup para escolher o nome do frigorifico que você deseja tirar o relatório (isso é claro se os frigorificos estiverem cadastrados no seu sistema) e dois edits para digitar as datas... ai vai a consulta entra datas que eu uso... AdoQuery.Close; AdoQuery.SQL.Clear; AdoQuery.SQL.Add('Select * From Tabela); AdoQuery.SQL.Add('Where Data between :Inicial and :Final'); AdoQuery.Parameters.ParamByName('Inicial').Value := StrToDate(EdtInicial.Text);; AdoQuery.Parameters.ParamByName('Final').Value := StrToDate(EdtFinal.text); AdoQuery.SQL.Add('Order By Codigo'); AdoQuery.Open; Espero ter te ajudado falou

Não sei se pode ser isso mas, verifica se a configuração do quick com o componente de acesso ao banco está feita de maneira correta. falou

Meu amigo me desculpa os erros que você citou na minha dica, mas isso é um forum e apenas tentei ajudar o camarada com a dúvida dele, se falei a mesma coisa que você ou não isso não tem o menor problema... falou

Amigão basta você adicionar um componente que vem com o delphi mas não é instalado junto com ele. Esse componente você encontrará em: Component > Import Active Control > ai nesta lista de componentes você irá procurar pelo Shockwave Flash e clicar em install, depois YES, depois OK e ae clica em Install de novo e OK. e ae pode fechar a janela e não precisa salvar. Este componente irá ser instalado na paleta ActiveX. Para usar ele basta adiciona-lo no form e na propriedade Movie colocar o caminho doarquivo .SWF tipo C:\sistema\flash\arquivodoflash.swf e ae é só compilar falou

Amigão é o seguinte: para resolver o seu primeiro problema, acredito que a hora do compromisso esteja cadastrada no banco de dados, ai é só você comparar ela com o horário que o componente TIMER te oferece fazendo uma variavel ou label receber a hora do timer, tipo: If VARIAVEL = TABELA.HORA Then Application.MessageBox('HORÁRIO DO COMPROMISSO!','Atenção',mb_IconExclamation +mb_ok); Mais ou menos isso... e o segundo problema segue a rotina abaixo que da certo: Na seção PRIVATE adicione: procedure Icontray(var Msg: TMessage); message WM_ICONTRAY; Antes da clausula Implementation na seção var adicione a linha abaixo NotifyIconData: TNotifyIconData; Digite a seguinte procedure procedure TFrmBackup.Icontray(var Msg: TMessage); var CursorPos : TPoint; begin if Msg.lParam = WM_RBUTTONDOWN then begin GetCursorPos(CursorPos); PopupMenu.Popup(CursorPos.x, CursorPos.y); end else inherited; end; No evento OnCloseQuery do Form: If Application.MessageBox('Permanecer em execução?','Aviso !',MB_ICONQuestion +MB_YESNO) = MrYes Then begin with NotifyIconData do begin hIcon := Icon.Handle; StrPCopy(szTip, Application.Title); Wnd := Handle; uCallbackMessage := WM_ICONTRAY; uID := 1; uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; cbSize := sizeof(TNotifyIconData); end; Shell_NotifyIcon(NIM_ADD, @NotifyIconData); CanClose := False; Hide; end else begin Horas.Active := False; OrigemDestino.Active := False; CanClose := True; end; Esta rotina irá te perguntar se você deseja que o sistema continue em execução ou não. cara acho que é isso qualquer coisa estamos por aki falou

Olá Qual o banco você esta usando? se for o access o campo é o Ole... e para fazer o upload use o OpenPictureDialog se eu entedi bem é isso falou

olá galera.. ola amigo.. é mais ou menos isso que você colocou, mas a diferença é que irei pesquisar com os dados salvos em banco e ai é um pouquinho diferente.... mas segue abaixo a maneira correta de efetuar esta consulta... with ADOQuery1 do begin Close; AdoQuery1.SQL.Add('select * from TABELA '); AdoQuery1.SQL.Add('where DATA between :DATA_INICIAL and :DATA_FINAL'); AdoQuery1.Parameters.ParamByName('DATA_INICIAL').Value := StrToDate(Edit1.Text); AdoQuery1.Parameters.ParamByName('DATA_FINAL').Value := StrToDate(Edit2.Text); Open; end; Galera consegui fazer desta forma.... qualquer coisa tamu por ai V&A

Olá galera Preciso saber como faço uma consulta SQL entre datas tipo tenho no banco o campo data e quero saber quais cadastros foram feitos dentro de um determinado prazo e saber também isso entre código1 Vlw V&A

Amigão o delphi é uma ótima linguagem, mas a questão é a seguinte o sistema terá q suportar um banco grande segundo o que você disse, então acho um pouco dificil ela ficar muito leve... Mas tente o delphi, e o banco existem vários, como access, sql server, mysql, postgre, firebird. falou V&A

resumindo o q você ta dizendo se eu utilizar o mysql na minha aplicação como banco de dados e a minha aplicação é cobrada mensalidade ele não é free? V&A

Galera preciso saber se o myslq é totalmente free ou não, pois já me falaram q é mas tb me disseram q num é e ai é ou não? V&A

como disse o bastard só pode ser a configuração errada dos campos verifica as propriedades novamente pois deve ter algum campo q você ligou errado

Amigõ vlw pela dica vou dar uma olhada aqui, acredito que o meu deverá ser o erro por causa do grid, pois tem vários grid... mas ai vai mais uma pergunta: Se fosse por causa do grid na tela de locações que tb esta dando erro os outros cadastros como cadastro de clientes não deveria dar erro e esta ocorrendo a mesma coisa. E outra porque com o banco vazio não ocorre o erro? V&A

Galera é o seguinte: tenho uma aplicação para uma locadora e o banco em access, a aplicação está perfeita, mas agora começou a aparecer o seguinte erro toda as vezes que faço qualquer coisa no sistema que precise do banco de dados, tipo cadastro, consulta, exclusão, etc o erro é o seguinte: Operação de várias etapas gerou erros. Verifique cada valor de status. Quando o banco está sem nenhum registro gravado não ocorre este erro. Por favor me ajudem. V&A

cara declare esta variavel após a clausula USES da UNIT bem onde tem Var Form1 ai você coloca a sua variavel la e ela se torna global, ou seja, você poderá usa-la em todas as units q quiser... o tipo acho q deve ser string; falou

Se na tabela de loteamento já existe os campos referentes da tabela de clientes que você deseja salvar é só atribuir a tabela loateamento no campo especifico o valor da tabela de clientes V&A

cara num imagino o q pode ser mas as querys estão sendo ativada na geração do relatório. falou V&A

Ola amigo No form q você quer usar a variavel va em File e depois em Use Unit e selecione a unit q esta com a varivel declarada e ai pronto é só usar a variavel global. falou V&A

Olá amigão você tem certeza q esta utilizando o DBCombobox, não esta usando o ComboBox. Se estiver usando o DbComboBox verifica se as propriedades DataSource e Field estão ligadas corratemente e se o campo do banco é texto e se suporta o tamnho da palavra q você quer salvar nele. falou V&A

Ok ... se possível disponibiliza ele para download V&A

Amigão estou sem o delphi aki e por isso não me recordo dos código com certeza, mas deve existir algum evento no componente onde você possa capturar a tecla precionada e converter ela para a tabela assci e verificar qual tecla foi e nesse caso se for o enter ele faz o que você quiser. falou qualquer coisa estamos ai V&A