ydywsl.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDywsl.h"
#include "YDdatam.h"
#include "YDYHCZ.h"
#include "YDdbcs.h"
#include "YDfjfjj.h"
#include "YDfdbl.h"
#include "YDdyyhda.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFywsl *Fywsl;
//---------------------------------------------------------------------------
__fastcall TFywsl::TFywsl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFywsl::FormCreate(TObject *Sender)
{
 add=false;
 edit=false;
 brow=true;
 YDData->TByhda->Open();
 YDData->TByhda->First();
 YDData->TBdbda->Open();
 YDData->TBdjkp->Open();
 YDData->TBfjjj->Open();
 YDData->TBtjgx->Open();
 YDData->TBgds->Open();
 YDData->TBgds->First();
 while (!YDData->TBgds->Eof)
   {
    DBComboBox1->Items->Add(YDData->TBgds->FieldByName("gds_mc")->AsString);
    YDData->TBgds->Next();
   }
 YDData->TBxlcs->Open();
 YDData->TBxlcs->First();
 while (!YDData->TBxlcs->Eof)
   {
    DBComboBox2->Items->Add(YDData->TBxlcs->FieldByName("xlmc")->AsString);
    YDData->TBxlcs->Next();
   }
 YDData->TBpqdm->Open();
 YDData->TBpqdm->First();
 while (!YDData->TBpqdm->Eof)
   {
    DBComboBox3->Items->Add(YDData->TBpqdm->FieldByName("pqmc")->AsString);
    YDData->TBpqdm->Next();
   }
 YDData->TBdydj->Open();
 YDData->TBdydj->First();
 while (!YDData->TBdydj->Eof)
   {
    DBComboBox5->Items->Add(YDData->TBdydj->FieldByName("dy_dydj")->AsString);
    YDData->TBdydj->Next();
   }
 YDData->TBbyqcs->Open();
 YDData->TBbyqcs->First();
 while (!YDData->TBbyqcs->Eof)
   {
    DBComboBox7->Items->Add(YDData->TBbyqcs->FieldByName("byq_xh")->AsString);
    YDData->TBbyqcs->Next();
   }

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

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

void TFywsl::Modify()
{
        //TODO: Add your source code here
   SpeedButton6->Caption="保存";
   SpeedButton7->Caption="还原";
   SpeedButton6->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\save.bmp");
   SpeedButton7->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\Undo.bmp");
   SpeedButton1->Enabled=false;
   SpeedButton2->Enabled=false;
   SpeedButton3->Enabled=false;
   SpeedButton4->Enabled=false;
   SpeedButton5->Enabled=false;
   SpeedButton8->Enabled=false;
   SpeedButton9->Enabled=false;
   SpeedButton10->Enabled=false;
   SpeedButton11->Enabled=false;
   SpeedButton12->Enabled=false;
   SpeedButton13->Enabled=false;
   SpeedButton14->Enabled=false;
   SpeedButton15->Enabled=false;
   SpeedButton16->Enabled=false;
   SpeedButton17->Enabled=false;
   SpeedButton18->Enabled=false;
   SpeedButton19->Enabled=false;
   DBEdit1->ReadOnly=false;
   DBEdit2->ReadOnly=false;
   DBEdit3->ReadOnly=false;
   Panel3->Enabled=true;
   DBGrid1->ReadOnly=false;
   DBGrid2->ReadOnly=false;

}

void TFywsl::Browse()
{
   //TODO: Add your source code here
   SpeedButton6->Caption="新增";
   SpeedButton7->Caption="修改";
   SpeedButton6->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\add.bmp");
   SpeedButton7->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\wzedit.bmp");
   SpeedButton1->Enabled=true;
   SpeedButton2->Enabled=true;
   SpeedButton3->Enabled=true;
   SpeedButton4->Enabled=true;
   SpeedButton5->Enabled=true;
   SpeedButton8->Enabled=true;
   SpeedButton9->Enabled=true;
   SpeedButton10->Enabled=true;
   SpeedButton11->Enabled=true;
   SpeedButton12->Enabled=true;
   SpeedButton13->Enabled=true;
   SpeedButton14->Enabled=true;
   SpeedButton15->Enabled=true;
   SpeedButton16->Enabled=true;
   SpeedButton17->Enabled=true;
   SpeedButton18->Enabled=true;
   SpeedButton19->Enabled=true;
   DBEdit1->ReadOnly=true;
   DBEdit2->ReadOnly=true;
   DBEdit3->ReadOnly=true;
   Panel3->Enabled=false;
   DBGrid1->ReadOnly=true;
   DBGrid2->ReadOnly=true;

}

void TFywsl::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;
      SpeedButton7->Enabled=false;
      SpeedButton8->Enabled=false;
    };
  if (DBComboBox6->Text=="无")
    {
      DBComboBox7->Enabled=false;
      DBEdit3->Enabled=false;
      DBEdit4->Enabled=false;
    }
    else
    {
      DBComboBox7->Enabled=true;
      DBEdit3->Enabled=true;
      DBEdit4->Enabled=true;
    }
}
//-------------------------------
void __fastcall TFywsl::SpeedButton2Click(TObject *Sender)
{
 YDData->TByhda->Prior();
 Narefresh();
}
//---------------------------------------------------------------------------

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

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

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

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

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

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

