uconfig.cpp

来自「可实现科研信息管理系统的功能,有项目管理,教师管理,科研项目管理等多项内容」· C++ 代码 · 共 75 行

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

#include <vcl.h>
#pragma hdrstop
#include <Inifiles.hpp>
#include "UConfig.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TIniFile *ini;
AnsiString CurDir;
//---------------------------------------------------------------------------
__fastcall TFormConfig::TFormConfig(TComponent* Owner)
        : TFormTemplate(Owner)
{
        SBtnMin->Visible=false;
        SBtnMax->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TFormConfig::SBtnCancelClick(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFormConfig::SBtnApplyClick(TObject *Sender)
{
        ini = new TIniFile(ChangeFileExt( Application->ExeName, ".dat" ) );
        ini->WriteString("Backupcfg", "FileName", EditFileName->Text );
        ini->WriteBool("Backupcfg", "AutoBackup", CBAutoBackup->Checked );
        delete ini;
        SBtnApply->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TFormConfig::EditFileNameChange(TObject *Sender)
{
        SBtnApply->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TFormConfig::CBAutoBackupClick(TObject *Sender)
{
        SBtnApply->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TFormConfig::SBtnOkClick(TObject *Sender)
{
        SBtnApplyClick(Sender);
        Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFormConfig::SpeedButton1Click(TObject *Sender)
{
        if(SD->Execute())
        {
                EditFileName->Text=SD->FileName+".bkp";
        }
        SetCurrentDir(CurDir);
}
//---------------------------------------------------------------------------

void __fastcall TFormConfig::FormShow(TObject *Sender)
{
        CurDir=GetCurrentDir();
        ini = new TIniFile(ChangeFileExt( Application->ExeName, ".dat" ) );
        EditFileName->Text=ini->ReadString("Backupcfg", "FileName","");
        CBAutoBackup->Checked=ini->ReadBool("Backupcfg", "AutoBackup","");
        delete ini;
        SBtnApply->Enabled=false;
}
//---------------------------------------------------------------------------