czkl.cpp

来自「数据库后台管理工具」· C++ 代码 · 共 45 行

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

#include <vcl.h>
#pragma hdrstop

#include "CZKL.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TKL *KL;
//---------------------------------------------------------------------------
__fastcall TKL::TKL(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TKL::BitBtn1Click(TObject *Sender)
{
 TTable *table0=new TTable(this);
 table0->DatabaseName="YDGL";
 table0->TableName="czygl";

 table0->Open();
 while (!table0->Eof)
   {
     if (table0->FieldByName("czymc")->AsString=="系统管理员"&&table0->FieldByName("czykl")->AsString==Edit1->Text)
         klok=true;
     table0->Next();
   }
  delete table0; 
}
//---------------------------------------------------------------------------

void __fastcall TKL::BitBtn2Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TKL::FormCreate(TObject *Sender)
{
 klok=false;        
}
//---------------------------------------------------------------------------