void __fastcall TFywsl::SpeedButton5Click(TObject *Sender)
{
  Fyhcz=new TFyhcz(Application);
  Fyhcz->ShowModal();
  delete Fyhcz;

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


void __fastcall TFywsl::SpeedButton6Click(TObject *Sender)
{
 if (SpeedButton6->Caption=="新增")
   {
    Modify();
    DBEdit1->SetFocus();
    YDData->TByhda->Append();
    YDData->TByhda->FieldByName("gds")->AsString=DBComboBox1->Items->Strings[0];
    YDData->TByhda->FieldByName("klbs")->AsString=DBComboBox2->Items->Strings[0];
    YDData->TByhda->FieldByName("xzq")->AsString=DBComboBox3->Items->Strings[0];
    YDData->TByhda->FieldByName("ydfl")->AsString=DBComboBox4->Items->Strings[0];
    YDData->TByhda->FieldByName("gddy")->AsString=DBComboBox5->Items->Strings[0];
    YDData->TByhda->FieldByName("kplb")->AsString=DBComboBox6->Items->Strings[0];
    YDData->TByhda->FieldByName("bzsj")->AsDateTime=Date();
    YDData->TByhda->FieldByName("hsqx")->AsString=YDData->TBxtcs->FieldByName("xt_hsqx")->AsString;
    YDData->TByhda->FieldByName("cszt")->AsString="0";
    YDData->TByhda->FieldByName("jfrq")->AsInteger=15;
    YDData->TByhda->FieldByName("yxzt")->AsString="投运";
    YDData->TByhda->FieldByName("jffs")->AsString="低供低计";

   }
   else
   {
    if (Trim(DBEdit1->Text)!=""&&Trim(DBEdit2->Text)!="")
     {
     try
      {

       YDData->TBpqdm->First();
       while (!YDData->TBpqdm->Eof)
         {
           if (YDData->TBpqdm->FieldByName("pqmc")->AsString==DBComboBox3->Text)
            {
              YDData->TByhda->FieldByName("xzq")->AsString=YDData->TBpqdm->FieldByName("pqdm")->AsString;
              YDData->TByhda->FieldByName("dz")->AsString=YDData->TBpqdm->FieldByName("pqmc")->AsString;
              break;
             }
           YDData->TBpqdm->Next();
          }

 //
       YDData->TBtjgx->First();
       while (!YDData->TBtjgx->Eof)
         {
          if (YDData->TBtjgx->FieldByName("hhhhf")->AsString==DBEdit1->Text&&YDData->TBtjgx->FieldByName("lb")->AsString=="BHZJ")
              YDData->TBtjgx->Delete();
         YDData->TBtjgx->Next();
         }

      if (Trim(DBComboBox10->Text)!="")
        {
         YDData->TBtjgx->Append();
         YDData->TBtjgx->FieldByName("hhhh")->AsString=DBComboBox10->Text;
         YDData->TBtjgx->FieldByName("hhhhf")->AsString=DBEdit1->Text;
         YDData->TBtjgx->FieldByName("lb")->AsString="BHZJ";
         YDData->TBtjgx->Post();
        }
//
        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();
        if (Query1->RecordCount>0)
          YDData->TByhda->FieldByName("bz")->AsString="是";
        else
          YDData->TByhda->FieldByName("bz")->AsString="否";
        Query1->Close();
        delete Query1;
       YDData->TByhda->Post();
       YDData->TByhda->Refresh();
       Browse();
      }
      catch (...)
       {
         MessageBox(NULL,"用户编号重复，请重新输入！","提示",MB_OK|MB_ICONWARNING);
       }
      }
      else MessageBox(NULL,"用户编号或名称不能为空！","提示",MB_OK|MB_ICONWARNING);
   }

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