systemconfigsetunit.cpp

指纹门禁机管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "SystemConfigSetUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "BaseInputUnit"
#pragma resource "*.dfm"
TSystemConfigSetFrm *SystemConfigSetFrm;
//---------------------------------------------------------------------------
__fastcall TSystemConfigSetFrm::TSystemConfigSetFrm(TComponent* Owner)
    : TBaseDataInputFrm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSystemConfigSetFrm::SpeedButton1Click(TObject *Sender)
{
   if (cdSelectColor->Execute())
   {
      plWarningEvent->Font->Color = cdSelectColor->Color;
   }
}
//---------------------------------------------------------------------------

void __fastcall TSystemConfigSetFrm::SpeedButton2Click(TObject *Sender)
{
   if (cdSelectColor->Execute())
   {
      plUncloseEvent->Font->Color = cdSelectColor->Color;
   }

}
//---------------------------------------------------------------------------

void __fastcall TSystemConfigSetFrm::SpeedButton3Click(TObject *Sender)
{
   if (cdSelectColor->Execute())
   {
      plDangerEvent->Font->Color = cdSelectColor->Color;
   }
}
//---------------------------------------------------------------------------

void __fastcall TSystemConfigSetFrm::SpeedButton4Click(TObject *Sender)
{
   if (cdSelectColor->Execute())
   {
      plDeviceError->Font->Color = cdSelectColor->Color;
   }

}
//---------------------------------------------------------------------------

void __fastcall TSystemConfigSetFrm::FormCreate(TObject *Sender)
{
  edtMaxCount->OnChange = OnNumOnlyEditChange;
  AnsiString lConfigFile = ExtractFileDir(Application->ExeName)+"\\ConfigFile\\SysConfig.xml";
  pConfigInfoXML = new TConfigInfoXML(lConfigFile);

}
//---------------------------------------------------------------------------

void __fastcall TSystemConfigSetFrm::FormDestroy(TObject *Sender)
{
  delete pConfigInfoXML;
}
//---------------------------------------------------------------------------

void __fastcall TSystemConfigSetFrm::bbtnOKClick(TObject *Sender)
{
    TBaseDataInputFrm::bbtnOKClick(Sender);

    AnsiString lCompanyName = edtCompany->Text.Trim();
    int lMaxCount = edtMaxCount->Text.Trim().ToInt();
    if (lMaxCount<=2 || lMaxCount>=50)
    {
       Application->MessageBoxA("日志显示最大条数应该 大于 2 并且 小于 50","提示信息",MB_OK + MB_ICONWARNING);
       edtMaxCount->SetFocus();
       return;
    }
    if (lCompanyName.IsEmpty())
       memcpy(aSysConfigInfo.CompanyName,"MIAXIS",6);
    else
       memcpy(aSysConfigInfo.CompanyName,lCompanyName.c_str(),lCompanyName.Length());

    aSysConfigInfo.ViewConfig.fvWarningEventColor = (int)plWarningEvent->Font->Color;
    aSysConfigInfo.ViewConfig.fvUncloseEventColor = (int)plUncloseEvent->Font->Color;
    aSysConfigInfo.ViewConfig.fvDangerEventColor = (int)plDangerEvent->Font->Color;
    aSysConfigInfo.ViewConfig.fvDeviceErrorColor = (int)plDeviceError->Font->Color;
    aSysConfigInfo.ViewConfig.fvOtherColor = (int)plOther->Font->Color;

    aSysConfigInfo.ViewConfig.WarningPanelStyle = rgWarningStyle->ItemIndex;
    aSysConfigInfo.ViewConfig.ShowMaxCount = lMaxCount;
    pConfigInfoXML->SetConfigInfo(aSysConfigInfo);
    pConfigInfoXML->SaveConfigInfo();
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TSystemConfigSetFrm::FormShow(TObject *Sender)
{
   if (!pConfigInfoXML->GetConfigInfo(aSysConfigInfo))
   {
      memset(aSysConfigInfo.CompanyName,0,sizeof(aSysConfigInfo.CompanyName));
      memcpy(aSysConfigInfo.CompanyName,"MIAXIS",6);
      aSysConfigInfo.ViewConfig.fvWarningEventColor = (int)clBlack;
      aSysConfigInfo.ViewConfig.fvUncloseEventColor = (int)clBlack;
      aSysConfigInfo.ViewConfig.fvDangerEventColor = (int)clBlack;
      aSysConfigInfo.ViewConfig.fvDeviceErrorColor = (int)clBlack;
      aSysConfigInfo.ViewConfig.fvOtherColor = (int)clBlack;
      aSysConfigInfo.ViewConfig.WarningPanelStyle = 0;
      aSysConfigInfo.ViewConfig.ShowMaxCount = 35;
   }
   edtCompany->Text = AnsiString(aSysConfigInfo.CompanyName).Trim();
   plWarningEvent->Font->Color = (TColor)aSysConfigInfo.ViewConfig.fvWarningEventColor;
   plUncloseEvent->Font->Color = (TColor)aSysConfigInfo.ViewConfig.fvUncloseEventColor;
   plDangerEvent->Font->Color = (TColor)aSysConfigInfo.ViewConfig.fvDangerEventColor;
   plDeviceError->Font->Color = (TColor)aSysConfigInfo.ViewConfig.fvDeviceErrorColor;
   plOther->Font->Color = (TColor)aSysConfigInfo.ViewConfig.fvOtherColor;

   rgWarningStyle->ItemIndex = aSysConfigInfo.ViewConfig.WarningPanelStyle;
   edtMaxCount->Text = aSysConfigInfo.ViewConfig.ShowMaxCount;



}
//---------------------------------------------------------------------------

void __fastcall TSystemConfigSetFrm::SpeedButton5Click(TObject *Sender)
{
   if (cdSelectColor->Execute())
   {
      plOther->Font->Color = cdSelectColor->Color;
   }
    
}
//---------------------------------------------------------------------------