dusergroup.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "DUserGroup.h"
#include <memory>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgUserGroup *DlgUserGroup;
//---------------------------------------------------------------------------
__fastcall TDlgUserGroup::TDlgUserGroup( bool bNew, UserGroup& grp,
        TIniFile *pMessageIniFile, TDMTelSys* pDMTelSys, TComponent* Owner)
        : bNew( bNew), grp( grp), pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    if( bNew) {
        ETGroupID->ReadOnly = false;
    }
    ETGroupID->Text = grp.GetUserGroupID();
    ETGroupName->Text = grp.GetUserGroupName();
}
//---------------------------------------------------------------------------
void __fastcall TDlgUserGroup::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    DlgUserGroup = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TDlgUserGroup::OKBtnClick(TObject *Sender)
{
    std::auto_ptr< TADOQuery> pQry( new TADOQuery( NULL));
    try{
        pQry->Close();
        pQry->Connection = pDMTelSys->TelSysADOConnection;
        pQry->SQL->Clear();
        pQry->SQL->Add( "select * from UserGroupInfo where GroupID = '" + ETGroupID->Text + "'");
        pQry->Open();

        if( pQry->IsEmpty() == false && bNew) {
            String Default;
            String Title = pMsgIniFile->ReadString( "TelWarning", "msg1", Default);
            String Message = pMsgIniFile->ReadString( "TelWarning", "Msg12", Default);//ノめ舱ID