mainform.~cpp

该源代码是一个关于电力设备和电力行业操作管理的管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
#include "DataMod.h"
#include "PersonForm.h"
#include "ZhiDuForm.h"
#include "TaiZForm.h"
#include "Taiz_drqForm.h"
#include "Taiz_dkqForm.h"
#include "yhzbTZForm.h"
#include "yhdrqTZForm.h"
#include "yhdkqTZForm.h"
#include "yhxbtaizForm.h"
#include "yhxbyzlForm.h"
#include "xbtjzlForm.h"
#include "StationTuZForm.h"
#include "makerForm.h"
#include "yhxbyxzForm.h"
#include "yhtzzlForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainFrm *MainFrm;
//---------------------------------------------------------------------------
__fastcall TMainFrm::TMainFrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainFrm::Menu1_PersonClick(TObject *Sender)
{
      try
      {
           PersonFrm = new TPersonFrm(Application);
           PersonFrm->ShowModal();
      }
      __finally
      {
           delete PersonFrm;
      }
}
//---------------------------------------------------------------------------
void __fastcall TMainFrm::FormClose(TObject *Sender, TCloseAction &Action)
{
     if(Datam->Database1->Connected)  Datam->Database1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::FormShow(TObject *Sender)
{
/*
    try
    {

        Application->CreateForm(__classid(TDatam), &Datam);
    }
    catch(Exception &exception)
    {
        //Application->ShowException(&exception);
        //MessageBox(0,"连接SQL Server数据库失败！","警告",MB_ICONWARNING);
    }
*/
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::Menu1_RegClick(TObject *Sender)
{
      try
      {
           zhiduFrm = new TzhiduFrm(Application);
           zhiduFrm->ShowModal();
      }
      __finally
      {
           delete zhiduFrm;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::Station_ZhuClick(TObject *Sender)
{
      try
      {
           TaiZFrm = new TTaiZFrm(Application);
           TaiZFrm->ShowModal();
      }
      __finally
      {
           delete TaiZFrm;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::S_DianRClick(TObject *Sender)
{
      try
      {
           drqTaizFrm = new TdrqTaizFrm(Application);
           drqTaizFrm->ShowModal();
      }
      __finally
      {
           delete drqTaizFrm;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::S_DianKClick(TObject *Sender)
{
      try
      {
           TaizdkqFrm = new TTaizdkqFrm(Application);
           TaizdkqFrm->ShowModal();
      }
      __finally
      {
           delete TaizdkqFrm;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N1Click(TObject *Sender)
{
      try
      {
           yhzbFrm = new TyhzbFrm(Application);
           yhzbFrm->ShowModal();
      }
      __finally
      {
           delete yhzbFrm;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N2Click(TObject *Sender)
{
      try
      {
           yhdrqFrm = new TyhdrqFrm(Application);
           yhdrqFrm->ShowModal();
      }
      __finally
      {
           delete yhdrqFrm;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N3Click(TObject *Sender)
{
      try
      {
           yhdkqtaizFrm = new TyhdkqtaizFrm(Application);
           yhdkqtaizFrm->ShowModal();
      }
      __finally
      {
           delete yhdkqtaizFrm;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::Xiebo1Click(TObject *Sender)
{
      try
      {
           yhxbtaiz = new Tyhxbtaiz(Application);
           yhxbtaiz->ShowModal();
      }
      __finally
      {
           delete yhxbtaiz;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N4Click(TObject *Sender)
{
      try
      {
           yhxbyzl = new Tyhxbyzl(Application);
           yhxbyzl->ShowModal();
      }
      __finally
      {
           delete yhxbyzl;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N6Click(TObject *Sender)
{
      try
      {
           xbtjzl = new Txbtjzl(Application);
           xbtjzl->ShowModal();
      }
      __finally
      {
           delete xbtjzl;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N7Click(TObject *Sender)
{
      try
      {
           stationtzgl = new Tstationtzgl(Application);
           stationtzgl->ShowModal();
      }
      __finally
      {
           delete stationtzgl;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::Menu1_factClick(TObject *Sender)
{
      try
      {
           maker = new Tmaker(Application);
           maker->ShowModal();
      }
      __finally
      {
           delete maker;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::Menu_ExitClick(TObject *Sender)
{
     Close();        
}
//---------------------------------------------------------------------------


void __fastcall TMainFrm::FormCreate(TObject *Sender)
{
     Application->OnException = AppLevelExceptionHandler;        
}
//---------------------------------------------------------------------------
//全局错误处理函数   AppLevelExceptionHandler
//写文件 CSELog.txt

void __fastcall TMainFrm::AppLevelExceptionHandler(TObject *Sender,Exception *E)
{
    //
    int iFileHandle,iFileLength;

    try
    {
        String sMsg,sFilePathName;
        char *pszBuffer;

        sFilePathName=ExtractFilePath(Application->ExeName)+"Messager.txt";

        sMsg="";
        
        if(FileExists(sFilePathName))
        {
            try
            {
                iFileHandle = FileOpen(sFilePathName,fmOpenRead);
                iFileLength = FileSeek(iFileHandle,0,2);
                FileSeek(iFileHandle,0,0);

                pszBuffer = new char[iFileLength+1];
                memset(pszBuffer,'\0',iFileLength+1);
                FileRead(iFileHandle, pszBuffer, iFileLength);

                sMsg=pszBuffer;
            }
            __finally
            {
                try
                {
                    FileClose(iFileHandle);
                    delete []pszBuffer;
                }
                catch(...)
                {
                    ;
                }
            }
            
        }
        iFileHandle = FileCreate(sFilePathName);
        sMsg += "DateTime : "+Date().DateString()+" "+Time().TimeString()+ "\r\n";
        sMsg += "ClassName: "+E->ClassName()+ "\r\n";
        sMsg += "Message  : "+E->Message+ "\r\n";
        sMsg += "-------------------------------------------------------\r\n";

        FileWrite(iFileHandle,sMsg.c_str(), sMsg.Length());

        
    }
    __finally
    {
        try
        {
            FileClose(iFileHandle);
        }
        catch(...)
        {;}
    }


}
void __fastcall TMainFrm::N5Click(TObject *Sender)
{
      try
      {
           yhxbyxz = new Tyhxbyxz(Application);
           yhxbyxz->ShowModal();
      }
      __finally
      {
           delete yhxbyxz;
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N8Click(TObject *Sender)
{
      try
      {
           yhtzzl = new Tyhtzzl(Application);
           yhtzzl->ShowModal();
      }
      __finally
      {
           delete yhtzzl;
      }
}
//---------------------------------------------------------------------------