worker.~cpp

Raize控件包的安装路径为D:Program Files(一定要安装到正确位置,否则代码不能运行),配置好C++bulider的数据库环境. 本代码为课程设计的报告,有相当多不完善地方,适合初学C

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

#include <vcl.h>
#pragma hdrstop

#include "worker.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
String jia;
TForm22 *Form22;
//---------------------------------------------------------------------------
__fastcall TForm22::TForm22(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm22::Button1Click(TObject *Sender)
{
   if(ComboBox1->ItemIndex ==-1||Edit1->Text =="请输入对应信息")
ShowMessage("请输入完整信息！");
else
{
ADOTable1->Filtered =False;
jia=Edit1->Text ;
ADOTable1->Filtered =True;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm22::Button3Click(TObject *Sender)
{
   DBGrid1->ReadOnly =False;
  DBNavigator1->DataSource =DataSource1;
}
//---------------------------------------------------------------------------

void __fastcall TForm22::Button2Click(TObject *Sender)
{
 ADOTable1->Filtered =False;
}
//---------------------------------------------------------------------------

void __fastcall TForm22::Button4Click(TObject *Sender)
{
  DBNavigator1->DataSource =0;
DBGrid1->ReadOnly =True;

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

void __fastcall TForm22::ADOTable1FilterRecord(TDataSet *DataSet,
      bool &Accept)
{
 switch(ComboBox1->ItemIndex )
{case 0:
 Accept=ADOTable1->FieldByName("WorkerName")->AsString==jia;
 break;
 case 1:
 Accept=ADOTable1->FieldByName("WorkerId")->AsString==jia;
 break;
 case 2:
 Accept=ADOTable1->FieldByName("WorkerType")->AsString==jia;
 break;
}
}
//---------------------------------------------------------------------------