ydgl_c.cpp

营业用电管理系统(网络版)是本公司推出的新一代软件产品

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

#include <vcl.h>
#pragma hdrstop
#include "YHDL.h"
//#include "YDrzbb.h"
#include "YDyyyd.h"

USERES("YDgl_c.res");
USEFORM("YDmain.cpp", Fmain);
USEFORM("Ydlyb.cpp", Flyb);
USEFORM("YHDL.cpp", CLogin);
USEFORM("YDdatam.cpp", YDData); /* TDataModule: File Type */
USEFORM("YDxlcs.cpp", Fxlcs);
USEFORM("YDczygl.cpp", Fczygl);
USEFORM("YDxgmm.cpp", Fxgmm);
USEFORM("YDczrz.cpp", Fczrz);
USEFORM("YDrzbb.cpp", Fpczrz);
USEFORM("YDRZSX.cpp", Frzsx);
USEFORM("YDver.cpp", Fver);
USEFORM("YDdmsz.cpp", Fpqdm);
USEFORM("YDdydj.cpp", Fdydj);
USEFORM("YDbyqcs.cpp", Fbyqcs);
USEFORM("YDxtcs.cpp", Fxtcs);
USEFORM("YDhydm.cpp", Fhydm);
USEFORM("YDjjxm.cpp", Fjjxm);
USEFORM("YDmldj.cpp", Fmldj);
USEFORM("YDyyyd.cpp", Fyyyd);
USEFORM("YDxlxz.cpp", Fxlxz);
USEFORM("YDhyxz.cpp", Fhyxz);
USEFORM("YDpqxz.cpp", Fpqxz);
USEFORM("YDdbcs.cpp", Fdbcs);
USEFORM("YDhsdw.cpp", Fhsdw);
USEFORM("YDsjbf.cpp", Fsjbf);
USEFORM("YDgds.cpp", Fgds);
USEFORM("YDywsl.cpp", Fywsl);
USEFORM("YDYHCZ.cpp", Fyhcz);
USEFORM("YDhjtj_d.cpp", Fhjtj_d);
USEFORM("YDfjbl.cpp", Ffjbl);
USEFORM("YDfjfjj.cpp", Ffjfjj);
USEFORM("YDfjfxz.cpp", Ffjfxz);
USEFORM("YDhntj_d.cpp", Fhntj_d);
USEFORM("YDfdbl.cpp", Ffdbl);
USEFORM("DFJS.cpp", Fdfjs);
USEFORM("YDsgcb.cpp", Fsgcb);
USEFORM("YDdytzd.cpp", Fdytzd);
USEFORM("YDjstj.cpp", Fdydfjstj);
USEFORM("YDdftzd.cpp", Fdftzd);
USEFORM("YDfl.cpp", Fydfl);
USEFORM("YDdydfjsqd.cpp", Fdydfjsqd);
USEFORM("YDCBYSZ.cpp", Fcbysz);
USEFORM("YDdfjsqd.cpp", Fdfjsqd);
USEFORM("YDdydljsqd.cpp", Fdydljsqd);
USEFORM("DFSF.cpp", Fdfsf);
USEFORM("YDdffp.cpp", Fdffp);
USEFORM("YDhsrltj.cpp", Fhsrltj);
USEFORM("YDdyyhda.cpp", Fdyyhda);
USEFORM("YDyhhmc.cpp", Fyhhmc);
USEFORM("YDyhhmcdy.cpp", Fyhhmcdy);
USEFORM("YDymjz.cpp", Fymjz);
USEFORM("YDSJQF.cpp", Fsjqf);
USEFORM("YDqffp.cpp", Fqffp);
USEFORM("YDqfll.cpp", Fqfll);
USEFORM("YDqfqddy.cpp", Fqfqddy);
USEFORM("YDsfqktj.cpp", Fsfqktj);
USEFORM("YDdysftj.cpp", Fdysftj);
USEFORM("YDxstj.cpp", Fdyxstj);
USEFORM("YDxstjdy.cpp", Fxstjdy);
USEFORM("YDfltj.cpp", Fydfltj);
USEFORM("YDfltjdy.cpp", Ffltjdy);
USEFORM("YDhyflbb.cpp", Fhyflbb);
USEFORM("YDdldffx.cpp", Fdldffx);
USEFORM("YDdldffxdy.cpp", Fdldffxdy);
USEFORM("YDcbjgl.cpp", Fcbjgl);
USEFORM("YDdljs.cpp", Fdljs);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
           Application->Initialize();
           AnsiString aPath = ExtractFilePath(Application->ExeName)+"HELP\\Help.hlp";
           Application->HelpFile =aPath;
           Application->CreateForm(__classid(TYDData), &YDData);
           CLogin=new TCLogin(CLogin);
           CLogin->ShowModal();
           CLogin->Update();
           Fyyyd=new TFyyyd(Fyyyd);
          // Fpczrz=new TFpczrz(Fpczrz);
          // FPreview=new TFPreview(FPreview);
           if (CLogin->dlok==1)
               {
                 Fyyyd->ShowModal();
                 Application->CreateForm(__classid(TFmain), &Fmain);
                 Application->Run();
                }
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;


}
//---------------------------------------------------------------------------
/*

        try
        {
           Application->Initialize();
           AnsiString aPath = ExtractFilePath(Application->ExeName)+"HELP\\Help.hlp";
           Application->HelpFile =aPath;
           Application->CreateForm(__classid(TYDData), &YDData);
           CLogin=new TCLogin(CLogin);
           CLogin->ShowModal();
           CLogin->Update();
           Fyyyd=new TFyyyd(Fyyyd);
           Fpczrz=new TFpczrz(Fpczrz);
           FPreview=new TFPreview(FPreview);
           if (CLogin->dlok==1)
               {
               Fyyyd->ShowModal();
                 Application->CreateForm(__classid(TFmain), &Fmain);
                 Application->Run();
                }
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;

*/