unit5.cpp

本书所有案例均需要单独配置

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

#include <vcl.h>
#pragma hdrstop

#include "Unit5.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button1Click(TObject *Sender)
{
  if (Edit1->Text == "")
    {
      ShowMessage("尚未输入数据，请检查!!") ;
    }

    else
    {
      Form4->Table1->Close();
      Form4->Table1->Open();
      Form4->Table1->EditKey();
      Form4->Table1->FieldByName("车号")->AsInteger = StrToInt(Edit1->Text);
      Form4->Table1->GotoKey();

      if (Form4->Table1->GotoKey() )
      {
         Edit2->Text =  Form4->Table1->Fields->FieldByName("手机号")->Value;
         Edit3->Text =  Form4->Table1->Fields->FieldByName("工号")->Value;
      }
      else
         ShowMessage("该数据不存在!");
      }
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button2Click(TObject *Sender)
{
    Form4->Table1->Edit();
    Form4->Table1->Fields->FieldByName("手机号")->Value = Edit2->Text;
    Form4->Table1->Fields->FieldByName("工号")->Value = Edit3->Text;
    Form4->Table1->Post();

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