selectbc.cpp

来自「企业员工考勤和工资管理系统」· C++ 代码 · 共 60 行

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

#include <vcl.h>
#pragma hdrstop

#include "SelectBC.h"
#include "DM1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSelectBC *FormSelectBC;

int nFlag;
AnsiString sBcXz;
//---------------------------------------------------------------------------
__fastcall TFormSelectBC::TFormSelectBC(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSelectBC::FormCreate(TObject *Sender)
{
  pBcXz = GetQuery("QBanci");
  pBcXz->Open();
  DataSource1->DataSet = pBcXz;

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

void __fastcall TFormSelectBC::DBGrid1DblClick(TObject *Sender)
{
  if (pBcXz->RecNo > 0)
    {
      nFlag = 1;
      sBcXz = pBcXz->FieldByName("bcmc")->AsString;
      FormSelectBC->Close();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFormSelectBC::FormKeyPress(TObject *Sender, char &Key)
{
  if (Key == VK_RETURN)  DBGrid1DblClick(this);
  else if (Key == VK_ESCAPE)
     {
       nFlag = 0;
       FormSelectBC->Close();
     }

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


void __fastcall TFormSelectBC::FormDestroy(TObject *Sender)
{
  pBcXz->Close();
}
//---------------------------------------------------------------------------