unit2.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "unit1.h"
#include "Unit2.h"
#include "unit6.h"
#include "unit7.h"
#include "unit8.h"
#include "unit9.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ATStat"
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
   ReadPara();


}
__fastcall TForm2::~TForm2()
{

    DModule->Table1->Close();
    /*
    if(DModule->Table4->Active)
        DModule->Table4->Close();

    */
}



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

void __fastcall TForm2::FormShow(TObject *Sender)
{
    DBGrid1->Width=Width-30;
    DBGrid1->Height=Height-10;
//    DModule->Table2->Active=true;


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

void __fastcall TForm2::FormPaint(TObject *Sender)
{
 DBGrid1->Width=Width-50;
    DBGrid1->Height=Height-100;

}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormActivate(TObject *Sender)
{

     DModule->Table4->Open();
     DModule->Table1->Open();

      DModule->Table4->Edit();

}
//---------------------------------------------------------------------------
void __fastcall TForm2::ToolButton4Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ToolButton1Click(TObject *Sender)
{
    DModule->Table4->Active=true;
    DModule->Table4->Edit();
    Form6->Caption=DModule->Table1Danwei->AsString;
    Form6->ShowModal();

//    DModule->Table4->Active=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::ToolButton2Click(TObject *Sender)
{
    int button;

    button = Application->MessageBox("所有止码将变为起码，继续吗？", "警告", MB_OKCANCEL +MB_DEFBUTTON1);
    if (button == IDOK)
    {
       DModule->Table1->DisableControls();
       DModule->Table1->First();
       while(!DModule->Table1->Eof)
       {

        DModule->Table1->Edit();
        DModule->Table1QimaA->AsFloat=DModule->Table1ZhimaA->AsFloat;
        DModule->Table1QimaB->AsFloat=DModule->Table1ZhimaB->AsFloat;
        DModule->Table1QimaC->AsFloat=DModule->Table1ZhimaC->AsFloat;
        DModule->Table1->Post();
        DModule->Table1->Next();

       }
      DModule->Table1->EnableControls();

     }




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

void __fastcall TForm2::ToolButton5Click(TObject *Sender)
{


  //     DModule->Table4->Post();
   //  DModule->Table1->DisableControls();
  //   DModule->Table1->Edit();
     DModule->Table1->First();
//     ReadPara();

     while(!DModule->Table1->Eof)
     {

     float dl=0;
   //  DModule->Table4->DisableControls();
     DModule->Table4->First();
     while(!DModule->Table4->Eof)
     {

       if(DModule->Table1Danwei->AsString==DModule->Table4DANWEI->AsString)
        dl=dl+DModule->Table4YDL->AsFloat;
        DModule->Table4->Next();
     }
     DModule->Table4->EnableControls();
     DModule->Table1->Edit();
     DModule->Table1ShiChaoDianLiang->AsFloat=dl;

     DModule->Table1DiYaXianSun->AsFloat=dl/(DModule->Table1GongDianLiang->AsFloat+0.00000001);

     if(!DModule->Table1GaiZaoFou->AsBoolean)
     {
         DModule->Table1SDianLiang->AsFloat=DModule->Table1GongDianLiang->AsFloat*ParaSd;
         DModule->Table1SDanJia->AsFloat=ParaSDanJia;
         DModule->Table1SJinE->AsFloat=ParaSDanJia*DModule->Table1SDianLiang->AsFloat;

         DModule->Table1FDianLiang->AsFloat=DModule->Table1GongDianLiang->AsFloat*ParaFd;
         DModule->Table1FDanJia->AsFloat=ParaFDanJia;
         DModule->Table1FJinE->AsFloat=ParaFDanJia*DModule->Table1FDianLiang->AsFloat;

         DModule->Table1NDianLiang->AsFloat=DModule->Table1GongDianLiang->AsFloat*ParaNd;
         DModule->Table1NDanJia->AsFloat=ParaNDanJia;
         DModule->Table1NJinE->AsFloat=ParaNDanJia*DModule->Table1NDianLiang->AsFloat;

         DModule->Table1FSDianliang->AsFloat=DModule->Table1GongDianLiang->AsFloat*ParaFSd;
         DModule->Table1FSDanJia->AsFloat=ParaFSDanJia;
         DModule->Table1FSJinE->AsFloat=ParaFSDanJia*DModule->Table1FSDianliang->AsFloat;
     }

     else
     {


         float dltemp1,dltemp2,dltemp3,dltemp4;
         dltemp1=dltemp2=dltemp3=dltemp4=0;
         DModule->Table4->DisableControls();
         DModule->Table4->First();
         while(!DModule->Table4->Eof)
         {


            if(DModule->Table1Danwei->AsString==DModule->Table4DANWEI->AsString)
            {
             switch(DModule->Table4FENLEI->AsInteger)
             {
                case 0:
                    dltemp1=dltemp1+DModule->Table4YDL->AsFloat;
                    break;
                case 1:
                    dltemp2=dltemp2+DModule->Table4YDL->AsFloat;
                    break;
                case 2:
                    dltemp3=dltemp3+DModule->Table4YDL->AsFloat;
                    break;
                case 3:
                    dltemp4=dltemp4+DModule->Table4YDL->AsFloat;
                    break;
              }

            }
           DModule->Table4->Next();
         }
         DModule->Table4->EnableControls();

         DModule->Table1SDianLiang->AsFloat=dltemp3;
         DModule->Table1SDanJia->AsFloat=ysjia;
         DModule->Table1SJinE->AsFloat=ysjia*DModule->Table1SDianLiang->AsFloat;

         DModule->Table1FDianLiang->AsFloat=dltemp2;
         DModule->Table1FDanJia->AsFloat=yfpjia;
         DModule->Table1FJinE->AsFloat=yfpjia*DModule->Table1FDianLiang->AsFloat;

         DModule->Table1NDianLiang->AsFloat=dltemp1 ;
         DModule->Table1NDanJia->AsFloat=ynjia;
         DModule->Table1NJinE->AsFloat=ynjia*DModule->Table1NDianLiang->AsFloat;

         DModule->Table1FSDianliang->AsFloat=dltemp4;
         DModule->Table1FSDanJia->AsFloat=yfsjia;
         DModule->Table1FSJinE->AsFloat=yfsjia*DModule->Table1FSDianliang->AsFloat;





  }





     DModule->Table1DianFeiZongE->AsFloat=DModule->Table1SJinE->AsFloat+DModule->Table1FJinE->AsFloat+DModule->Table1NJinE->AsFloat+DModule->Table1FSJinE->AsFloat;
     DModule->Table1GuanLiFei->AsFloat=DModule->Table1GongDianLiang->AsFloat*ParaGl;
     DModule->Table1HeJi->AsFloat=DModule->Table1GuanLiFei->AsFloat+DModule->Table1DianFeiZongE->AsFloat;


     DModule->Table1->Next();

 }
//    DModule->Table1->Post();
    DModule->Table1->EnableControls();
}
//---------------------------------------------------------------------------
 void TForm2::ReadPara()
{
//   ParaTs,ParaGs,ParaSd,ParaSDanJia,ParaFd,ParaFDanJia,ParaNd,ParaNDanJia,ParaFSd,ParaFSDanJia,ParaGl;
   DModule->Table2->Active=true;
   DModule->Table2->First();
   ParaTs=DModule->Table2P1->AsFloat;
   ParaGs=DModule->Table2P2->AsFloat;
   ParaSd=DModule->Table2P3->AsFloat;
   ParaSDanJia=DModule->Table2P4->AsFloat;
   ParaFd=DModule->Table2P5->AsFloat;
   ParaFDanJia=DModule->Table2P6->AsFloat;
   ParaNd=DModule->Table2P7->AsFloat;
   ParaNDanJia=DModule->Table2P8->AsFloat;
   ParaFSd=DModule->Table2P9->AsFloat;
   ParaFSDanJia=DModule->Table2Pa->AsFloat;
   ParaGl = DModule->Table2Pb->AsFloat;
   ysjia=DModule->Table2Gp1->AsFloat          ;
   yfsjia=DModule->Table2Gp3->AsFloat         ;
   yfpjia=DModule->Table2Gp2->AsFloat         ;
   ynjia= DModule->Table2Gp4->AsFloat ;
   DModule->Table2->Active=false;



}

void __fastcall TForm2::ToolButton3Click(TObject *Sender)
{

    TPoint p;
    p.x=142;
    p.y=40;
    TPoint q= ClientToScreen(p);
    PopupMenu1->Popup(q.x,q.y);
}
//---------------------------------------------------------------------------

void __fastcall TForm2::N2Click(TObject *Sender)
{
    Form9->QuickRep1->Preview();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::N1Click(TObject *Sender)
{
    Form8->QRep1->Preview();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::N3Click(TObject *Sender)
{
    Form7->QuickRep1->Preview();
}
//---------------------------------------------------------------------------