main.cpp

基于bcb数据库应用

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "readertype.h"
#include "readerinfo.h"
#include "booktype.h"
#include "bookinfo.h"
#include "bookorder.h"
#include "bookborrow.h"
#include "bookreturn.h"
#include "bookdue.h"
#include "bookfine.h"

//---------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmMain *fmMain;

// 数据库开发经典实例解析  清华大学出版社
//---------------------------------------------------------
__fastcall TfmMain::TfmMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------
TForm* TfmMain::FormExist(AnsiString szCaption)
{
    for(int i=0; i<this->MDIChildCount; i++)
    {
        TForm *pForm = this->MDIChildren[i];
        if(pForm->Caption == szCaption)
            return pForm;   // 已存在窗体,返回该窗体
    }
    return NULL;    // 不存在窗体,返回空值
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuExitClick(TObject *Sender)
{
    Application->Terminate();
}
//-------------------------------------------------------------
void __fastcall TfmMain::Label1Click(TObject *Sender)
{
    // 查找相应按钮对应的菜单，通过菜单执行相应的操作
    for(int i = 0; i< MainMenu1->Items->Count; i++)
    {
        TMenuItem* pItem = MainMenu1->Items->Items[i];
        TMenuItem* pItem1 = pItem->Find(
            ((TLabel*) Sender)->Caption);
        if(pItem1) pItem1->Click();
    }
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuReaderTypeClick(TObject *Sender)
{
    // 读者类型设置
    TForm *pForm = FormExist("读者类别设置");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmReaderType(Application);
    pForm->Show();
}
//-------------------------------------------------------------
void __fastcall TfmMain::mnuReaderInfoClick(TObject *Sender)
{
    // 读者档案管理
    TForm *pForm = FormExist("读者档案管理");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmReaderInfo(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuBookTypeClick(TObject *Sender)
{
    // 图书类别设置
    TForm *pForm = FormExist("图书类别设置");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmBookType(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::mnuBookInfoClick(TObject *Sender)
{
    // 图书档案管理
    TForm *pForm = FormExist("图书档案管理");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmBookInfo(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuOrderClick(TObject *Sender)
{
    // 图书征订
    TForm *pForm = FormExist("图书征订");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmBookOrder(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::mnuBorrowClick(TObject *Sender)
{
    // 图书借阅
    TForm *pForm = FormExist("图书借阅");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmBookBorrow(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::mnuReturnClick(TObject *Sender)
{
    // 图书借阅
    TForm *pForm = FormExist("图书归还");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmBookReturn(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuDueDateClick(TObject *Sender)
{
    // 图书借阅
    TForm *pForm = FormExist("图书逾期清单");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmBookDue(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuFineClick(TObject *Sender)
{
    // 图书罚款
    TForm *pForm = FormExist("图书罚款");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmBookFine(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------