unit4.pas

delphi 考勤系统 没事做写的 在其他地方也能找到

unit Unit4;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls,Unit6;

type
  TQuickReport4 = class(TQuickRep)
    SummaryBand1: TQRBand;
    QRSysData1: TQRSysData;
    QRLabel5: TQRLabel;
    ColumnHeaderBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRBand1: TQRBand;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QLbl1: TQRLabel;
    QLbl2: TQRLabel;
    procedure QRBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private

  public

  end;

var
  QuickReport4: TQuickReport4;

implementation

{$R *.DFM}

procedure TQuickReport4.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  t:string;
  num:integer;
begin
  num := data1.renyuan1.FieldByName('员工号').AsInteger;
  if not data1.chucai.Active then data1.chucai.Open ;
  if data1.chucai.Locate('员工号',num,[])then
  t:=data1.chucai.FieldValues ['出差开始时间']
  else
  t:='无';
  qlbl1.Caption :=t;
  data1.renyuan1.Next;// data1.chucai.FieldValues['出差开始时间'];
  if data1.renyuan1.Eof then data1.renyuan1.First ;
end;

end.