local_main.cpp

来自「图书管理系统本地数据库实现」· C++ 代码 · 共 95 行

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

#include <vcl.h>
#pragma hdrstop

#include "local_main.h"
#include "local_data_module.h"
#include "mem_add.h"
#include "mem_modify.h"
#include "book_add.h"
#include "class_add.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
TForm2 * MEM_ADD_FORM=new TForm2(this);

MEM_ADD_FORM->ShowModal();
delete(MEM_ADD_FORM);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N6Click(TObject *Sender)
{
TForm3  * Mem_Search_Form=new TForm3(this);
Mem_Search_Form->ShowModal();
delete (Mem_Search_Form);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::N8Click(TObject *Sender)
{
TForm4 * Book_Add_Form=new TForm4(this);

Book_Add_Form->ShowModal();
delete (Book_Add_Form);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N10Click(TObject *Sender)
{
TForm5 * BookClass_Add_Form=new TForm5(this);

BookClass_Add_Form->ShowModal();
delete (BookClass_Add_Form);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ToolButton1Click(TObject *Sender)
{
TForm2 * MEM_ADD_FORM=new TForm2(this);

MEM_ADD_FORM->ShowModal();
delete(MEM_ADD_FORM);

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

void __fastcall TForm1::ToolButton2Click(TObject *Sender)
{
TForm3  * Mem_Search_Form=new TForm3(this);
Mem_Search_Form->ShowModal();
delete (Mem_Search_Form);
}

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

void __fastcall TForm1::ToolButton3Click(TObject *Sender)
{
TForm4 * Book_Add_Form=new TForm4(this);

Book_Add_Form->ShowModal();
delete (Book_Add_Form);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ToolButton4Click(TObject *Sender)
{
TForm5 * BookClass_Add_Form=new TForm5(this);

BookClass_Add_Form->ShowModal();
delete (BookClass_Add_Form);
}
//---------------------------------------------------------------------------