mem_add.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "mem_add.h"
#include "local_data_module.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Insert_ButtonClick(TObject *Sender)
{

if (Mem_num->Text=="")
{
        Application->MessageBox("务必输入会员编号","输入错误",MB_OK);
        return;
}

int MemberID;

try
{
        MemberID= StrToInt(Mem_num->Text.c_str());
}

catch(EConvertError& e)
{
        Application->MessageBox("会员编号输入错误","输入错误",MB_OK);
        //local_base->USER_TABLE->UndoLastChange(true);
        return;
}

if(!local_base->USER_TABLE->Active)
      local_base->USER_TABLE->Open();

try
{
local_base->USER_TABLE->Insert();
local_base->USER_TABLE->FieldByName("Member_ID")->Value=MemberID;
local_base->USER_TABLE->FieldByName("Name")->Value=Mem_name->Text;

if    (Senior_button->Checked)
          local_base->USER_TABLE->FieldByName("Borrow_Right")->Value=1;
          else if(Mid_button->Checked)
                local_base->USER_TABLE->FieldByName("Borrow_Right")->Value=2;
                else
                        local_base->USER_TABLE->FieldByName("Borrow_Right")->Value=3;
local_base->USER_TABLE->FieldByName("Personal_ID")->Value=ID_num->Text;
((TBlobField*)(local_base->USER_TABLE->FieldByName("Photo")))->LoadFromFile(OpenPictureDialog1->FileName);


   local_base->USER_TABLE->FieldByName("Addr")->Value=Addr->Text;
   local_base->USER_TABLE->FieldByName("Tel_No1")->Value=Phone->Text;
   local_base->USER_TABLE->FieldByName("Tel_Cell")->Value=Phone_Ext->Text;
   local_base->USER_TABLE->FieldByName("Tel_No2")->Value=Phone_Cell->Text;
   local_base->USER_TABLE->FieldByName("Expire_Date")->Value=StrToDate(Time_Limit_ST->Text);

   




   local_base->USER_TABLE->Post();

}
catch(...)
{
  Application->MessageBox("存在相同会员编号或者日期输入错误!","输入错误",MB_OK);
  local_base->USER_TABLE->Cancel();
   return;
}

Mem_name->Text="";
Mem_num->Text="";
ID_num->Text="";
Addr->Text="";
Phone->Text="";
Phone_Ext->Text="";
Phone_Cell->Text="";
Time_Limit_ST->Text="";
OpenPictureDialog1->FileName="";
Insert_Button->Enabled=false;




}
//---------------------------------------------------------------------------
void __fastcall TForm2::Album_Insert_ButtonClick(TObject *Sender)
{
if(OpenPictureDialog1->Execute())
{
Photo->Picture->LoadFromFile(OpenPictureDialog1->FileName);

if(OpenPictureDialog1->FileName!="")
        Insert_Button->Enabled=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
Insert_Button->Enabled=false;
Junior_button->Checked=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Mem_numKeyPress(TObject *Sender, char &Key)
{
if(!(Key>='0'&&Key<='9'))
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Exit_ButtonClick(TObject *Sender)
{
this->Close();        
}
//---------------------------------------------------------------------------