fremaketel.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FReMakeTel.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmReMakeTel *FrmReMakeTel;
//---------------------------------------------------------------------------
__fastcall TFrmReMakeTel::TFrmReMakeTel(  TIniFile *pMessageIniFile, TDMTelSys* pDMTelSys, TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    TelTypeQuery->Open();
    G_Local->Open();
    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmReMakeTel"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            SBNew->Enabled = false;
            SBDelete->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmReMakeTel::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    FrmReMakeTel = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmReMakeTel::SBNewClick(TObject *Sender)
{
    if( TelTypeQuery->IsEmpty()) {
        return;
    }
    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;

    Variant str[2];
    str[0] = TelTypeQuery->FieldByName( "type")->AsString;
    str[1] = TelTypeQuery->FieldByName( "local_code")->AsString;
    if( G_Local->Locate( "Type;Local_code", VarArrayOf( str, 1), Options) == false) {
        G_Local->Append();
        G_Local->FieldByName( "Local_code")->AsString
            = TelTypeQuery->FieldByName( "local_code")->AsString;
        G_Local->FieldByName( "type")->AsString
            = TelTypeQuery->FieldByName( "type")->AsString;
        try{
            pDMTelSys->TelSysADOConnection->BeginTrans();
            G_Local->Post();
            G_Local->UpdateBatch( arAll);
            pDMTelSys->TelSysADOConnection->CommitTrans();
        }
        catch( ...) {
            pDMTelSys->TelSysADOConnection->RollbackTrans();
        }
    }
    else {
        String Default;
        String Title = pMsgIniFile->ReadString( "TelWarning", "msg1", Default);
        String Message = pMsgIniFile->ReadString( "TelWarning", "Msg8", Default);//癘魁