storage.cpp

库存管理系统源码

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

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("login.cpp", mainform);
USEFORM("datamodul.cpp", DataModule1); /* TDataModule: File Type */
USEFORM("yuangong.cpp", frm_yg);
USEFORM("warehouse.cpp", frm_cangk);
USEFORM("admin.cpp", frm_admin);
USEFORM("rukudan.cpp", frm_ruku);
USEFORM("chukudan.cpp", frm_chuku);
USEFORM("tihuodan.cpp", frm_tihuo);
USEFORM("th_edit.cpp", frm_th_edit);
USEFORM("fentidengji.cpp", frm_fentihuo);
USEFORM("gonghuoshang.cpp", frm_ghs);
USEFORM("huopin.cpp", frm_huopin);
USEFORM("utChangePass.cpp", fmChangePass);
USEFORM("utLogin.cpp", fmLogin);
USEFORM("utAdmin.cpp", fmAdmin);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(Tmainform), &mainform);
         Application->CreateForm(__classid(TDataModule1), &DataModule1);
         Application->CreateForm(__classid(Tfrm_yg), &frm_yg);
         Application->CreateForm(__classid(Tfrm_cangk), &frm_cangk);
         Application->CreateForm(__classid(Tfrm_admin), &frm_admin);
         Application->CreateForm(__classid(Tfrm_ruku), &frm_ruku);
         Application->CreateForm(__classid(Tfrm_chuku), &frm_chuku);
         Application->CreateForm(__classid(Tfrm_tihuo), &frm_tihuo);
         Application->CreateForm(__classid(Tfrm_th_edit), &frm_th_edit);
         Application->CreateForm(__classid(Tfrm_fentihuo), &frm_fentihuo);
         Application->CreateForm(__classid(Tfrm_ghs), &frm_ghs);
         Application->CreateForm(__classid(Tfrm_huopin), &frm_huopin);
         Application->CreateForm(__classid(TfmChangePass), &fmChangePass);
         Application->CreateForm(__classid(TfmLogin), &fmLogin);
         Application->CreateForm(__classid(TfmAdmin), &fmAdmin);
         Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------