fangjian.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "fangjian.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
String liu;
TForm21 *Form21;
//---------------------------------------------------------------------------
__fastcall TForm21::TForm21(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm21::Button1Click(TObject *Sender)
{
 if(ComboBox1->ItemIndex ==-1||Edit1->Text =="请输入对应信息")
ShowMessage("请输入完整信息！");

else
{
ADOTable1->Filtered =False;
liu=Edit1->Text ;
ADOTable1->Filtered =True;
}       
}
//---------------------------------------------------------------------------

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

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

void __fastcall TForm21::Button4Click(TObject *Sender)
{
 DBNavigator1->DataSource =0;
DBGrid1->ReadOnly =True;
       
}
//---------------------------------------------------------------------------
void __fastcall TForm21::Button5Click(TObject *Sender)
{
if(ComboBox1->ItemIndex ==0)
{ADOTable1->TableName ="Customer";
ADOTable1->Active =True;}
else if(ComboBox1->ItemIndex ==1)
{ADOTable1->TableName ="Room";
ADOTable1->Active =True;}
if(ComboBox1->ItemIndex ==-1||Edit1->Text =="请输入对应信息")
ShowMessage("请输入完整信息！");
else if(ComboBox1->ItemIndex ==-1)
ShowMessage("请选择查询目标!");

else
{
ADOTable1->Filtered =False;
liu=Edit1->Text ;
ADOTable1->Filtered =True;
}
}