keren.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "keren.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
String xiang;
TForm23 *Form23;
//---------------------------------------------------------------------------
__fastcall TForm23::TForm23(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm23::Button1Click(TObject *Sender)
{
 if(ComboBox1->ItemIndex ==-1||Edit1->Text =="请输入对应信息")
ShowMessage("请输入完整信息！");
else
{
ADOTable1->Filtered =False;
xiang=Edit1->Text ;
ADOTable1->Filtered =True;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm23::ADOTable1FilterRecord(TDataSet *DataSet,
      bool &Accept)
{
 switch(ComboBox1->ItemIndex )
{case 0:
 Accept=ADOTable1->FieldByName("CustomerName")->AsString==xiang;
 break;
 case 1:
 Accept=ADOTable1->FieldByName("RoomNo")->AsString==xiang;
 break;
 case 2:
 Accept=ADOTable1->FieldByName("IDCard")->AsString==xiang;
 break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm23::Button2Click(TObject *Sender)
{
  ADOTable1->Filtered =False;
}
//---------------------------------------------------------------------------
void __fastcall TForm23::Button3Click(TObject *Sender)
{
   DBGrid1->ReadOnly =False;
  DBNavigator1->DataSource =DataSource1;
}
//---------------------------------------------------------------------------
void __fastcall TForm23::Button4Click(TObject *Sender)
{
 DBNavigator1->DataSource =0;
DBGrid1->ReadOnly =True;

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