mainunit.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
#include "LoginUnit.h"
#include "CliceUnit.h"
#include "DMUnit.h"
#include "CountUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzPanel"
#pragma link "RzLabel"
#pragma link "bsSkinCtrls"
#pragma link "ChnCalendar"
#pragma link "RzCmboBx"
#pragma link "RzEdit"
#pragma link "RzBckgnd"
#pragma link "RzCommon"
#pragma resource "*.dfm"
Tfrm_client *frm_client;
//---------------------------------------------------------------------------
__fastcall Tfrm_client::Tfrm_client(TComponent* Owner)
	: TForm(Owner)
{

		Cleardata();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_client::RzPanel2MouseDown(TObject *Sender,
	  TMouseButton Button, TShiftState Shift, int X, int Y)
{
	Refresh();
	if(Button == mbLeft)
	{
		ReleaseCapture();
		Perform(WM_SYSCOMMAND, 0xF017, 0);
	}
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_client::bsSkinButtonLabel2Click(TObject *Sender)
{
	this->Close();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_client::RzURLLabel1Click(TObject *Sender)
{
	this->Hide();

	TLoginForm *LoginForm = new TLoginForm(this);
	  LoginForm->ShowModal();
	delete LoginForm;

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

void __fastcall Tfrm_client::bsSkinButtonLabel1Click(TObject *Sender)
{

	if(RzEdit1->Text.IsEmpty() ||RzNumericEdit1->Text == "0")
	{
		Application->MessageBox("注意：蓝色字样的内容必需详细填明。请检查资料是否输入齐全～～～",	Application->Title.c_str(), MB_OK + MB_ICONSTOP + MB_TOPMOST);
		return;

	}
	else
	{
		lb8->Caption = qry_ModelType();

		creat16pf();
		this->Hide();
		Tfrm_cliceQuestion *frm_cliceQuestion = new Tfrm_cliceQuestion(this);
			frm_cliceQuestion->ShowModal();
		delete frm_cliceQuestion;

		Cleardata();
		this->Show();
		RzEdit1->SetFocus();

	}

}
//---------------------------------------------------------------------------
void Tfrm_client::Cleardata()
{
	//TODO: Add your source code here

	ChnCalendar1->DateTime = Date();
	RzEdit1->Text = "";
	RzNumericEdit1->Text = "0";
	RzEdit3->Text = "";

}
void __fastcall Tfrm_client::RzEdit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
	if(Key == 13)
		RzNumericEdit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_client::RzNumericEdit1KeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
		if(Key == 13)
			RzEdit3->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_client::RzEdit3KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
		if(Key == 13)
			bsSkinButtonLabel1->OnClick(this);
}
//---------------------------------------------------------------------------

void Tfrm_client::creat16pf()
{
	//TODO: 生成测试人员数据

	AnsiString sqltxt;

	frm_count->Show();
	frm_count->Update();
	frm_count->upPercent();

	randomize();
	frm_count->upPercent();

	rd = rand();
	frm_count->upPercent();

	cq = RzEdit1->Text + rd + "Question";
	frm_count->upPercent();

	cf = RzEdit1->Text + rd + "CFactor";
	frm_count->upPercent();

	sqltxt = "INSERT INTO Client (RID,姓名,性别,年龄,类型,测试日期,职业,CQuestion,CFactor) VALUES(\""+ rd +"\",\"" + RzEdit1->Text + "\",\""+ RzComboBox1->Text +"\",\""+RzNumericEdit1->Text.Trim()+ "\",\"" + lb8->Caption + "\",\""+ChnCalendar1->DateTime +"\",\"" + RzEdit3->Text.Trim()+"\",\"" + cq +"\",\""+cf+ "\")";
	frm_count->upPercent();

   //	ShowMessage(sqltxt);
	DM->qry_public->Close();
	frm_count->upPercent();

	DM->qry_public->Connection = DM->conn;
	frm_count->upPercent();

	DM->qry_public->SQL->Clear();
	frm_count->upPercent();

	DM->qry_public->SQL->Add(sqltxt);
	frm_count->upPercent();

	DM->qry_public->ExecSQL();
	frm_count->upPercent();

	sqltxt = "INSERT INTO AssistTB (RID,MOduleName) VALUES(\"" + rd + "\",\""+ RzEdit1->Text +"\")";
	frm_count->upPercent();

   //	ShowMessage(sqltxt);
	DM->qry_public->Close();
	frm_count->upPercent();

	DM->qry_public->Connection = DM->conn;
	frm_count->upPercent();

	DM->qry_public->SQL->Clear();
	frm_count->upPercent();

	DM->qry_public->SQL->Add(sqltxt);
	frm_count->upPercent();

	DM->qry_public->ExecSQL();
	frm_count->upPercent();

	sqltxt = "select * into " + cq + " from ClientQuestion";
	frm_count->upPercent();
   //	ShowMessage(sqltxt);
	DM->qry_public->Close();
	frm_count->upPercent();

	DM->qry_public->Connection = DM->conc;
	frm_count->upPercent();

	DM->qry_public->SQL->Clear();
	frm_count->upPercent();

	DM->qry_public->SQL->Add(sqltxt);
	frm_count->upPercent();

	DM->qry_public->ExecSQL();
	frm_count->upPercent();


	sqltxt = "select * into " + cf + " from ClientFactor";
	frm_count->upPercent();
	//	ShowMessage(sqltxt);
	DM->qry_public->Close();
	frm_count->upPercent();

	DM->qry_public->Connection = DM->conc;
	frm_count->upPercent();

	DM->qry_public->SQL->Clear();
	frm_count->upPercent();

	DM->qry_public->SQL->Add(sqltxt);
	frm_count->upPercent();

	DM->qry_public->ExecSQL();
	frm_count->upPercent();

	frm_count->Hide();

}

AnsiString Tfrm_client::qry_ModelType()
{
	//TODO: Add your source code here
		AnsiString tSQL;
		TADOQuery *qrymt = new TADOQuery(this);
		tSQL = "select * from ModelType where ((Class = \"" + RzComboBox2->Text.Trim() + "\") and (Sex = \"" + RzComboBox1->Text.Trim() + "\"))";
	   //	ShowMessage(tSQL);
		try
		{
			qrymt->Close();
			qrymt->Connection = DM->conn;
			qrymt->SQL->Clear();
			qrymt->SQL->Add(tSQL);
			qrymt->Open();
			tSQL = qrymt->FieldByName("code")->AsString;
		}
		catch(...)
		{
			tSQL = "";
			delete  qrymt;
		}
		return tSQL;
}
void __fastcall Tfrm_client::img1Click(TObject *Sender)
{
	Application->MessageBox("讨厌了，乱点我～～～", 
    Application->Title.c_str(), MB_OK + MB_ICONWARNING + MB_TOPMOST);
	
}
//---------------------------------------------------------------------------