fusrgrpright.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FUsrGrpRight.h"
#include "TelSystemDM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Wwdbgrid"
#pragma link "Wwdbigrd"
#pragma resource "*.dfm"
TFrmUsrGrpRight *FrmUsrGrpRight;
//---------------------------------------------------------------------------
__fastcall TFrmUsrGrpRight::TFrmUsrGrpRight(  TIniFile *pMessageIniFile,
        TDMTelSys* pDMTelSys, TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    UserGroupQuery->Open();
    UsrGrpRightQuery->Open();

    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmUsrGrpRight"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            ModifyToolButton->Enabled = false;
            SaveToolButton->Enabled = false;
            GiveUpToolButton->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmUsrGrpRight::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    FrmUsrGrpRight = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmUsrGrpRight::ModifyToolButtonClick(TObject *Sender)
{
    wwDBGrid1->ReadOnly = false;
    DBGrid1->Enabled = false;
    FirstPageToolButton->Enabled = false;
    PrevPageToolButton->Enabled = false;
    NextPageToolButton->Enabled = false;
    LastPageToolButton->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TFrmUsrGrpRight::SaveToolButtonClick(TObject *Sender)
{
    try {
        pDMTelSys->TelSysADOConnection->BeginTrans();

        //