unit_rep_file.cpp

本系统里面包含数据库（SQL SERVER2000）

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit_Rep_File.h"
#include "Unit_DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TRep_Filefrm *Rep_Filefrm;
//---------------------------------------------------------------------------
__fastcall TRep_Filefrm::TRep_Filefrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TRep_Filefrm::QRGroup1BeforePrint(TQRCustomBand *Sender,
      bool &PrintBand)
{
  if(QRDBText1->DataSet->FieldByName("flag")->AsString.Trim()=="KJ")
  {
    QRDBText1->Enabled =false;
    QRLabel38->Caption ="技术水平考绩记录";
  }
  if(QRDBText1->DataSet->FieldByName("flag")->AsString.Trim()=="ZJ")
  {
    QRDBText1->Enabled =false;
    QRLabel38->Caption ="医疗质量检查记录";
  }
  if(QRDBText1->DataSet->FieldByName("flag")->AsString.Trim()=="AQ")
  {
    QRDBText1->Enabled =false;
    QRLabel38->Caption ="医疗安全记录";
  }
  if(QRDBText1->DataSet->FieldByName("flag")->AsString.Trim()=="CF")
  {
    QRDBText1->Enabled =false;
    QRLabel38->Caption ="处罚记录";
  }
  if(QRDBText1->DataSet->FieldByName("flag")->AsString.Trim()=="HJ")
  {
    QRDBText1->Enabled =false;
    QRLabel38->Caption ="获奖记录";
  }
}
//---------------------------------------------------------------------------
void __fastcall TRep_Filefrm::QuickRep1BeforePrint(TCustomQuickRep *Sender,
      bool &PrintReport)
{
  QRLabel4->Caption =DM->FileTmpoffice->Value.Trim();        
  QRLabel7->Caption =DM->FileTmpname->Value.Trim();
  QRLabel9->Caption =DM->FileTmpsex->Value.Trim();
  QRLabel11->Caption =DM->FileTmpIDcard->Value.Trim();
  QRLabel13->Caption =DM->FileTmpdegree->Value.Trim();
  QRLabel15->Caption =DM->FileTmpschool->Value.Trim();
  QRLabel17->Caption =DM->FileTmpspecialty->Value.Trim();
  QRLabel19->Caption =DM->FileTmpzylevel->Value.Trim();
  QRLabel21->Caption =DM->FileTmpzysort->Value.Trim();
  QRLabel23->Caption =DM->FileTmpbound->Value.Trim();
  QRLabel25->Caption =DM->FileTmptitle->Value.Trim();
  QRLabel27->Caption =DM->FileTmpzyzs->Value.Trim();
  QRLabel29->Caption =DM->FileTmpzc->Value.Trim();
  QRLabel31->Caption =DM->FileTmpduty->Value.Trim();
  QRLabel33->Caption =DM->FileTmpsideline->Value.Trim();
  QRLabel35->Caption =DM->FileTmpzkzc->Value.Trim();
  QRLabel37->Caption =DM->FileTmpmztime->Value;
}
//---------------------------------------------------------------------------