ydxlcs.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDxlcs.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDgds.h"
#include "YDtfbz.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFxlcs *Fxlcs;
//---------------------------------------------------------------------------
__fastcall TFxlcs::TFxlcs(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFxlcs::SpeedButton10Click(TObject *Sender)
{

  Close();
}
//---------------------------------------------------------------------------

void __fastcall TFxlcs::SpeedButton5Click(TObject *Sender)
{
 if (SpeedButton5->Caption=="新增")
   {
    DBEdit1->SetFocus();
    YDData->TBxlcs->Append();
    Modify();
   }
   else
   {
    if (Trim(DBEdit1->Text)!=""||Trim(DBEdit2->Text)!="")
     {
       YDData->TBxlcs->Post();
       YDData->TBxlcs->Close();
       YDData->TBxlcs->Open();
       Browse();
      }
      else MessageBox(NULL,"线路编号或线路名称不能为空！","提示",MB_OK|MB_ICONWARNING);
   }

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

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

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

void __fastcall TFxlcs::FormCreate(TObject *Sender)
{
 YDData->TBxlcs->Open();
 YDData->TBxlcs->First();
 YDData->TBdydj->Open();
 YDData->TBdydj->First();
 while (!YDData->TBdydj->Eof)
 {
   DBComboBox2->Items->Add(YDData->TBdydj->FieldByName("dy_dydj")->AsString);
   YDData->TBdydj->Next();
 }

 Narefresh();
}
//---------------------------------------------------------------------------

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

void __fastcall TFxlcs::SpeedButton4Click(TObject *Sender)
{
 YDData->TBxlcs->Last();
 Narefresh();
}
//---------------------------------------------------------------------------

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

void __fastcall TFxlcs::SpeedButton3Click(TObject *Sender)
{
 YDData->TBxlcs->Next();
 Narefresh();
}
//---------------------------------------------------------------------------


void __fastcall TFxlcs::FormClose(TObject *Sender, TCloseAction &Action)
{
 Fmain->gnjs(Fmain->tcjc);
 YDData->TBxlcs->Close();
 YDData->TBdydj->Close();
//  Action = caFree;
}
//---------------------------------------------------------------------------


void TFxlcs::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;
   DBEdit1->ReadOnly=false;
   DBEdit2->ReadOnly=false;
   DBEdit3->ReadOnly=false;
   DBEdit4->ReadOnly=false;
   DBEdit5->ReadOnly=false;
   DBEdit6->ReadOnly=false;
   DBEdit7->ReadOnly=false;
   DBEdit8->ReadOnly=false;
   DBComboBox2->ReadOnly=false;
   DBGrid1->Enabled=false;
 }

void TFxlcs::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;
   DBEdit1->ReadOnly=true;
   DBEdit2->ReadOnly=true;
   DBEdit3->ReadOnly=true;
   DBEdit4->ReadOnly=true;
   DBEdit5->ReadOnly=true;
   DBEdit6->ReadOnly=true;
   DBEdit7->ReadOnly=true;
   DBEdit8->ReadOnly=true;
   DBComboBox2->ReadOnly=true;
   DBGrid1->Enabled=true;

}

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

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


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

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

void __fastcall TFxlcs::DBEdit8Exit(TObject *Sender)
{
    if (!DBEdit1->ReadOnly&&Application->MessageBox("继续增加吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
     {
      SpeedButton5->Click();
      SpeedButton5->Click();
     }
}
//---------------------------------------------------------------------------