mainform.cpp

来自「简单的C++小程序」· C++ 代码 · 共 138 行

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

#include <vcl.h>
#pragma hdrstop

#include "mainform.h"
#include "bookscanunit.h"
#include "Bookmgunit.h"
#include "ReadmgUnit.h"
#include "ReadClassUnit.h"
#include "ReadStatUnit.h"
#include "BookBRAllUnit.h"
#include "LendStatUnit.h"
#include "LoginUnit.h"
#include "ChgPassUnit.h"
#include "aboutunit.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
extern bool AdminFlag; //登录标志

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        if(!AdminFlag)
        {
                munSysManage->Visible = false;
                mnuBookLend->Visible = false;
                mnuChgPass->Visible = false;
        }
}
//---------------------------------------------------------------------------



void __fastcall TForm1::mnuAboutClick(TObject *Sender)
{
        TAboutBox * AboutBox = new TAboutBox(this);
        AboutBox->ShowModal();
        delete AboutBox;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::mnuExitClick(TObject *Sender)
{
        this->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        StatusBar1->Panels->Items[0]->Text = DateToStr(Date()) + " " + TimeToStr(Time());
}
//---------------------------------------------------------------------------

void __fastcall TForm1::mnuBookManageClick(TObject *Sender)
{
        TBookmgform *Bookmgform = new TBookmgform(this);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::mnuReaderManageClick(TObject *Sender)
{
        TReaderMg *ReaderMg = new TReaderMg(this);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::mnuReadClassClick(TObject *Sender)
{
        TReadClass *ReadClass = new TReadClass(this);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::mnuReaderStatClick(TObject *Sender)
{
        TReaderStat *ReaderStat = new TReaderStat(this);
}
//---------------------------------------------------------------------------



void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        Application->Terminate();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::mnuLendStatClick(TObject *Sender)
{
        TLendStat *LendStat = new TLendStat(this);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::mnuBookAllClick(TObject *Sender)
{
        TBookBRAll *BookBRAll = new TBookBRAll(this);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::mnuBookScanClick(TObject *Sender)
{
        TBookScan * BookScan = new TBookScan(this);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::mnuLoginClick(TObject *Sender)
{
        Login =new TLogin(Application);
        Login->ShowModal();
        if(!AdminFlag)
        {
                munSysManage->Visible = false;
                mnuBookLend->Visible = false;
                mnuChgPass->Visible = false;
        }
        else
        {
                munSysManage->Visible = true;
                mnuBookLend->Visible = true;
                mnuChgPass->Visible = true;
        }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::mnuChgPassClick(TObject *Sender)
{
        ChgPassword = new TChgPassword(this);
        ChgPassword->ShowModal();
        delete ChgPassword;
}
//---------------------------------------------------------------------------