unit9.cpp

电费管理程序 VC源码-系统控制 这个源码是一个系统控制的电费管理系统 功能很强大

//---------------------------------------------------------------------------
#include <vcl.h>
#include <dos.h>

#pragma hdrstop
#include "unit1.h"
#include "Unit9.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm9 *Form9;
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
    : TForm(Owner)
{



}
//---------------------------------------------------------------------------

void __fastcall TForm9::LabelTitlePrint(TObject *sender, AnsiString &Value)
{
     DModule->Table3->Active=true;
     AnsiString zhan=DModule->Table3Station->AsString;
     Value=zhan+DModule->Table1Danwei->AsString+"电费公布榜";



     DModule->Table3->Active=false;

}
//---------------------------------------------------------------------------
void __fastcall TForm9::LabelDatePrint(TObject *sender, AnsiString &Value)
{
      struct date d;
     getdate(&d);

//     LabelYear->Caption=AnsiString(d.da_year);
//     LabelYue->Caption=AnsiString((int)d.da_mon);



     Value=AnsiString(d.da_year)+"年"+AnsiString((int)d.da_mon)+"月";

}
//---------------------------------------------------------------------------


void __fastcall TForm9::QRExpr1Print(TObject *sender, AnsiString &Value)
{
//    QuickRep1->RecordNumber=1;
}
//---------------------------------------------------------------------------