Guest - Atentado - Postado Julho 22, 2005 Denunciar Share Postado Julho 22, 2005 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;interfaceuses 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;implementationUses fMensal;{$R *.DFM}end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Julho 22, 2005 Denunciar Share Postado Julho 22, 2005 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; Citar Link para o comentário Compartilhar em outros sites More sharing options...
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
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.