caiwu.~cpp

来自「全面剖析财务管理的内容」· ~CPP 代码 · 共 34 行

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

#include <vcl.h>
#pragma hdrstop
USEFORM("Main.cpp", fmMain);
USEFORM("db.cpp", DataModule1); /* TDataModule: File Type */
USEFORM("Parent.cpp", fmParent);
USEFORM("kemu.cpp", fmKeMu);
USEFORM("zhanghu.cpp", fmZhangHu);
USEFORM("pingheng.cpp", fmPingheng);
USEFORM("pingzheng.cpp", fmPingZheng);
USEFORM("totalzb.cpp", fmTotalZB);
USEFORM("detailzb.cpp", fmDetailZB);
USEFORM("reprotzich.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
         Application->Initialize();
         Application->Title = "财务管理系统";
         Application->CreateForm(__classid(TfmMain), &fmMain);
         Application->CreateForm(__classid(TDataModule1), &DataModule1);
         Application->CreateForm(__classid(TForm1), &Form1);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    return 0;
}
//---------------------------------------------------------------------------