unit1.cpp

餐厅结账管理程序提供中小型餐厅所需要的点菜结账功能

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

#include <vcl.h>
#pragma hdrstop
#include "UnitLogin.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit10.h"
#include "Unit11.h"
#include "UnitAbout.h"
#include "UnitCalendar.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
        : TForm(Owner)
{
   DoubleBuffered=true;
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::FormClose(TObject *Sender, TCloseAction &Action)
{
  //结束程序,因为主窗体是FormLogin，所以这里要通过Application来结束应用程序
  Application->Terminate();        
}
//---------------------------------------------------------------------------


void __fastcall TFormMain::MenuClassDishManClick(TObject *Sender)
{ //弹出维护窗口
  Hide();
  FormClassDishMan->ShowModal();
  Show();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuTableManClick(TObject *Sender)
{ //弹出维护窗口
  Hide();
  FormTableMan->ShowModal();
  Show();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuListManClick(TObject *Sender)
{
  Hide();
  FormListMan->ShowModal();
  Show();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuOrderClick(TObject *Sender)
{
  Hide();
  FormOrder->ShowModal();
  Show();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuPayManClick(TObject *Sender)
{
  Hide();
  FormPayMan->ShowModal();
  Show();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuPayClick(TObject *Sender)
{
  Hide();
  FormPay->ShowModal();
  Show();     
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuEmployeeManClick(TObject *Sender)
{
  Hide();
  FormEmployeeMan->ShowModal();
  Show();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuReLoginClick(TObject *Sender)
{
  Menu_M->Visible=true;
  Menu_R->Visible=true;
  Menu_O->Visible=true;
  Hide();
  FormLogin->EditID->Text="";
  FormLogin->EditPass->Text="";
  FormLogin->Show();
  FormLogin->EditID->SetFocus();
}
//---------------------------------------------------------------------------


void __fastcall TFormMain::MenuEmployeeStatClick(TObject *Sender)
{
  Hide();
  QRFormEmployee->QuickRep1->Preview();
  Show();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuDishStatClick(TObject *Sender)
{
  Hide();
  QRFormOrdered->QuickRep1->Preview();
  Show();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuBusinessStatClick(TObject *Sender)
{
  Hide();
  QRFormPay->QuickRep1->Preview();
  Show();
}
//---------------------------------------------------------------------------


void __fastcall TFormMain::MenuAboutClick(TObject *Sender)
{
  FormAbout->ShowModal();        
}
//---------------------------------------------------------------------------


void __fastcall TFormMain::MenuCalendarClick(TObject *Sender)
{
  FormCalendar->ShowModal();        
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::MenuCaculaterClick(TObject *Sender)
{
  ShellExecute(Handle,"open","calc.exe",NULL,NULL,SW_SHOWNORMAL);        
}
//---------------------------------------------------------------------------