ydsgcb.~cpp

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

            YDData->TBdbda->FieldByName("xsdlf")->AsFloat+
            YDData->TBdbda->FieldByName("xsdlg")->AsFloat;
            }
         else
           jdwgdl=jdwgdl+YDData->TBdbda->FieldByName("zdl")->AsFloat+
           YDData->TBdbda->FieldByName("zdlf")->AsFloat+
           YDData->TBdbda->FieldByName("zdlg")->AsFloat;
         YDData->TBdbda->Next();
       }

    YDData->TByhda->FieldByName("zjygdl")->AsFloat=jdygdl;
    YDData->TByhda->FieldByName("zjwgdl")->AsFloat=jdwgdl;
    YDData->TByhda->FieldByName("tjbsdl")->AsFloat=tjbsdl;
    YDData->TByhda->FieldByName("tjxsdl")->AsFloat=tjxsdl;
    YDData->TByhda->FieldByName("sdl")->AsFloat=jdygdl;

    YDData->TByhda->Post();
   YDData->TByhda->Next();
   }
}
 */
//-------------------------------------------

void __fastcall TFsgcb::FormCreate(TObject *Sender)
{
 YDData->TByhda->Open();
 YDData->TBdbda->Open();
 Edit3->Text=YDData->TByhda->FieldByName("hhhh")->AsString;
 Edit1->Text=YDData->TByhda->FieldByName("yhmc")->AsString;
 YDData->TBxtcs->Open();
 AnsiString year=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(1,4)+"年";
 AnsiString month=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(6,2)+"月份";
 Caption="抄录"+year+month+"用电量";
 Narefresh();
}
//---------------------------------------------------------------------------

