这是一个用C语言编写的电费管理系统

//--------------------------------------------------------------------------- #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= Client