ydbmgz.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDbmgz.h"
#include "YDdatam.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFbmgz *Fbmgz;
//---------------------------------------------------------------------------
__fastcall TFbmgz::TFbmgz(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFbmgz::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
  Fmain->gnjs(Fmain->tcjc);  
}
//---------------------------------------------------------------------------

void __fastcall TFbmgz::SpeedButton10Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------

void TFbmgz::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;
   SpeedButton8->Enabled=false;
   SpeedButton9->Enabled=false;
   SpeedButton10->Enabled=false;
   Panel1->Enabled=true;
   DBGrid1->Enabled=false;

}

void TFbmgz::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;
   SpeedButton8->Enabled=true;
   SpeedButton9->Enabled=true;
   SpeedButton10->Enabled=true;
   Panel1->Enabled=false;
   DBGrid1->Enabled=true;

}

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

}

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

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

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

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

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

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

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

void __fastcall TFbmgz::SpeedButton5Click(TObject *Sender)
{
 if (SpeedButton5->Caption=="新增")
   {
    Modify();
    DBEdit1->SetFocus();
    YDData->TBbmgz->Append();
    YDData->TBbmgz->FieldByName("bm1")->AsString="3";
    YDData->TBbmgz->FieldByName("bm2")->AsString="3";
    YDData->TBbmgz->FieldByName("bm3")->AsString="3";
    YDData->TBbmgz->FieldByName("bm4")->AsString="0";
   }
   else
   {

   if (Trim(DBEdit1->Text)!="")
     {
 //      DBGrid1->SelectedIndex=0;
       Bmxs();
       YDData->TBbmgz->Post();
       YDData->TBbmgz->Close();
       YDData->TBbmgz->Open();
       Browse();
      }
     else
      {
        MessageBox(NULL,"编码名称不能为空,增加无效！","提示",MB_OK|MB_ICONWARNING);
//        YDData->TBbmgz->Cancel();
//        Browse();
      }
   }

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

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

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

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


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

void __fastcall TFbmgz::FormCreate(TObject *Sender)
{
 YDData->TBbmgz->Open();
 YDData->TBbmgz->First();
 Narefresh();

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

 void TFbmgz::Bmxs()
 {
 if (SpeedButton5->Caption=="保存")
 {
// int bm1=StrToInt(YDData->TBbmgz->FieldByName("bm1")->AsString);
// int bm2=StrToInt(YDData->TBbmgz->FieldByName("bm2")->AsString);
// int bm3=StrToInt(YDData->TBbmgz->FieldByName("bm3")->AsString);
// int bm4=StrToInt(YDData->TBbmgz->FieldByName("bm4")->AsString);
   int bm1=StrToInt(DBComboBox1->Text);
   int bm2=StrToInt(DBComboBox2->Text);
   int bm3=StrToInt(DBComboBox3->Text);
   int bm4=StrToInt(DBComboBox4->Text);

  YDData->TBbmgz->FieldByName("bmcd")->AsString=
  IntToStr(bm1+bm2+bm3+bm4);
  AnsiString bmxs="XXXXXXXXXXXXXXXXXXXXXXXX";
  if (bm1!=0)
  YDData->TBbmgz->FieldByName("bmxs")->AsString=
  bmxs.SubString(1,bm1);
  if (bm2!=0)
    if (bm1!=0)
     YDData->TBbmgz->FieldByName("bmxs")->AsString=
     YDData->TBbmgz->FieldByName("bmxs")->AsString
     +"-"+bmxs.SubString(bm1+1,bm2);
    else
    {
     YDData->TBbmgz->FieldByName("bm2")->AsString="0";
     ShowMessage("无上级编码,不能设定本级!");
    }
  if (bm3!=0)
    if (bm2!=0)
     YDData->TBbmgz->FieldByName("bmxs")->AsString=
     YDData->TBbmgz->FieldByName("bmxs")->AsString
     +"-"+bmxs.SubString(bm2+1,bm3);
   else
   {
     YDData->TBbmgz->FieldByName("bm3")->AsString="0";
     ShowMessage("无上级编码,不能设定本级!");
   }
  if (bm4!=0)
    if (bm3!=0)
    YDData->TBbmgz->FieldByName("bmxs")->AsString=
    YDData->TBbmgz->FieldByName("bmxs")->AsString
   +"-"+bmxs.SubString(bm3+1,bm4);
    else
     {
     YDData->TBbmgz->FieldByName("bm4")->AsString="0";
     ShowMessage("无上级编码,不能设定本级!");
     }
 }

 }

void __fastcall TFbmgz::DBComboBox1Exit(TObject *Sender)
{
 Bmxs();
}
//---------------------------------------------------------------------------

void __fastcall TFbmgz::DBComboBox2Exit(TObject *Sender)
{
 Bmxs();
        
}
//---------------------------------------------------------------------------

void __fastcall TFbmgz::DBComboBox3Exit(TObject *Sender)
{
 Bmxs();
       
}
//---------------------------------------------------------------------------

void __fastcall TFbmgz::DBComboBox4Exit(TObject *Sender)
{
 Bmxs();

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

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