void __fastcall TFsgcb::SpeedButton8Click(TObject *Sender)
{
 YDData->TBdbda->Edit();
 YDData->TBdbda->FieldByName("CSZT")->AsString="1";
 csjs();
 YDData->TBdbda->Post();
 YDData->TByhda->Edit();
 YDData->TByhda->FieldByName("CSZT")->AsString="1";
 YDData->TByhda->Post();
 SpeedButton8->Enabled=false;
 SpeedButton11->Enabled=false;
// DBGrid1->Enabled=true;
// Edit3->Enabled=true;
// SpeedButton5->Enabled=true;
 DBEdit2->SetFocus();
 Crefresh();
 Narefresh();



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

 void TFsgcb::Narefresh()
 {
   SpeedButton1->Enabled=!YDData->TByhda->Bof;
   SpeedButton2->Enabled=!YDData->TByhda->Bof;
   SpeedButton3->Enabled=!YDData->TByhda->Eof;
   SpeedButton4->Enabled=!YDData->TByhda->Eof;
   if(YDData->TByhda->Eof&&YDData->TByhda->Bof)
    {
      SpeedButton1->Enabled=false;
      SpeedButton2->Enabled=false;
      SpeedButton3->Enabled=false;
      SpeedButton4->Enabled=false;
    }
   Edit3->Text=YDData->TByhda->FieldByName("hhhh")->AsString;
   Edit1->Text=YDData->TByhda->FieldByName("yhmc")->AsString;
   if (YDData->TBdbda->FieldByName("dblb")->AsString.SubString(5,2)=="复")
   {
     DBEdit7->Visible=true;
     DBEdit8->Visible=true;
     DBEdit9->Visible=true;
     DBEdit10->Visible=true;
     DBEdit11->Visible=true;
     DBEdit12->Visible=true;
     DBEdit13->Visible=true;
     DBEdit14->Visible=true;
     DBEdit15->Visible=true;
     DBEdit16->Visible=true;
     DBEdit17->Visible=true;
     DBEdit18->Visible=true;
     DBEdit20->Visible=true;
     DBEdit21->Visible=true;

   }
   else
   {
     DBEdit7->Visible=false;
     DBEdit8->Visible=false;
     DBEdit9->Visible=false;
     DBEdit10->Visible=false;
     DBEdit11->Visible=false;
     DBEdit12->Visible=false;
     DBEdit13->Visible=false;
     DBEdit14->Visible=false;
     DBEdit15->Visible=false;
     DBEdit16->Visible=false;
     DBEdit17->Visible=false;
     DBEdit18->Visible=false;
     DBEdit20->Visible=false;
     DBEdit21->Visible=false;

   }
 if (YDData->TBdbda->FieldByName("cszt")->AsString=="3")
   {
     MessageBox(NULL,"该用户已经开始收费不能再行抄表!","提示",MB_OK|MB_ICONWARNING);
     Panel2->Enabled=false;
   }
   else
    Panel2->Enabled=true;
  CheckBox1->Checked=false;
 }


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

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

void __fastcall TFsgcb::CheckBox1Click(TObject *Sender)
{
 if (CheckBox1->Checked)
  {
   DBEdit1->Enabled=true;
   DBEdit7->Enabled=true;
   DBEdit13->Enabled=true;
   }
 else
   {
   DBEdit1->Enabled=false;
   DBEdit7->Enabled=false;
   DBEdit13->Enabled=false;
   }

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

void __fastcall TFsgcb::SpeedButton11Click(TObject *Sender)
{
 YDData->TBdbda->Cancel();
 SpeedButton8->Enabled=false;
 SpeedButton11->Enabled=false;
// DBGrid1->Enabled=true;
// Edit3->Enabled=true;
// SpeedButton5->Enabled=true;
 DBEdit2->SetFocus();
 Crefresh();
 Narefresh();

}
//---------------------------------------------------------------------------
void TFsgcb::Crefresh()
{
 if (!YDData->TBdbda->Modified)
     {
      DBGrid1->Enabled=true;
      Edit3->Enabled=true;
      SpeedButton1->Enabled=true;
      SpeedButton2->Enabled=true;
      SpeedButton3->Enabled=true;
      SpeedButton4->Enabled=true;
      SpeedButton5->Enabled=true;
      SpeedButton8->Enabled=false;
      SpeedButton11->Enabled=false;

     }
     else
     {
      DBGrid1->Enabled=false;
      Edit3->Enabled=false;
      SpeedButton1->Enabled=false;
      SpeedButton2->Enabled=false;
      SpeedButton3->Enabled=false;
      SpeedButton4->Enabled=false;
      SpeedButton5->Enabled=false;
      SpeedButton8->Enabled=true;
      SpeedButton11->Enabled=true;
     }

}
//---------------------------------------
//---------------------------------------
void TFsgcb::csjs()
{
  int  ws=YDData->TBdbda->FieldByName("WS")->AsFloat;
  int  wsf=YDData->TBdbda->FieldByName("WSF")->AsFloat;
  int  wsg=YDData->TBdbda->FieldByName("WSG")->AsFloat;
  AnsiString fx=YDData->TBdbda->FieldByName("FX")->AsString;
  AnsiString fxf=YDData->TBdbda->FieldByName("FXF")->AsString;
  AnsiString fxg=YDData->TBdbda->FieldByName("FXG")->AsString;
  AnsiString dblb=YDData->TBdbda->FieldByName("DBLB")->AsString;
  AnsiString maxds="9999999999";
   if (YDData->TBdbda->FieldByName("FX")->AsString=="正转")
    {
     YDData->TBdbda->FieldByName("CS")->AsFloat=YDData->TBdbda->FieldByName("BYCJ")->AsFloat-
     YDData->TBdbda->FieldByName("SYCJ")->AsFloat;
    }
   if (YDData->TBdbda->FieldByName("FX")->AsString=="反转")
    {
     YDData->TBdbda->FieldByName("CS")->AsFloat=YDData->TBdbda->FieldByName("SYCJ")->AsFloat-
     YDData->TBdbda->FieldByName("BYCJ")->AsFloat;
    }
   if (dblb.SubString(5,2)=="复")
    {

      if (fxf=="正转"||fxg=="正转")
        {
         YDData->TBdbda->FieldByName("CSF")->AsFloat=YDData->TBdbda->FieldByName("BYCJF")->AsFloat-
         YDData->TBdbda->FieldByName("SYCJF")->AsFloat;
         YDData->TBdbda->FieldByName("CSG")->AsFloat=YDData->TBdbda->FieldByName("BYCJG")->AsFloat-
         YDData->TBdbda->FieldByName("SYCJG")->AsFloat;
        }
      if (fxf=="反转"||fxg=="反转")
       {
         YDData->TBdbda->FieldByName("CSF")->AsFloat=YDData->TBdbda->FieldByName("SYCJF")->AsFloat-
         YDData->TBdbda->FieldByName("BYCJF")->AsFloat;
         YDData->TBdbda->FieldByName("CSG")->AsFloat=YDData->TBdbda->FieldByName("SYCJG")->AsFloat-
         YDData->TBdbda->FieldByName("BYCJG")->AsFloat;
       }
    }
  if (YDData->TBdbda->FieldByName("CS")->AsFloat<0)
    {
     YDData->TBdbda->FieldByName("CS")->AsFloat=StrToInt(maxds.SubString(1,ws))+1+
     YDData->TBdbda->FieldByName("CS")->AsFloat;
    }
  if (YDData->TBdbda->FieldByName("CSF")->AsFloat<0)
    {
     YDData->TBdbda->FieldByName("CSF")->AsFloat=StrToInt(maxds.SubString(1,wsf))+1+
     YDData->TBdbda->FieldByName("CSF")->AsFloat;
    }
  if (YDData->TBdbda->FieldByName("CSG")->AsFloat<0)
    {
     YDData->TBdbda->FieldByName("CSG")->AsFloat=StrToInt(maxds.SubString(1,wsg))+1+
     YDData->TBdbda->FieldByName("CSG")->AsFloat;
    }
   YDData->TBdbda->FieldByName("BLDL")->AsFloat=YDData->TBdbda->FieldByName("BL")->AsFloat*
   YDData->TBdbda->FieldByName("CS")->AsFloat;
   YDData->TBdbda->FieldByName("BLDLF")->AsFloat=YDData->TBdbda->FieldByName("BLF")->AsFloat*
   YDData->TBdbda->FieldByName("CSF")->AsFloat;
   YDData->TBdbda->FieldByName("BLDLG")->AsFloat=YDData->TBdbda->FieldByName("BLG")->AsFloat*
   YDData->TBdbda->FieldByName("CSG")->AsFloat;

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

void __fastcall TFsgcb::DBGrid1CellClick(TColumn *Column)
{
 Narefresh();
 DBEdit2->SetFocus();
}
//---------------------------------------------------------------------------


void __fastcall TFsgcb::SpeedButton5Click(TObject *Sender)
{
//bool fs;
//TLocateOptions SearchOptions;
//SearchOptions<<loPartialKey;
//fs=false;
//fs=YDData->TBdbda->Locate("hhhh",Edit3->Text,SearchOptions);
YDData->TByhda->Close();
YDData->TByhda->IndexFieldNames="hhhh";
YDData->TByhda->Open();
if (!YDData->TByhda->FindKey(new TVarRec(Edit3->Text),0))
   {
    MessageBox(NULL,"用户不存在!","提示",MB_OK|MB_ICONWARNING);
    YDData->TByhda->Last();
    Edit3->Text=YDData->TByhda->FieldByName("hhhh")->AsString;
    Edit1->Text=YDData->TByhda->FieldByName("yhmc")->AsString;
    return;
   }
 Edit3->Text=YDData->TByhda->FieldByName("hhhh")->AsString;
 Edit1->Text=YDData->TByhda->FieldByName("yhmc")->AsString;
 DBEdit2->SetFocus();
 Narefresh();



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

void __fastcall TFsgcb::DBEdit1Exit(TObject *Sender)
{
 Crefresh();
}
//---------------------------------------------------------------------------

void __fastcall TFsgcb::DBEdit7Exit(TObject *Sender)
{
 Crefresh();

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

void __fastcall TFsgcb::DBEdit13Exit(TObject *Sender)
{
 Crefresh();

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



void __fastcall TFsgcb::DBEdit8Exit(TObject *Sender)
{
 Crefresh();

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

void __fastcall TFsgcb::DBEdit14Exit(TObject *Sender)
{
 Crefresh();

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

void __fastcall TFsgcb::DBEdit3Exit(TObject *Sender)
{
 Crefresh();
}
//---------------------------------------------------------------------------

void __fastcall TFsgcb::DBEdit9Exit(TObject *Sender)
{
 Crefresh();

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

void __fastcall TFsgcb::DBEdit15Exit(TObject *Sender)
{
 Crefresh();
}
//---------------------------------------------------------------------------



void __fastcall TFsgcb::SpeedButton1Click(TObject *Sender)
{
 YDData->TByhda->First();
 Narefresh();
}
//---------------------------------------------------------------------------

void __fastcall TFsgcb::SpeedButton2Click(TObject *Sender)
{
// jsjddl();
 YDData->TByhda->Prior();
 Narefresh();

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

void __fastcall TFsgcb::SpeedButton3Click(TObject *Sender)
{
 YDData->TByhda->Next();
 Narefresh();

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

void __fastcall TFsgcb::SpeedButton4Click(TObject *Sender)
{
 YDData->TByhda->Last();
 Narefresh();

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


void __fastcall TFsgcb::DBEdit2Exit(TObject *Sender)
{
 Crefresh();
  if (Trim(FloatToStr(YDData->TBdbda->FieldByName("BYCJ")->AsFloat)).Length()>YDData->TBdbda->FieldByName("ws")->AsInteger)
     MessageBox(NULL,"本月抄见大于电表位数！","提示",MB_OK|MB_ICONWARNING);

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

void __fastcall TFsgcb::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBdbda->Close();
 YDData->TByhda->Close();
 YDData->TBxtcs->Close();
  Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------