unit2.cpp

员工管理系统 功能还算齐全,主要用于一般的小型公司

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFwelcome *Fwelcome;
int logintime=15;    //进入系统等待时间X秒
//---------------------------------------------------------------------------
__fastcall TFwelcome::TFwelcome(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFwelcome::Timer1Timer(TObject *Sender)
{
 if(logintime==0){
                        Timer1->Enabled=false;
                        Close();
                        }
logintime--;
SpeedButton1->Caption ="进入("+IntToStr(logintime)+")";
}
//---------------------------------------------------------------------------


void __fastcall TFwelcome::SpeedButton2Click(TObject *Sender)
{
Application->Terminate() ;
}
//---------------------------------------------------------------------------

void __fastcall TFwelcome::SpeedButton1Click(TObject *Sender)
{
logintime=15;
Timer1->Enabled=false;
Close();
}
//---------------------------------------------------------------------------