Ir para conteúdo
Fórum Script Brasil
  • 0

Data/hora


Guest - Atentado -

Pergunta

Guest - Atentado -

Olá!

Baixei um programa e estou bulinando, porém no meu relatório não consigo mudar a data para a data atual o que posso fazer????

Eis o cód da unt:

unit fCarne;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

DBTables, Db, QuickRpt, ExtCtrls, Qrctrls;

type

TfrmCarne = class(TForm)

qrp1: TQuickRep;

DetailBand1: TQRBand;

dtsCarne: TDataSource;

QryCarne: TQuery;

QRShape1: TQRShape;

QRDBText1: TQRDBText;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRShape3: TQRShape;

QRShape2: TQRShape;

QRLabel3: TQRLabel;

QRDBText2: TQRDBText;

QRLabel4: TQRLabel;

QRDBText3: TQRDBText;

QRLabel5: TQRLabel;

QRDBText4: TQRDBText;

QRShape4: TQRShape;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRShape5: TQRShape;

QRLabel8: TQRLabel;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRLabel9: TQRLabel;

QRDBText7: TQRDBText;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRDBText8: TQRDBText;

QRLabel12: TQRLabel;

QRShape6: TQRShape;

PageFooterBand1: TQRBand;

QRSysData1: TQRSysData;

QRLabel15: TQRLabel;

QRLabel16: TQRLabel;

QRShape8: TQRShape;

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmCarne: TfrmCarne;

implementation

Uses fMensal;

{$R *.DFM}

end.

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Olá amigo!!!!

porque você não tenta isso:

procedure CopyFileDate(const Source, Dest: String);

var

SourceHand, DestHand: word;

begin

SourceHand := FileOpen(Source, fmOutput);

DestHand := FileOpen(Dest, fmInput);

FileSetDate(DestHand, FileGetDate(SourceHand));

FileClose(SourceHand);

FileClose(DestHand);

end;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...