unit8.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit8.h"
#include "Unit11.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_tsh *frm_tsh;
//---------------------------------------------------------------------------
__fastcall Tfrm_tsh::Tfrm_tsh(TComponent* Owner)
        : TForm(Owner)
{
  Height=472;
  Width=714;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_tsh::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action=caFree;
  frm_main->N12->Enabled=true;
  frm_main->N15->Enabled=true;

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

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

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

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

void __fastcall Tfrm_tsh::Edit12KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
  {
    sql="select * from 图书资料 where 入库时间=\"";
    sql+=Edit12->Text+"\"";
  }
}
//---------------------------------------------------------------------------
void Tfrm_tsh::search()
{
  try
  {
    DM->tshQuery->Close();
    DM->tshQuery->SQL->Clear();
    DM->tshQuery->SQL->Add(sql);
    DM->tshQuery->ExecSQL();
    DM->tshQuery->Active=true;
  }
  catch(Exception &exception)
  {
    ShowMessage("数据库出错！");
  }
}
//----------------------------------------------------------------------------
void __fastcall Tfrm_tsh::ToolButton8Click(TObject *Sender)
{
  for(int i=0;i<this->ComponentCount;i++)
  {
    if(AnsiString(this->Components[i]->ClassName())=="TDBEdit")
    {
      if(dynamic_cast<TDBEdit*>(this->Components[i])->Text!="")
      {
        DM->tshQuery->Post();
      }
    }
  }
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_tsh::FormCreate(TObject *Sender)
{
/*  for(int i=0;i<this->ComponentCount;i++)
  {
    if(AnsiString(this->Components[i]->ClassName())=="TDBEdit")
    {
      dynamic_cast<TDBEdit*>(this->Components[i])->Text="";
    }
  }    */
}
//---------------------------------------------------------------------------