yddbcx.cpp

来自「营业用电管理系统(网络版)是本公司推出的新一代软件产品」· C++ 代码 · 共 82 行

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

#include <vcl.h>
#pragma hdrstop

#include "YDdbcx.h"
#include "YDdatam.h"
#include "YDpqxz.h"
#include "YDmain.h"
#include "YDDBCXDY.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFdbcx *Fdbcx;
//---------------------------------------------------------------------------
__fastcall TFdbcx::TFdbcx(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFdbcx::SpeedButton4Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TFdbcx::SpeedButton1Click(TObject *Sender)
{
 Fpqxz=new TFpqxz(Application);
  Fpqxz->ShowModal();
 AnsiString qh=Fpqxz->pqdm;
  delete Fpqxz;
  YDData->Qdbcx->Close();
  YDData->Qdbcx->ExecSQL();
  YDData->Qdbcx->Filtered=true;
  YDData->Qdbcx->Open();
  YDData->Qdbcx->Filter="DB_QH='"+qh+"'";
  Edit1->Text=qh;
}
//---------------------------------------------------------------------------
void __fastcall TFdbcx::FormClose(TObject *Sender, TCloseAction &Action)
{
  YDData->Qdbcx->Filtered=false;
  YDData->Qdbcx->Close();
  Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------
void __fastcall TFdbcx::SpeedButton2Click(TObject *Sender)
{
 if (YDData->Qdbcx->RecordCount!=0)
 {
   Fdbcxdy=new TFdbcxdy(Application);
   Fdbcxdy->QuickRep1->Preview();
   delete Fdbcxdy;
 }
}
//---------------------------------------------------------------------------

void __fastcall TFdbcx::Edit1KeyPress(TObject *Sender, char &Key)
{
  AnsiString qh=Edit1->Text;
  if (Key==13)
  {
  YDData->Qdbcx->Close();
  YDData->Qdbcx->ExecSQL();
  YDData->Qdbcx->Filtered=true;
  YDData->Qdbcx->Open();
  YDData->Qdbcx->Filter="DB_QH='"+qh+"'";


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

void __fastcall TFdbcx::FormCreate(TObject *Sender)
{
   YDData->Qdbcx->Close();
   YDData->Qdbcx->ExecSQL();
   YDData->Qdbcx->Open();
}
//---------------------------------------------------------------------------