ydbzsq.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDbzsq.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDpqxz.h"
#include "YDhyxz.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFbzsq *Fbzsq;
//---------------------------------------------------------------------------
__fastcall TFbzsq::TFbzsq(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TFbzsq::FormCreate(TObject *Sender)
{
  YDData->TBbzsq->Open();
  YDData->TBpqdm->Open();
  YDData->TBxtcs->Open();
  YDData->TBhydm->Open();
  YDData->TBbzyhda->Open();
  add=false;
  Narefresh();

}
//---------------------------------------------------------------------------
void TFbzsq::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;
   GroupBox1->Enabled=true;
   GroupBox2->Enabled=true;
   DBGrid1->Enabled=false;
   TabSet1->Enabled=false;

}

void TFbzsq::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;
   GroupBox1->Enabled=false;
   GroupBox2->Enabled=false;
   DBGrid1->Enabled=true;
   TabSet1->Enabled=true;

 }

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

}

void __fastcall TFbzsq::SpeedButton2Click(TObject *Sender)
{
 YDData->TBbzsq->Prior();
 Narefresh();
}
//---------------------------------------------------------------------------

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

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

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

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

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

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

void __fastcall TFbzsq::SpeedButton7Click(TObject *Sender)
{
 if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString=="0")
   {
    if ( Application->MessageBox("真的要删除这条记录吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
     {
      YDData->TBbzsq->Delete();
      Narefresh();
     }
   }
   else
    ShowMessage("此申请正在受理或已经受理完成,不能删除!");
}
//---------------------------------------------------------------------------

void __fastcall TFbzsq::SpeedButton5Click(TObject *Sender)
{
if (SpeedButton5->Caption=="新增")
   {
    add=true;
    Modify();
    YDData->TBbzsq->Append();
    int sqhcd=IntToStr(YDData->TBxtcs->FieldByName("xt_qssqh")->AsInteger).Length();
    AnsiString sqqz="000000";
    YDData->TBbzsq->FieldByName("sq_bh")->AsString="Q"+sqqz.SubString(1,7-sqhcd)+IntToStr(YDData->TBxtcs->FieldByName("xt_qssqh")->AsInteger+1);
    YDData->TBbzsq->FieldByName("sq_nr")->AsString="新装";
    YDData->TBbzsq->FieldByName("sq_fl")->AsString="照明";
    YDData->TBbzsq->FieldByName("sq_slzk")->AsString="0";
    YDData->TBbzsq->FieldByName("sq_rq")->AsDateTime=Date();
    DBEdit7->SetFocus();
   }
   else
   {
    if (Trim(DBEdit1->Text)!="")
     {
     try
      {
       if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString=="0")
        {
         YDData->TBxtcs->Edit();
         if (add)
         YDData->TBxtcs->FieldByName("xt_qssqh")->AsInteger=StrToInt(YDData->TBbzsq->FieldByName("sq_bh")->AsString.SubString(2,7));
         YDData->TBxtcs->Post();
         YDData->TBbzsq->Post();
         YDData->TBbzsq->Close();
         YDData->TBbzsq->Open();
         Browse();
         }
        else
        {
           if (Application->MessageBox("此申请正在受理或已受理完毕,修改后必须重新受理,真的要修改吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
            {
                 YDData->TBbzsq->Edit();
                 YDData->TBbzyhda->Edit();
                 YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString="";
                 YDData->TBbzsq->FieldByName("sq_sljd")->AsString="";
                 YDData->TBbzyhda->FieldByName("YD_SLZK")->AsString="0";
                 YDData->TBbzsq->FieldByName("sq_slzk")->AsString="0";
                 YDData->TBbzsq->Post();
                 YDData->TBbzyhda->Close();
                 YDData->TBbzyhda->Open();
                 Browse();
            }

          }
        }
        catch (...)
        {
         MessageBox(NULL,"申请编号重复,请重新输入！","提示",MB_OK|MB_ICONWARNING);
         return;
        }

      }
      else
      {
        MessageBox(NULL,"申请编号不能为空！","提示",MB_OK|MB_ICONWARNING);
        return;
      }
    add=false;
  }
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TFbzsq::FormClose(TObject *Sender, TCloseAction &Action)
{
  YDData->TBbzsq->Close();
  YDData->TBpqdm->Close();
  YDData->TBxtcs->Close();
  YDData->TBhydm->Close();
  YDData->TBbzyhda->Close();
  Fmain->gnjs(Fmain->tcjc);
  Action = caFree;        
}
//---------------------------------------------------------------------------

void __fastcall TFbzsq::TabSet1Change(TObject *Sender, int NewTab,
      bool &AllowChange)
{
  YDData->TBbzsq->Filtered=true;
 if (NewTab==0)YDData->TBbzsq->Filtered=false;
 if (NewTab==1)YDData->TBbzsq->Filter="sq_slzk='0'";
 if (NewTab==2)YDData->TBbzsq->Filter="sq_slzk='1'";
 if (NewTab==3)YDData->TBbzsq->Filter="sq_slzk='2'";
 Narefresh();
}
//---------------------------------------------------------------------------


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

void __fastcall TFbzsq::SpeedButton12Click(TObject *Sender)
{
 Fhyxz=new TFhyxz(Application);
 Fhyxz->ShowModal();
 YDData->TBbzsq->FieldByName("sq_hydm")->AsString=Fhyxz->hydm;
 delete Fhyxz;        
}
//---------------------------------------------------------------------------