adminunit.cpp

16人格测试 16人格测试 16人格测试 16人格测试

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

#include <vcl.h>
#pragma hdrstop

#include "AdminUnit.h"
#include "global.h"
#include "DMUnit.h"
#include "TK16PFUnit.h"
#include "AssistUnit.h"
#include "SCliceUnit.h"
#include "WCliceUnit.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "XPMenu"
#pragma link "RzPanel"
#pragma link "RzStatus"
#pragma link "RzDBStat"
#pragma resource "*.dfm"
Tfrm_admin *frm_admin;
Tfrm_assist* frm_assist;

//---------------------------------------------------------------------------
__fastcall Tfrm_admin::Tfrm_admin(TComponent* Owner)
	: TForm(Owner)
{

	ActiveChild=0;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_admin::N10Click(TObject *Sender)
{
	Application->Terminate();
}
//---------------------------------------------------------------------------

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


void __fastcall Tfrm_admin::N16PF1Click(TObject *Sender)
{
	   if(ActiveChild)
				delete ActiveChild;

		Tfrm_16PF * frm_16PF = new Tfrm_16PF(this);
			ActiveChild = frm_16PF;
		frm_16PF->Show();
	 //	frm_16PF->ShowModal();
	 //	delete frm_16PF;

}
//---------------------------------------------------------------------------

void __fastcall Tfrm_admin::N14Click(TObject *Sender)
{
	if(!frm_assist)
		frm_assist = new Tfrm_assist(this);
	frm_assist->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_admin::N16PF3Click(TObject *Sender)
{
	   if(ActiveChild)
				delete ActiveChild;

		Tfrm_sclice * frm_sclice = new Tfrm_sclice(this);
			ActiveChild = frm_sclice;
		frm_sclice->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_admin::N17Click(TObject *Sender)
{
	Tfrm_wclice *frm_wclice = new Tfrm_wclice(this);
	frm_wclice->rzpgcntrl1->ActivePageIndex = 0;
	frm_wclice->tbl_public->Active = false;
	frm_wclice->tbl_public->TableName = "Client";

	frm_wclice->ShowModal();
	delete frm_wclice;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_admin::FormShow(TObject *Sender)
{
	rzstspn1->Caption = "当前管理员：" + AUser;
	rzstspn2->Caption = "当前数据：" + SysDB;
	rzvrsnf1->FilePath = Application->ExeName;


}
//---------------------------------------------------------------------------


void __fastcall Tfrm_admin::N18Click(TObject *Sender)
{
	Tfrm_wclice *frm_wclice = new Tfrm_wclice(this);
	frm_wclice->rzpgcntrl1->ActivePageIndex = 1;
	frm_wclice->tbl_public->Active = false;
	frm_wclice->tbl_public->TableName = "AssistTB";

	frm_wclice->ShowModal();
	delete frm_wclice;	

}
//---------------------------------------------------------------------------