fswitch.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FSwitch.h"
#include "TelSystemDM.h"
#include "DSwitchInfo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmSwitch *FrmSwitch;
//---------------------------------------------------------------------------
__fastcall TFrmSwitch::TFrmSwitch( TIniFile *pMessageIniFile,
        TDMTelSys* pDMTelSys, TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    SwitchQuery->Open();
    
    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmChangeTel"), 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 TFrmSwitch::NewToolButtonClick(TObject *Sender)
{
    String TelCode, UsrName, DeptNo, DeptName, CompanyNO, CompanyName;
    TDMTelSys* pDMTelSys;
    DlgSwitchInfo = new TDlgSwitchInfo( true, TelCode, UsrName, DeptNo, DeptName, CompanyNO, CompanyName, pDMTelSys, this);
    if( DlgSwitchInfo->ShowModal() == mrOk ){
        SwitchQuery->Append();
        SwitchQuery->FieldByName( "telecode")->AsString = TelCode;
        SwitchQuery->FieldByName( "department_number")->AsString = DeptNo;
        SwitchQuery->FieldByName( "username")->AsString = UsrName;
        SwitchQuery->FieldByName( "bm")->AsString = DeptName;
        SwitchQuery->FieldByName( "gscode")->AsString = CompanyNO;
        SwitchQuery->FieldByName( "gsname")->AsString = CompanyName;
        SwitchQuery->Post();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmSwitch::ModifyToolButtonClick(TObject *Sender)
{
    String TelCode, UsrName, DeptNo, DeptName, CompanyNO, CompanyName;
    TDMTelSys* pDMTelSys;
    TelCode = SwitchQuery->FieldByName( "telecode")->AsString;
    DeptNo = SwitchQuery->FieldByName( "department_number")->AsString;
    UsrName = SwitchQuery->FieldByName( "username")->AsString;
    DeptName = SwitchQuery->FieldByName( "bm")->AsString;
    CompanyNO = SwitchQuery->FieldByName( "gscode")->AsString;
    CompanyName = SwitchQuery->FieldByName( "gsname")->AsString;
    DlgSwitchInfo = new TDlgSwitchInfo( false, TelCode, UsrName, DeptNo, DeptName, CompanyNO, CompanyName, pDMTelSys, this);
    if( DlgSwitchInfo->ShowModal() == mrOk ){
        SwitchQuery->Edit();
        SwitchQuery->FieldByName( "department_number")->AsString = DeptNo;
        SwitchQuery->FieldByName( "username")->AsString = UsrName;
        SwitchQuery->FieldByName( "bm")->AsString = DeptName;
        SwitchQuery->FieldByName( "gscode")->AsString = CompanyNO;
        SwitchQuery->FieldByName( "gsname")->AsString = CompanyName;
        SwitchQuery->Post();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmSwitch::DeleteToolButtonClick(TObject *Sender)
{
    if( SwitchQuery->IsEmpty() )
        return;

    String Default;
    String Title = pMsgIniFile->ReadString( "TelWarning", "Msg1", Default);
    String Message = pMsgIniFile->ReadString( "TelWarning", "Msg4", Default);//