unit7.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit7.h"
#include "Unit11.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_dzh *frm_dzh;
//---------------------------------------------------------------------------
__fastcall Tfrm_dzh::Tfrm_dzh(TComponent* Owner)
        : TForm(Owner)
{
  Height=489;
  Width=700;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_dzh::BitBtn1Click(TObject *Sender)
{
  //DM->dzhQuery
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_dzh::ToolButton12Click(TObject *Sender)
{

  if(!DBGrid1->SelectedRows->Count)
    ShowMessage("请选择图书！");


}
//---------------------------------------------------------------------------
void Tfrm_dzh::search()
{
  //AnsiString sql("select * from 读者资料");
  //sql+=
  //DM->brQuery->Close();
  //DM->brQuery->SQL->Clear();
  //DM->brQuery->a
}
///------------------------------------------------------------------------
void __fastcall Tfrm_dzh::ToolButton8Click(TObject *Sender)
{
  for(int i = 0; i < this->ComponentCount; i ++)
  {
    if(AnsiString(Components[i]->ClassName()) == "TEdit")
    {
       if(dynamic_cast <TEdit *>(Components[i])->Text == "")
         ShowMessage("请您输入完整信息！");
       else
       {
          DM->dzhQuery->Post();
       }
    }
  }
}
//---------------------------------------------------------------------------


void __fastcall Tfrm_dzh::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action=caFree;  
}
//---------------------------------------------------------------------------





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

void __fastcall Tfrm_dzh::PageControl1Change(TObject *Sender)
{
  if(TabSheet2->Showing==true)
  {
    ToolButton8->Enabled=true;
    ToolButton11->Enabled=false;
  }
  if(TabSheet1->Showing==true)
  {
    ToolButton8->Enabled=false;
    ToolButton11->Enabled=true;
  }
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_dzh::ToolButton11Click(TObject *Sender)
{
  //DM->dzhQuery->Filtered=false;
  DM->dzhQuery->Filter=ComboBox1->Text+ComboBox2->Text+"\'"+Edit1->Text+"\'";
  DM->dzhQuery->Filtered=true;
  DM->dzhQuery->FindFirst();
  StatusBar1->Panels->Items[0]->Text=DM->dzhQuery->RecordCount;
}
//---------------------------------------------------------------------------