unit3.cpp

一个小的冰酒公司的销售系统。可以进行数据插入

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAdmin *Admin;
//---------------------------------------------------------------------------
__fastcall TAdmin::TAdmin(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TAdmin::FormPaint(TObject *Sender)
{
  Graphics::TBitmap* pBmp=new Graphics::TBitmap();
  pBmp->LoadFromFile("Admin.bmp");
  TRect MyRect=TRect(0,0,Width,Height);
  Admin->Canvas->StretchDraw(MyRect,pBmp);
  delete pBmp;        
}
//---------------------------------------------------------------------------
void __fastcall TAdmin::FormResize(TObject *Sender)
{
  this->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TAdmin::Button7Click(TObject *Sender)
{
   Account->Show();
}
//---------------------------------------------------------------------------
void __fastcall TAdmin::Button1Click(TObject *Sender)
{
  Staff->Show();        
}
//---------------------------------------------------------------------------

void __fastcall TAdmin::Button2Click(TObject *Sender)
{
   Staff->Show();          
}
//---------------------------------------------------------------------------

void __fastcall TAdmin::Button3Click(TObject *Sender)
{
   Staff->Show();          
}
//---------------------------------------------------------------------------

void __fastcall TAdmin::Button4Click(TObject *Sender)
{
   Staff->Show();          
}
//---------------------------------------------------------------------------

void __fastcall TAdmin::Button5Click(TObject *Sender)
{
  Account->Show();        
}
//---------------------------------------------------------------------------

void __fastcall TAdmin::Button6Click(TObject *Sender)
{
  Account->Show();
}
//---------------------------------------------------------------------------

void __fastcall TAdmin::Button8Click(TObject *Sender)
{
  Account->Show();        
}
//---------------------------------------------------------------------------

void __fastcall TAdmin::Button9Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------







void __fastcall TAdmin::BitBtn1Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------