sis.cpp

学生信息管理系统

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

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainUnit.cpp", Main);
USEFORM("LoginUnit.cpp", SisLogin);
USEFORM("AddStuUnit.cpp", AddStu);
USEFORM("AddStusUnit1.cpp", AddStus1);
USEFORM("AddStusUnit2.cpp", AddStus2);
USEFORM("EditInfoUnit.cpp", EditInfo);
USEFORM("EditMarksUnit.cpp", EditMarks);
USEFORM("AddClsUnit.cpp", AddCls);
USEFORM("EditClsUnit.cpp", EditCls);
USEFORM("CurUserInfoUnit.cpp", CurUserInfo);
USEFORM("CurClsInfoUnit.cpp", CurClsInfo);
USEFORM("SearchUnit.cpp", Search);
USEFORM("AddUserUnit.cpp", AddUser);
USEFORM("DelUserUnit.cpp", DelUser);
USEFORM("ChangePwdUnit.cpp", ChangePwd);
USEFORM("AboutSisUnit.cpp", AboutSis);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
	try
	{
		Application->Initialize();
		Application->Title = "学生信息管理系统";
		Application->CreateForm(__classid(TSisLogin), &SisLogin);
		Application->CreateForm(__classid(TAddStus2), &AddStus2);
		Application->CreateForm(__classid(TMain), &Main);
		Application->CreateForm(__classid(TAddStu), &AddStu);
		Application->CreateForm(__classid(TAddStus1), &AddStus1);
		Application->CreateForm(__classid(TEditInfo), &EditInfo);
		Application->CreateForm(__classid(TEditMarks), &EditMarks);
		Application->CreateForm(__classid(TAddCls), &AddCls);
		Application->CreateForm(__classid(TEditCls), &EditCls);
		Application->CreateForm(__classid(TCurUserInfo), &CurUserInfo);
		Application->CreateForm(__classid(TCurClsInfo), &CurClsInfo);
		Application->CreateForm(__classid(TSearch), &Search);
		Application->CreateForm(__classid(TAddUser), &AddUser);
		Application->CreateForm(__classid(TDelUser), &DelUser);
		Application->CreateForm(__classid(TChangePwd), &ChangePwd);
		Application->CreateForm(__classid(TAboutSis), &AboutSis);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
	catch (...)
	{
		try
		{
			throw Exception("");
		}
		catch (Exception &exception)
		{
			Application->ShowException(&exception);
		}
	}
	return 0;
}
//---------------------------------------------------------------------------