Ssn_Print.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "SSN_Print.h"

#include "AcsessToEl.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TfrmSSN_Print *frmSSN_Print;

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

__fastcall TfrmSSN_Print::TfrmSSN_Print(TComponent* Owner)

: TForm(Owner)

{

}

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

Bu_mod.Cpp

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

#include <vcl.h>

#pragma hdrstop

USEFORM("Menu.cpp", Menu_SSN);

USEFORM("AcsessToEl.cpp", CompUnit); /* TDataModule: File Type */

USEFORM("PS.cpp", ps_SSN);

USEFORM("SelectPS.cpp", SelectPS_SSN);

USEFORM("VA.cpp", va_SSN);

USEFORM("SelectVA.cpp", SelectVA_SSN);

USEFORM("TXO.cpp", txo_SSN);

USEFORM("CD_SNASTR.cpp", cd_snastr_SSN);

USEFORM("SelectCD_SNASTR.cpp", Select_cd_snastr_SSN);

USEFORM("KD.cpp", kd_SSN);

USEFORM("SelectKD.cpp", SelectKD_SSN);

USEFORM("SelectTXO.cpp", SelectTXO_SSN);

USEFORM("CD_SDATAT.cpp", cd_sdatat_SSN);

USEFORM("CD_SINT.cpp", cd_sint_SSN);

USEFORM("PD.cpp", pd_SSN);

USEFORM("SelectPD.cpp", SelectPD_SSN);

USEFORM("KS.cpp", ks_SSN);

USEFORM("SelectKS.cpp", SelectKS_SSN);

USEFORM("RJ.cpp", rj_SSN);

USEFORM("SelectRJ.cpp", SelectRJ_SSN);

USEFORM("SSN_Print.cpp", frmSSN_Print);

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

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TMenu_SSN), &Menu_SSN);

Application->CreateForm(__classid(TCompUnit), &CompUnit);

Application->CreateForm(__classid(Tps_SSN), &ps_SSN);

Application->CreateForm(__classid(TSelectPS_SSN), &SelectPS_SSN);

Application->CreateForm(__classid(Tva_SSN), &va_SSN);

Application->CreateForm(__classid(TSelectVA_SSN), &SelectVA_SSN);

Application->CreateForm(__classid(Ttxo_SSN), &txo_SSN);

Application->CreateForm(__classid(Tcd_snastr_SSN), &cd_snastr_SSN);

Application->CreateForm(__classid(TSelect_cd_snastr_SSN), &Select_cd_snastr_SSN);

Application->CreateForm(__classid(Tkd_SSN), &kd_SSN);

Application->CreateForm(__classid(TSelectKD_SSN), &SelectKD_SSN);

Application->CreateForm(__classid(TSelectTXO_SSN), &SelectTXO_SSN);

Application->CreateForm(__classid(Tcd_sdatat_SSN), &cd_sdatat_SSN);

Application->CreateForm(__classid(Tcd_sint_SSN), &cd_sint_SSN);

Application->CreateForm(__classid(Tpd_SSN), &pd_SSN);

Application->CreateForm(__classid(TSelectPD_SSN), &SelectPD_SSN);

Application->CreateForm(__classid(Tks_SSN), &ks_SSN);

Application->CreateForm(__classid(TSelectKS_SSN), &SelectKS_SSN);

Application->CreateForm(__classid(Trj_SSN), &rj_SSN);

Application->CreateForm(__classid(TSelectRJ_SSN), &SelectRJ_SSN);

Application->CreateForm(__classid(TfrmSSN_Print), &frmSSN_Print);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

return 0;

}

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