unit7.cpp

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

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

#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
    : TForm(Owner)
{
     DModule->Table3->Active=true;
     AnsiString zhan=DModule->Table3Station->AsString;
     LabelStation->Caption=zhan;
     struct date d;
     getdate(&d);

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

     DModule->Table3->Active=false;





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


void __fastcall TForm7::Text5Print(TObject *sender, AnsiString &Value)
{
//    Value="a test";
     switch(DModule->Table4FENLEI->AsInteger)
     {
       case 0:

           Value="农业用电";
           break;

       case 1:
            Value="非普工业";
           break;
       case 2:
            Value="生活照明";

           break;
       case 3:
            Value="非生活照明";

           break;

     }





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

void __fastcall TForm7::LabelOperatorPrint(TObject *sender,AnsiString &Value)
{
     DModule->Table3->Active=true;
     AnsiString oper=DModule->Table3Service->AsString;

     Value="操作员： "+oper;

     DModule->Table3->Active=false;


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

void __fastcall TForm7::LabelWriterPrint(TObject *sender,
      AnsiString &Value)
{
     DModule->Table3->Active=true;
     AnsiString oper=DModule->Table3ChaoBiao->AsString;

     Value="抄表员： "+oper;

     DModule->Table3->Active=false;






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

void __fastcall TForm7::LabelShenhePrint(TObject *sender,
      AnsiString &Value)
{
     DModule->Table3->Active=true;
     AnsiString oper=DModule->Table3ShenHe->AsString;

     Value="审核员： "+oper;

     DModule->Table3->Active=false;

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