tk16pfunit.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "AdminUnit.h"
#include "TK16PFUnit.h"
#include "DMUnit.h"
#include "TK16MXUnit.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzTabs"
#pragma link "DBGridEh"
#pragma link "GridsEh"
#pragma link "RzPanel"
#pragma link "RzTreeVw"
#pragma link "RzButton"
#pragma link "Wwdatsrc"
#pragma resource "*.dfm"
Tfrm_16PF *frm_16PF;
AnsiString sqltxt;

//---------------------------------------------------------------------------
__fastcall Tfrm_16PF::Tfrm_16PF(TComponent* Owner)
	: TForm(Owner)
{
		FactorLoad();
		qryQuestion->Open();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_16PF::CreateParams(TCreateParams& Params)
{
		//TODO: Add your source code here
		TForm::CreateParams(Params);
		//子窗口类型
		Params.Style=WS_CHILD|WS_CLIPSIBLINGS;
		//设置父为主窗体
		Params.WndParent = frm_admin->rzpnl1->Handle;

		Params.X = 1;
		Params.Y = 0;

		if(Width > frm_admin->ClientWidth)
			 frm_admin->ClientWidth= Width ;

		Params.Width = frm_admin->rzpnl1->ClientRect.Right;

		if(Height > (frm_admin->rzstsbr1->Top - frm_admin->rztlbr1->Height))
				frm_admin->rzpnl1->ClientHeight = frm_admin->rztlbr1->Height + frm_admin->rzstsbr1->Height ;

		Params.Height =  frm_admin->rzpnl1->ClientHeight;


}
//---------------------------------------------------------------------------
void __fastcall Tfrm_16PF::FormClose(TObject *Sender, TCloseAction &Action)
{
		frm_admin->ActiveChild = 0;
		Action=caFree;
}
//---------------------------------------------------------------------------


void __fastcall Tfrm_16PF::btnExitBtnClick(TObject *Sender)
{
	this->Close();	
}
//---------------------------------------------------------------------------



void Tfrm_16PF::FactorLoad()
{
	//TODO: Add your source code here

	AnsiString filter,treetxt,sData;
	TTreeNode* pNode[2];
   	TADOQuery* qryins = new TADOQuery(this);
	int mLevel = 1;

	sqltxt = "select * from Factor";

	tv1->Items->Clear();
	pNode[0]=tv1->Items->Add(NULL,"卡特尔16PF因素");

	pNode[0]->StateIndex=0;
	pNode[0]->SelectedIndex=1;

	qryins->Connection = DM->conn;
	qryins->Close();

	try
	{
		qryins->SQL->Clear();
		qryins->SQL->Add(sqltxt);
		qryins->Open();

		while(!qryins->Eof)
		{
			treetxt = qryins->FieldByName("Factor")->AsString + "  " + qryins->FieldByName("低分特征")->AsString + " - " + qryins->FieldByName("高分特征")->AsString;
			sData = qryins->FieldByName("Factor")->AsString;
			pNode[mLevel] = tv1->Items->AddChild(pNode[mLevel-1],treetxt);

		    pNode[mLevel]->StateIndex = 1;
			pNode[mLevel]->SelectedIndex=1;
			qryins->Next();
		}

		pNode[0]->Expand(0);
		tv1->Selected = pNode[0];

	}
	catch(...)
	{
		return ;
	}

	delete qryins;

}
//---------------------------------------------------------------------------
void __fastcall Tfrm_16PF::tv1MouseDown(TObject *Sender,
	  TMouseButton Button, TShiftState Shift, int X, int Y)
{

		AnsiString stxt;

		if(tv1->Selected->Level == 0)
		{
			sqltxt = "select * from Question ";
		}
		else
		{
			stxt = tv1->Selected->Text.SubString(1,3);
			sqltxt = "select * from Question where Factor = \"" + stxt.Trim() + "\"";
		}
//		stxt = (tv1->Selected->Level == 0)? stxt = "" :stxt = tv1->Selected->Text.SubString(1,3);

		qryQuestion->SQL->Clear();
		qryQuestion->SQL->Add(sqltxt);
		qryQuestion->Open();

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

void __fastcall Tfrm_16PF::dbg_qryQuestionDblClick(TObject *Sender)
{
		Tfrm_16mx * frm_16mx = new Tfrm_16mx(this);
			frm_16mx->ShowModal();
		delete frm_16mx;
}
//---------------------------------------------------------------------------