as.cpp

来自「超市配货中心进销存源码 超市配货中心进销存源码」· C++ 代码 · 共 65 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("as.res");
USEFORM("uas.cpp", FMain);
USEFORM("udata.cpp", dsData);
USEFORM("UInto.cpp", qrfInto);
USEFORM("uKH.cpp", fKH);
USEFORM("UDa.cpp", fDA);
USEFORM("uqrfOut.cpp", qrfOut);
USEFORM("UDM.cpp", DM);
USEFORM("UqrBH.cpp", qrlfBH);
USEFORM("UqrKC.cpp", qrlfKC);
USEFORM("ULKDA.cpp", qrlfLKda);
USEFORM("uCKDa.cpp", qrlfCKda);
USEFORM("UMenu.cpp", fMenu);
USEFORM("ULKdaNext.cpp", fLKda);
USEFORM("uCKdaNext.cpp", fCKda);
USEFORM("Splash.cpp", SplashForm);
USEFORM("UFind.cpp", fFind);
USEFORM("Upass.cpp", fPass);
USEFORM("UPreview.cpp", MyPreview);
USEFORM("UOUTFACE.cpp", OutFace);
//---------------------------------------------------------------------------
#include "splash.h"
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 SplashForm = new TSplashForm(Application);
                 SplashForm->Show();
                 SplashForm->Update();
                 Application->Initialize();
                 Application->Title = "安盛仓库管理系统";
                 Application->CreateForm(__classid(TFMain), &FMain);
                 Application->CreateForm(__classid(TdsData), &dsData);
                 Application->CreateForm(__classid(TqrfInto), &qrfInto);
                 Application->CreateForm(__classid(TfKH), &fKH);
                 Application->CreateForm(__classid(TfDA), &fDA);
                 Application->CreateForm(__classid(TqrfOut), &qrfOut);
                 Application->CreateForm(__classid(TDM), &DM);
                 Application->CreateForm(__classid(TqrlfBH), &qrlfBH);
                 Application->CreateForm(__classid(TqrlfKC), &qrlfKC);
                 Application->CreateForm(__classid(TqrlfLKda), &qrlfLKda);
                 Application->CreateForm(__classid(TqrlfCKda), &qrlfCKda);
                 Application->CreateForm(__classid(TfMenu), &fMenu);
                 Application->CreateForm(__classid(TfLKda), &fLKda);
                 Application->CreateForm(__classid(TfCKda), &fCKda);
                 Application->CreateForm(__classid(TfFind), &fFind);
                 Application->CreateForm(__classid(TfPass), &fPass);
                 Application->CreateForm(__classid(TMyPreview), &MyPreview);
                 Application->CreateForm(__classid(TOutFace), &OutFace);
                 SplashForm->Hide();
                 SplashForm->Close();
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------