ydxgmm.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDxgmm.h"
#include "YHDL.h"
#include "YDdatam.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFxgmm *Fxgmm;
//---------------------------------------------------------------------------
__fastcall TFxgmm::TFxgmm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFxgmm::FormKeyPress(TObject *Sender, char &Key)
{

 if(Key==VK_RETURN)
   {
     SendMessage(this->Handle,WM_NEXTDLGCTL,0,0);
     Key=0;
   } 
        
}
//---------------------------------------------------------------------------

void __fastcall TFxgmm::BitBtn2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TFxgmm::BitBtn1Click(TObject *Sender)
{
  if (Trim(Edit1->Text)==""&&Trim(Edit2->Text)==""&&Trim(Edit3->Text)=="")
     MessageBox(NULL,"修改失败！","提示",MB_OK|MB_ICONWARNING);
  else
    {
     YDData->TBczy->Edit();
     YDData->TBczy->FieldByName("czykl")->AsString=Edit2->Text;
     YDData->TBczy->Post();
     Close();
    }

}
//---------------------------------------------------------------------------
void __fastcall TFxgmm::FormCreate(TObject *Sender)
{
 YDData->TBczy->Open();
  YDData->TBczy->First();
  while (!YDData->TBczy->Eof)
  {
   if (YDData->TBczy->FieldByName("czymc")->AsString==CLogin->czyname)break;
   YDData->TBczy->Next();
  }
  if (YDData->TBczy->Eof)
    {
     MessageBox(NULL,"操作员不存在,修改失败！","提示",MB_OK|MB_ICONWARNING);
     Close();
    }
 Label5->Caption=CLogin->czyname;
}
//---------------------------------------------------------------------------
void __fastcall TFxgmm::Edit3Exit(TObject *Sender)
{
 if (Edit3->Text!=Edit2->Text)
    {
     MessageBox(NULL,"密码不一致,请重新输入！","提示",MB_OK|MB_ICONWARNING);
     Edit2->Text="";
     Edit3->Text="";
     Edit2->SetFocus();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFxgmm::FormClose(TObject *Sender, TCloseAction &Action)
{
  Fmain->gnjs(Fmain->tcjc);
  Action = caFree;
        
}
//---------------------------------------------------------------------------


void __fastcall TFxgmm::Edit2Enter(TObject *Sender)
{
 if (Edit1->Text!=YDData->TBczy->FieldByName("czykl")->AsString)
    {
     MessageBox(NULL,"您忘记了旧密码,请重新输入！","提示",MB_OK|MB_ICONWARNING);
     Edit1->Text="";
     Edit1->SetFocus();
    }
        
}
//---------------------------------------------------------------------------