📄 manage_person.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Person.cpp", F_Main);
USEFORM("about.cpp", F_About);
USEFORM("Login.cpp", F_Login);
USEFORM("Info_Input_N.cpp", F_Info_Input);
USEFORM("Register.cpp", F_Register);
USEFORM("Pass_Pope_Modify.cpp", F_PP_Modi);
USEFORM("Person_Info.cpp", F_Info);
USEFORM("Person_Assistant.cpp", F_Assis);
USEFORM("Person_Info_Print.cpp", F_Info_Print);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "企业人事管理软件";
Application->CreateForm(__classid(TF_Main), &F_Main);
Application->CreateForm(__classid(TF_About), &F_About);
Application->CreateForm(__classid(TF_Login), &F_Login);
Application->CreateForm(__classid(TF_Info_Input), &F_Info_Input);
Application->CreateForm(__classid(TF_Register), &F_Register);
Application->CreateForm(__classid(TF_PP_Modi), &F_PP_Modi);
Application->CreateForm(__classid(TF_Info), &F_Info);
Application->CreateForm(__classid(TF_Assis), &F_Assis);
Application->CreateForm(__classid(TF_Info_Print), &F_Info_Print);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -