untrepxw.pas

简要说明:对医院幼儿心理情况做的一个调查,统计系统.

unit untRepXW;

interface

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

type
  TrepXW = class(TQuickRep)
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRGroup1: TQRGroup;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    DetailBand1: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    QRDBText13: TQRDBText;
    QRDBText14: TQRDBText;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRDBText17: TQRDBText;
    QRDBText18: TQRDBText;
    procedure QRDBTextPrint(Sender: TObject; var Value: String);
  private

  public

  end;

var
  repXW: TrepXW;

implementation

uses untExportData, untGlobalVar;

{$R *.DFM}

procedure TrepXW.QRDBTextPrint(Sender: TObject; var Value: String);
var
  bFound: Boolean;
  FieldName, ColorFieldName: string;
  i: Integer;
  AColor: TColor;
begin
  bFound := false;
  FieldName := TQRDBText(Sender).DataField;
  with TADODataSet(repXW.DataSet) do begin
    for i:=0 to Fields.Count-1 do begin
      if Fields[i].FieldName = FieldName+'_LVL' then begin
        ColorFieldName := Fields[i].FieldName;
        bFound := true;
        Break;
      end;   //end if
    end;  //end for
    if bFound then begin
      case FieldByName(ColorFieldName).Value of
        -1 : AColor := StringToColor(XW);
         0 : AColor := clWhite;
        else AColor := clWhite;
      end;
      TQRDBText(Sender).Color := AColor;
    end; //end if
  end;
end;

end.