unit8.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <dos.h>
#include "Unit8.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
    : TForm(Owner)
{
    DModule->Table3->Active=true;
    AnsiString zhan=DModule->Table3Station->AsString;
    QRTitle->Caption=zhan+"供电站电费收取榜";
    
     struct date d;
     getdate(&d);

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



     LabelDate->Caption=AnsiString(d.da_year)+"年"+AnsiString((int)d.da_mon)+"月";



//    QRExpr1->Expression="FORMATNUMERIC(SUM(Table1.YongDianLiang),#.# )";
    DModule->Table3->Active=false;
}
//---------------------------------------------------------------------------