mem_modify.~cpp

图书管理系统本地数据库实现

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

#include <vcl.h>
#pragma hdrstop

#include "mem_modify.h"
#include "local_data_module.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Num_Search_ButtonClick(TObject *Sender)
{
if (Mem_No_Edt->Text=="")
        return;

AnsiString  strQueryMem="Select * from CUSTOMER where Member_ID=";

strQueryMem+=Mem_No_Edt->Text;

if(local_base->User_Query->Active)
        local_base->User_Query->Close();

local_base->User_Query->SQL->Clear();
local_base->User_Query->SQL->Add(strQueryMem);


try
{
local_base->User_Query->ExecSQL();
local_base->User_Query->Active=true;
}

catch(EDBEngineError &E)
{
Application->MessageBox("查询错误!","输入错误",MB_OK);
}

if (local_base->User_Query->FieldByName("Borrow_Right")->Value==3)
        leveltext->Caption="低级会员";
        else if (local_base->User_Query->FieldByName("Borrow_Right")->Value==2)
                leveltext->Caption="中级会员";
                 else leveltext->Caption="高级会员";

Name_Edt->Text=local_base->User_Query->FieldByName("Name")->AsString;
Photo->Visible=true;

}
//---------------------------------------------------------------------------
void __fastcall TForm3::Name_Search_ButtonClick(TObject *Sender)
{
if (Name_Edt->Text=="")
        return;

AnsiString  strQueryMem="Select * from CUSTOMER where Name='";

strQueryMem+=Name_Edt->Text;
strQueryMem+="'";

if(local_base->User_Query->Active)
        local_base->User_Query->Close();

local_base->User_Query->SQL->Clear();
local_base->User_Query->SQL->Add(strQueryMem);


try
{
local_base->User_Query->RequestLive=true;
local_base->User_Query->ExecSQL();
local_base->User_Query->Active=true;
}

catch(EDBEngineError &E)
{
Application->MessageBox("查询错误!","输入错误",MB_OK);
}


Mem_No_Edt->Text=local_base->User_Query->FieldByName("Member_ID")->AsString;

Photo->Visible=true;

}
//---------------------------------------------------------------------------
void __fastcall TForm3::Post_ButtonClick(TObject *Sender)
{
if(local_base->User_Query->Active)
{

        local_base->User_Query->Edit();
        local_base->User_Query->FieldByName("Member_ID")->Value=StrToInt(Mem_No_Edt->Text);
        local_base->User_Query->FieldByName("Name")->Value=Name_Edt->Text;
        local_base->User_Query->FieldByName("Personal_ID")->Value=Personal_ID_Edt->Text;
        local_base->User_Query->FieldByName("Addr")->Value=Addr_Edt->Text;
        local_base->User_Query->FieldByName("Tel_No1")->Value=Phone_Edt->Text;
        local_base->User_Query->FieldByName("Tel_Cell")->Value=Phone_Ext_Edt->Text;
        local_base->User_Query->FieldByName("Tel_No2")->Value=Cell_Edt->Text;
        //local_base->User_Query->FieldByName("Expire_Date")->Value=Time_Expire_Edt->Text;

        local_base->User_Query->Post();
        local_base->User_Query->Close();
}


}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormShow(TObject *Sender)
{
Time_Expire_Edt->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Del_ButtonClick(TObject *Sender)
{
if(local_base->User_Query->Active)
{
        try
        {
        local_base->User_Query->Delete();
        }
        catch(...)
        {
        Application->MessageBox("删除表纪录失败","错误",MB_OK);
        return;
        }
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Exit_ButtonClick(TObject *Sender)
{
this->Close();
}
//---------------------------------------------------------------------------