dmunit.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "DMUnit.h"
#include "global.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Wwdatsrc"
#pragma resource "*.dfm"
TDM *DM;
String constr,FactorDB,PfDB;
//---------------------------------------------------------------------------
__fastcall TDM::TDM(TComponent* Owner)
	: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDM::DataModuleCreate(TObject *Sender)
{
		int ri;
		TIniFile *ini = new TIniFile(ExtractFilePath(Application->ExeName)+"Factor.cfg");

		ri  = ini->ReadBool("SYSTEMDB","Config",0);
		if(ri == 1)
		{
				FactorDB = ini->ReadString("SystemDB","FactorDB","");
				PfDB = ini->ReadString("SystemDB","PfDB","");
		}
		else
		{
				FactorDB = ExtractFilePath(Application->ExeName)+"DB\\Factor.GDB";
				PfDB = ExtractFilePath(Application->ExeName)+"DB\\16PF.GDB";
		}
		SysDB = FactorDB;
		conFactor();
        con16Pf();


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

void TDM::OpenDB()
{
		//TODO: Add your source code here

      tbl_Operator->Open();
	  tbl_Question->Open();
}

void TDM::conFactor()
{
	//TODO: Add your source code here



		constr  = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=";
		constr = constr + FactorDB;
		constr = constr + ";Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=13077753525;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=13077753525;Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False ";

	 //	ShowMessage(constr);

		try
		{
			 conn->Connected  =  false;
			 conn->ConnectionString  = constr;
			 conn->Connected  =  true;


				//打开数据表
				OpenDB();

		  //	ShowMessage("打开成功");

		}
		catch(Exception  &E)
		{
			 String  e  = "错误：" +  E.ClassName();
			 e = e + "   请检查数据库！！！";
			 Application->MessageBoxA(e.c_str(),"连接指定数据库失败！",MB_OK);
			 Application->Terminate();
		}



}

void TDM::con16Pf()
{
	//TODO: Add your source code here
		constr  = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=";
		constr = constr + PfDB;
		constr = constr + ";Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False ";

	 //	ShowMessage(constr);

		try
		{
			 conc->Connected  =  false;
			 conc->ConnectionString  = constr;
			 conc->Connected  =  true;

			 //打开数据表
				OpenDB();

			 //	ShowMessage("打开成功");

		}
		catch(Exception  &E)
		{
			 String  e  = "错误：" +  E.ClassName();
			 e = e + "   请检查数据库！！！";
			 Application->MessageBoxA(e.c_str(),"连接指定数据库失败！",MB_OK);
			 Application->Terminate();
		}
}

int TDM::qry_factor_model(AnsiString sqltext,TADOConnection *con,AnsiString cid)
{
	//TODO: Add your source code here
	int rcid;

	if(qry_public->Active) qry_public->Close();
	qry_public->Connection = conn;
	qry_public->SQL->Clear();
	qry_public->SQL->Add(sqltext);
	qry_public->Open();

	if(	qry_public->RecordCount > 0)
	{
		rcid = qry_public->FieldByName(cid)->AsInteger;
	}
	else
	{
		rcid = 0;
	}

	return rcid;

}

void TDM::runsql()
{
	//TODO: Add your source code here
}