fusergroup.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FUserGroup.h"
#include "DUserGroup.h"
#include <algorithm>
#include <functional>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmUserGroup *FrmUserGroup;
//---------------------------------------------------------------------------
__fastcall TFrmUserGroup::TFrmUserGroup( TIniFile *pMessageIniFile,
        TDMTelSys* pDMTelSys,TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    UserGroupQuery->Open();
    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmUserGroup"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            ModifyToolButton->Enabled = false;
            SaveToolButton->Enabled = false;
            GiveUpToolButton->Enabled = false;
            NewToolButton->Enabled = false;
            DeleteToolButton->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmUserGroup::FormClose(TObject *Sender, TCloseAction &Action)
{
    Action = caFree;
    FrmUserGroup = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmUserGroup::NewToolButtonClick(TObject *Sender)
{
    UserGroup group( pDMTelSys->TelSysADOConnection);
    DlgUserGroup = new TDlgUserGroup( true,  group, pMsgIniFile, pDMTelSys,  this);
    if( DlgUserGroup->ShowModal() == mrOk) {
        NewGroupVec.push_back( group);

        UserGroupQuery->Append();
        UserGroupQuery->FieldByName( "GroupID")->AsString = group.GetUserGroupID();
        UserGroupQuery->FieldByName( "GroupName")->AsString = group.GetUserGroupName();
        UserGroupQuery->Post();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmUserGroup::ExitToolButtonClick(TObject *Sender)
{
    Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFrmUserGroup::ModifyToolButtonClick(TObject *Sender)
{
    UserGroup group( pDMTelSys->TelSysADOConnection);
    group.SetUserGroupID( UserGroupQuery->FieldByName( "GroupID")->AsString);
    group.SetUserGroupName(  UserGroupQuery->FieldByName( "GroupName")->AsString ) ;
    DlgUserGroup = new TDlgUserGroup( false,  group, pMsgIniFile, pDMTelSys,  this);
    if( DlgUserGroup->ShowModal() == mrOk) {
        ModifyGroupVec.push_back( group);

        UserGroupQuery->Edit();
        UserGroupQuery->FieldByName( "GroupID")->AsString = group.GetUserGroupID();
        UserGroupQuery->FieldByName( "GroupName")->AsString = group.GetUserGroupName();
        UserGroupQuery->Post();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmUserGroup::DeleteToolButtonClick(TObject *Sender)
{
    if( UserGroupQuery->IsEmpty()) {
        return;
    }
    String Default;
    String Title = pMsgIniFile->ReadString( "TelWarning", "Msg1", Default);
    String Message = pMsgIniFile->ReadString( "TelWarning", "Msg4", Default);//