unit6.cpp

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

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

#include "Unit6.h"
#include "unit7.h"
#include "unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm6::ToolButton4Click(TObject *Sender)
{
    DModule->Table1->Refresh();
 
    Close();
}
//---------------------------------------------------------------------------

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

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

        DModule->Table4->Edit();
        DModule->Table4QIMA1->AsFloat=DModule->Table4ZHIMA1->AsFloat;
        DModule->Table4QIMA2->AsFloat=DModule->Table4ZHIMA2->AsFloat;
        DModule->Table4JSY->AsFloat=  DModule->Table4ZXY->AsFloat;


        DModule->Table4->Post();
        DModule->Table4->Next();

       }
      DModule->Table4->EnableControls();

     }



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