fsolestattel.cpp

一套BCB６开发的电话管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "FSoleStatTel.h"
#include "TelSystemDM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmSolelyStatTel *FrmSolelyStatTel;
//---------------------------------------------------------------------------
__fastcall TFrmSolelyStatTel::TFrmSolelyStatTel(  TIniFile *pMessageIniFile,
        TDMTelSys* pDMTelSys,TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    TelTypeQuery->Open();
    G_TelType->Open();
    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmSolelyStatTel"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            SBNew->Enabled = false;
            SBDelete->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmSolelyStatTel::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    FrmSolelyStatTel = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmSolelyStatTel::ExitToolButtonClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TFrmSolelyStatTel::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_TelType->Locate( "Type;Local_code", VarArrayOf( str, 1), Options) == false) {
        G_TelType->Append();
        G_TelType->FieldByName( "Local_code")->AsString
            = TelTypeQuery->FieldByName( "local_code")->AsString;
        G_TelType->FieldByName( "Area")->AsString
            = TelTypeQuery->FieldByName( "Area")->AsString;
        G_TelType->FieldByName( "Location")->AsString
            = TelTypeQuery->FieldByName( "Location")->AsString;
        G_TelType->FieldByName( "type")->AsString
            = TelTypeQuery->FieldByName( "type")->AsString;
        G_TelType->FieldByName( "typecode")->AsString
            = TelTypeQuery->FieldByName( "type")->AsString
              + TelTypeQuery->FieldByName( "local_code")->AsString;
        try{
            pDMTelSys->TelSysADOConnection->BeginTrans();
            G_TelType->Post();
            G_TelType->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);//癘魁