fsetgrpmember.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FSetGrpMember.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmSetGrpMember *FrmSetGrpMember;
//---------------------------------------------------------------------------
__fastcall TFrmSetGrpMember::TFrmSetGrpMember(  TIniFile *pMessageIniFile,
        TDMTelSys* pDMTelSys,TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    UserInfoQuery->Open();
    UserGroupQuery->Open();
    UsrInGrpQuery->Open();

    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmSetGrpMember"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            SBNew->Enabled = false;
            SBDelete->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmSetGrpMember::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    FrmSetGrpMember = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TFrmSetGrpMember::SBNewClick(TObject *Sender)
{
   if( UserInfoQuery->IsEmpty()) {
        return;
    }
    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;

    if( UsrInGrpQuery->Locate( "UsrID",
             Variant( UserInfoQuery->FieldByName( "UserID")->AsString), Options) == false) {
        UsrInGrpQuery->Append();
        UsrInGrpQuery->FieldByName( "UsrID")->AsString
            = UserInfoQuery->FieldByName( "USERID")->AsString;
        UsrInGrpQuery->FieldByName( "USERNAME")->AsString
            = UserInfoQuery->FieldByName( "USERNAME")->AsString;
        try{
            pDMTelSys->TelSysADOConnection->BeginTrans();

            //