⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ydyhcz.cpp

📁 营业用电管理系统(网络版)是本公司推出的新一代软件产品
💻 CPP
字号:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "YDYHCZ.h"
#include "YDdatam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFyhcz *Fyhcz;
//---------------------------------------------------------------------------
__fastcall TFyhcz::TFyhcz(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TFyhcz::BitBtn2Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TFyhcz::BitBtn1Click(TObject *Sender)
{
  Variant LoolupResults;
 if (RadioButton1->Checked)
  {
   YDData->TByhda->Close();
   YDData->TByhda->IndexFieldNames="hhhh";
   YDData->TByhda->Open();
   if (!YDData->TByhda->FindKey(new TVarRec(Edit1->Text),0))
     MessageBox(NULL,"没有找到满足条件的用户!","提示",MB_OK|MB_ICONWARNING);
  }
 else
  {
   YDData->TByhda->Close();
   YDData->TByhda->IndexFieldNames="yhmc";
   YDData->TByhda->Open();
   if (!YDData->TByhda->FindKey(new TVarRec(Edit2->Text),0))
     MessageBox(NULL,"没有找到满足条件的用户!","提示",MB_OK|MB_ICONWARNING);
  }

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

void __fastcall TFyhcz::RadioButton1Click(TObject *Sender)
{
 Edit1->SetFocus();
 Edit2->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TFyhcz::RadioButton2Click(TObject *Sender)
{
 Edit2->SetFocus();
 Edit1->Text="";
}
//---------------------------------------------------------------------------


void __fastcall TFyhcz::FormShow(TObject *Sender)
{
 Edit1->SetFocus();          
}
//---------------------------------------------------------------------------

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -