initsys.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "InitSys.h"
#include "gvar.h"
#include "commfunction.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma resource "*.dfm"
TfrmInitSys *frmInitSys;
//---------------------------------------------------------------------------
__fastcall TfrmInitSys::TfrmInitSys(TComponent* Owner)
  : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmInitSys::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  this->Visible=false;
  Application->ProcessMessages();
  g_ClientComm->DelMsgForm(this->Name);
  Action=caFree;  
}
//---------------------------------------------------------------------------
void __fastcall TfrmInitSys::bbCancelClick(TObject *Sender)
{
  Close();  
}
//---------------------------------------------------------------------------
void __fastcall TfrmInitSys::bbOKClick(TObject *Sender)
{
  int ErrNum;
  if(Application->MessageBox("确认要初始化系统吗?","确认对话" ,MB_ICONQUESTION+MB_YESNO)==IDNO)
  {
    Close();
    return;
  }
  TComResultSet *RsInit=NewResultSet();
  StartWaitForm("正在初始化系统,请稍候...");
  try
  {
    RsInit->Execute(WideString("sderp_init"));
  }
  catch(Exception &e)
  {
    EndWaitForm();
    delete RsInit;
    ShowMessage("系统初始化失败!错误:"+e.Message);
    Close();
    return;
  }
  EndWaitForm();
  ShowMessage("系统初始化完成!");
  delete RsInit;
  Close();
}
//---------------------------------------------------------------------------