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

#include <vcl.h>
#pragma hdrstop
USEFORM("Main.cpp", fmMain);
USEFORM("Parent.cpp", fmParent);
USEFORM("db.cpp", DataModule1); /* TDataModule: File Type */
USEFORM("readertype.cpp", fmReaderType);
USEFORM("ReaderInfo.cpp", fmReaderInfo);
USEFORM("BookType.cpp", fmBookType);
USEFORM("BookInfo.cpp", fmBookInfo);
USEFORM("BookOrder.cpp", fmBookOrder);
USEFORM("SelectBook.cpp", fmSelectBook);
USEFORM("SelectReader.cpp", fmSelectReader);
USEFORM("BookBorrow.cpp", fmBookBorrow);
USEFORM("BookReturn.cpp", fmBookReturn);
USEFORM("BookDue.cpp", fmBookDue);
USEFORM("BookFine.cpp", fmBookFine);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
         Application->Initialize();
         Application->Title = "財務管理系統";
         Application->CreateForm(__classid(TfmMain), &fmMain);
         Application->CreateForm(__classid(TDataModule1), &DataModule1);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    return 0;
}
//---------------------------------------------------------------------------