unit3.cpp

第一次尝试开发数据库方面的系统

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

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;

//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void TForm3::search()
{

}

void __fastcall TForm3::Edit1KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
  {
    sql="select * from 图书资料 where 图书代号=\"";
    sql+=Edit1->Text+"\"";
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Edit2KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
  sql="select * from 图书资料 where 图书名称=\"";
  sql+=Edit2->Text+"\"";
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Edit3KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
  sql="select * from 图书资料 where 作者=\"";
  sql+=Edit3->Text+"\"";
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Edit4KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
  sql="select * from 图书资料 where 出版社=\"";
  sql+=Edit4->Text+"\"";
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Edit5KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
  
  sql="select * from 图书资料 where 出版时间=\"";
  sql+=Edit5->Text+"\"";
}
//---------------------------------------------------------------------------

void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
  AnsiString sql;
  sql="select * from 图书资料 where 图书编号=:num or 图书名=:name or 作者=:author or 出版社=:press";
  try
  {
    DM->tshQuery->Close();
    DM->tshQuery->SQL->Clear();
    DM->tshQuery->SQL->Add(sql);
    DM->tshQuery->Parameters->ParamByName("num")->Value=Edit1->Text;
    DM->tshQuery->Parameters->ParamByName("name")->Value=Edit2->Text;
    DM->tshQuery->Parameters->ParamByName("author")->Value=Edit3->Text;
    DM->tshQuery->Parameters->ParamByName("press")->Value=Edit4->Text;
    //DM->tshQuery->Parameters->ParamByName("presstime")->Value=Edit5->Text;
    DM->tshQuery->Open();
  }
  catch(Exception &excetion)
  {
    ShowMessage("数据库出错！");
  }

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



void __fastcall TForm3::FormCreate(TObject *Sender)
{
  Label7->Caption=DateTimeToStr(TDateTime::CurrentDate());
}
//---------------------------------------------------------------------------