ch7_1u.cpp

C++ Builder程序员学习数据结构第7章

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

#include <vcl.h>
#pragma hdrstop

#include "ch7_1u.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String search[10];
String k;
int idx,d;
int i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::einKeyUp(TObject *Sender, WORD &Key,//数据输入
      TShiftState Shift)
{
  if (Key==13)
  {
        search[idx]=ein->Text;               //获取用户输入数据
        ein->Text="";
        idx++;                               //输入次数加1
        lout->Caption="输入值[ "+search[idx-1]+" ]为第 "+IntToStr(idx)+" 笔数据";
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::shExecute(TObject *Sender)     //输入搜索值
{
        k=kin->Text;
        kin->Text="";
        lout->Caption="已读取数据 " + k + " ,请按搜索结果观看结果";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::endExecute(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::rsExecute(TObject *Sender)//搜索结果
{
   d=0;
   for (i=0;i<10;i++)
   {
        if(k==search[i])          //逐一搜索,直到找到相同的值或全部搜索结束
        {
                Form1->lout->Caption="找到搜索值( " +k+ " )于数组中第 "+IntToStr(i+1)+" 个位置";
                d=1;
                return;
        }
   }
   if(d==0)
     Form1->lout->Caption="没有找到搜索值";
     //srh(k);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::addExecute(TObject *Sender)//显示当前数据数量
{
  idx=0;
  while(search[idx]!=""){idx++;}
  lout->Caption="目前有 "+IntToStr(idx)+ " 笔数据";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::nwExecute(TObject *Sender)//更新数据
{
        for(i=0;i<10;i++)
          search[i]="";
        lout->Caption="已将旧数据清除";  
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)
{
        tb5->Click();                    //调用结束菜单命令的事件
}
//---------------------------------------------------------------------------


void __fastcall TForm1::N3Click(TObject *Sender)
{
        tb4->Click();                     //调用搜索结果菜单命令的事件
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)      //调用搜索按钮的事件
{
        tb3->Click();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        tb1->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
        tb2->Click();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
     tb3->Click();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Z1Click(TObject *Sender)
{
        tb5->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Y1Click(TObject *Sender)
{
        tb4->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::X1Click(TObject *Sender)
{
        tb3->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)
{
  tb1->Click();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N6Click(TObject *Sender)
{
  tb2->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)
{
  tb1->Click();       

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

void __fastcall TForm1::N8Click(TObject *Sender)
{
  tb2->Click();
        
}
//---------------------------------------------------------------------------