ydmldj.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDmldj.h"
#include "YDdatam.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFmldj *Fmldj;
//---------------------------------------------------------------------------
__fastcall TFmldj::TFmldj(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFmldj::SpeedButton10Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TFmldj::FormClose(TObject *Sender, TCloseAction &Action)
{
 Fmain->gnjs(Fmain->tcjc);
 YDData->TBmldj->Close();
 // Action = caFree;
        
}
//---------------------------------------------------------------------------
void TFmldj::Modify()
{
        //TODO: Add your source code here
   SpeedButton5->Caption="保存";
   SpeedButton6->Caption="还原";
   SpeedButton5->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\save.bmp");
   SpeedButton6->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\Undo.bmp");
   SpeedButton1->Enabled=false;
   SpeedButton2->Enabled=false;
   SpeedButton3->Enabled=false;
   SpeedButton4->Enabled=false;
   SpeedButton7->Enabled=false;
   SpeedButton9->Enabled=false;
   SpeedButton10->Enabled=false;
   DBEdit13->ReadOnly=false;
   DBEdit14->ReadOnly=false;
   Panel2->Enabled=true;
   DBGrid1->Enabled=false;
   lzcl(); 
}

void TFmldj::Browse()
{
   //TODO: Add your source code here
   SpeedButton5->Caption="新增";
   SpeedButton6->Caption="修改";
   SpeedButton5->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\add.bmp");
   SpeedButton6->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\wzedit.bmp");
   SpeedButton1->Enabled=true;
   SpeedButton2->Enabled=true;
   SpeedButton3->Enabled=true;
   SpeedButton4->Enabled=true;
   SpeedButton7->Enabled=true;
   SpeedButton9->Enabled=true;
   SpeedButton10->Enabled=true;
   DBEdit13->ReadOnly=true;
   DBEdit14->ReadOnly=true;
   Panel2->Enabled=false;
   DBGrid1->Enabled=true;
   lzcl();
}

void TFmldj::Narefresh()
{
     SpeedButton1->Enabled=!YDData->TBmldj->Bof;
     SpeedButton2->Enabled=!YDData->TBmldj->Bof;
     SpeedButton3->Enabled=!YDData->TBmldj->Eof;
     SpeedButton4->Enabled=!YDData->TBmldj->Eof;
    if(YDData->TBmldj->Eof&&YDData->TBmldj->Bof)
    {
      SpeedButton1->Enabled=false;
      SpeedButton2->Enabled=false;
      SpeedButton3->Enabled=false;
      SpeedButton4->Enabled=false;
      SpeedButton7->Enabled=false;
    };


}

void __fastcall TFmldj::SpeedButton2Click(TObject *Sender)
{
 YDData->TBmldj->Prior();
 Narefresh();

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

void __fastcall TFmldj::SpeedButton1Click(TObject *Sender)
{
 YDData->TBmldj->First();
 Narefresh();

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

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

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

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

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

void __fastcall TFmldj::SpeedButton7Click(TObject *Sender)
{
  if ( Application->MessageBox("真的要删除这条记录吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
  {
   YDData->TBmldj->Delete();
   Narefresh();
  };

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

void __fastcall TFmldj::SpeedButton5Click(TObject *Sender)
{
 if (SpeedButton5->Caption=="新增")
   {
    Modify();
    DBEdit1->SetFocus();
    YDData->TBmldj->Append();
   }
   else
    {
     if (Trim(DBEdit13->Text)!="")
      {
       YDData->TBmldj->Post();
       YDData->TBmldj->Close();
       YDData->TBmldj->Open();
       Browse();
      }
      else MessageBox(NULL,"电价编号不能为空！","提示",MB_OK|MB_ICONWARNING);
   }

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

void __fastcall TFmldj::SpeedButton6Click(TObject *Sender)
{
  if (SpeedButton6->Caption=="修改")
   {
    YDData->TBmldj->Edit();
    Modify();
   }
   else
   {
     YDData->TBmldj->Cancel();
     Browse();
   }

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

void __fastcall TFmldj::FormCreate(TObject *Sender)
{
 YDData->TBmldj->Open();
 Narefresh();
}
//---------------------------------------------------------------------------

void __fastcall TFmldj::FormKeyPress(TObject *Sender, char &Key)
{
 if(Key==VK_RETURN)
   {
     SendMessage(this->Handle,WM_NEXTDLGCTL,0,0);
     Key=0;
   }
        
}
//---------------------------------------------------------------------------
void TFmldj::lzcl()
{
 TDBEdit *ded[12];
 ded[0]=DBEdit1;
 ded[1]=DBEdit2;
 ded[2]=DBEdit3;
 ded[3]=DBEdit4;
 ded[4]=DBEdit5;
 ded[5]=DBEdit6;
 ded[6]=DBEdit7;
 ded[7]=DBEdit8;
 ded[8]=DBEdit9;
 ded[9]=DBEdit10;
 ded[10]=DBEdit11;
 ded[11]=DBEdit12;
 AnsiString zdp,zdf,zdg;
  for (int i=0;i<4;i++)
  {
   zdp="dj"+IntToStr(i+1);
   zdf="dj"+IntToStr(i+1)+"f";
   zdg="dj"+IntToStr(i+1)+"g";
   if (YDData->TBmldj->FieldByName(zdp)->AsFloat==0&&!Panel2->Enabled)
     ded[3*i]->Visible=false;
   else
     ded[3*i]->Visible=true;
   if (YDData->TBmldj->FieldByName(zdf)->AsFloat==0&&!Panel2->Enabled)
     ded[3*i+1]->Visible=false;
   else
     ded[3*i+1]->Visible=true;
   if (YDData->TBmldj->FieldByName(zdg)->AsFloat==0&&!Panel2->Enabled)
     ded[3*i+2]->Visible=false;
   else
     ded[3*i+2]->Visible=true;
  }

 }


void __fastcall TFmldj::DBEdit13Change(TObject *Sender)
{
   lzcl();
}
//---------------------------------------------------------------------------