mainform.cpp

这是一个工厂的生产线的仓库管理.有计划,实绩,库存等

#include "stdafx.h"
#include "MainForm.h"
#include "IniLogFile.h"
#include <windows.h>

using namespace FAP;


extern IniFile Ini;
extern LogFile Log;
//extern char *itoa(int i);

int APIENTRY _tWinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPTSTR    lpCmdLine,
                     int       nCmdShow)
{
	HANDLE hMutex;
	hMutex = CreateMutex(NULL, TRUE, "FAP_Program");

	if(!hMutex){
		return FALSE;
	}
	if(GetLastError() == ERROR_ALREADY_EXISTS){
		MessageBox(NULL,_T("初始化错误！！"),"Error",MB_OK);
		return FALSE;
	}
	//Application::EnableVisualStyles();
	System::Threading::Thread::CurrentThread->ApartmentState = System::Threading::ApartmentState::STA;
	Application::Run(new MainForm());
	return 0;
}

void MainForm::closelanguage(int iLang)
{
	Ini.WriteString("FAP", "Language", iLang);
	Ini.WriteString("FAP","MenuType",comboBoxMenuType->SelectedIndex);
}

bool MainForm::InitSystem(void)
{
	int iMenuType;
	char sProcessNo[10];
	char sFactoryNo[10];
	char sLineNo[10];
	int i ;
	char strTmp1[10] ;
	char sProcessNo1[5] ;
	char slanguage[5];
//	char strPRO[10] =L"";

	String *sSQL;

	//Create Instance & Init Value
	DB = new DBBase();
	sFactory = S"";
	sLine = S"";
	sProcess = S"";
	iGroup = 0;
	cShift = S"";	
	//slanguage=S"";

	//sProcessNo1 = S"";

	//Log Open
	Log.Open();
	Log.MsgWrite(2, "Start FAP System");

	//GetIniData
	iMenuType = Ini.GetInt("FAP", "MenuType", 0) % 3;
	iLanguage = Ini.GetInt("FAP", "Language", 0) % 3;
	Ini.GetString("FAP", "ProcessNo", "", sProcessNo, sizeof(sProcessNo));
	Ini.GetString("FAP","Factory","",sFactoryNo,sizeof(sFactoryNo));
	Ini.GetString("FAP","LineNo","",sLineNo,sizeof(sLineNo));
	Ini.GetString("FAP", "LabLanguage", "", slanguage, sizeof(slanguage));

	sFactory =new String(sFactoryNo);
	sProcess =new String(sProcessNo);
	sLine	 =new String(sLineNo);
	slablanguage=new String(slanguage);


	//Get Group
	if(DB->blnCnnOpen() == true){
		dset = new DataSet();
		sSQL = String::Format(S"SELECT TEAM, NAME_J, NAME_C, NAME_E FROM TEAM_MST WHERE PROCESS_NO = '{0}'", Convert::ToString(sProcessNo));
		dset = DB->dSetSQL_Select(sSQL, S"TEAM_MST",1);
		comboBoxGroup->DataSource = dset->Tables->Item[S"TEAM_MST"];
		comboBoxGroup->ValueMember  = S"TEAM";
		ChangeLang(iLanguage);
		
		DB->blnCnnClose();
	}
	else{
		Log.MsgWrite(2, "FAP System Initialize Failed!!");
		/*this->Close();*/
		return false;
	}
//	Initialize Display
	comboBoxMenuType->SelectedIndex	= iMenuType;
	//comboBoxGroup->SelectedIndex	= iGroup;

	//Insert By KasenHOo @ 2005/12/02

	for (i = 1;i<=14;i++){
		char  a[10];
		
		memset(a,0x0,sizeof(a));
		memset(strTmp1,0x0,sizeof(a));

		itoa(i,a,10);

		memcpy(	strTmp1, "PROCESS",10);

		strcat(strTmp1,a);

		Ini.GetString("LOCATION",strTmp1, "", sProcessNo1, sizeof(sProcessNo1));
		
		if (strcmp("",sProcessNo1)==0) {
			break;
		}
		
		cboLocation->Items->Add(Convert::ToString(sProcessNo1) );

	}
	//End By KasenHOo @ 2005/12/02
	
	return true;
}

void MainForm::CloseSystem(void)
{
	// Log Close
	Log.MsgWrite(2, "Stop FAP System");
	Log.Close(1);
}

void MainForm::ChangeLang(int iLang)
{
	switch(iLang){
        case 0:
			comboBoxGroup->DisplayMember = S"NAME_C";
            break;
        case 1:
			comboBoxGroup->DisplayMember = S"NAME_J";
            break;
        default:
			comboBoxGroup->DisplayMember = S"NAME_E";
	}
}

String * MainForm::strcostMstname(String * strcboLocation,int striLanguage,DBBase * dbTmp)
{
	String * strFdName;
	String * strSQL;
	System::Data::DataRow *dRowTmp;
	switch(iLanguage) 
	{
		case 0:
			strFdName=S"NAME_C";
			break;
		case 1:
			strFdName=S"NAME_J";
			break;
		case 2:
			strFdName=S"NAME_E";
			break;
		default:
			strFdName=S"NAME_C";
	}

	strSQL=S" Select ";
	strSQL=String::Concat(strSQL,strFdName,S" from cost_mst where process_no='",strcboLocation,S"'");

	dRowTmp = dbTmp->dRowSQL_Select(strSQL);

		try
		{
			dbTmp->blnCnnClose  ();
		}
		catch (...) {
			
			return S"";
		}

		try
		{
			return Convert::ToString(dRowTmp->Item[strFdName]);
		}
		catch (...) {
			//MessageBox::Show(S"取得工序名称失败!!",S"Deliver");
			return S"";
		}

}