wcliceunit.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "WCliceUnit.h"
#include "DMUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DBGridEh"
#pragma link "GridsEh"
#pragma link "RzPanel"
#pragma link "RzDBNav"
#pragma link "Wwdatsrc"
#pragma link "RzTabs"
#pragma resource "*.dfm"
Tfrm_wclice *frm_wclice;
AnsiString sqltxt,tt,cf,cq,cname;

//---------------------------------------------------------------------------
__fastcall Tfrm_wclice::Tfrm_wclice(TComponent* Owner)
	: TForm(Owner)
{
	rztbshtTabSheet1->TabVisible = false;
	rztbshtTabSheet2->TabVisible = false;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_wclice::FormShow(TObject *Sender)
{
	tbl_public->Active = true;	
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_wclice::tbl_publicBeforeDelete(TDataSet *DataSet)
{

	tt = "您是否确认将 " + cname + " 删除";
	if (Application->MessageBox(tt.c_str(),Application->Title.c_str(), MB_YESNO + MB_ICONSTOP + MB_TOPMOST) ==IDYES)
	{
		try
		{
			sqltxt = "DROP TABLE " + cf;
			DM->qry_public->Close();
			DM->qry_public->Connection = DM->conc;
			DM->qry_public->SQL->Clear();
			DM->qry_public->SQL->Add(sqltxt);
			DM->qry_public->ExecSQL();

			sqltxt = "DROP TABLE " + cq;
			DM->qry_public->Close();
			DM->qry_public->Connection = DM->conc;
			DM->qry_public->SQL->Clear();
			DM->qry_public->SQL->Add(sqltxt);
			DM->qry_public->ExecSQL();

		}
		catch(...)
		{
			Application->MessageBox("系统错误，删除测试用户数据异常，请联系管理员。",
	Application->Title.c_str(), MB_OK + MB_ICONSTOP + MB_TOPMOST);

		}

	}


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

void __fastcall Tfrm_wclice::tbl_publicAfterDelete(TDataSet *DataSet)
{

		tt = "已成功删除 " + cname;
		Application->MessageBox(tt.c_str(), Application->Title.c_str(),
	MB_OK + MB_ICONWARNING + MB_TOPMOST);

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

void __fastcall Tfrm_wclice::dbgrdh1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
		cf = tbl_public->FieldByName("CFactor")->AsString;
		cq = tbl_public->FieldByName("CQuestion")->AsString;
		cname = tbl_public->FieldByName("姓名")->AsString;
}
//---------------------------------------------------------------------------