ydywsl.cpp

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

void __fastcall TFywsl::SpeedButton7Click(TObject *Sender)
{
  if (SpeedButton7->Caption=="修改")
   {
    Modify();
    YDData->TByhda->Edit();
   }
   else
   {
     YDData->TByhda->Cancel();
     Browse();
   }

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

void __fastcall TFywsl::SpeedButton8Click(TObject *Sender)
{
  if ( Application->MessageBox("真的要注销该用户吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
  {
   AnsiString hhhh=YDData->TByhda->FieldByName("hhhh")->AsString;
   AnsiString sql="DELETE FROM DJKP0000 WHERE HHHH='"+hhhh+"'";
   TQuery *Query1=new TQuery(this);
   Query1->DatabaseName="YDDB";
   Query1->SQL->Add(sql);
   Query1->ExecSQL();
   sql="DELETE FROM FJJJ0000 WHERE FJ_HHHH='"+hhhh+"'";
   Query1->SQL->Clear();
   Query1->SQL->Add(sql);
   Query1->ExecSQL();
   sql="DELETE FROM DBDA0000 WHERE HHHH='"+hhhh+"'";
   Query1->SQL->Clear();
   Query1->SQL->Add(sql);
   Query1->ExecSQL();
   delete Query1;
   YDData->TByhda->Delete();
   Narefresh();
 }

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

void __fastcall TFywsl::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TByhda->Close();
 YDData->TBdbda->Close();
 YDData->TBdjkp->Close();
 YDData->TBfjjj->Close();
 YDData->TBgds->Close();
 YDData->TBmldj->Close();
 Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------


void __fastcall TFywsl::SpeedButton12Click(TObject *Sender)
{
 add=false;
 edit=true;
 brow=false;
 Fdbcs=new TFdbcs(Application);
 Fdbcs->ShowModal();
 delete Fdbcs;

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

void __fastcall TFywsl::SpeedButton18Click(TObject *Sender)
{
  Ffjfjj=new TFfjfjj(Application);
  Ffjfjj->ShowModal();
  delete Ffjfjj;        
}
//---------------------------------------------------------------------------

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


void __fastcall TFywsl::DBComboBox11DblClick(TObject *Sender)
{
  AnsiString sql="select * from JXGX0000 where hhhh='"+DBEdit1->Text+"'";
  TQuery *Query1=new TQuery(this);
  Query1->DatabaseName="YDDB";
  Query1->SQL->Add(sql);
  Query1->ExecSQL();
  Query1->Open();
  AnsiString jxll="";
  while (!Query1->Eof)
    {
      if (Query1->FieldByName("lb")->AsString=="HT")
       {
         jxll=jxll+Query1->FieldByName("hhhhf")->AsString;
         jxll=jxll+"的"+Query1->FieldByName("dbbhf")->AsString+"表接在本户下\r";
        }
      if (Query1->FieldByName("lb")->AsString=="FK")
       {
         jxll=jxll+Query1->FieldByName("hhhhf")->AsString;
         jxll=jxll+"的"+Query1->FieldByName("dbbhf")->AsString+"表电量转到本户下计费\r";
        }
      if (Query1->FieldByName("lb")->AsString=="BHZJ")
         jxll=jxll+Query1->FieldByName("hhhhf")->AsString+"与本户共用变压器\r";
      Query1->Next();
    }
 ShowMessage(jxll);
 Query1->Close();
 delete Query1;

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

void __fastcall TFywsl::SpeedButton11Click(TObject *Sender)
{
 add=true;
 edit=false;
 brow=false;
 Fdbcs=new TFdbcs(Application);
 Fdbcs->ShowModal();
 delete Fdbcs;
 YDData->TBdbda->Close();
 YDData->TBdbda->Open();

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

void __fastcall TFywsl::SpeedButton13Click(TObject *Sender)
{
  if ( Application->MessageBox("真的要拆除该电表吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
  {
    YDData->TBdjkp->First();
   while (!YDData->TBdjkp->Eof)
     {
      YDData->TBdjkp->Delete();
      YDData->TBdjkp->First();
     }
   YDData->TBfjjj->First();
   while (!YDData->TBfjjj->Eof)
     {
      YDData->TBfjjj->Delete();
      YDData->TBfjjj->First();
     }
   AnsiString hhhh=YDData->TBdbda->FieldByName("hhhh")->AsString;
   AnsiString dbbh=YDData->TBdbda->FieldByName("dbbh")->AsString;
   AnsiString sql="delete from jxgx0000 where hhhh='"+hhhh;
   sql=sql+"' and dbbh='"+dbbh+"'";
   TQuery *Query1=new TQuery(Application);
   Query1->DatabaseName="YDDB";
   Query1->SQL->Add(sql);
   Query1->ExecSQL();
   sql="delete from jxgx0000 where hhhhf='"+hhhh;
   sql=sql+"' and dbbhf='"+dbbh+"'";
   Query1->SQL->Clear();
   Query1->SQL->Add(sql);
   Query1->ExecSQL();
   delete Query1;
   YDData->TBdbda->Delete();
  }
}
//---------------------------------------------------------------------------

void __fastcall TFywsl::SpeedButton14Click(TObject *Sender)
{
YDData->TBdbda->Edit();
 if (YDData->TBdbda->FieldByName("yxzt")->AsString=="投运")
    YDData->TBdbda->FieldByName("yxzt")->AsString="停运";
 else
    YDData->TBdbda->FieldByName("yxzt")->AsString="投运";
 YDData->TBdbda->Post();
}
//---------------------------------------------------------------------------


void __fastcall TFywsl::SpeedButton15Click(TObject *Sender)
{
 add=true;
 edit=false;
 brow=false;
 Ffdbl=new TFfdbl(Application);
 Ffdbl->ShowModal();
 delete Ffdbl;
}
//---------------------------------------------------------------------------

void __fastcall TFywsl::SpeedButton16Click(TObject *Sender)
{
 add=false;
 edit=true;
 brow=false;
 Ffdbl=new TFfdbl(Application);
 Ffdbl->ShowModal();
 delete Ffdbl;

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

void __fastcall TFywsl::SpeedButton17Click(TObject *Sender)
{
  if ( Application->MessageBox("真的要删除该项吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
  {
   YDData->TBdjkp->Delete();
  }
}
//---------------------------------------------------------------------------

void __fastcall TFywsl::DBComboBox4Change(TObject *Sender)
{
  if (DBComboBox4->Text!="大用户")
   {
    DBEdit7->Enabled=true;
    DBEdit8->Enabled=true;
   }
  else
    {
    DBEdit7->Enabled=false;
    DBEdit8->Enabled=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFywsl::DBComboBox6Change(TObject *Sender)
{
  if (DBComboBox6->Text=="无")
     {
      YDData->TByhda->FieldByName("byqxh")->AsString="";
      DBComboBox7->Enabled=false;
     }
    else
      DBComboBox7->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TFywsl::SpeedButton19Click(TObject *Sender)
{
 Fdyyhda=new TFdyyhda(Application);
 Fdyyhda->QuickRep1->Preview();
 delete Fdyyhda;
}
//---------------------------------------------------------------------------


void __fastcall TFywsl::DBComboBox10Enter(TObject *Sender)
{
 AnsiString sql;
 sql="select hhhh from yhda0000 where kplb='专用' or kplb='公用'";
 DBComboBox10->Items->Clear();
 TQuery *Query1=new TQuery(this);
 Query1->DatabaseName="YDDB";
 Query1->SQL->Add(sql);
 Query1->ExecSQL();
 Query1->Open();
  while (!Query1->Eof)
     {
       DBComboBox10->Items->Add(Query1->FieldByName("HHHH")->AsString);
      Query1->Next();
     }
 delete Query1;
}
//---------------------------------------------------------------------------

void __fastcall TFywsl::DBComboBox12Enter(TObject *Sender)
{
 if (DBComboBox4->Text!="计量箱")
  {
    DBComboBox12->Items->Clear();
    AnsiString sql;
    sql="select hhhh from yhda0000 where ydfl='计量箱'";
    TQuery *Query1=new TQuery(this);
    Query1->DatabaseName="YDDB";
    Query1->SQL->Add(sql);
    Query1->ExecSQL();
    Query1->Open();
    Query1->First();
    while (!Query1->Eof)
    {
     DBComboBox12->Items->Add(Query1->FieldByName("hhhh")->AsString);
     Query1->Next();
    }
   delete Query1;
  }
  else
  {
     DBComboBox12->Items->Clear();
     DBComboBox12->Items->Add("按用户数分摊");
     DBComboBox12->Items->Add("按用电量分摊");
  }

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