fsetsysparam.cpp

来自「一套BCB６开发的电话管理系统」· C++ 代码 · 共 112 行

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

#include <vcl.h>
#pragma hdrstop

#include "FSetSysParam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmSetSysParam *FrmSetSysParam;
//---------------------------------------------------------------------------
__fastcall TFrmSetSysParam::TFrmSetSysParam( TIniFile *pMessageIniFile, TDMTelSys* pDMTelSys, TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    GSNameQuery->Open();
    ETCompanyName->Text = GSNameQuery->FieldByName( "coname")->AsString;
    ETDSPath->Text = GSNameQuery->FieldByName( "netpath")->AsString;
    ETTelLen->Text = GSNameQuery->FieldByName( "phone_len")->AsString;
    ETProgramNo->Text = GSNameQuery->FieldByName( "prgno")->AsString;
    ETInCollect->Text = GSNameQuery->FieldByName( "get_len")->AsString;
    ETSecond->Text = GSNameQuery->FieldByName( "get_sec")->AsString;
    ETCenter->Text = GSNameQuery->FieldByName( "get_bmbh")->AsString;

    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmSetSysParam"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            ModifyToolButton->Enabled = false;
            SaveToolButton->Enabled = false;
            GiveUpToolButton->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmSetSysParam::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    FrmSetSysParam = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmSetSysParam::ExitToolButtonClick(TObject *Sender)
{
    Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFrmSetSysParam::ModifyToolButtonClick(TObject *Sender)
{
    ETCompanyName->ReadOnly = false;
    ETDSPath->ReadOnly = false;
    ETTelLen->ReadOnly = false;
    ETProgramNo->ReadOnly = false;
    ETInCollect->ReadOnly = false;
    ETSecond->ReadOnly = false;
    ETCenter->ReadOnly = false;
}
//---------------------------------------------------------------------------
void __fastcall TFrmSetSysParam::SaveToolButtonClick(TObject *Sender)
{
    try {
        GSNameQuery->Edit();
        GSNameQuery->FieldByName( "coname")->AsString = ETCompanyName->Text;
        GSNameQuery->FieldByName( "netpath")->AsString = ETDSPath->Text;
        GSNameQuery->FieldByName( "phone_len")->AsString = ETTelLen->Text;
        GSNameQuery->FieldByName( "prgno")->AsString = ETProgramNo->Text;
        GSNameQuery->FieldByName( "get_len")->AsString = ETInCollect->Text;
        GSNameQuery->FieldByName( "get_sec")->AsString = ETSecond->Text;
        GSNameQuery->FieldByName( "get_bmbh")->AsString = ETCenter->Text;

        pDMTelSys->TelSysADOConnection->BeginTrans();
        GSNameQuery->Post();
        pDMTelSys->TelSysADOConnection->CommitTrans();
    }
    catch( ...) {
        pDMTelSys->TelSysADOConnection->RollbackTrans();
    }

    ETCompanyName->ReadOnly = true;
    ETDSPath->ReadOnly = true;
    ETTelLen->ReadOnly = true;
    ETProgramNo->ReadOnly = true;
    ETInCollect->ReadOnly = true;
    ETSecond->ReadOnly = true;
    ETCenter->ReadOnly = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmSetSysParam::GiveUpToolButtonClick(TObject *Sender)
{
    ETCompanyName->Text = GSNameQuery->FieldByName( "coname")->AsString;
    ETDSPath->Text = GSNameQuery->FieldByName( "netpath")->AsString;
    ETTelLen->Text = GSNameQuery->FieldByName( "phone_len")->AsString;
    ETProgramNo->Text = GSNameQuery->FieldByName( "prgno")->AsString;
    ETInCollect->Text = GSNameQuery->FieldByName( "get_len")->AsString;
    ETSecond->Text = GSNameQuery->FieldByName( "get_sec")->AsString;
    ETCenter->Text = GSNameQuery->FieldByName( "get_bmbh")->AsString;

    ETCompanyName->ReadOnly = true;
    ETDSPath->ReadOnly = true;
    ETTelLen->ReadOnly = true;
    ETProgramNo->ReadOnly = true;
    ETInCollect->ReadOnly = true;
    ETSecond->ReadOnly = true;
    ETCenter->ReadOnly = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmSetSysParam::ETTelLenExit(TObject *Sender)
{
    int phoneLen;
    if( TryStrToInt( ETTelLen->Text, phoneLen) == false) {
        Title = pMsgIniFile->ReadString( "TelWarning", "msg1", Default);
        Message = pMsgIniFile->ReadString( "TelWarning", "Msg9", Default);//筿杠腹絏