Progr'amador

com esse código você pode obter não só o dia, mas o mes e o ano tambem separado. procedure TForm1.Button1Click(Sender: TObject); var dia, mes, ano : Word; begin DecodDate(date,ano,mes,dia); Label1.Caption := IntToStr(dia); end;

Ai vai: declare no uses da unit: Shellapi, filectrl; function DeleteFolder(FolderName: String; LeaveFolder: Boolean): Boolean; var r: TshFileOpStruct; begin Result := False; if not DirectoryExists(FolderName) then Exit; if LeaveFolder then FolderName := FolderName + ' *.* ' else if FolderName[Length(FolderName)] = ' \ ' then Delete(FolderName,Length(FolderName), 1); FillChar(r, SizeOf(r), 0); r.wFunc := FO_DELETE; r.pFrom := PChar(FolderName); r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION; Result := ((ShFileOperation(r) = 0) and (not r.fAnyOperationsAborted)); end; procedure TForm1.Button1Click(Sender: TObject); var Dir: string; begin Dir := 'C:\TESTE'; deleteFolder(Dir,false); if not DirectoryExists(Dir) then ForceDirectories(Dir); end;

A sua tabela deve ter um campo id, você poderia usar uma query dentro do while antes do -->> AdoTable1.Next, dessa forma: Query1.Sql.Clear; Query1.Sql.Add('Delete from tabela1'); Query1.Sql.Add('Where campo_id = '+''''+adotable2['campo_id']+''''+' '); Query1.ExecSql; acho que é isso, espero ter te ajudado.

Planet Delphi - Dicas

eu não quiz dizer que você vai "destronchar" programas... Mas lembre-se que qualquer pessoa pode ter acesso a este fórum, e uma informação dessa é muito ariscado... ok! desculpe se fui desagradavel.

olá amigo! eu acho que isso é "meio" complexo. já pensou se qualquer pessoa pega o seu programa e "destroncha" ele??? com todo respeito, mesmo que eu soubesse uma dessa eu jamais falaria, eu já ouvi falar de programas Hacker que fazem isso, mas nunca vi pessoalmente, e não sei se realmente é verdade... espero que tenha entendido a noção do perigo d'uma informação como essa.

que código você está usando pra gerar esse arquivo?

na verdade ainda não sei, é que eu achei um outro codigo que deu certo: //Nome do Computador function TForm1.NomeComputador : String; //--> Declare Registry no uses da unit var lpBuffer : PChar; nSize : DWord; const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1; begin nSize := Buff_Size; lpBuffer := StrAlloc(Buff_Size); GetComputerName(lpBuffer,nSize); Result := String(lpBuffer); StrDispose(lpBuffer); end; //Nome do Usuario function TForm1.UserComputador : String; var vUser : PChar; nSize : DWord; const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1; begin nSize := Buff_Size; vUser := StrAlloc(Buff_Size); GetUserName(vUser,nSize); Result := String(vUser); StrDispose(vUser); end; e a dica do ip deu certo.

Resolvido, Fechado...

use esse código: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('select * from tab_cli'); Query1.Sql.Add('where cliente like '+''''+edit1.text+'%'+''''+''); Query1.Open;

Ola amigo, deu o seguinte erro na linha abaixo: Types of actual and formal var parameters must be identical. if getcomputername (computername, size) then edit1.text := strpas(computername) valeu!

Olá amigo, Realmente é complicado mesmo. Mas aqui vai a minha dica, parece ser meio MALUCA mas funciona. Na minha opinião o importante é o resultado. Fiz o teste trazendo o resultado num DBGrid e deu certo. Não sei como você está fazendo a consulta, mas eu fiz apartir do campo Cod_Item da Tabela Item (Foi o que eu entendi). no meu exemplo estou usando um Edit (Edit1) onde é informado o Cod_Item, e Cod_Item, e Cod_Log fiz como tipo -->> Integer. Ok!!! Vamos Lá: 1 - inclua duas Query em seu form; 2 - inclua o Código abaixo num "button"(por_exemplo): procedure TForm1.Button1Click(Sender: TObject); var i, cod_at, cod_ant : integer; begin Qry1.Close; Qry1.SQL.Clear; Qry1.Sql.Add('Select * from Log_Tbl_Item'); Qry1.Sql.Add('Order by Cod_Log desc'); Qry1.Open; i := 0; Qry1.First; Cod_at := Qry1.FieldByName('Cod_Log').Value; While not Qry1.EOF do begin i := i + 1; cod_ant := Cod_at - Qry1.FieldByNAme('Cod_Log').Value; if i = 2 then Qry1.Last else Qry1.Next; end; Qry2.Close; Qry2.SQL.Clear; Qry2.Sql.Add('Select I.Cod_Item, I.Status Status_Atual,'); Qry2.Sql.Add(' L2.Status Status_Anterior, L1.Data'); Qry2.Sql.Add('From Log_Tbl_Item L1, Log_Tbl_Item L2, Tbl_Item I'); Qry2.Sql.Add('Where L2.Cod_Log = L1.Cod_Log - '+''''+IntToStr(cod_ant)+''''+' and'); Qry2.Sql.Add(' l1.Cod_Log = '+''''+IntToStr(cod_at)+''''+' and'); Qry2.Sql.Add(' L1.Cod_Item = I.Cod_Item and'); Qry2.Sql.Add(' I.Cod_Item = '+''''+Edit1.text+''''+''); Qry2.Open; end; Essa Qry2 é onde você tera o resultado. Qualquer duvida meu e-mail e MSN é naicm@hotmail.com terei prazer em ajudá-lo ou explicar melhor essa dica. até a proxima

É isso ai amigo. Na verdade eu dei a minha dica pensando no campo de login!!!

Tenta isso: Crie uma variavel de tipo boolean, pra indicar quando for um novo registro, senão toda ves que você clicar no botão "confirmar" será execultada essa Query (QryProcUsuario) dai mesmo que quando você estiver apenas alterando outros dados do cadastro de um usuario já existente, ele não permitira a gravação. Ex: Var vNovo : Boolean; no botão de novo registo acrescente: vNovo := True; no botão de Confirmar: if vNovo then begin QryProcUsuario.Close; QryProcUsuario.Sql.Clear; QryProcUsuario.Sql.Add('SELECT * FROM TABELA_USUÁRIO'); QryProcUsuario.Sql.Add('WHERE NOME_USUARIO = '+''''+DBEdit1.text+''''+''); QryProcUsuario.Open; if QryProcUsuario.RecordCount > 0 then begin ShowMessage('Usuário já cadastrado no Banco de Dados.'); QueryCadastro.Cancel; Exit; end else vNovo := False; end; vNovo := False; //Grava os dados bla, bla, bla; dai é alternar o valor do vNovo onde for necessário. ------------------------------------------------------------- pode num ser das melhores mas funciona.

bom, não sei quais são os campos da tabela que você está usando, mas você pode se basear por esse exemplo abaixo: usando query: SELECT MAX(DATA_SAIDA), NOME_FUNCIONARIO, DESCR_UNIFORME FROM NOME_TABELA GROUP BY NOME_FUNCIONARIO, DESCR_UNIFORME

TENHO UM PROGRAMA QUE EU QUERO CONTROLAR O USO DELE. NO CASO EU USO UMA TABELA DO BD PRA LIMITAR A ABERTURA DELE, E ONDE TEM UM CAMPO DE DATA QUE INFORMA A DATA E A HORA QUE O PROG. FOI ABERTO. PERGUNTO: É POSSÍVEL EU TRAZER NUM CAMPO DA TABELA O LOCAL OU O NOME DO COMPUTADOR DA REDE QUE FOI ABERTO ESSE PROGRAMA, EX: Terminal1 OU \\Terminal\C\Conc alguém AI SABE ESSA?

Descupe amigo mas quis dizer isso: Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('SELECT CodPart,OS, Imei, AP, Defeito, Motivo, Data FROM DbCadOSCancel.db'); Query1.SQL.Add('WHERE Data BETWEEN '+''''+StrToDate(Edit2.Text)+''''+' AND '+''''+StrToDate(Edit3.Text)+''''+''); Query1.Open;

Tenta isso amigo: Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('SELECT CodPart,OS, Imei, AP, Defeito, Motivo, Data FROM DbCadOSCancel.db'); Query1.SQL.Add('WHERE Data BETWEEN '+''''+StrToDate(Edit2.Text)+'AND'+''''+ StrToDate(Edit3.Text)+''''+''); Query1.Open;

valeu amigo pela dica, só precisava eu lococar a cabeça pra funcionar um pouco problema resolvido..... até a próxima!!!!!!

Ola hencker, eu tenho o Oracle 7 instalado, se você pudesse me enviar essa apostila eu ficaria muito grato. meu e-mail: elienaicm@ig.com.br

você esta usando componentes TQuery ????

Tem algum campo distinto pra saber quais registros receberão o valor True??

tenho um programa que é usado em rede, só que ele só pode ser aberto uma copia de cada vez. Quando tivesse aberto o programa numa maquina, gostaria que impedisse a abertura em outras máquinas da rede.

como faço pra criar um banco de dados em oracle???

você ta usando alguma select (Query) no seu 'MasterRelVenda'??? de onde são atribuido os valores que são impresso, quais componentes você ta usando??? tipo (QRDBText)