srsgcj.cpp

营业用电管理系统(网络版)是本公司推出的新一代软件产品

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

#include <vcl.h>
#pragma hdrstop

#include "SRSGCJ.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDqhxz.h"
#include "YHDL.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFsrsgcj *Fsrsgcj;
//---------------------------------------------------------------------------
__fastcall TFsrsgcj::TFsrsgcj(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFsrsgcj::SpeedButton10Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFsrsgcj::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBdbcs->Filtered=false;
 YDData->TBdbcs->First();
 YDData->TBbzyhda->Close();
 YDData->TBdbcs->Close();
 YDData->TBxtcs->Close();
 Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------


void __fastcall TFsrsgcj::FormCreate(TObject *Sender)
{

 YDData->TBbzyhda->Close();
 YDData->TBbzyhda->IndexFieldNames="YD_CSZT";
 YDData->TBbzyhda->Open();
 YDData->TBbzyhda->FindKey(new TVarRec("0"),0);
 YDData->TBdbcs->Close();
 YDData->TBdbcs->Open();
 YDData->TBxtcs->Open();
 Edit1->Text=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(1,4);
 Edit2->Text=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(6,2);

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

void __fastcall TFsrsgcj::SpeedButton5Click(TObject *Sender)
{
  Fqhxz=new TFqhxz(Application);
  Fqhxz->ShowModal();
  delete Fqhxz;
  YDData->TBdbcs->First();
  YDData->TBdbcs->Edit();
  Narefresh();

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

void __fastcall TFsrsgcj::SpeedButton2Click(TObject *Sender)
{
  YDData->TBbzyhda->Prior();
  YDData->TBdbcs->First();
  YDData->TBdbcs->Edit();
  DBEdit13->SetFocus();
  Narefresh();
}
//---------------------------------------------------------------------------

void __fastcall TFsrsgcj::SpeedButton3Click(TObject *Sender)
{
  YDData->TBbzyhda->Next();
  YDData->TBdbcs->First();
  YDData->TBdbcs->Edit();
  DBEdit13->SetFocus();
  Narefresh();
}
//---------------------------------------------------------------------------

void __fastcall TFsrsgcj::SpeedButton8Click(TObject *Sender)
{
 YDData->TBdbcs->FieldByName("DB_CSZT")->AsString="1";
 YDData->TBdbcs->Post();
 if ( Application->MessageBox("继续抄下一块表吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
  {
   YDData->TBdbcs->Next();
   if (!YDData->TBdbcs->Eof)
     {
      YDData->TBdbcs->Edit();
      DBEdit13->SetFocus();
      }
   else
     if ( Application->MessageBox("本户电表已经全部抄录完成,抄录是否有效?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
      {
       YDData->TBbzyhda->Edit();
       YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString="1";
       YDData->TBbzyhda->Post();
       SpeedButton3->Click();
      }
  }
}
//---------------------------------------------------------------------------

void __fastcall TFsrsgcj::SpeedButton11Click(TObject *Sender)
{
 DBEdit12->Enabled=true;
 YDData->TBdbcs->Edit();
 DBEdit12->SetFocus();
 Narefresh();
}
//---------------------------------------------------------------------------
 void TFsrsgcj::Narefresh()
 {
     SpeedButton2->Enabled=!YDData->TBbzyhda->Bof;
     SpeedButton3->Enabled=!YDData->TBbzyhda->Eof;
    if(YDData->TBbzyhda->Eof&&YDData->TBbzyhda->Bof)
    {
      SpeedButton2->Enabled=false;
      SpeedButton3->Enabled=false;
    }
  if (YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString=="0")
    {
      DBEdit12->ReadOnly=false;
      DBEdit13->ReadOnly=false;
      DBEdit15->ReadOnly=false;
      SpeedButton11->Enabled=false;
      SpeedButton8->Enabled=false;
    }
  if (YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString=="1")
      if ( Application->MessageBox("本户电表已经全部抄录完成,是否要修改?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
         {
          DBEdit12->ReadOnly=true;
          DBEdit13->ReadOnly=true;
          DBEdit15->ReadOnly=true;
          SpeedButton11->Enabled=true;
          SpeedButton8->Enabled=true;
         }
         else
         {
          DBEdit12->ReadOnly=false;
          DBEdit13->ReadOnly=false;
          DBEdit15->ReadOnly=false;
          SpeedButton11->Enabled=false;
          SpeedButton8->Enabled=false;
         }
  if (YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString=="2"||
  YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString=="3"||
  YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString=="4")
    {
      MessageBox(NULL,"该用户已经开始收费不能再行抄表!","提示",MB_OK|MB_ICONWARNING);
      DBEdit12->ReadOnly=false;
      DBEdit13->ReadOnly=false;
      DBEdit15->ReadOnly=false;
      SpeedButton11->Enabled=false;
      SpeedButton8->Enabled=false;
    }

 }



void __fastcall TFsrsgcj::FormKeyPress(TObject *Sender, char &Key)
{
 if(Key==VK_RETURN)
   {
     SendMessage(this->Handle,WM_NEXTDLGCTL,0,0);
     Key=0;
   }

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





void __fastcall TFsrsgcj::DBEdit12Exit(TObject *Sender)
{
    if ( Application->MessageBox("底度修改有效吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
        YDData->TBdbcs->Post();
    else
        YDData->TBdbcs->Cancel();
   DBEdit12->Enabled=false;
}
//---------------------------------------------------------------------------